a first step towards mlton support

git-svn-id: https://projects.brucker.ch/su4sml/svn/infsec-import/trunk/src/su4sml@3060 3260e6d1-4efc-4170-b0a7-36055960796d

src/ROOT.ML

@@ -30,9 +30,6 @@ open library;
 (* ****************************************************** *)
 (* Load the (foreign) fxp-module providing
    an elemantary library in processing xml documents. *)
-fun su4sml_home () = if (getenv "HOLOCL_HOME") <> ""
-                     then getenv "HOLOCL_HOME" 
-                     else ".";
 cd "../lib/fxp/src"; 
 use "ROOT.ML"; 
 cd "../../../src";

src/library.sml

@@ -51,11 +51,11 @@ fun getenv var =
   (case OS.Process.getEnv var of
       NONE => ""
         | SOME txt => txt);
-	                                
+(*	                                
 fun print_depth n = 
    (Control.Print.printDepth := n div 2;
     Control.Print.printLength := n); 
-
+*)
 val cd = OS.FileSys.chDir;
 val pwd = OS.FileSys.getDir;
 

src/rep_core.sml

@@ -24,6 +24,7 @@
 
 structure Rep_Core :  REP_CORE = 
 struct
+open library
 type operation = { name          : string,	
 		   precondition  : (string option * Rep_OclTerm.OclTerm) list,
 		   postcondition : (string option * Rep_OclTerm.OclTerm) list,

src/rep_ocl.sml

@@ -24,7 +24,7 @@
 
 structure Rep_OclType : REP_OCL_TYPE =
 struct
-
+open library
 type Path = string list
 	    
 	    

src/xmi2rep.sml

@@ -32,6 +32,7 @@ sig
     exception IllFormed of string
 end  =
 struct
+open library
 exception IllFormed of string
 exception NotYetImplemented
 

src/xml2xmi.sml

@@ -29,7 +29,7 @@ sig
     exception IllFormed of string
 end =
 struct
-
+open library
 exception NotYetImplemented
 (* generic exception if something is wrong *)
 exception IllFormed of string

src/xmltree_parser.sml

@@ -54,7 +54,7 @@ sig
     exception IllFormed of string
 end =
 struct
-
+open library
 exception IllFormed of string
 
 type Attribute = (string * string) 
@@ -174,7 +174,7 @@ structure ParseXmlTree : sig
 end = 
 struct
 open XmlTree
-
+open library
 exception FileNotFound of string
 
 structure Parser = Parse (structure Dtd = Dtd
@@ -184,6 +184,9 @@ structure Parser = Parse (structure Dtd = Dtd
 		   
 fun readFile filename = 
     let val currentDir = OS.FileSys.getDir()
+	fun su4sml_home () = if (getenv "HOLOCL_HOME") <> ""
+	                     then getenv "HOLOCL_HOME" 
+			                          else ".";
 	val _ = OS.FileSys.fileSize filename (* dummy check to see if the file exists...*)
 	val dtd = Dtd.initDtdTables()
 	(* how to do the following in a clean/portable way? *)