Overview
| Comment: | Added missing parts to get -set-state-status working |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
7e269b22b6070768ce18c0b81d7b8026 |
| User & Date: | matt on 2017-06-18 23:43:53 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-19
| ||
| 22:12 | Better pkt visualizion check-in: 614169b1ac user: matt tags: v1.65 | |
|
2017-06-18
| ||
| 23:43 | Added missing parts to get -set-state-status working check-in: 7e269b22b6 user: matt tags: v1.65 | |
| 23:35 | set state/status almost working with mtutil. check-in: 7d703fee73 user: matt tags: v1.65 | |
Changes
Modified mtut.scm from [0d3e416b5b] to [4f3f045f7d].
| ︙ | ︙ | |||
885 886 887 888 889 890 891 | runkeydats))) (let ((res (configf:get-section torun contour))) ;; each contour / target ;; (print "res=" res) res)))) (hash-table-keys torun))))))) (define (pkt->cmdline pkta) | | > > > | | 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 |
runkeydats)))
(let ((res (configf:get-section torun contour))) ;; each contour / target
;; (print "res=" res)
res))))
(hash-table-keys torun)))))))
(define (pkt->cmdline pkta)
(let* ((action (or (lookup-action-by-key (alist-ref 'A pkta)) "noaction"))
(action-param (case (string->symbol action)
((-set-state-status) (conc (alist-ref 'l pkta) " "))
(else ""))))
(fold (lambda (a res)
(let* ((key (car a)) ;; get the key name
(val (cdr a))
(par (or (lookup-param-by-key key) ;; need to check also if it is a switch
(lookup-param-by-key key inlst: *switch-keys*))))
;; (print "key: " key " val: " val " par: " par)
(if par
(conc res " " (param-translate par) " " val)
(if (alist-ref key *additional-cards*) ;; these cards do not translate to parameters or switches
res
(begin
(print "ERROR: Unknown key in packet \"" key "\" with value \"" val "\"")
res)))))
(conc "megatest " (if (not (member action '("sync")))
(conc action " " action-param)
""))
pkta)))
;; (use trace)(trace pkt->cmdline)
(define (write-pkt pktsdir uuid pkt)
(if pktsdir
|
| ︙ | ︙ |