Return to makemos.sml CVS log

Up to [Research Unix] / researchv10no / cmd / sml / src / boot

Annotation of researchv10no/cmd/sml/src/boot/makemos.sml, revision 1.1

1.1     ! root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
        !             2: structure MakeMos = 
        !             3: struct
        !             4: 
        !             5: fun makeMos modname = 
        !             6:  let type object = System.Unsafe.object
        !             7:      val boot : string -> unit ->
        !             8:            ((object list -> (object * ByteArray.bytearray array)) * string list)
        !             9:          = System.Unsafe.boot
        !            10: 
        !            11:      val dict = ref ["Core"]
        !            12: 
        !            13:      fun lookup s = let fun f (s1::r) = s=s1 orelse f r
        !            14:                          | f nil = false
        !            15:                     in f (!dict)
        !            16:                    end
        !            17: 
        !            18:      fun enter s = dict := s::(!dict)
        !            19: 
        !            20:      fun readfile s =
        !            21:        let val stream = open_in s
        !            22:         in input stream (can_input stream) before close_in stream
        !            23:        end
        !            24: 
        !            25:      val f = open_out ("runtime/" ^ modname ^ ".mos")
        !            26:      val say = output f
        !            27:      fun getstruct s = if lookup s then ()
        !            28:                else let val s' = "mo/" ^ s ^ ".mo"
        !            29:                         val _ = (say s'; say "\n")
        !            30:                        val g = readfile s'
        !            31:                        val (_,sl) = boot g ()
        !            32:                    in  app getstruct sl;
        !            33:                        enter s
        !            34:                    end
        !            35:   in output std_out (modname ^ ".mos\n");
        !            36:      say "mo/CoreFunc.mo\n";
        !            37:      app getstruct ["Initial","Loader",modname];
        !            38:      close_out f
        !            39:  end
        !            40: 
        !            41: end;(*
        !            42: 
        !            43: app MakeMos.makeMos ["IntNull","IntVax","CompVax","IntM68","CompM68",
        !            44:     "IntSparc","CompSparc","IntNS32","CompNS32"];
        !            45:      
        !            46: *)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.