Overview
| Comment: | Better pkt visualizion |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
614169b1acb86b21b562f807a6b54aa1 |
| User & Date: | matt on 2017-06-19 22:12:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-19
| ||
| 23:59 | Access controls added to pkt generation check-in: d7af4dd892 user: matt tags: v1.65 | |
| 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 | |
Changes
Modified mtut.scm from [4f3f045f7d] to [60010d18a1].
| ︙ | ︙ | |||
1034 1035 1036 1037 1038 1039 1040 |
(print "ERROR: list requires section parameter; areas, setup or contours")))
((gendot)
(let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
(mtconf (car mtconfdat)))
(common:with-queue-db
mtconf
(lambda (pktsdirs pktsdir conn)
| > | > > > > > > > > | 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 |
(print "ERROR: list requires section parameter; areas, setup or contours")))
((gendot)
(let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
(mtconf (car mtconfdat)))
(common:with-queue-db
mtconf
(lambda (pktsdirs pktsdir conn)
;; pktspec display-fields
(make-report "out.dot" conn
'((cmd . ((parent . P)
(user . M)
(target . t)))
(runstart . ((parent . P)
(target . t)))
(runtype . ((parent . P)))) ;; pktspec
'(P U t) ;;
))))) ;; no ptypes listed (ptypes are strings of pkt types to read from db
((db)
(if (null? remargs)
(print "ERROR: missing sub command for db command")
(let ((subcmd (car remargs)))
(case (string->symbol subcmd)
((pgschema)
(let* ((install-home (common:get-install-area))
|
| ︙ | ︙ |