home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / Translator.def < prev    next >
Text File  |  1994-05-25  |  852b  |  36 lines
  1. |##########|
  2. |#MAGIC   #|CLABLLCA
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx-x-x--x-----x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x-xx-x----------
  9. |##########|
  10. DEFINITION MODULE Translator
  11. (* $A- *)
  12. FROM Exec   IMPORT LibraryPtr;
  13. FROM System IMPORT SysStringPtr,Regs;
  14.  
  15. VAR
  16.   TranslatorBase : LibraryPtr;
  17.  
  18. CONST
  19.   notUsed  = -1;
  20.   noMem    = -2;
  21.   makeBad  = -4;
  22.  
  23. $$OwnHeap:=TRUE
  24. PROCEDURE NewTrans(REF in : STRING):STRING;
  25.  
  26. LIBRARY TranslatorBase BY -30
  27.   PROCEDURE Translate(in     IN A0 : SysStringPtr;
  28.                       inLen  IN D0 : LONGINT;
  29.                       out    IN A1 : SysStringPtr;
  30.                       outLen IN D1 : LONGINT):BOOLEAN;
  31. GROUP
  32.   All  = TranslatorBase,notUsed,noMem,makeBad,NewTrans,
  33.          TranslatorBase;
  34.  
  35. END Translator.
  36.