Index: db.scm ================================================================== --- db.scm +++ db.scm @@ -50,9 +50,6 @@ (define *rundb-mutex* (make-mutex)) ;; prevent problems opening/closing rundb's (define *number-of-writes* 0) (define *number-non-write-queries* 0) - -;; tiresome setup for rmtmod (and other mods) goes here -;; (set-fn 'db:dbfile-path common:get-db-tmp-area) (set-fn 'db:setup dbmod#db:setup) Index: dbmod.scm ================================================================== --- dbmod.scm +++ dbmod.scm @@ -4484,9 +4484,11 @@ ;; brutal clean up (stack-push! (dbr:dbstruct-dbstack dbstruct) dbdat) (system "rm -rf tempdir"))) ;; (db:extract-ods-file db "outputfile.ods" '(("sysname" "%")("fsname" "%")("datapath" "%")) "%") +;; tiresome setup for rmtmod (and other mods) goes here +;; (set-fn 'db:dbfile-path common:get-db-tmp-area) ) ADDED docs/code/Makefile Index: docs/code/Makefile ================================================================== --- /dev/null +++ docs/code/Makefile @@ -0,0 +1,3 @@ +module-hierarchy.pdf : module-hierarchy.dot + dot -Tpdf module-hierarchy.dot -o module-hierarchy.pdf + ADDED docs/code/module-hierarchy.dot Index: docs/code/module-hierarchy.dot ================================================================== --- /dev/null +++ docs/code/module-hierarchy.dot @@ -0,0 +1,84 @@ +// Copyright 2006-2017, Matthew Welland. +// +// This file is part of Megatest. +// +// Megatest is free software: you can redistribute it and/or modify +// it under the terms of the GNU General Public License as published by +// the Free Software Foundation, either version 3 of the License, or +// (at your option) any later version. +// +// Megatest is distributed in the hope that it will be useful, +// but WITHOUT ANY WARRANTY; without even the implied warranty of +// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +// GNU General Public License for more details. +// +// You should have received a copy of the GNU General Public License +// along with Megatest. If not, see . +// +digraph megatest_code_hierarchy { + ranksep=0.05; + // rankdir=LR + + node [shape=box,style=filled]; + + "common" [label="common module"]; + + subgraph cluster_megatest { + label="megatest"; + "common" -> "api" -> "rmt"; + "common" -> "rmt"; + } + +// subgraph cluster_code_hierarchy { +// label="Packets"; +// "SPKTS" [ label = "Sensor Packets" ]; +// "run code-hierarchy"; +// "work code-hierarchy"; +// "user request code-hierarchy"; +// } +} + +// "SENSORS" [ label = "{ Sensor Processing | { file | git | fossil | script }}" +// shape = "record"; ]; +// +// "RUNS" [ label = "{ Runs Processing | { launch | clean | re-run | archive } | { dispatcher }}"; +// shape = "record"; ]; +// +// "WORK" [ label = "{ Work Items | { start task | task competed }}"; +// shape = "record"; ]; +// +// "USERREQ" [ label = "{ User Requests (Unix and Web) | { launch | clean | re-run | archive }}"; +// shape = "record"; ]; +// +// "MTAREA1" [ label = "{ Megatest Area 1 | { parallel job\nmanagement | test\nmanagement | data\nrollup }}"; +// shape = "record"; ]; +// +// "MTAREA2" [ label = "{ Megatest Area 2 | { parallel job\nmanagement | test\nmanagement | data\nrollup }}"; +// shape = "record"; ]; +// +// "MTAREA3" [ label = "More Megatest Areas ... "; +// shape = "record"; ]; +// +// "PGDB" [ label = "postgres database"; +// shape = "cylinder"; ]; +// +// "WEBAPP" [ label = "{ Web View | { Runs | Contours | Control | Time View }}"; +// shape = "record"; ]; +// +// // "WEBCTRL" [ label = "{ Web View \n(control) }"; +// // shape = "record"; ]; +// +// "SENSORS" -> "SPKTS"; +// "RUNS" -> "run code-hierarchy"; +// "run code-hierarchy" -> "RUNS"; +// "WORK" -> "work code-hierarchy"; +// "work code-hierarchy" -> "RUNS"; +// "USERREQ" -> "user request code-hierarchy"; +// "SPKTS" -> "RUNS"; +// "user request code-hierarchy" -> "RUNS"; +// "RUNS" -> "MTAREA1" -> "PGDB"; +// "RUNS" -> "MTAREA2" -> "PGDB"; +// "RUNS" -> "MTAREA3" -> "PGDB"; +// "PGDB" -> "WEBAPP"; +// // "WEBCTRL" -> "run code-hierarchy"; +