Overview
| Comment: | Improved make uses.pdf to remove redundant paths for much better readability |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.90 |
| Files: | files | file ages | folders |
| SHA1: |
fdb22977536d041c3762e1f6242bd5e2 |
| User & Date: | mrwellan on 2024-02-08 08:50:48 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-02-08
| ||
| 09:24 | Reduced unitdeps.pdf. Run oldcsc make unitdeps.pdf check-in: 98f80f0e76 user: mrwellan tags: v1.90 | |
| 08:50 | Improved make uses.pdf to remove redundant paths for much better readability check-in: fdb2297753 user: mrwellan tags: v1.90 | |
| 08:14 | Merged fork check-in: b8c6e3aae0 user: mrwellan tags: v1.90 | |
Changes
Modified Makefile from [3578a02f47] to [5e641b6f85].
| ︙ | ︙ | |||
532 533 534 535 536 537 538 | echo "(import postgresql)(hash-table-set! *available-db* 'postgresql #t)" >> altdb.scm;\ fi # portlogger-example : portlogger-example.scm api.o archive.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o genexample.o gutils.o items.o keys.o launch.o lock-queue.o margs.o mt.o ods.o portlogger.o process.o rmt.o runconfig.o runs.o server.o synchash.o tasks.o tdb.o tests.o tree.o # csc $(CSCOPTS) portlogger-example.scm api.o archive.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o genexample.o gutils.o items.o keys.o launch.o lock-queue.o margs.o mt.o ods.o portlogger.o process.o rmt.o runconfig.o runs.o server.o sync-hash.o tasks.o tdb.o tests.o tree.o unitdeps.dot : *scm ./utils/plot-uses Makefile | | > > | | > | 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 | echo "(import postgresql)(hash-table-set! *available-db* 'postgresql #t)" >> altdb.scm;\ fi # portlogger-example : portlogger-example.scm api.o archive.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o genexample.o gutils.o items.o keys.o launch.o lock-queue.o margs.o mt.o ods.o portlogger.o process.o rmt.o runconfig.o runs.o server.o synchash.o tasks.o tdb.o tests.o tree.o # csc $(CSCOPTS) portlogger-example.scm api.o archive.o common.o configf.o dashboard-tests.o dashboard-context-menu.o db.o dcommon.o ezsteps.o genexample.o gutils.o items.o keys.o launch.o lock-queue.o margs.o mt.o ods.o portlogger.o process.o rmt.o runconfig.o runs.o server.o sync-hash.o tasks.o tdb.o tests.o tree.o unitdeps.dot : *scm ./utils/plot-uses Makefile ./utils/plot-uses todot commonmod.import,mtargs.import,mtargs,debugprint $$(ls *.scm|grep -v import) > unitdeps.dot # ./utils/plot-uses todot commonmod,portlogger,stml2,debugprint,mtargs apimod.scm commonmod.scm configfmod.scm dbmod.scm megatestmod.scm mtmod.scm processmod.scm rmtmod.scm servermod.scm tcp-transportmod.scm > uses.dot ; dot uses.dot -Tpdf -o uses.pdf # apimod.scm commonmod.scm configfmod.scm dbmod.scm megatestmod.scm mtmod.scm processmod.scm rmtmod.scm servermod.scm tcp-transportmod.scm testsmod.scm uses.pdf : *scm utils/plot-uses Makefile ./utils/plot-uses todot portlogger,stml2,debugprint,mtargs *mod.scm launch.scm > uses-in.dot tred uses-in.dot > uses.dot dot uses.dot -Tpdf -o uses.pdf unitdeps.pdf : unitdeps.dot dot unitdeps.dot -Tpdf -o unitdeps.pdf ./utils/plot-uses : utils/plot-uses.scm csc utils/plot-uses.scm |
| ︙ | ︙ |
Modified db_records.scm from [4396dc0985] to [d1dae58171].
| ︙ | ︙ | |||
173 174 175 176 177 178 179 | (define (tdb:step-stable-set-stepname! vec val)(vector-set! vec 0 val)) (define (tdb:step-stable-set-start! vec val)(vector-set! vec 1 val)) (define (tdb:step-stable-set-end! vec val)(vector-set! vec 2 val)) (define (tdb:step-stable-set-status! vec val)(vector-set! vec 3 val)) (define (tdb:step-stable-set-runtime! vec val)(vector-set! vec 4 val)) | | | | | | | | | | | | | | | | 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 | (define (tdb:step-stable-set-stepname! vec val)(vector-set! vec 0 val)) (define (tdb:step-stable-set-start! vec val)(vector-set! vec 1 val)) (define (tdb:step-stable-set-end! vec val)(vector-set! vec 2 val)) (define (tdb:step-stable-set-status! vec val)(vector-set! vec 3 val)) (define (tdb:step-stable-set-runtime! vec val)(vector-set! vec 4 val)) ;; ;; The data structure for handing off requests via wire ;; (define (make-cdb:packet)(make-vector 6)) ;; (define (cdb:packet-get-client-sig vec) (vector-ref vec 0)) ;; (define (cdb:packet-get-qtype vec) (vector-ref vec 1)) ;; (define (cdb:packet-get-immediate vec) (vector-ref vec 2)) ;; (define (cdb:packet-get-query-sig vec) (vector-ref vec 3)) ;; (define (cdb:packet-get-params vec) (vector-ref vec 4)) ;; (define (cdb:packet-get-qtime vec) (vector-ref vec 5)) ;; (define (cdb:packet-set-client-sig! vec val)(vector-set! vec 0 val)) ;; (define (cdb:packet-set-qtype! vec val)(vector-set! vec 1 val)) ;; (define (cdb:packet-set-immediate! vec val)(vector-set! vec 2 val)) ;; (define (cdb:packet-set-query-sig! vec val)(vector-set! vec 3 val)) ;; (define (cdb:packet-set-params! vec val)(vector-set! vec 4 val)) ;; (define (cdb:packet-set-qtime! vec val)(vector-set! vec 5 val)) |