Return to assembly.sig CVS log

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

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

1.1     ! root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
        !             2: (* All string arguments to system calls should be zero padded *)
        !             3: signature ASSEMBLY =
        !             4:   sig
        !             5:       datatype datalist = DATANIL | DATACONS of (string * string * datalist)
        !             6:       type func
        !             7:       datatype funclist = FUNC of (func * string * funclist)
        !             8:       type object
        !             9:       structure A : sig
        !            10:        val array : int * 'a -> 'a array
        !            11:        val callc : 'b (* func*)  * 'a -> 'c
        !            12:        val create_b : int -> string
        !            13:        val create_s : int -> string
        !            14:        val floor : real -> int
        !            15:        val logb : real -> int
        !            16:        val scalb : real * int -> real
        !            17:        val syscall : int * string list * int -> int
        !            18:       end
        !            19:       exception Div
        !            20:       exception Interrupt
        !            21:       exception Overflow
        !            22:       exception Real of string
        !            23:       exception SystemCall of string
        !            24:       exception UnboundTable
        !            25:       val array0 : 'a array
        !            26:       val bytearray0 : string
        !            27:       val collected : int ref
        !            28:       val collectedfrom : int ref
        !            29:       val current : string ref
        !            30:       val datalist : datalist
        !            31:       val errorstrings : string array
        !            32:       val external : funclist
        !            33:       val gcmessages : int ref
        !            34:       val gcprof : string ref
        !            35:       val majorcollections : int ref
        !            36:       val minorcollections : int ref
        !            37:       val opsys : int   (* 1 = vax bsd ultrix, 4.2, 4.3
        !            38:                           2 = sunos 3.0, 4.0 
        !            39:                           3 = vax v9 (bell labs) *)
        !            40:       val pstruct : object ref
        !            41:       val ratio : int ref
        !            42:       val softmax : int ref
        !            43: end

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