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: replace (catch 'fail) to (block main)

Browse Source
This commit is contained in:
HAYAMA Kaoru
2025-08-16 19:05:24 +09:00
parent 0780095a3f
commit aab753da48
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
example.lsp
+6 -6
View File
@@ -1,8 +1,8 @@
(catch 'fail (block main
(if (< (length *argv*) 2) (if (< (length *argv*) 2)
(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*)
(throw 'fail nil))) (return-from main nil)))
(let ((account (car *argv*)) (let ((account (car *argv*))
(password (cadr *argv*)) (password (cadr *argv*))
@@ -11,8 +11,8 @@
(with-handler (with-handler
(lambda (c) (lambda (c)
(format (error-output) "ssh is not found~%") (format (error-output) "ssh is not found~%")
(throw 'fail nil))
(setq sshpid (spawn "ssh" account))) (setq sshpid (spawn "ssh" account)))
(return-from main nil))
(expect* (expect*
("[fingerprint])?" ("[fingerprint])?"
@@ -23,17 +23,17 @@
(sendln password)) (sendln password))
(("Connection refused" (("Connection refused"
"Could not resolve hostname") "Could not resolve hostname")
(throw 'fail nil)) (return-from main nil))
(30 (30
(format (error-output) "TIME OUT~%") (format (error-output) "TIME OUT~%")
(throw 'fail nil))) (return-from main nil)))
(expect* (expect*
("Permission denied" ("Permission denied"
(expect "password:") (expect "password:")
(send #\U3) (send #\U3)
(wait sshpid) (wait sshpid)
(throw 'fail nil) (return-from main nil)
) )
("$ ")) ("$ "))
(sendln "echo YOU CAN CALL SOME COMMAND HERE") (sendln "echo YOU CAN CALL SOME COMMAND HERE")