Return to dummy.sml CVS log

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

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

1.1     ! root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
        !             2: structure Dummy : ASSEMBLY =
        !             3:   struct
        !             4:       datatype datalist = DATANIL | DATACONS of (string * string * datalist)
        !             5:       type func = unit
        !             6:       datatype funclist = FUNC of (func * string * funclist)
        !             7:       type object = unit
        !             8:       structure A = struct
        !             9:        val array = InLine.cast()
        !            10:        val callc = InLine.cast()
        !            11:        val create_b = InLine.cast()
        !            12:        val create_s = InLine.cast()
        !            13:        val floor = InLine.cast()
        !            14:        val logb = InLine.cast()
        !            15:        val scalb =  InLine.cast()
        !            16:        val syscall =  InLine.cast()
        !            17:       end
        !            18:       exception Div
        !            19:       exception Interrupt
        !            20:       exception Overflow
        !            21:       exception Real of string
        !            22:       exception SystemCall of string
        !            23:       exception UnboundTable
        !            24:       val array0 = InLine.cast()
        !            25:       val bytearray0 = InLine.cast()
        !            26:       val collected = InLine.cast()
        !            27:       val collectedfrom = InLine.cast()
        !            28:       val current = InLine.cast()
        !            29:       val datalist = InLine.cast()
        !            30:       val errorstrings = InLine.cast()
        !            31:       val external = InLine.cast()
        !            32:       val gcmessages = InLine.cast()
        !            33:       val gcprof = InLine.cast()
        !            34:       val majorcollections = InLine.cast()
        !            35:       val minorcollections = InLine.cast()
        !            36:       val opsys = InLine.cast()
        !            37:       val pstruct = InLine.cast()
        !            38:       val ratio = InLine.cast()
        !            39:       val softmax = InLine.cast()
        !            40: end
        !            41: 
        !            42: structure Core = CoreFunc(Dummy)

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