Overview
| Comment: | fixed typos |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
900f227fc0add02b87b86d8c509242ef |
| User & Date: | pjhatwal on 2017-08-08 18:04:44 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-08-08
| ||
| 21:45 | Merged v1.64 into v1.65, ready for next phase check-in: 82bd7da1b3 user: matt tags: v1.65 | |
| 18:04 | fixed typos check-in: 900f227fc0 user: pjhatwal tags: v1.65 | |
| 16:38 | removed garbage text check-in: eac8148602 user: pjhatwal tags: v1.65 | |
Changes
Modified mtut.scm from [435e600152] to [ba294af2fd].
|
| | | 1 2 3 4 5 6 7 8 | ; Copyright 2006-2017, Matthew Welland. ;; ;; This program is made available under the GNU GPL version 2.0 or ;; greater. See the accompanying file COPYING for details. ;; ;; This program is distributed WITHOUT ANY WARRANTY; without even the ;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ;; PURPOSE. |
| ︙ | ︙ | |||
1224 1225 1226 1227 1228 1229 1230 |
(print "ERROR: the portnumber parameter must be a number, you gave: " (car remargs))
(begin
(if (not (is-port-in-use portnum))
(let* ((rep (start-nn-server portnum))
(mtconfdat (simple-setup (args:get-arg "-start-dir")))
(mtconf (car mtconfdat))
(script (configf:lookup mtconf "listener" "script")))
| | | 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 |
(print "ERROR: the portnumber parameter must be a number, you gave: " (car remargs))
(begin
(if (not (is-port-in-use portnum))
(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")))))))
|
| ︙ | ︙ |