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

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.