Overview
| Comment: | wrapped received msg as a string argument |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
bcfb084eb25a7124496664afc5c48df8 |
| User & Date: | pjhatwal on 2017-08-10 10:41:55 |
| Original Comment: | wraped recived msg as a string argument |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-08-15
| ||
| 12:21 | fixed prepend-contour to use the argument passed with -contour if contour field is absent in database check-in: 10b99d180d user: pjhatwal tags: v1.65 | |
|
2017-08-10
| ||
| 10:41 | wrapped received msg as a string argument check-in: bcfb084eb2 user: pjhatwal tags: v1.65 | |
|
2017-08-08
| ||
| 21:45 | Merged v1.64 into v1.65, ready for next phase check-in: 82bd7da1b3 user: matt tags: v1.65 | |
Changes
Modified mtut.scm from [ba294af2fd] to [e9393f688c].
| ︙ | ︙ | |||
1227 1228 1229 1230 1231 1232 1233 |
(let* ((rep (start-nn-server portnum))
(mtconfdat (simple-setup (args:get-arg "-start-dir")))
(mtconf (car mtconfdat))
(script (configf:lookup mtconf "listener" "script")))
(print "Listening on port " portnum " for messages")
(let loop ((instr (nn-recv rep)))
(print "received " instr ", running \"" script " " instr "\"")
| | | 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 |
(let* ((rep (start-nn-server portnum))
(mtconfdat (simple-setup (args:get-arg "-start-dir")))
(mtconf (car mtconfdat))
(script (configf:lookup mtconf "listener" "script")))
(print "Listening on port " portnum " for messages")
(let loop ((instr (nn-recv rep)))
(print "received " instr ", running \"" script " " instr "\"")
(system (conc script " '" instr "'"))
(nn-send rep "ok")
(loop (nn-recv rep))))
(print "ERROR: Port " portnum " already in use. Try another port")))))))
)) ;; the end
|
| ︙ | ︙ |