Removed outdated Isabelle files.
This commit is contained in:
parent
9f66f82aa8
commit
9ef8e90bd7
93
src/ROOT.ML
93
src/ROOT.ML
|
@ -1,93 +0,0 @@
|
||||||
(*****************************************************************************
|
|
||||||
* Isabelle/OFMC --- connecting OFMC and Isabelle/HOL
|
|
||||||
*
|
|
||||||
* ROOT.ML --- main file for Isabelle-OFMC.
|
|
||||||
* This file is part of Isabelle-OFMC.
|
|
||||||
*
|
|
||||||
* Copyright (c) 2009 Achim D. Brucker, Germany
|
|
||||||
*
|
|
||||||
* All rights reserved.
|
|
||||||
*
|
|
||||||
* Redistribution and use in source and binary forms, with or without
|
|
||||||
* modification, are permitted provided that the following conditions are met:
|
|
||||||
*
|
|
||||||
* * Redistributions of source code must retain the above copyright notice, this
|
|
||||||
* list of conditions and the following disclaimer.
|
|
||||||
*
|
|
||||||
* * Redistributions in binary form must reproduce the above copyright notice,
|
|
||||||
* this list of conditions and the following disclaimer in the documentation
|
|
||||||
* and/or other materials provided with the distribution.
|
|
||||||
*
|
|
||||||
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
||||||
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
||||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
||||||
* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
|
|
||||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
||||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
|
||||||
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
|
||||||
* CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
|
||||||
* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
|
||||||
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
||||||
******************************************************************************)
|
|
||||||
(* $Id: ROOT.ML 978 2009-11-19 04:34:12Z brucker $ *)
|
|
||||||
|
|
||||||
use "config.sml";
|
|
||||||
|
|
||||||
OS.FileSys.chDir "encoder";
|
|
||||||
use "root.sml";
|
|
||||||
OS.FileSys.chDir "..";
|
|
||||||
|
|
||||||
use "config.sml";
|
|
||||||
|
|
||||||
val isabelle_version = Distribution.version
|
|
||||||
val ofmc_version = Int.toString(ofmc_ver_major)^"."^Int.toString(ofmc_ver_minor)^"."
|
|
||||||
^Int.toString(ofmc_ver_micro)^ofmc_ver_tag
|
|
||||||
val version = "Isabelle/ofmc "^ofmc_version^", based on "^isabelle_version;
|
|
||||||
|
|
||||||
fun infostr _ = (
|
|
||||||
("\n")^
|
|
||||||
(" Isabelle/ofmc "^ofmc_version^" \n")^
|
|
||||||
(" connecting OFMC and Isabelle/HOL \n")^
|
|
||||||
(" Copyright (c) 2009 Achim D. Brucker \n")^
|
|
||||||
(" \n")^
|
|
||||||
(" Configuration: \n")^
|
|
||||||
(" - ofmc binary: "^(ofmc_connector.ofmc_home()^ofmc_connector.ofmc)^"\n" )^
|
|
||||||
(" - Isabelle: "^(isabelle_version)^"\n" )^
|
|
||||||
(" - ML-system: "^(ml_system)^"\n" ));
|
|
||||||
|
|
||||||
fun info () = writeln (infostr());
|
|
||||||
|
|
||||||
use_thy "ofmc";
|
|
||||||
|
|
||||||
|
|
||||||
fun check_thy thyname =
|
|
||||||
let
|
|
||||||
val success = (use_thy thyname; true)
|
|
||||||
handle _ => false
|
|
||||||
in
|
|
||||||
if success
|
|
||||||
then print (" ***\n *** Successfully proofed theory \""^thyname^"\".\n ***\n")
|
|
||||||
else
|
|
||||||
print (" ***\n *** Proving theory \""^thyname^"\" FAILED.\n ***\n")
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
val timer = Timer.startRealTimer ()
|
|
||||||
|
|
||||||
fun log_thy thyname =
|
|
||||||
let
|
|
||||||
val start = Timer.checkRealTimer timer
|
|
||||||
val success = (use_thy thyname; true)
|
|
||||||
handle _ => false
|
|
||||||
val stop = Timer.checkRealTimer timer
|
|
||||||
val duration = Time.-(stop,start)
|
|
||||||
fun warning s = (TextIO.output (TextIO.stdErr, s); TextIO.flushOut TextIO.stdErr)
|
|
||||||
|
|
||||||
val _ = warning ("\nresult: "^(Bool.toString success)^"\n")
|
|
||||||
val _ = warning ("duration: "^(Time.toString duration)^"\n")
|
|
||||||
in () end
|
|
||||||
|
|
||||||
val welcome = Toplevel.imperative (info);
|
|
||||||
val welcomeP =
|
|
||||||
OuterSyntax.improper_command "welcome" "print welcome message" OuterKeyword.diag
|
|
||||||
(Scan.succeed (Toplevel.no_timing o welcome));
|
|
|
@ -1,72 +0,0 @@
|
||||||
(*****************************************************************************
|
|
||||||
* Isabelle-OFMC --- Connecting OFMC and Isabelle/HOL
|
|
||||||
*
|
|
||||||
* config.sml.in --- main configuration file for Isabelle-OFMC
|
|
||||||
* This file is part of Isabelle-OFMC.
|
|
||||||
*
|
|
||||||
* Copyright (c) 2009 Achim D. Brucker, Germany
|
|
||||||
*
|
|
||||||
* All rights reserved.
|
|
||||||
*
|
|
||||||
* Redistribution and use in source and binary forms, with or without
|
|
||||||
* modification, are permitted provided that the following conditions are met:
|
|
||||||
*
|
|
||||||
* * Redistributions of source code must retain the above copyright notice, this
|
|
||||||
* list of conditions and the following disclaimer.
|
|
||||||
*
|
|
||||||
* * Redistributions in binary form must reproduce the above copyright notice,
|
|
||||||
* this list of conditions and the following disclaimer in the documentation
|
|
||||||
* and/or other materials provided with the distribution.
|
|
||||||
*
|
|
||||||
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
||||||
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
||||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
|
||||||
* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
|
|
||||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
||||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
|
|
||||||
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
|
|
||||||
* CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
|
|
||||||
* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
|
||||||
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
||||||
******************************************************************************)
|
|
||||||
|
|
||||||
structure config =
|
|
||||||
struct
|
|
||||||
val ofmc_id = "$Id: config.sml.in 349 2009-01-16 19:17:39Z brucker $"
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(** Major version number.
|
|
||||||
*
|
|
||||||
* Modify when incompatible changes are made to published interfaces.
|
|
||||||
*)
|
|
||||||
val ofmc_ver_major = 0
|
|
||||||
|
|
||||||
(* Minor version number.
|
|
||||||
*
|
|
||||||
* Modify when new functionality is added or new interfaces are
|
|
||||||
* defined, but all changes are backward compatible.
|
|
||||||
*)
|
|
||||||
val ofmc_ver_minor = 0
|
|
||||||
|
|
||||||
(** Patch number.
|
|
||||||
*
|
|
||||||
* Modify for every released patch.
|
|
||||||
*)
|
|
||||||
val ofmc_ver_micro= 0
|
|
||||||
|
|
||||||
|
|
||||||
(** Version tag: a string describing the version.
|
|
||||||
*
|
|
||||||
* This tag remains " (dev build)" in the repository so that we can
|
|
||||||
* always see from "version()" that the software has been built
|
|
||||||
* from the repository rather than a "blessed" distribution.
|
|
||||||
*
|
|
||||||
* When rolling a tarball, we automatically replace this text with ""
|
|
||||||
* for final releases; in prereleases, it becomes " (Alpha)",
|
|
||||||
* " (Beta 1)", etc., as appropriate.
|
|
||||||
*
|
|
||||||
*)
|
|
||||||
val ofmc_ver_tag = " (dev build: 929:933M)"
|
|
||||||
|
|
Reference in New Issue