--- 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"