home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / OFunctions.def < prev    next >
Text File  |  1994-05-25  |  1KB  |  51 lines
  1. |##########|
  2. |#MAGIC   #|BMOLIJHI
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x----xx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----xxxxx-xx---
  9. |##########|
  10. DEFINITION MODULE OFunctions;
  11.  
  12. FROM Resources IMPORT ContextPtr;
  13.  
  14. EXCEPTION
  15.   WrongParamsNum  : "Wrong number of parameters";
  16.   SyntaxError     : "Syntactic error in expression";
  17.  
  18. TYPE
  19.   Expression  = HIDDEN;
  20.   Variable    = HIDDEN;
  21.   VarDict     = HIDDEN;
  22.  
  23.   Function    = POINTER TO FunctionO;
  24.   FunctionO   = OBJECT
  25.                   con         : ContextPtr;
  26.                   ex          : Expression;
  27.                   varDict     : VarDict;
  28.                   variables   : CLASSPTR TO ARRAY OF Variable;
  29.  
  30.                   CONSTRUCTOR Create(REF str     : STRING;
  31.                                          context : ContextPtr := NIL;
  32.                                      REF vars    : LIST OF STRING);
  33.  
  34.                   CONSTRUCTOR Differentiate(    of      : Function;
  35.                                             REF after   : STRING;
  36.                                                 context : ContextPtr := NIL);
  37.  
  38.                   DESTRUCTOR Delete;
  39.  
  40.                   METHOD Eval(vars : LIST OF LONGREAL):LONGREAL;
  41.  
  42.                   $$OwnHeap:=TRUE
  43.                   METHOD toString():STRING;
  44.                 END;
  45.  
  46. PROCEDURE CheckFunction(REF str  : STRING;
  47.                         REF vars : LIST OF STRING):INTEGER;
  48.  
  49. END OFunctions.
  50.  
  51.