Isabelle2020->21: th_load with constant string
authorWalther Neuper <walther.neuper@jku.at>
Mon, 15 Mar 2021 10:04:17 +0100
changeset 6017421d482c9ab68
parent 60173 c2cc411ddc5f
child 60175 6799b5922e46
Isabelle2020->21: th_load with constant string

note: this way bypass InteliJ Idea
src/HOL/SMT_Examples/Boogie.thy
src/HOL/SMT_Examples/boogie.ML
src/Tools/isac/BridgeJEdit/Calculation.thy
     1.1 --- a/src/HOL/SMT_Examples/Boogie.thy	Fri Mar 12 15:22:39 2021 +0100
     1.2 +++ b/src/HOL/SMT_Examples/Boogie.thy	Mon Mar 15 10:04:17 2021 +0100
     1.3 @@ -6,6 +6,7 @@
     1.4  
     1.5  theory Boogie
     1.6  imports Main
     1.7 +(*WAS    "boogie_file" :: thy_load ("b2i") *)
     1.8  keywords "boogie_file" :: thy_load
     1.9  begin
    1.10  
    1.11 @@ -58,12 +59,14 @@
    1.12  external_file \<open>Boogie_Max.certs\<close>
    1.13  declare [[smt_certificates = "Boogie_Max.certs"]]
    1.14  
    1.15 +(*WAS       \<open>Boogie_Max\<close> *)
    1.16  boogie_file \<open>Boogie_Max.b2i\<close>
    1.17  
    1.18  
    1.19  external_file \<open>Boogie_Dijkstra.certs\<close>
    1.20  declare [[smt_certificates = "Boogie_Dijkstra.certs"]]
    1.21  
    1.22 +(*WAS       \<open>Boogie_Dijkstra\<close> *)
    1.23  boogie_file \<open>Boogie_Dijkstra.b2i\<close>
    1.24  
    1.25  
    1.26 @@ -71,6 +74,7 @@
    1.27  external_file \<open>VCC_Max.certs\<close>
    1.28  declare [[smt_certificates = "VCC_Max.certs"]]
    1.29  
    1.30 +(*WAS       \<open>VCC_Max\<close> *)
    1.31  boogie_file \<open>VCC_Max.b2i\<close>
    1.32  
    1.33  end
     2.1 --- a/src/HOL/SMT_Examples/boogie.ML	Fri Mar 12 15:22:39 2021 +0100
     2.2 +++ b/src/HOL/SMT_Examples/boogie.ML	Mon Mar 15 10:04:17 2021 +0100
     2.3 @@ -265,6 +265,17 @@
     2.4  
     2.5  (* Isar command *)
     2.6  
     2.7 +(*WAS in Isabelle2020
     2.8 +val _ =
     2.9 +  Outer_Syntax.command \<^command_keyword>\<open>boogie_file\<close>
    2.10 +    "prove verification condition from .b2i file"
    2.11 +    (Resources.provide_parse_files "boogie_file" >> (fn files =>
    2.12 +      Toplevel.theory (fn thy =>
    2.13 +        let
    2.14 +          val ([{lines, ...}], thy') = files thy;
    2.15 +          val _ = boogie_prove thy' lines;
    2.16 +        in thy' end)))
    2.17 +*)
    2.18  val _ =
    2.19    Outer_Syntax.command \<^command_keyword>\<open>boogie_file\<close>
    2.20      "prove verification condition from .b2i file"
     3.1 --- a/src/Tools/isac/BridgeJEdit/Calculation.thy	Fri Mar 12 15:22:39 2021 +0100
     3.2 +++ b/src/Tools/isac/BridgeJEdit/Calculation.thy	Mon Mar 15 10:04:17 2021 +0100
     3.3 @@ -12,8 +12,8 @@
     3.4  (**) "HOL-SPARK.SPARK"                             (*remove after devel.of BridgeJEdit*)
     3.5  keywords
     3.6  (*WAS "Example" :: thy_load ("str")  ..in Isabelle2020*)
     3.7 -(** ) "Example" :: thy_load (isac_example) (*Unknown load command specification: "isac_example"*)
     3.8 -  and( **)"Problem" :: thy_decl (* root-problem + recursively in Solution;
     3.9 +(**) "Example" :: thy_load (*(isac_example) ..would involve registering in Isabelle/Scala*)
    3.10 +  and(**)"Problem" :: thy_decl (* root-problem + recursively in Solution;
    3.11                                 "spark_vc" :: thy_goal *)
    3.12    and "Specification" "Model" "References" :: diag
    3.13      (*TRIED: diag quasi_command qed_script thy_decl thy_defn thy_goal thy_goal_stmt thy_stmt vvv *)
    3.14 @@ -120,13 +120,13 @@
    3.15  section \<open>setup command_keyword + preliminary test\<close>
    3.16  ML \<open>                                            
    3.17  \<close> ML \<open>
    3.18 -(** )
    3.19 +(**)
    3.20  val _ =                                                  
    3.21    Outer_Syntax.command \<^command_keyword>\<open>Example\<close> "start a Calculation from a Formalise-file"
    3.22 -    (Resources.provide_parse_files (Command_Span.extensions ["str"]) -- Parse.parname
    3.23 +    (Resources.provide_parse_files (Command_Span.extensions [""]) -- Parse.parname
    3.24        >> (Toplevel.theory o           (*vvvvvvvvvvvvvvvvvvvv--- HACK makes test independent from session Isac*)
    3.25          (Preliminary.load_formalisation @{theory Biegelinie} ParseC.formalisation)) );
    3.26 -( **)
    3.27 +(**)
    3.28  \<close> ML \<open>
    3.29  (Toplevel.theory o (Preliminary.load_formalisation @{theory Biegelinie} ParseC.formalisation))
    3.30  :
    3.31 @@ -225,10 +225,10 @@
    3.32  \<close> ML \<open>
    3.33  \<close>
    3.34  
    3.35 -subsection \<open>test runs with test-Example\<close>
    3.36 -(** )
    3.37 -Example \<open>/usr/local/isabisac/src/Tools/isac/Examples/exp_Statics_Biegel_Timischl_7-70\<close>
    3.38 -( **)
    3.39 +subsection \<open>runs with test-Example\<close>
    3.40 +(**)
    3.41 +Example \<open>/usr/local/isabisac/src/Tools/isac/Examples/exp_Statics_Biegel_Timischl_7-70.str\<close>
    3.42 +(**)
    3.43  Problem ("Biegelinie", ["Biegelinien"])
    3.44  (*1 collapse* )
    3.45    Specification: