symbols.h 1.8 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788
  1. /*
  2. * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
  3. * See the copyright notice in the ACK home directory, in the file "Copyright".
  4. */
  5. #ifndef NORCSID
  6. # define RCS_SYMB "$Id$"
  7. #endif
  8. #define NIL 0
  9. #define TRUE 1
  10. #define FALSE 0
  11. #define DEFAULTTYPE 500
  12. #define INTTYPE 501
  13. #define FLOATTYPE 502
  14. #define DOUBLETYPE 503
  15. #define STRINGTYPE 504
  16. #define ABSSYM 520
  17. #define ASCSYM 521
  18. #define ATNSYM 522
  19. #define CDBLSYM 524
  20. #define CHRSYM 525
  21. #define CINTSYM 526
  22. #define COSSYM 527
  23. #define CSNGSYM 528
  24. #define CVISYM 529
  25. #define CVSSYM 530
  26. #define CVDSYM 531
  27. #define EOFSYM 532
  28. #define EXPSYM 533
  29. #define FIXSYM 534
  30. #define FRESYM 535
  31. #define HEXSYM 536
  32. #define INPSYM 538
  33. #define INSTRSYM 539
  34. #define LEFTSYM 540
  35. #define LENSYM 541
  36. #define LOCSYM 542
  37. #define LOGSYM 543
  38. #define LPOSSYM 544
  39. #define MKISYM 546
  40. #define MKSSYM 547
  41. #define MKDSYM 548
  42. #define OCTSYM 549
  43. #define PEEKSYM 550
  44. #define POSSYM 551
  45. #define RIGHTSYM 552
  46. #define RNDSYM 553
  47. #define SGNSYM 554
  48. #define SINSYM 555
  49. #define SPACESYM 556
  50. #define SPCSYM 557
  51. #define SQRSYM 558
  52. #define STRSYM 559
  53. #define STRINGSYM 560
  54. #define TABSYM 561
  55. #define TANSYM 562
  56. #define VALSYM 564
  57. #define VARPTRSYM 565
  58. /* some stuff forgotten */
  59. #define INTSYM 567
  60. #define AUTOSYM 568
  61. #define LISTSYM 569
  62. #define LOADSYM 570
  63. #define MERGESYM 571
  64. #define TRONSYM 572
  65. #define TROFFSYM 0 /* NIEUW : was 573, werkte als TRON */
  66. /* IMPSYM, EQVSYM en XORSYM zijn tokens geworden */
  67. #define OUTSYM 577
  68. #define MAXDIMENSIONS 10
  69. typedef struct SYMBOL{
  70. char *symname;
  71. int symalias;
  72. int symtype;
  73. int dimensions; /* dimension array/function */
  74. int dimlimit[MAXDIMENSIONS]; /* type of parameter */
  75. int dimalias[MAXDIMENSIONS];
  76. struct SYMBOL *nextsym;
  77. int isfunction;
  78. int parmsize;
  79. int isparam;
  80. } Symbol;
  81. extern Symbol *srchsymbol();