Index: docs/code/module-hierarchy.dot ================================================================== --- docs/code/module-hierarchy.dot +++ docs/code/module-hierarchy.dot @@ -23,45 +23,48 @@ subgraph cluster_megatest { label="megatest"; rmtmod [label="rmt mod"]; -// template-mod.scm -"sqlite3" -> "template-mod"; -"commonmod" -> "template-mod"; -// http-transportmod.scm -"commonmod" -> "http-transportmod"; -"stml2" -> "http-transportmod"; -"apimod" -> "http-transportmod"; -"dbmod" -> "http-transportmod"; -"testsmod" -> "http-transportmod"; -"mtargs" -> "http-transportmod"; -"mtconfigf" -> "http-transportmod"; -// apimod.scm -"sqlite3" -> "apimod"; -"commonmod" -> "apimod"; -"dbmod" -> "apimod"; -"servermod" -> "apimod"; -// launchmod.scm -"sqlite3" -> "launchmod"; -"commonmod" -> "launchmod"; -// keysmod.scm -"sqlite3" -> "keysmod"; -"srfi-13" -> "keysmod"; +// archivemod.scm +"sqlite3" -> "archivemod"; +"commonmod" -> "archivemod"; +// clientmod.scm +"sqlite3" -> "clientmod"; +"commonmod" -> "clientmod"; +// configfmod.scm +"sqlite3" -> "configfmod"; +// subrunmod.scm +"sqlite3" -> "subrunmod"; +"commonmod" -> "subrunmod"; +"mtconfigf" -> "subrunmod"; +// ezstepsmod.scm +"sqlite3" -> "ezstepsmod"; +"commonmod" -> "ezstepsmod"; +// itemsmod.scm +"sqlite3" -> "itemsmod"; +"commonmod" -> "itemsmod"; +// gutilsmod.scm +"iup" -> "gutilsmod"; +"canvas-draw" -> "gutilsmod"; // testsmod.scm "sqlite3" -> "testsmod"; "commonmod" -> "testsmod"; "servermod" -> "testsmod"; "itemsmod" -> "testsmod"; "dbmod" -> "testsmod"; "mtconfigf" -> "testsmod"; "mtargs" -> "testsmod"; -// vgmod.scm -"sqlite3" -> "vgmod"; -// clientmod.scm -"sqlite3" -> "clientmod"; -"commonmod" -> "clientmod"; +// runconfigmod.scm +"sqlite3" -> "runconfigmod"; +"commonmod" -> "runconfigmod"; +// keysmod.scm +"sqlite3" -> "keysmod"; +"srfi-13" -> "keysmod"; +// launchmod.scm +"sqlite3" -> "launchmod"; +"commonmod" -> "launchmod"; // megamod.scm "mtconfigf" -> "megamod"; "spiffy" -> "megamod"; "stml2" -> "megamod"; "mtargs" -> "megamod"; @@ -79,41 +82,26 @@ "testsmod" -> "megamod"; "servermod" -> "megamod"; "subrunmod" -> "megamod"; "itemsmod" -> "megamod"; "runsmod" -> "megamod"; -// subrunmod.scm -"sqlite3" -> "subrunmod"; -"commonmod" -> "subrunmod"; -"mtconfigf" -> "subrunmod"; -// tasksmod.scm -"sqlite3" -> "tasksmod"; -"commonmod" -> "tasksmod"; -"mtconfigf" -> "tasksmod"; -"pgdbmod" -> "tasksmod"; -// dbmod.scm -"sqlite3" -> "dbmod"; -"commonmod" -> "dbmod"; -"keysmod" -> "dbmod"; -"files" -> "dbmod"; -"tasksmod" -> "dbmod"; -"odsmod" -> "dbmod"; -"mtargs" -> "dbmod"; -"mtconfigf" -> "dbmod"; -// servermod.scm -"sqlite3" -> "servermod"; -"commonmod" -> "servermod"; -"dbmod" -> "servermod"; -"tasksmod" -> "servermod"; -"mtargs" -> "servermod"; -"mtconfigf" -> "servermod"; -// ezstepsmod.scm -"sqlite3" -> "ezstepsmod"; -"commonmod" -> "ezstepsmod"; // odsmod.scm "sqlite3" -> "odsmod"; "commonmod" -> "odsmod"; +// envmod.scm +"sqlite3" -> "envmod"; +"commonmod" -> "envmod"; +// http-transportmod.scm +"commonmod" -> "http-transportmod"; +"stml2" -> "http-transportmod"; +"apimod" -> "http-transportmod"; +"dbmod" -> "http-transportmod"; +"testsmod" -> "http-transportmod"; +"mtargs" -> "http-transportmod"; +"mtconfigf" -> "http-transportmod"; +// processmod.scm +"sqlite3" -> "processmod"; // mtmod.scm "sqlite3" -> "mtmod"; "mtargs" -> "mtmod"; "mtconfigf" -> "mtmod"; "commonmod" -> "mtmod"; @@ -123,15 +111,14 @@ "servermod" -> "mtmod"; "stml2" -> "mtmod"; "subrunmod" -> "mtmod"; "tasksmod" -> "mtmod"; "testsmod" -> "mtmod"; -// treemod.scm -"iup" -> "treemod"; -// itemsmod.scm -"sqlite3" -> "itemsmod"; -"commonmod" -> "itemsmod"; +// pgdbmod.scm +"mtconfigf" -> "pgdbmod"; +"mtargs" -> "pgdbmod"; +"commonmod" -> "pgdbmod"; // runsmod.scm "base64" -> "runsmod"; "commonmod" -> "runsmod"; "dbmod" -> "runsmod"; "itemsmod" -> "runsmod"; @@ -143,33 +130,24 @@ "servermod" -> "runsmod"; "stml2" -> "runsmod"; "subrunmod" -> "runsmod"; "tasksmod" -> "runsmod"; "testsmod" -> "runsmod"; -// processmod.scm -"sqlite3" -> "processmod"; -// rmtmod.scm -"sqlite3" -> "rmtmod"; -"ulex" -> "rmtmod"; -"commonmod" -> "rmtmod"; -"itemsmod" -> "rmtmod"; -"apimod" -> "rmtmod"; -"dbmod" -> "rmtmod"; -// commonmod.scm -"sqlite3" -> "commonmod"; -"pkts" -> "commonmod"; -"mtconfigf" -> "commonmod"; -"mtargs" -> "commonmod"; -// pgdbmod.scm -"mtconfigf" -> "pgdbmod"; -"mtargs" -> "pgdbmod"; -"commonmod" -> "pgdbmod"; -// envmod.scm -"sqlite3" -> "envmod"; -"commonmod" -> "envmod"; -// configfmod.scm -"sqlite3" -> "configfmod"; +// apimod.scm +"sqlite3" -> "apimod"; +"commonmod" -> "apimod"; +"dbmod" -> "apimod"; +"servermod" -> "apimod"; +// dbmod.scm +"sqlite3" -> "dbmod"; +"commonmod" -> "dbmod"; +"keysmod" -> "dbmod"; +"files" -> "dbmod"; +"tasksmod" -> "dbmod"; +"odsmod" -> "dbmod"; +"mtargs" -> "dbmod"; +"mtconfigf" -> "dbmod"; // dcommonmod.scm "sqlite3" -> "dcommonmod"; "mtconfigf" -> "dcommonmod"; "gutilsmod" -> "dcommonmod"; "commonmod" -> "dcommonmod"; @@ -182,19 +160,43 @@ "dbmod" -> "dcommonmod"; "canvas-draw" -> "dcommonmod"; "canvas-draw-iup" -> "dcommonmod"; "iup" -> "dcommonmod"; "mtargs" -> "dcommonmod"; -// gutilsmod.scm -"iup" -> "gutilsmod"; -"canvas-draw" -> "gutilsmod"; -// runconfigmod.scm -"sqlite3" -> "runconfigmod"; -"commonmod" -> "runconfigmod"; -// archivemod.scm -"sqlite3" -> "archivemod"; -"commonmod" -> "archivemod"; +// tasksmod.scm +"sqlite3" -> "tasksmod"; +"commonmod" -> "tasksmod"; +"mtconfigf" -> "tasksmod"; +"pgdbmod" -> "tasksmod"; +// template-mod.scm +"sqlite3" -> "template-mod"; +"commonmod" -> "template-mod"; +// servermod.scm +"sqlite3" -> "servermod"; +"commonmod" -> "servermod"; +"dbmod" -> "servermod"; +"tasksmod" -> "servermod"; +"mtargs" -> "servermod"; +"mtconfigf" -> "servermod"; +// treemod.scm +"iup" -> "treemod"; +// commonmod.scm +"sqlite3" -> "commonmod"; +"pkts" -> "commonmod"; +"mtconfigf" -> "commonmod"; +"mtargs" -> "commonmod"; +// vgmod.scm +"sqlite3" -> "vgmod"; +// rmtmod.scm +"sqlite3" -> "rmtmod"; +"ulex" -> "rmtmod"; +"commonmod" -> "rmtmod"; +"itemsmod" -> "rmtmod"; +"apimod" -> "rmtmod"; +"dbmod" -> "rmtmod"; } - + +{ rank=same; eggs; sqlite3, spiffy, files, base64, iup, "canvas-draw" } + } Index: docs/code/postamble.dot ================================================================== --- docs/code/postamble.dot +++ docs/code/postamble.dot @@ -1,5 +1,7 @@ } - + +{ rank=same; eggs; sqlite3, spiffy, files, base64, iup, "canvas-draw" } + } Index: ulex/ulex.scm ================================================================== --- ulex/ulex.scm +++ ulex/ulex.scm @@ -82,10 +82,11 @@ (define (ping udata host-port) (let* ((cookie (make-cookie udata)) (res (send-receive udata host-port 'ping "just pinging" (conc (current-seconds))))) (print "got res=" res) + (equal? res cookie) )) ;;====================================================================== ;; network utilities ;;======================================================================