(*  Title:      src/Tools/isac/BridgeJEdit/Calculation.thy

    Author:     Walther Neuper, JKU Linz

Outer syntax for Isabelle/Isac's Calculation interactive via Isabelle/PIDE.

Second trial following Makarius' definition of "problem" already existing in this repository.

*)

theory Calculation

  imports

  (**)"$ISABELLE_ISAC/Knowledge/Build_Thydata"   (*remove after devel.of BridgeJEdit*)

  (**)"$ISABELLE_ISAC/MathEngine/MathEngine"

  (** )"SPARK_FDL"                             ( * remove after devel.of BridgeJEdit*)

keywords "Example" :: thy_decl

and "Problem" "Specification" "Model" "References" "Solution" 

begin

ML_file "parseC.sml"

ML_file "preliminary.sml"

section \<open>new code for Outer_Syntax Example  ...\<close>

text \<open> 

  stepwise development starts at changeset

  https://hg.risc.uni-linz.ac.at/wneuper/isa/rev/9d98791b4080

  and can be inspected following the subsequent changesets..

\<close>

ML \<open>

\<close> ML \<open>

\<close> ML \<open>

structure Data = Theory_Data

(

  type T = Ctree.ctree option;

  val empty = NONE;

  val extend = I;

  fun merge _ = NONE;

);

val set_data = Data.put o SOME;

fun the_data thy = 

  case Data.get thy of NONE => Ctree.EmptyPtree

  | SOME ctree => ctree;

\<close> ML \<open>

\<close> text \<open>

A provisional Example collection.

For notes from ISAC's discontinued Java front-end see

https://isac.miraheze.org/wiki/Extend_ISAC_Knowledge#Add_an_example_in_XML_format

\<close> ML \<open>

type description = string

type example = (description * Formalise.T)

type example_id = string

val example_store = Unsynchronized.ref ([]: (example_id * example) list)

fun get_example example_id =

  case AList.lookup op= (!example_store) example_id of

    NONE => raise ERROR ("Examnple " ^ quote example_id ^ " not found")

  | SOME expl => expl

\<close> ML \<open>

get_example: example_id -> example;

\<close> ML \<open>

example_store := AList.update op= ("Diff_App/No.123 a", 

 ("The efficiency of an electrical coil depends on the mass of the kernel." ^

  "Given is a kernel with cross-sectional area determined by two rectangles" ^

  "of same shape as shown in the figure." ^

  "Given a radius r = 7, determine the length u and width v of the rectangles" ^

  "such that the cross-sectional area A (and thus the mass of the kernel) is a" ^

  "maximum. + Figure", 

   ([

   (*Problem model:*)

     "Constants [r = (7::real)]", "Maximum A", "AdditionalValues [u, v]",

     "Extremum (A = 2 * u * v - u \<up> 2)",

     "SideConditions [((u::real) / 2) \<up> 2 + (2 / v) \<up> 2 = r \<up> 2]",

     "SideConditions [((u::real) / 2) \<up> 2 + (2 / v) \<up> 2 = r \<up> 2]",

     "SideConditions [(u::real) / 2 = r * sin \<alpha>, 2 / v = r * cos \<alpha>]",

   (*MethodC model:*)

     "FunctionVariable a", "FunctionVariable b", "FunctionVariable \<alpha>",

     "Domain {0 <..< r}",

     "Domain {0 <..< r}",

     "Domain {0 <..< \<pi> / 2}",

     "ErrorBound (\<epsilon> = (0::real))"]: TermC.as_string list,

    ("Diff_App", ["univariate_calculus", "Optimisation"], 

      ["Optimisation", "by_univariate_calculus"]): References.T)): example) (!example_store)

\<close> ML \<open>

case get_example "Diff_App/No.123 a" of

  (_, ("Constants [r = (7::real)]" :: "Maximum A" :: "AdditionalValues [u, v]" :: _, 

    ("Diff_App", ["univariate_calculus", "Optimisation"] ,["Optimisation", "by_univariate_calculus"]))) 

    => ()

| _ => error "intermed. example_store CHANGED";

\<close> ML \<open>

\<close> ML \<open>

fun check_input (*ctxt o-model ??*) (_: Problem.model_input) = []: I_Model.T

\<close> ML \<open>

(*at the first encounter of an Example

  transfer Example to ctree:

    origin: eventually used by sub-problems, too

    O_Model: for check of missing items

    I_Model: for efficient check of user input

*)

\<close> ML \<open>

\<close> ML \<open>

\<close> ML \<open>

\<close> ML \<open>

\<close> ML \<open>

fun init_ctree example_id =

    let

      val (_, (fmz as (model, refs as (_(*thy_id*), probl_id, _)))) = get_example example_id

      val o_model =    (* TODO works only within Isac_Test_Base ---vvvvvvvvvvvvvvv *)

      (*Problem.from_store probl_id |> #ppc |> O_Model.init model (ThyC.get_theory thy_id)*)

        Problem.from_store probl_id |> #ppc |> O_Model.init model @{theory Diff_App}

    in

      Ctree.Nd (Ctree.PblObj {

        fmz = fmz, origin = (o_model, refs, TermC.empty (*TODO handle CAS_Cmd*)),

        spec = References.empty, probl = I_Model.empty, meth = I_Model.empty,

        ctxt = ContextC.empty, loc = (NONE, NONE), 

        branch = Ctree.NoBranch, ostate = Ctree.Incomplete, result = (TermC.empty, [])}, [])

    end

\<close> ML \<open>

\<close> ML \<open>

fun update_state (example_id, _) Ctree.EmptyPtree = init_ctree example_id

  (*TODO +switch RProblem | RMethod*)

  | update_state (_, (model, (thy_id, probl_id, meth_id)))

    (Ctree.Nd (Ctree.PblObj {fmz, origin, spec = _, probl = _, meth, ctxt, loc, branch, ostate, result}, 

      children)) =

    Ctree.Nd (Ctree.PblObj {

      fmz = fmz, origin = origin,

      spec = (thy_id, probl_id, meth_id), probl = check_input model, meth = meth,

      ctxt = ctxt, loc = loc, 

      branch = branch, ostate = ostate, result = result}, children)

  | update_state _ _ = raise ERROR "update_state: uncovered case in fun.def."

\<close> ML \<open>

update_state: example_id * (Problem.model_input * References.T) -> Ctree.ctree -> Ctree.ctree

\<close> ML \<open>

type references_input = (string * (string * string))

\<close> ML \<open>

val parse_references_input =

  Parse.!!! ( \<^keyword>\<open>Theory_Ref\<close> -- \<^keyword>\<open>Theory_Ref\<close> |-- Parse.name --

  Parse.!!! ( \<^keyword>\<open>Problem_Ref\<close> -- \<^keyword>\<open>Theory_Ref\<close> |-- Parse.name --

  Parse.!!! ( \<^keyword>\<open>Method_Ref\<close> -- \<^keyword>\<open>Theory_Ref\<close> |-- Parse.name)))

\<close> ML \<open>

parse_references_input: references_input parser (*TODO: dpes not yet work,

  thus in Outer_Syntax.command \<^command_keyword>\<open>Example\<close> replacced by Problem.parse_cas*)

\<close> ML \<open>

op --  : ('a -> 'b * 'c) * ('c -> 'd * 'e) -> 'a -> ('b * 'd) * 'e;

op |-- : ('a -> 'b * 'c) * ('c -> 'd * 'e) -> 'a -> 'd * 'e

\<close> ML \<open>

\<close> ML \<open>

\<close> ML \<open>

val _ =

  Outer_Syntax.command \<^command_keyword>\<open>Example\<close>

    "prepare ISAC problem type and register it to Knowledge Store"

    (Parse.name -- Parse.!!! (  \<^keyword>\<open>Problem\<close> |-- Parse.name -- 

       Parse.!!! ( \<^keyword>\<open>Specification\<close> -- \<^keyword>\<open>:\<close> --

         \<^keyword>\<open>Model\<close> -- \<^keyword>\<open>:\<close>  |-- Problem.parse_model_input --

         Parse.!!! ( \<^keyword>\<open>References\<close> -- \<^keyword>\<open>:\<close> |-- (*parse_references_input*)Problem.parse_cas))) >>

      (fn (example_id, (_(*probl_id'*), (model_input, _(*references_input*)))) =>

        Toplevel.theory (fn thy =>

          let

            val (thy_id, (probl_id, meth_id)) = (*references_input*)("Diff_App", ("univariate_calculus/Optimisation", "Optimisation/by_univariate_calculus"))

            val input = update_state (example_id, (model_input, 

              (thy_id, References_Def.explode_id probl_id, References_Def.explode_id meth_id)))

                Ctree.EmptyPtree;

          in set_data input thy end)));

\<close> ML \<open>

\<close> ML \<open>

(*/----------------------------------------------------------------------------\*)

     Parse.name -- Parse.!!! (  \<^keyword>\<open>Problem\<close> |-- Parse.name -- 

       Parse.!!! ( \<^keyword>\<open>Specification\<close> -- \<^keyword>\<open>:\<close> --

         \<^keyword>\<open>Model\<close> -- \<^keyword>\<open>:\<close>  |-- Problem.parse_model_input --

         Parse.!!! ( \<^keyword>\<open>References\<close> -- \<^keyword>\<open>:\<close> |-- parse_references_input)))

: (string * (string * (Problem.model_input * references_input))) parser

(*\----------------------------------------------------------------------------/*) 

: Token.T list ->

(*/----------------------------------------------------------------------------\*)

    (string * (string * (Problem.model_input * references_input)))

(*\----------------------------------------------------------------------------/*)

* Token.T list

(*/----------------------------------------------------------------------------\* )

   the type above is the type of the argument of \<open>(fn (_(*name*),..\<close> 

( *\----------------------------------------------------------------------------/*)

\<close> ML \<open>

\<close> ML \<open>

\<close> 

end