changelog shortlog graph tags branches changeset files file revisions raw help

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