author | Walther Neuper <neuper@ist.tugraz.at> |
Fri, 13 May 2011 09:28:38 +0200 | |
branch | decompose-isar |
changeset 41986 | 64efbbbed4b4 |
parent 41985 | cb8ea2269e6f |
child 41987 | f304fe86b45a |
permissions | -rw-r--r-- |
neuper@41945 | 1 |
(* Title: All tests on isac; observe outcommented |
neuper@41943 | 2 |
Author: Walther Neuper 101001 |
neuper@41943 | 3 |
(c) copyright due to lincense terms. |
neuper@41943 | 4 |
|
neuper@41943 | 5 |
$ cd /usr/local/isabisac/test/Tools/isac |
neuper@41978 | 6 |
$ /usr/local/Isabelle/bin/isabelle jedit -l Isac Test_Isac.thy & |
neuper@41968 | 7 |
1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 |
neuper@41968 | 8 |
10 20 30 40 50 60 70 80 90 100 |
neuper@41943 | 9 |
*) |
neuper@41943 | 10 |
|
neuper@41979 | 11 |
theory Test_Isac imports |
neuper@41979 | 12 |
Isac |
neuper@41979 | 13 |
"Knowledge/Rational_Test" |
neuper@41980 | 14 |
"ADDTESTS/Ctxt" |
neuper@41979 | 15 |
|
neuper@41945 | 16 |
uses |
neuper@41945 | 17 |
( "library.sml") |
neuper@41945 | 18 |
( "calcelems.sml") |
neuper@41945 | 19 |
("ProgLang/termC.sml") |
neuper@41945 | 20 |
("ProgLang/calculate.sml") |
neuper@41945 | 21 |
("ProgLang/rewrite.sml") |
neuper@41945 | 22 |
(*("ProgLang/listg.sml") ("ProgLang/scrtools.sml") ("ProgLang/tools.sml") *) |
neuper@41945 | 23 |
|
neuper@41985 | 24 |
("Minisubpbl/000-comments.sml") |
neuper@41985 | 25 |
("Minisubpbl/100-init-rootpbl.sml") |
neuper@41986 | 26 |
("Minisubpbl/150-add-given.sml") |
neuper@41985 | 27 |
("Minisubpbl/200-start-method.sml") |
neuper@41985 | 28 |
("Minisubpbl/300-init-subpbl.sml") |
neuper@41985 | 29 |
("Minisubpbl/400-start-meth-subpbl.sml") |
neuper@41985 | 30 |
("Minisubpbl/500-postcond.sml") |
neuper@41985 | 31 |
|
neuper@41945 | 32 |
("Interpret/mstools.sml") |
bonzai@41951 | 33 |
("Interpret/ctree.sml") |
neuper@41945 | 34 |
("Interpret/ptyps.sml") |
neuper@41945 | 35 |
(*("Interpret/generate.sml")*) |
neuper@41945 | 36 |
("Interpret/calchead.sml") |
neuper@41945 | 37 |
(*("Interpret/appl.sml")*) |
neuper@41945 | 38 |
("Interpret/rewtools.sml") |
neuper@41945 | 39 |
(*("Interpret/script.sml") |
neuper@41945 | 40 |
("Interpret/solve.sml") |
neuper@41945 | 41 |
("Interpret/inform.sml")*) |
neuper@41945 | 42 |
("Interpret/mathengine.sml") |
neuper@41945 | 43 |
|
neuper@41945 | 44 |
(*("xmlsrc/mathml.sml") |
neuper@41945 | 45 |
("xmlsrc/datatypes.sml") |
neuper@41945 | 46 |
("xmlsrc/pbl-met-hierarchy.sml") |
neuper@41945 | 47 |
("xmlsrc/thy-hierarchy.sml")*) |
neuper@41945 | 48 |
("xmlsrc/interface-xml.sml") |
neuper@41945 | 49 |
|
neuper@41945 | 50 |
("Frontend/messages.sml") |
neuper@41945 | 51 |
("Frontend/states.sml") |
neuper@41945 | 52 |
("Frontend/interface.sml") |
neuper@41945 | 53 |
("print_exn_G.sml") |
neuper@41945 | 54 |
|
neuper@41945 | 55 |
("Knowledge/delete.sml") |
neuper@41945 | 56 |
("Knowledge/descript.sml") |
neuper@41945 | 57 |
("Knowledge/atools.sml") |
neuper@41945 | 58 |
("Knowledge/simplify.sml") |
neuper@41945 | 59 |
("Knowledge/poly.sml") |
neuper@41945 | 60 |
("Knowledge/rational.sml") |
neuper@41945 | 61 |
("Knowledge/equation.sml") |
neuper@41945 | 62 |
("Knowledge/root.sml") |
neuper@41945 | 63 |
("Knowledge/lineq.sml") |
neuper@41945 | 64 |
("Knowledge/rooteq.sml") |
neuper@41945 | 65 |
("Knowledge/rateq.sml") |
neuper@41945 | 66 |
("Knowledge/rootrateq.sml") |
neuper@41945 | 67 |
(*("Knowledge/polyeq.sml")*) |
neuper@41945 | 68 |
("Knowledge/calculus.sml") |
neuper@41945 | 69 |
("Knowledge/trig.sml") |
neuper@41945 | 70 |
("Knowledge/logexp.sml") |
neuper@41945 | 71 |
("Knowledge/diff.sml") |
neuper@41945 | 72 |
("Knowledge/integrate.sml") |
neuper@41945 | 73 |
("Knowledge/eqsystem.sml") |
neuper@41945 | 74 |
("Knowledge/test.sml") |
neuper@41945 | 75 |
("Knowledge/polyminus.sml") |
neuper@41945 | 76 |
("Knowledge/vect.sml") |
neuper@41945 | 77 |
("Knowledge/diffapp.sml") |
neuper@41945 | 78 |
("Knowledge/biegelinie.sml") |
neuper@41945 | 79 |
("Knowledge/algein.sml") |
neuper@41945 | 80 |
("Knowledge/diophanteq.sml") |
neuper@41945 | 81 |
("Knowledge/isac.sml") |
neuper@41945 | 82 |
|
neuper@41943 | 83 |
begin |
neuper@41947 | 84 |
|
neuper@41943 | 85 |
ML {*"%%%%%%%%%%%%%%%%% start ProgLang.thy %%%%%%%%%%%%%%%%%%%";*} |
neuper@41945 | 86 |
use "library.sml" (*new 2011*) |
neuper@41945 | 87 |
use "calcelems.sml" (*complete*) |
neuper@41943 | 88 |
use "ProgLang/termC.sml" (*part.*) |
neuper@41943 | 89 |
use "ProgLang/calculate.sml" (*part.*) |
neuper@41943 | 90 |
use "ProgLang/rewrite.sml" (*part.*) |
neuper@41943 | 91 |
(*use "ProgLang/listg.sml" 2002*) |
neuper@41943 | 92 |
(*use "ProgLang/scrtools.sml" 2002*) |
neuper@41943 | 93 |
(*use "ProgLang/tools.sml" 2002*) |
neuper@41943 | 94 |
ML {*"%%%%%%%%%%%%%%%%% end ProgLang.thy %%%%%%%%%%%%%%%%%%%%%";*} |
neuper@41986 | 95 |
ML {*"%%%%%%%%%%%%%%%%% start Minisubpbl %%%%%%%%%%%%%%%%%%%%%";*} |
neuper@41985 | 96 |
use "Minisubpbl/000-comments.sml" |
neuper@41985 | 97 |
use "Minisubpbl/100-init-rootpbl.sml" |
neuper@41986 | 98 |
use "Minisubpbl/150-add-given.sml" |
neuper@41985 | 99 |
use "Minisubpbl/200-start-method.sml" |
neuper@41985 | 100 |
use "Minisubpbl/300-init-subpbl.sml" |
neuper@41985 | 101 |
use "Minisubpbl/400-start-meth-subpbl.sml" |
neuper@41985 | 102 |
use "Minisubpbl/500-postcond.sml" |
neuper@41985 | 103 |
ML {*"%%%%%%%%%%%%%%%%% end Minisubpbl %%%%%%%%%%%%%%%%%%%%%%%";*} |
neuper@41943 | 104 |
ML {*"%%%%%%%%%%%%%%%%% start Interpret.thy %%%%%%%%%%%%%%%%%%";*} |
neuper@41975 | 105 |
use "Interpret/mstools.sml" (*new 2010*) |
neuper@41975 | 106 |
use "Interpret/ctree.sml" (*!...see(25)*) |
neuper@41943 | 107 |
use "Interpret/ptyps.sml" (* *) |
neuper@41943 | 108 |
(*use "Interpret/generate.sml" new 2011*) |
neuper@41972 | 109 |
use "Interpret/calchead.sml" (*! *) |
neuper@41975 | 110 |
use "Interpret/appl.sml" (*!complete WEGEN INTERMED TESTCODE*) |
neuper@41972 | 111 |
use "Interpret/rewtools.sml" (*! *) |
neuper@41972 | 112 |
use "Interpret/script.sml" (*!TODO*) |
neuper@41972 | 113 |
(*use "Interpret/solve.sml" !TODO*) |
neuper@41972 | 114 |
(*use "Interpret/inform.sml" !TODO*) |
neuper@41972 | 115 |
use "Interpret/mathengine.sml" (*!part.*) |
neuper@41943 | 116 |
ML {*"%%%%%%%%%%%%%%%%% end Interpret.thy %%%%%%%%%%%%%%%%%%%%";*} |
neuper@41943 | 117 |
ML {*"%%%%%%%%%%%%%%%%% start xmlsrc.thy %%%%%%%%%%%%%%%%%%%%%";*} |
neuper@41943 | 118 |
(*use "xmlsrc/mathml.sml" TODO*) |
neuper@41943 | 119 |
(*use "xmlsrc/datatypes.sml" TODO*) |
neuper@41943 | 120 |
(*use "xmlsrc/pbl-met-hierarchy.sml" TODO*) |
neuper@41943 | 121 |
(*use "xmlsrc/thy-hierarchy.sml" TODO after 2009-2*) |
neuper@41943 | 122 |
use "xmlsrc/interface-xml.sml" (*TODO after 2009-2*) |
neuper@41943 | 123 |
ML {*"%%%%%%%%%%%%%%%%% end xmlsrc.thy %%%%%%%%%%%%%%%%%%%%%%%";*} |
neuper@41943 | 124 |
ML {*"%%%%%%%%%%%%%%%%% start Frontend.thy %%%%%%%%%%%%%%%%%%%";*} |
neuper@41943 | 125 |
use "Frontend/messages.sml" (*new 2011*) |
neuper@41943 | 126 |
use "Frontend/states.sml" (*new 2011*) |
neuper@41945 | 127 |
use "Frontend/interface.sml" (*part.*) |
neuper@41945 | 128 |
use "print_exn_G.sml" (*new 2011*) |
neuper@41943 | 129 |
ML {*"%%%%%%%%%%%%%%%%% end Frontend.thy %%%%%%%%%%%%%%%%%%%%%";*} |
neuper@41943 | 130 |
ML {*"%%%%%%%%%%%%%%%%% start Knowledge.thy %%%%%%%%%%%%%%%%%%";*} |
neuper@41943 | 131 |
use "Knowledge/delete.sml" (*new 2011*) |
neuper@41943 | 132 |
use "Knowledge/descript.sml" (*new 2011*) |
neuper@41943 | 133 |
(*use "Knowledge/atools.sml" 2002, added termorder.sml 2011*) |
neuper@41943 | 134 |
use "Knowledge/simplify.sml" (*part.*) |
neuper@41943 | 135 |
(*use "Knowledge/poly.sml" 2002*) |
neuper@41947 | 136 |
(*use "Knowledge/rational.sml" part.; diff.emacs--jedit*) |
neuper@41943 | 137 |
(*use "Knowledge/equation.sml" 2002*) |
neuper@41943 | 138 |
(*use "Knowledge/root.sml" 2002*) |
neuper@41943 | 139 |
use "Knowledge/lineq.sml" (*new 2011*) |
neuper@41943 | 140 |
(*use "Knowledge/rooteq.sml" 2002*) |
neuper@41943 | 141 |
(*use "Knowledge/rateq.sml" 2002*) |
neuper@41943 | 142 |
(*use "Knowledge/rootrat.sml" 2002*) |
neuper@41943 | 143 |
(*use "Knowledge/rootrateq.sml" 2002*) |
neuper@41943 | 144 |
(*use "Knowledge/polyeq.sml" 2002*) |
neuper@41956 | 145 |
(*use "Knowledge/rlang.sml" 2002???*) |
neuper@41943 | 146 |
use "Knowledge/calculus.sml" (*new 2011*) |
neuper@41943 | 147 |
(*use "Knowledge/trig.sml" 2002*) |
neuper@41943 | 148 |
(*use "Knowledge/logexp.sml" 2002*) |
neuper@41943 | 149 |
use "Knowledge/diff.sml" (*part.*) |
neuper@41947 | 150 |
(*use "Knowledge/integrate.sml" part. was complete 2009-2 |
neuper@41947 | 151 |
diff.emacs--jedit*) |
neuper@41943 | 152 |
(*use "Knowledge/eqsystem.sml" 2002*) |
neuper@41943 | 153 |
use "Knowledge/test.sml" (*new 2011*) |
neuper@41943 | 154 |
use "Knowledge/polyminus.sml" (*part.*) |
neuper@41943 | 155 |
(*use "Knowledge/vect.sml" 2002*) |
neuper@41943 | 156 |
(*use "Knowledge/diffapp.sml" 2002*) |
neuper@41943 | 157 |
(*use "Knowledge/biegelinie.sml" 2002*) |
neuper@41943 | 158 |
(*use "Knowledge/algein.sml" 2002*) |
neuper@41943 | 159 |
use "Knowledge/diophanteq.sml" (*complete*) |
neuper@41943 | 160 |
use "Knowledge/isac.sml" (*part.*) |
neuper@41943 | 161 |
ML {*"%%%%%%%%%%%%%%%%% end Knowledge.thy %%%%%%%%%%%%%%%%%%%%";*} |
neuper@41945 | 162 |
ML {*"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%";*} |
neuper@41945 | 163 |
ML {*"%%%%%%%%%%%%%%%%% all tests successful %%%%%%%%%%%%%%%%%";*} |
neuper@41945 | 164 |
ML {*"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%";*} |
neuper@41943 | 165 |
|
neuper@41943 | 166 |
end |
neuper@41943 | 167 |
|
neuper@41943 | 168 |
(*=== inhibit exn ?============================================================= |
neuper@41943 | 169 |
===== inhibit exn ?===========================================================*) |
neuper@41943 | 170 |
|
neuper@41969 | 171 |
(*========== inhibit exn 110503 ================================================ |
neuper@41943 | 172 |
|
neuper@41943 | 173 |
"########### testcode inserted vvv ###########################################"; |
neuper@41943 | 174 |
"########### testcode inserted ^^^ ###########################################"; |
neuper@41943 | 175 |
|
neuper@41969 | 176 |
============ inhibit exn 110503 ==============================================*) |
neuper@41943 | 177 |
|
neuper@41943 | 178 |
(*-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-. |
neuper@41943 | 179 |
-.-.-.-.-.-.-isolate response.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.*) |
neuper@41975 | 180 |