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

New example using ssh

Browse Source
This commit is contained in:
HAYAMA_Kaoru
2024-12-02 06:27:26 +09:00
parent 31510725b1
commit 3c5630327a
2 changed files with 64 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files
README.md
+27 -20
View File
@@ -5,34 +5,41 @@ Lispect
- It runs on Windows 10 and later, and Linux
- The script is written in the subset of [ISLisp] ([gmnlisp])
```example.lsp
(if (equal (getenv "OS") "Windows_NT")
(spawn "cmd.exe" "/k" "set PROMPT=$$$S")
(spawn "bash"))
**example.lsp**
(defglobal ctrlc (create-string 1 (convert 3 <character>)))
```example.lsp
(block main
(while t
(if (< (length args) 2)
(progn
(format (error-output) "Usage: ./lispect example.lsp HOSTNAME PASSWORD~%")
(return-from main nil)
)
)
(defglobal host (car args))
(defglobal password (cadr args))
(spawn "ssh" host)
(expect*
("xxx"
(send ctrlc)
(expect "$ ")
(sendln "exit")
("[fingerprint])?"
(sendln "yes")
(expect "password: ")
(sendln password)
)
("password: "
(sendln password)
)
("Connection refused"
(return-from main nil)
)
(("yyy" "zzz")
(send ctrlc)
(expect "$ ")
(sendln 'interval 200 "echo test")
)
(10 ; timeout second
(send ctrlc)
(expect "$ ")
(sendln "exit")
(30
(format (error-output) "TIME OUT~%")
(return-from main nil)
)
)
)
(expect "$ ")
(sendln "echo YOU CAN CALL SOME COMMAND HERE")
(expect "$ ")
(sendln "exit")
)
```
example.lsp
+25 -20
View File
@@ -1,28 +1,33 @@
(if (equal (getenv "OS") "Windows_NT")
(spawn "cmd.exe" "/k" "set PROMPT=$$$S")
(spawn "bash"))
(defglobal ctrlc (create-string 1 (convert 3 <character>)))
(block main
(while t
(if (< (length args) 2)
(progn
(format (error-output) "Usage: ./lispect example.lsp HOSTNAME PASSWORD~%")
(return-from main nil)
)
)
(defglobal host (car args))
(defglobal password (cadr args))
(spawn "ssh" host)
(expect*
("xxx"
(send ctrlc)
(expect "$ ")
(sendln "exit")
("[fingerprint])?"
(sendln "yes")
(expect "password: ")
(sendln password)
)
("password: "
(sendln password)
)
("Connection refused"
(return-from main nil)
)
(("yyy" "zzz")
(send ctrlc)
(expect "$ ")
(sendln 'interval 200 "echo test")
)
(10 ; timeout second
(send ctrlc)
(expect "$ ")
(sendln "exit")
(30
(format (error-output) "TIME OUT~%")
(return-from main nil)
)
)
)
(expect "$ ")
(sendln "echo YOU CAN CALL SOME COMMAND HERE")
(expect "$ ")
(sendln "exit")
)