Return to emitter.sig CVS log

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

Annotation of researchv10no/cmd/sml/src/coder/emitter.sig, revision 1.1

1.1     ! root        1: (* Copyright 1989 by AT&T Bell Laboratories *)
        !             2: (* emitter.sig
        !             3:  *
        !             4:  * J.H. Reppy
        !             5:  * Cornell University
        !             6:  * Ithaca, NY 14853
        !             7:  * [email protected]
        !             8:  *
        !             9:  * HISTORY:
        !            10:  *   11/20/89  created
        !            11:  *
        !            12:  *    This is the signature of the assembler and machine code emitters.
        !            13:  *)
        !            14: 
        !            15: signature EMITTER =
        !            16: sig
        !            17:     type instruction
        !            18:     type label
        !            19: 
        !            20:     val emitLong : int -> unit              (* emit an integer constant *)
        !            21:     val emitString : string -> unit         (* emit a (padded) string constant *)
        !            22:     val emitReal : string -> unit           (* emit a real constant *)
        !            23: (* NOTE: the following is useful for asm code, but could be replaced by
        !            24:  * emitLong. *)
        !            25:     val emitAddr : (label * int) -> unit    (* emit a label value (with offset) *)
        !            26: 
        !            27:     val define : label -> unit              (* define a label *)
        !            28:     val mark : unit -> unit                 (* emit a back-pointer mark *)
        !            29: 
        !            30:     val emitInstr : instruction -> unit     (* emit an instruction *)
        !            31: 
        !            32:     val comment : string -> unit
        !            33: 
        !            34:     val init : int -> unit                  (* initialize to emit n bytes of code *)
        !            35: 
        !            36: end (* signature EMITTER *)

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