totally hid all the ugly JVM stuff, created a pretty ADT

[sbp.git] / src / HaskellDemo.hs

diff --git a/src/HaskellDemo.hs b/src/HaskellDemo.hs
index 7b545e6..eaac568 100644 (file)
--- a/src/HaskellDemo.hs
+++ b/src/HaskellDemo.hs
@@ -1,48 +1,7 @@
--- This is written in Haskell.
-{--
-JVM-Bridge -- bridge from FP languages and others to the Java VM
-Copyright (C) 2001 Ashley Yakeley <ashley@semantic.org>
-
-This library is free software; you can redistribute it and/or
-modify it under the terms of the GNU Lesser General Public
-License as published by the Free Software Foundation; either
-version 2.1 of the License, or (at your option) any later version.
-
-This library is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-Lesser General Public License for more details.
-
-You should have received a copy of the GNU Lesser General Public
-License along with this library; if not, write to the Free Software
-Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
---}
-
 module Main where
-        {
-        import Header_Java;
-        import Class_edu_berkeley_sbp_misc_HaskellHelper;
-        import Class_java_lang_Object;
-        import Class_java_lang_Class;
-        import Class_java_lang_String;
-
-        import Class_edu_berkeley_sbp_Tree;
-
-        import JVM_edu_berkeley_sbp_misc_HaskellHelper;
-        import TypedString;
-        import JVMBridge;
-        import JavaText;
-
-        main :: IO ();
-        main = runWithClasspath ["edu.berkeley.sbp.jar"]
-                ((do
-                    class_JHaskellHelper
-                    s1   <- new_JString_ArrayJchar $ toJavaString "tests/meta.g"
-                    s2   <- new_JString_ArrayJchar $ toJavaString "tests/testcase.g"
-                    tree <- main_JHaskellHelper_JString_JString (s1, s2)
-                    strx <- toString_JObject ((castTLRef tree) :: Jjava_lang_Object) ()
-                    str  <- getStringUTF strx
-                    callIO $ putStrLn $ showUTF8 str
-                    return ()
-                 ) :: JVM ())
-        }
+  import SBP;
+  main = do x <- SBP.parseFile ["edu.berkeley.sbp.jar"] "tests/meta.g" "tests/testcase.g"
+            putStr "\n"
+            putStr $ show x
+            putStr "\n"
+            putStr "\n"