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

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.