|##########|
|#MAGIC   #|CLABLLCA
|#PROJECT #|""
|#PATHS   #|"StdProject"
|#FLAGS   #|xx-x-x--x-----x-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x-xx-x----------
|##########|
DEFINITION MODULE Translator
(* $A- *)
FROM Exec   IMPORT LibraryPtr;
FROM System IMPORT SysStringPtr,Regs;

VAR
  TranslatorBase : LibraryPtr;

CONST
  notUsed  = -1;
  noMem    = -2;
  makeBad  = -4;

$$OwnHeap:=TRUE
PROCEDURE NewTrans(REF in : STRING):STRING;

LIBRARY TranslatorBase BY -30
  PROCEDURE Translate(in     IN A0 : SysStringPtr;
                      inLen  IN D0 : LONGINT;
                      out    IN A1 : SysStringPtr;
                      outLen IN D1 : LONGINT):BOOLEAN;
GROUP
  All  = TranslatorBase,notUsed,noMem,makeBad,NewTrans,
         TranslatorBase;

END Translator.