|
|
1.1 ! root 1: (* Copyright 1989 by AT&T Bell Laboratories *) ! 2: (* printutil.sig *) ! 3: ! 4: signature PRINTUTIL = ! 5: sig ! 6: structure Symbol : SYMBOL ! 7: val newline : unit -> unit ! 8: val tab : int -> unit ! 9: val printSequence : string -> ('a -> unit) -> 'a list -> unit ! 10: val printClosedSequence : (string*string*string) -> ('a -> unit) -> ! 11: 'a list -> unit ! 12: val printSym : Symbol.symbol -> unit ! 13: val formatQid : Symbol.symbol list -> string ! 14: val mlstr : string -> string ! 15: val pr_mlstr : string -> unit ! 16: val nlindent : int -> unit ! 17: val printvseq : int -> string -> ('a -> unit) -> 'a list -> unit ! 18: end ! 19:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.