gpcp/JavaBase.cp

   1 (* ============================================================ *)
   2 (*  JavaBase is the abstract class for java byte code emitters. *)
   3 (*  The method Target.Select(mod, <name>) will allocate a       *)
   4 (*  ClassMaker  object of an appropriate kind, and will call    *)
   5 (*      classMaker.Emit()                                       *)
   6 (*  Copyright (c) John Gough 1999, 2000.                        *)
   7 (*  Modified DWC September,2000                                 *)
   8 (* ============================================================ *)
   9
  10 MODULE JavaBase;
  11
  12   IMPORT
  13         GPCPcopyright,
  14         Console,
  15         Ty := TypeDesc,
  16         ClassMaker;
  17
  18
  19 (* ============================================================ *)
  20
  21   TYPE
  22     ClassEmitter* = POINTER TO ABSTRACT
  23                       RECORD (ClassMaker.ClassEmitter) END;
  24
  25 (* ============================================================ *)
  26 (*  Not very elegant, but we need to get at the worklist from   *)
  27 (*  inside static procedures in JsmnUtil.                       *)
  28 (* ============================================================ *)
  29
  30   VAR worklist*   : ClassEmitter;
  31
  32   PROCEDURE (list : ClassEmitter)AddNewRecEmitter*(rec : Ty.Record),NEW,EMPTY;
  33   PROCEDURE (list : ClassEmitter)AddNewProcTypeEmitter*(prc : Ty.Procedure),NEW,EMPTY;
  34
  35 (* ============================================================ *)
  36 END JavaBase.
  37 (* ============================================================ *)