Megatest

Diff
Login

Differences From Artifact [82b3909808]:

To Artifact [d20c583197]:


83
84
85
86
87
88
89

90
91
92
93
94
95
96
97
98
99
100
101
102
103



104
105
106
107
108
109
110
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114







+














+
+
+







			"-guimonitor"
			"-main"
			"-v"
			"-q"
			"-use-db-cache"
			"-skip-version-check"
			"-repl"
                        "-rh5.8" ;; fix to allow running on rh5.8
			)
		 args:arg-hash
		 0))

(if (not (null? remargs))
    (begin
      (print "Unrecognised arguments: " (string-intersperse remargs " "))
      (exit)))

(if (args:get-arg "-h")
    (begin
      (print help)
      (exit)))

(if (args:get-arg "-rh5.8")
    (set! iup:detachbox iup:vbox))

;; TODO: Move this inside (main)
;;
(if (not (launch:setup))
    (begin
      (print "Failed to find megatest.config, exiting") 
      (exit 1)))