example.lsp runs on Linux and Windows

2026-08-28 04:46:59 -04:00 · 2024-11-30 11:22:43 +09:00
parent cf747dcac7
commit b0efed751b
1 changed files with 25 additions and 20 deletions
@@ -1,23 +1,28 @@
-(spawn "cmd.exe")
-(let ((ctrlc (format nil "~A" (convert 3 <character>))))
-  (block main
-    (while t
-      (expect*
-        ("xxx"
-         (send ctrlc)
-         (sendln "exit")
-         (return-from main nil)
-         )
-        (("yyy" "zzz")
-         (send ctrlc)
-         (sendln "rem")
-         )
-        (10 ; timeout second
-         (send ctrlc)
-         (sendln "exit")
-         (return-from main nil)
-        )
-        )
+(if (equal (getenv "OS") "Windows_NT")
+  (spawn "cmd.exe" "/k" "set PROMPT=$$$S")
+  (spawn "bash"))
+
+(defglobal ctrlc (format nil "~A" (convert 3 <character>)))
+(block main
+  (while t
+    (expect*
+      ("xxx"
+       (send ctrlc)
+       (expect "$ ")
+       (sendln "exit")
+       (return-from main nil)
+       )
+      (("yyy" "zzz")
+       (send ctrlc)
+       (expect "$ ")
+       (sendln "echo test")
+       )
+      (10 ; timeout second
+       (send ctrlc)
+       (expect "$ ")
+       (sendln "exit")
+       (return-from main nil)
+       )
      )
    )
  )