MiscMirror/lispect
1
0
Fork 0
mirror of https://github.com/hymkor/lispect.git synced 2026-09-05 08:37:49 -04:00
Code Issues Packages Projects Releases Wiki Activity

example.lsp: use (wait PID)

Browse Source
This commit is contained in:
HAYAMA_Kaoru
2024-12-05 12:20:10 +09:00
parent 7b7e0ebccc
commit 48ab76b65b
1 changed files with 33 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
example.lsp
+9 -4
View File
@@ -3,14 +3,16 @@
(progn (progn
(format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME) (format (error-output) "Usage: ~A ~A USERNAME@DOMAIN PASSWORD~%" $EXECUTABLE_NAME $PROGRAM_NAME)
(return-from main nil))) (return-from main nil)))
(defglobal account (car args))
(defglobal password (cadr args)) (let ((account (car args))
(password (cadr args))
(sshpid nil))
(with-handler (with-handler
(lambda (c) (lambda (c)
(format (error-output) "ssh is not found~%") (format (error-output) "ssh is not found~%")
(return-from main nil)) (return-from main nil))
(spawn "ssh" account)) (setq sshpid (spawn "ssh" account)))
(expect* (expect*
("[fingerprint])?" ("[fingerprint])?"
@@ -33,4 +35,7 @@
("$ ")) ("$ "))
(sendln "echo YOU CAN CALL SOME COMMAND HERE") (sendln "echo YOU CAN CALL SOME COMMAND HERE")
(expect "$ ") (expect "$ ")
(sendln "exit")) (sendln "exit")
(wait sshpid)
)
)