example.lsp: Replace (block) and (return-from) to (quit)

2026-08-28 04:46:59 -04:00 · 2025-08-17 22:04:00 +09:00
parent d06833a874
commit 4be3d65850
1 changed files with 40 additions and 38 deletions
@@ -1,44 +1,46 @@
-(block main
-  (if (< (length *argv*) 2)
-    (progn
-      (format (error-output) "Usage: ~A ~A {SSH-OPTIONS} USERNAME@DOMAIN PASSWORD~%" *executable-name* *program-name*)
-      (return-from main nil)))
+(if (< (length *argv*) 2)
+  (progn
+    (format (error-output) "Usage: ~A ~A {SSH-OPTIONS} USERNAME@DOMAIN PASSWORD~%" *executable-name* *program-name*)
+    (quit 1)))

-  (let* ((ssh-param (subseq *argv* 0 (- (length *argv*) 1)))
-         (password (elt *argv* (- (length *argv*) 1)))
-         (sshpid nil))
+(let* ((ssh-param (subseq *argv* 0 (- (length *argv*) 1)))
+       (password (elt *argv* (- (length *argv*) 1)))
+       (sshpid nil))

-    (with-handler
-      (lambda (c)
-        (format (error-output) "ssh is not found~%")
-        (return-from main nil))
-      (setq sshpid (apply #'spawn "ssh" ssh-param)))
+  (with-handler
+    (lambda (c)
+      (format (error-output) "ssh is not found~%")
+      (quit 2))
+    (setq sshpid (apply #'spawn "ssh" ssh-param)))

-    (expect*
-      ("[fingerprint])?"
-       (sendln "yes")
-       (expect "password:")
-       (sendln password))
-      ("password:"
-       (sendln password))
-      (("Connection refused"
-        "Could not resolve hostname")
-       (return-from main nil))
-      (30
-       (format (error-output) "TIME OUT~%")
-       (return-from main nil)))
+  (expect*
+    ("[fingerprint])?"
+     (sendln "yes")
+     (expect "password:")
+     (sendln password))

-    (expect*
-      ("Permission denied"
-       (expect "password:")
-       (send #\U3)
-       (wait sshpid)
-       (return-from main nil)
-       )
-      ("$ "))
-    (sendln "echo YOU CAN CALL SOME COMMAND HERE")
-    (expect "$ ")
-    (sendln "exit")
-    (wait sshpid)
+    ("password:"
+     (sendln password))
+
+    (("Connection refused"
+      "Could not resolve hostname")
+     (quit 3))
+
+    (30
+     (format (error-output) "TIME OUT~%")
+     (quit 4)))
+
+  (expect*
+    ("Permission denied"
+     (expect "password:")
+     (send #\U3)
+     (wait sshpid)
+     (quit 5))
+
+    ("$ ")
    )
+  (sendln "echo YOU CAN CALL SOME COMMAND HERE")
+  (expect "$ ")
+  (sendln "exit")
+  (wait sshpid)
  )