Return to access.sig CVS log

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

Annotation of researchv10no/cmd/sml/src/basics/access.sig, revision 1.1.1.1

1.1       root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
                      2: (* access.sig *)
                      3: 
                      4: signature ACCESS = sig
                      5: 
                      6:   structure Symbol : SYMBOL
                      7:   structure P : PRIMOP
                      8:   type primop
                      9:   eqtype lvar  (* lambda variable id *)
                     10:   type slot  (* position in structure record *)
                     11:   type path  (* slot chain relative to lambda variable *)
                     12: 
                     13:   datatype access 
                     14:     = LVAR of lvar
                     15:     | SLOT of slot
                     16:     | PATH of path  
                     17:     | INLINE of primop
                     18:   
                     19:   val mkLvar : unit -> lvar
                     20:   val sameName : lvar * lvar -> unit
                     21:   val dupLvar : lvar -> lvar
                     22:   val namedLvar : Symbol.symbol -> lvar
                     23:   val lvarName : lvar -> string
                     24:   val saveLvarNames : bool ref
                     25: 
                     26:   val pr_lvar: lvar-> string   
                     27:   and pr_slot: slot -> string
                     28:   and pr_path: path-> string
                     29:   and pr_access: access-> string
                     30: 
                     31: end (* signature ACCESS *)

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