home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / languages / pascal / PTC / _PtC1 / ptc-diffs < prev    next >
Encoding:
Text File  |  1991-04-25  |  5.4 KB  |  210 lines
  1. 57,58c57,58
  2. <     rcsid        = '$Id: p.ptc 1.1 91/03/04 13:13:42 gtoal Exp $';
  3. <     rcsrevision    = '$Revision: 1.1 $';
  4. ---
  5. >     rcsid        = '$Id: p.ptc 1.3 91/03/09 20:54:02 gtoal Exp $';
  6. >     rcsrevision    = '$Revision: 1.3 $';
  7. 60c60,61
  8. <     keytablen    = 38;        (* nr of keywords        *)
  9. ---
  10. >     keytablen    = 39;        (* nr of keywords        *)
  11. >                    (* Added 'others' *)
  12. 62a64
  13. >     anothersym    = 'others    '; (* synonym for others        *)
  14. 187a190
  15. >         dbreak, (* Like dflush *)
  16. 215c218
  17. <         sother,        spacked,    sproc,        spgm,
  18. ---
  19. >         sother2, sother,         spacked,    sproc,        spgm,
  20. 251c254
  21. <           sother,    spacked,    sproc,        spgm,
  22. ---
  23. >           sother2, sother,    spacked,    sproc,        spgm,
  24. 2631a2635,2637
  25. >             write('/* ');
  26. >             printid(currsym.vid);
  27. >             writeln(' */');
  28. 2644a2651,2653
  29. >                     write('/* ');
  30. >                     printid(currsym.vid);
  31. >                     writeln(' */');
  32. 3703,3704c3712,3713
  33. <                         splus, sminus, send, sother]);
  34. <                 if currsym.st in [send, sother] then
  35. ---
  36. >                         splus, sminus, send, sother, sother2]);
  37. >                 if currsym.st in [send, sother, sother2] then
  38. 3720c3729
  39. <         if currsym.st = sother then
  40. ---
  41. >         if (currsym.st = sother) or (currsym.st = sother2) then
  42. 3721a3731
  43. >             (* Note: 'otherwise:' does NOT insist on the colon! *)
  44. 5849a5860
  45. >           dbreak,
  46. 6041c6052
  47. <                     write('Getl(&');
  48. ---
  49. >                     write('Getl((text *)&');
  50. 6285a6297,6298
  51. >                         (*  Should use argv[] parameters if this filename was
  52. >                             given in the program header  *)
  53. 6930c6943
  54. <                 write(voidcast, 'strncpy(');
  55. ---
  56. >                 write(voidcast, 'strncpy((char *)');
  57. 8021c8034
  58. <                         '__LINE__, 0, 0);')
  59. ---
  60. >                         '__LINE__, 0, 0, 0);')
  61. 8214c8227
  62. <                 'PTCerror(PTC_E_CASE, __LINE__, 0, 0);');
  63. ---
  64. >                 'PTCerror(PTC_E_CASE, __LINE__, 0, 0, 0);');
  65. 8258a8272
  66. > (*
  67. 8262,8263c8276,8278
  68. <                 writeln('();');
  69. <                 writeln;
  70. ---
  71. >                 write('(');
  72. >                 writeln('); /* Need parameter types for recursion */');
  73. > *)
  74. 8269a8285
  75. > (*
  76. 8275c8291,8293
  77. <                 writeln('();');
  78. ---
  79. >                 write('(');
  80. >                 writeln('); /* Need parameter types for forward/external */');
  81. > *)
  82. 8389c8407,8409
  83. <         writeln(include, '<ptc.h>');
  84. ---
  85. >         writeln(include, '<stdlib.h>');
  86. >         writeln(include, '<ctype.h>');
  87. >         writeln(include, '"<ptc$dir>.ptcmain.h"');
  88. 8506,8509c8526,8536
  89. <             writeln(tab1, 'Member(), Le(), Ge(), Eq(), Ne();');
  90. <             writeln(setptyp, tab1, 'Union(), Diff();');
  91. <             writeln(setptyp, tab1, 'Insmem(), Mksubr();');
  92. <             writeln(setptyp, tab1, 'Currset(), Inter();');
  93. ---
  94. >             writeln(tab1, 'Member(unsigned int m, setptr sp),');
  95. >             writeln(tab1, 'Le(setptr p1, setptr p2),');
  96. >             writeln(tab1, 'Ge(setptr p1, setptr p2),');
  97. >             writeln(tab1, 'Eq(setptr p1, setptr p2),');
  98. >             writeln(tab1, 'Ne(setptr p1, setptr p2);');
  99. >             writeln(setptyp, tab1, 'Union(setptr p1, setptr p2);');
  100. >             writeln(setptyp, tab1, 'Diff(setptr p1, setptr p2);');
  101. >             writeln(setptyp, tab1, 'Insmem(unsigned int m, setptr sp);');
  102. >             writeln(setptyp, tab1, 'Mksubr(unsigned int lo, unsigned int hi, setptr sp);');
  103. >             writeln(setptyp, tab1, 'Currset(int n, setptr sp);');
  104. >             writeln(setptyp, tab1, 'Inter(setptr p1, setptr p2);');
  105. 8512c8539
  106. <             writeln(voidtyp, tab1, 'Setncpy();')
  107. ---
  108. >             writeln(voidtyp, tab1, 'Setncpy(setptr S1, setptr S2, unsigned int N);')
  109. 8517c8544
  110. <             writeln(define, 'SETALIGN(x) Alignset(x)');
  111. ---
  112. >             writeln(define, 'SETALIGN(x) Alignset((unsigned int *)(x))');
  113. 8519c8546
  114. <                     maxsetrange:1, '+1]; } *Alignset();');
  115. ---
  116. >                     maxsetrange:1, '+1]; } *Alignset(register unsigned int *Sp);');
  117. 8522c8549
  118. <             writeln(define, 'STRALIGN(x) Alignstr(x)');
  119. ---
  120. >             writeln(define, 'STRALIGN(x) Alignstr((unsigned char *)(x))');
  121. 8524c8551
  122. <                     maxtoknlen:1, '+1]; } *Alignstr();');
  123. ---
  124. >                     maxtoknlen:1, '+1]; } *Alignstr(register unsigned char *Cp);');
  125. 8538a8566
  126. >         writeln('#ptcheader');
  127. 8546c8574
  128. <             writeln('main(_ac, _av)');    (* OS *)
  129. ---
  130. >             writeln('int main(_ac, _av)');    (* OS *)
  131. 8677c8705
  132. <         writeln(static, setwtyp, tab1, '*Conset[] = {');
  133. ---
  134. >         writeln(setwtyp, tab1, '*Conset[] = {');
  135. 8700c8728
  136. <         writeln(static, setptyp);
  137. ---
  138. >         writeln((* static, *) setptyp);
  139. 8732c8760
  140. <         writeln(static, setptyp);
  141. ---
  142. >         writeln((* static, *) setptyp);
  143. 8758c8786
  144. <         writeln(static, setptyp);
  145. ---
  146. >         writeln((* static, *) setptyp);
  147. 8778c8806
  148. <         write(static);
  149. ---
  150. >         (* write(static); *)
  151. 8801c8829
  152. <         write(static);
  153. ---
  154. >         (* write(static); *)
  155. 8840c8868
  156. <         write(static);
  157. ---
  158. >         (* write(static); *)
  159. 8852c8880
  160. <         write(static);
  161. ---
  162. >         (* write(static); *)
  163. 8884c8912
  164. <         write(static);
  165. ---
  166. >         (* write(static); *)
  167. 8914c8942
  168. <         writeln(static, setptyp);
  169. ---
  170. >         writeln((* static, *) setptyp);
  171. 8937c8965
  172. <         writeln(static, setptyp);
  173. ---
  174. >         writeln((* static, *) setptyp);
  175. 8958c8986
  176. <         writeln(static, setptyp);
  177. ---
  178. >         writeln((* static, *) setptyp);
  179. 8990c9018
  180. <         writeln(static, voidtyp);
  181. ---
  182. >         writeln((* static, *) voidtyp);
  183. 9012c9040
  184. <         writeln(static, 'struct Set *');
  185. ---
  186. >         writeln('struct Set *');
  187. 9028c9056
  188. <         writeln(static, 'struct String *');
  189. ---
  190. >         writeln('struct String *');
  191. 9033c9061
  192. <         writeln(tab1, registr, chartyp, tab1, '*sp = tmp.A;');
  193. ---
  194. >         writeln(tab1, registr, chartyp, tab1, '*sp = (', chartyp, '*)tmp.A;');
  195. 9035c9063
  196. <         writeln(tab1, 'while (*sp++ = *Cp++)');
  197. ---
  198. >         writeln(tab1, 'while ((*sp++ = *Cp++) != 0)');
  199. 9043c9071
  200. <         writeln(static, inttyp);
  201. ---
  202. >         writeln((* static, *) inttyp);
  203. 9309a9338
  204. >     defkey(sother2,    anothersym);    (* non-standard *)
  205. 9461a9491,9492
  206. > (* Break is a stream-flush command, used by TeXware *)
  207. >     defid(nfunc,    dbreak,        'break     ');    (* OS *)
  208. 9585a9617
  209. >     deftab[dbreak]^.tfuntyp := typnods[tnone];
  210.