1 (* Title: All tests on isac; observe outcommented
2 Author: Walther Neuper 101001
3 (c) copyright due to lincense terms.
5 $ cd /usr/local/isabisac/test/Tools/isac
6 $ /usr/local/Isabelle/bin/isabelle jedit -l Isac Test_Isac.thy &
7 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
8 10 20 30 40 50 60 70 80 90 100
11 theory Test_Isac imports
13 "Knowledge/Rational_Test"
19 ("ProgLang/termC.sml")
20 ("ProgLang/calculate.sml")
21 ("ProgLang/rewrite.sml")
22 (*("ProgLang/listg.sml") ("ProgLang/scrtools.sml") ("ProgLang/tools.sml") *)
24 ("Minisubpbl/000-comments.sml")
25 ("Minisubpbl/100-init-rootpbl.sml")
26 ("Minisubpbl/150-add-given.sml")
27 ("Minisubpbl/200-start-method.sml")
28 ("Minisubpbl/300-init-subpbl.sml")
29 ("Minisubpbl/400-start-meth-subpbl.sml")
30 ("Minisubpbl/500-postcond.sml")
32 ("Interpret/mstools.sml")
33 ("Interpret/ctree.sml")
34 ("Interpret/ptyps.sml")
35 (*("Interpret/generate.sml")*)
36 ("Interpret/calchead.sml")
37 (*("Interpret/appl.sml")*)
38 ("Interpret/rewtools.sml")
39 (*("Interpret/script.sml")
40 ("Interpret/solve.sml")
41 ("Interpret/inform.sml")*)
42 ("Interpret/mathengine.sml")
44 (*("xmlsrc/mathml.sml")
45 ("xmlsrc/datatypes.sml")
46 ("xmlsrc/pbl-met-hierarchy.sml")
47 ("xmlsrc/thy-hierarchy.sml")*)
48 ("xmlsrc/interface-xml.sml")
50 ("Frontend/messages.sml")
51 ("Frontend/states.sml")
52 ("Frontend/interface.sml")
55 ("Knowledge/delete.sml")
56 ("Knowledge/descript.sml")
57 ("Knowledge/atools.sml")
58 ("Knowledge/simplify.sml")
59 ("Knowledge/poly.sml")
60 ("Knowledge/rational.sml")
61 ("Knowledge/equation.sml")
62 ("Knowledge/root.sml")
63 ("Knowledge/lineq.sml")
64 ("Knowledge/rooteq.sml")
65 ("Knowledge/rateq.sml")
66 ("Knowledge/rootrateq.sml")
67 (*("Knowledge/polyeq.sml")*)
68 ("Knowledge/calculus.sml")
69 ("Knowledge/trig.sml")
70 ("Knowledge/logexp.sml")
71 ("Knowledge/diff.sml")
72 ("Knowledge/integrate.sml")
73 ("Knowledge/eqsystem.sml")
74 ("Knowledge/test.sml")
75 ("Knowledge/polyminus.sml")
76 ("Knowledge/vect.sml")
77 ("Knowledge/diffapp.sml")
78 ("Knowledge/biegelinie.sml")
79 ("Knowledge/algein.sml")
80 ("Knowledge/diophanteq.sml")
81 ("Knowledge/isac.sml")
85 ML {*"%%%%%%%%%%%%%%%%% start ProgLang.thy %%%%%%%%%%%%%%%%%%%";*}
86 use "library.sml" (*new 2011*)
87 use "calcelems.sml" (*complete*)
88 use "ProgLang/termC.sml" (*part.*)
89 use "ProgLang/calculate.sml" (*part.*)
90 use "ProgLang/rewrite.sml" (*part.*)
91 (*use "ProgLang/listg.sml" 2002*)
92 (*use "ProgLang/scrtools.sml" 2002*)
93 (*use "ProgLang/tools.sml" 2002*)
94 ML {*"%%%%%%%%%%%%%%%%% end ProgLang.thy %%%%%%%%%%%%%%%%%%%%%";*}
95 ML {*"%%%%%%%%%%%%%%%%% start Minisubpbl %%%%%%%%%%%%%%%%%%%%%";*}
96 use "Minisubpbl/000-comments.sml"
97 use "Minisubpbl/100-init-rootpbl.sml"
98 use "Minisubpbl/150-add-given.sml"
99 use "Minisubpbl/200-start-method.sml"
100 use "Minisubpbl/300-init-subpbl.sml"
114 use "Minisubpbl/400-start-meth-subpbl.sml"
115 use "Minisubpbl/500-postcond.sml"
116 ML {*"%%%%%%%%%%%%%%%%% end Minisubpbl %%%%%%%%%%%%%%%%%%%%%%%";*}
117 ML {*"%%%%%%%%%%%%%%%%% start Interpret.thy %%%%%%%%%%%%%%%%%%";*}
118 use "Interpret/mstools.sml" (*new 2010*)
120 (*test/../ctree.sml*)
122 val pt = append_problem [] (e_istate, e_ctxt) e_fmz ([(*oris*)], e_spec, e_term) pt;
123 val ctxt = get_obj g_ctxt pt [];
124 if is_e_ctxt ctxt then () else error "TODO";
126 use "Interpret/ctree.sml" (*!...!see(25)*)
127 use "Interpret/ptyps.sml" (* *)
128 (*use "Interpret/generate.sml" new 2011*)
129 use "Interpret/calchead.sml" (*! *)
130 use "Interpret/appl.sml" (*!complete WEGEN INTERMED TESTCODE*)
131 use "Interpret/rewtools.sml" (*! *)
132 use "Interpret/script.sml" (*!TODO*)
133 (*use "Interpret/solve.sml" !TODO*)
134 (*use "Interpret/inform.sml" !TODO*)
135 use "Interpret/mathengine.sml" (*!part.*)
136 ML {*"%%%%%%%%%%%%%%%%% end Interpret.thy %%%%%%%%%%%%%%%%%%%%";*}
137 ML {*"%%%%%%%%%%%%%%%%% start xmlsrc.thy %%%%%%%%%%%%%%%%%%%%%";*}
138 (*use "xmlsrc/mathml.sml" TODO*)
139 (*use "xmlsrc/datatypes.sml" TODO*)
140 (*use "xmlsrc/pbl-met-hierarchy.sml" TODO*)
141 (*use "xmlsrc/thy-hierarchy.sml" TODO after 2009-2*)
142 use "xmlsrc/interface-xml.sml" (*TODO after 2009-2*)
143 ML {*"%%%%%%%%%%%%%%%%% end xmlsrc.thy %%%%%%%%%%%%%%%%%%%%%%%";*}
144 ML {*"%%%%%%%%%%%%%%%%% start Frontend.thy %%%%%%%%%%%%%%%%%%%";*}
145 use "Frontend/messages.sml" (*new 2011*)
146 use "Frontend/states.sml" (*new 2011*)
147 use "Frontend/interface.sml" (*part.*)
148 use "print_exn_G.sml" (*new 2011*)
149 ML {*"%%%%%%%%%%%%%%%%% end Frontend.thy %%%%%%%%%%%%%%%%%%%%%";*}
150 ML {*"%%%%%%%%%%%%%%%%% start Knowledge.thy %%%%%%%%%%%%%%%%%%";*}
151 use "Knowledge/delete.sml" (*new 2011*)
152 use "Knowledge/descript.sml" (*new 2011*)
153 (*use "Knowledge/atools.sml" 2002, added termorder.sml 2011*)
154 use "Knowledge/simplify.sml" (*part.*)
155 (*use "Knowledge/poly.sml" 2002*)
156 (*use "Knowledge/rational.sml" part.; diff.emacs--jedit*)
157 (*use "Knowledge/equation.sml" 2002*)
158 (*use "Knowledge/root.sml" 2002*)
159 use "Knowledge/lineq.sml" (*new 2011*)
160 (*use "Knowledge/rooteq.sml" 2002*)
161 (*use "Knowledge/rateq.sml" 2002*)
162 (*use "Knowledge/rootrat.sml" 2002*)
163 (*use "Knowledge/rootrateq.sml" 2002*)
164 (*use "Knowledge/polyeq.sml" 2002*)
165 (*use "Knowledge/rlang.sml" 2002???*)
166 use "Knowledge/calculus.sml" (*new 2011*)
167 (*use "Knowledge/trig.sml" 2002*)
168 (*use "Knowledge/logexp.sml" 2002*)
169 use "Knowledge/diff.sml" (*part.*)
170 (*use "Knowledge/integrate.sml" part. was complete 2009-2
172 (*use "Knowledge/eqsystem.sml" 2002*)
173 use "Knowledge/test.sml" (*new 2011*)
174 use "Knowledge/polyminus.sml" (*part.*)
175 (*use "Knowledge/vect.sml" 2002*)
176 (*use "Knowledge/diffapp.sml" 2002*)
177 (*use "Knowledge/biegelinie.sml" 2002*)
178 (*use "Knowledge/algein.sml" 2002*)
179 use "Knowledge/diophanteq.sml" (*complete*)
180 use "Knowledge/isac.sml" (*part.*)
181 ML {*"%%%%%%%%%%%%%%%%% end Knowledge.thy %%%%%%%%%%%%%%%%%%%%";*}
182 ML {*"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%";*}
183 ML {*"%%%%%%%%%%%%%%%%% all tests successful %%%%%%%%%%%%%%%%%";*}
184 ML {*"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%";*}
188 (*=== inhibit exn ?=============================================================
189 ===== inhibit exn ?===========================================================*)
191 (*========== inhibit exn 110513 ================================================
193 "########### testcode inserted vvv ###########################################";
194 "########### testcode inserted ^^^ ###########################################";
196 ============ inhibit exn 110513 ==============================================*)
198 (*-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.
199 -.-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.*)