changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/pod/podman.lisp

changeset 388: dec30b6fd500
parent: 5a0bc297ede3
child: 9fa3b9154bb2
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 31 May 2024 18:18:12 -0400
permissions: -rw-r--r--
description: prelude/user packages init 
     1 ;;; lib/pod/podman.lisp --- Pod Manager
     2 
     3 ;;
     4 
     5 ;;; Code:
     6 (in-package :pod)
     7 
     8 (defvar *podman-exe* (find-exe "podman"))
     9 
    10 ;; podman system service --time=0 unix:///tmp/podman.sock (local-socket)
    11 ;; podman system service --time=0 tcp://localhost:8888 (inet-socket :stream :tcp)
    12 (defun podman-run-command ())
    13 
    14 (defun start-podman-service (addr &optional (protocol :unix) (time 0))
    15   "Start the Libpod API on ADDR over PROTO which is either :TCP or :UNIX."
    16   (declare ((member :unix :tcp) protocol))
    17   (sb-ext:run-program *podman-exe* `("system"
    18                                      "service"
    19                                      ,(format nil "~(~a~)://~a" protocol addr)
    20                                      ,(format nil "--time=~a" time))))