home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 01 / levelki / lispdefs.inc < prev    next >
Encoding:
Text File  |  1988-09-29  |  1.1 KB  |  37 lines
  1. (*******************************************************)
  2. (*                   LISPDEFS.INC                      *)
  3. (*         Include-Modul des LittleLisp-Systems        *)
  4. (*          (C) 1988 Reinhard Häring & TOOLBOX         *)
  5. (*******************************************************)
  6.  
  7. CONST { Listen nicht als dotted pairs ausgeben }
  8.       list_format=TRUE;
  9.       { max Tiefe für rekursive Listenausgabe }
  10.       maxdepth=10;
  11.  
  12. TYPE objp=^obj;
  13.      pair=RECORD
  14.            car,cdr:objp;
  15.           END;
  16.      lstring=STRING[255];
  17.      string80=STRING[80];
  18.      string20=STRING[20];
  19.      pstr20=^string20;
  20.      pstr80=^string80;
  21.      obj=RECORD
  22.           typ:INTEGER;
  23.           CASE i1:INTEGER OF
  24.             0:(i:INTEGER);
  25.             1:(s:pstr80);
  26.             2:(a:pstr20);
  27.             3:(o:pair);
  28.           END;
  29.  
  30. VAR null,dummy,base_env,property,g_op:objp;
  31.     dynamic:BOOLEAN;
  32.     p_delayed_obj,p_quote,p_define,p_set,p_lambda,
  33.     p_mlambda,p_dlambda,p_procedure,p_mprocedure,
  34.     p_dprocedure,p_cond,p_if,p_t,p_true,p_else,
  35.     p_begin,p_and,p_or,p_let,p_delay,p_memo_proc  : objp;
  36.     a : lstring;
  37.