diff --git a/src/ROOT.ML b/src/ROOT.ML deleted file mode 100644 index dec47eb..0000000 --- a/src/ROOT.ML +++ /dev/null @@ -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)); diff --git a/src/config.sml b/src/config.sml deleted file mode 100644 index f8caaa8..0000000 --- a/src/config.sml +++ /dev/null @@ -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)" -