home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / Symbols.def < prev    next >
Text File  |  1994-05-25  |  631b  |  29 lines
  1. |##########|
  2. |#MAGIC   #|CKOLFLFI
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x---xxx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----xxxxx-xx---
  9. |##########|
  10. DEFINITION MODULE Symbols;
  11.  
  12. FROM Exceptions IMPORT RangeViolation;
  13.  
  14. EXCEPTION
  15.   SymbolsFull      : "Too many symbols";
  16.   SymDoesNotExist  : "Symbol does not exist";
  17.  
  18. TYPE
  19.   Symbol = HIDDEN;
  20.  
  21. PROCEDURE AddSym(VAR sym : Symbol;REF name : STRING);
  22.  
  23. PROCEDURE StrToSym(REF name : STRING;clone : BOOLEAN):Symbol;
  24.  
  25. $$OwnHeap:=TRUE
  26. PROCEDURE SymToStr(sym : Symbol):STRING;
  27.  
  28. END Symbols.
  29.