Megatest

(declare (uses commonmod))
(import commonmod)

(define *rundb-mutex* (make-mutex)) ;; prevent problems opening/closing rundb's
(define *number-of-writes* 0)
(define *number-non-write-queries* 0)




(set-fn 'db:setup       dbmod#db:setup)

	   (conc (current-directory) "/" outputfile)))
     results)
    ;; 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)



)

module-hierarchy.pdf : module-hierarchy.dot
	dot -Tpdf module-hierarchy.dot -o module-hierarchy.pdf

//  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 <http://www.gnu.org/licenses/>.
// 
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";