Overview
| Comment: | Fixed plot-code.scm to work when compiled. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64-areas-dashboard |
| Files: | files | file ages | folders |
| SHA1: |
da673f0c80f70e77facf1d74f7b3c620 |
| User & Date: | mrwellan on 2017-08-21 18:10:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-11-17
| ||
| 15:52 | Pulled in da67 check-in: 6db9365e99 user: mrwellan tags: areas-work-merge (unpublished) | |
|
2017-08-22
| ||
| 20:56 | Added usage to plot-code. Removed defunct switch -use-db-cache from dashboard. check-in: d654343818 user: matt tags: v1.64-areas-dashboard | |
|
2017-08-21
| ||
| 18:10 | Fixed plot-code.scm to work when compiled. check-in: da673f0c80 user: mrwellan tags: v1.64-areas-dashboard | |
|
2017-08-14
| ||
| 01:03 | Partially removed global *db-cache-path* (might need to add it back for performance reasons, used in rmt: calls.) Modified common:get-db-tmp-area to get info from dbstruct instead of globals. Added proc to open area dbs Gutted dboard:areas-update-tree. Does only areas now. First pass on some refactoring in db:get-db, db:open-db, db:dbfile-path (these need to be reduced to one function). check-in: 37c6122258 user: matt tags: v1.64-areas-dashboard, fixme-matt | |
Changes
Modified utils/plot-code.scm from [2b66df6bfd] to [2b672145e0].
1 2 3 4 5 6 7 8 9 | #!/mfs/pkgs/chicken/4.8.0.5/bin/csi -nbq ;; Coming soon (right?) Usage: plot-code file1.scm,file2.scm "fun1,fun2,x*" *.scm > plot.dot ;; Usage: plot-code file1.scm,file2.scm *.scm > plot.dot ;; dot -Tpdf plot.dot > plot.pdf ;; first param is comma separated list of files to include in the map, use - to do all ;; second param is list of regexs for functions to include in the map ;; third param is list of files to scan | | > > > | > > | | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
#!/mfs/pkgs/chicken/4.8.0.5/bin/csi -nbq
;; Coming soon (right?) Usage: plot-code file1.scm,file2.scm "fun1,fun2,x*" *.scm > plot.dot
;; Usage: plot-code file1.scm,file2.scm *.scm > plot.dot
;; dot -Tpdf plot.dot > plot.pdf
;; first param is comma separated list of files to include in the map, use - to do all
;; second param is list of regexs for functions to include in the map
;; third param is list of files to scan
(use regex srfi-69 srfi-13 srfi-1 data-structures posix)
;; 1 2 remainder
;; plot-code file1.scm,file2.scm... fn-regex file1.scm file2.scm ...
(define targs #f)
(define args (argv))
(define files (cdddr args))
(let ((targdat (cadr args)))
(if (equal? targdat "-")
(set! targs files)
(set! targs (string-split targdat ","))))
(define function-patt (caddr args))
(define function-rx (regexp function-patt))
(define filedat-defns (make-hash-table))
(define filedat-usages (make-hash-table))
(define defn-rx (regexp "^\\s*\\(define\\s+\\(([^\\s\\)]+).*"))
(define all-regexs (make-hash-table))
|
| ︙ | ︙ |