RCS file: RCS/Argvgt.c,v; Working file: Argvgt.c head: 1.3 branch: locks: ; strict access list: symbolic names: comment leader: " * " total revisions: 3; selected revisions: 3 description: ---------------------------- revision 1.3 date: 90/03/27 01:39:16; author: tml; state: Exp; lines added/del: 4/4 USe unsigned chars here, too. ---------------------------- revision 1.2 date: 90/02/28 18:22:13; author: tml; state: Exp; lines added/del: 2/0 Added RCS Id string. ---------------------------- revision 1.1 date: 90/02/25 23:41:15; author: tml; state: Exp; Initial revision ============================================================================= RCS file: RCS/Fopen.c,v; Working file: Fopen.c head: 1.3 branch: locks: ; strict access list: symbolic names: comment leader: " * " total revisions: 3; selected revisions: 3 description: ---------------------------- revision 1.3 date: 90/03/25 09:20:00; author: tml; state: Exp; lines added/del: 5/3 Fixed file name handling: Now we scan for the first space or null byte. ---------------------------- revision 1.2 date: 90/02/28 18:23:27; author: tml; state: Exp; lines added/del: 8/5 Added RCS Id string. Fixed file name handling bug. ---------------------------- revision 1.1 date: 90/02/25 23:41:36; author: tml; state: Exp; Initial revision ============================================================================= RCS file: RCS/Getl.c,v; Working file: Getl.c head: 1.4 branch: locks: ; strict access list: symbolic names: comment leader: " * " total revisions: 4; selected revisions: 4 description: ---------------------------- revision 1.4 date: 90/03/27 01:13:07; author: tml; state: Exp; lines added/del: 2/2 No longer void (although it returns no useful value). ---------------------------- revision 1.3 date: 90/03/12 18:48:39; author: tml; state: Exp; lines added/del: 3/2 Fix: shouldn't do Getx at end, only invalidate buffer. ---------------------------- revision 1.2 date: 90/02/28 18:23:38; author: tml; state: Exp; lines added/del: 2/0 Added RCS Id string. ---------------------------- revision 1.1 date: 90/02/25 23:41:36; author: tml; state: Exp; Initial revision ============================================================================= RCS file: RCS/PTCerror.c,v; Working file: PTCerror.c head: 1.3 branch: locks: ; strict access list: symbolic names: comment leader: " * " total revisions: 3; selected revisions: 3 description: ---------------------------- revision 1.3 date: 90/03/27 01:14:23; author: tml; state: Exp; lines added/del: 2/2 No longer void (although return no useful value). ---------------------------- revision 1.2 date: 90/02/28 18:23:48; author: tml; state: Exp; lines added/del: 2/0 Added RCS Id string. ---------------------------- revision 1.1 date: 90/02/25 23:41:37; author: tml; state: Exp; Initial revision ============================================================================= RCS file: RCS/README,v; Working file: README head: 1.10 branch: locks: ; strict access list: symbolic names: comment leader: "" total revisions: 10; selected revisions: 10 description: ---------------------------- revision 1.10 date: 90/03/28 00:51:09; author: tml; state: Exp; lines added/del: 10/0 Fixed outputting 'char' as the C type for Pascal 'Char'. This is wrong because Pascal Chars are of an unsigned nature while C chars usually are signed. ---------------------------- revision 1.9 date: 90/03/27 02:19:18; author: tml; state: Exp; lines added/del: 5/0 Removed void casts from ptc.h. The Ultrix 3.1 compiler didn't like them. Use unsigned chars. That was what we had supposedly used all the time, but we had n fact used normal (signed on most systems) chars. (In the ptc-generated C code, that is.) This caused a problem when using char variables as array indices, for instance, as ptc believed the char to have a value range of 0..255 when in fact the signed char had the range -128..127. ---------------------------- revision 1.8 date: 90/03/25 09:31:05; author: tml; state: Exp; lines added/del: 5/0 Fixed Fopen. Don't put the original ptc.p in the tar archive, put a backwards diff from the current instead. ---------------------------- revision 1.7 date: 90/03/25 08:58:59; author: tml; state: Exp; lines added/del: 3/0 Fix in ptc.h: added missing __LINE__ arguments to Fopen. ---------------------------- revision 1.6 date: 90/03/23 16:24:51; author: tml; state: Exp; lines added/del: 3/0 In ptc.h: set eoln flag at eof. Use putc, not fputc. ---------------------------- revision 1.5 date: 90/03/17 17:32:02; author: tml; state: Exp; lines added/del: 3/0 Fixed Seek in ptc.h (parens were wrong). ---------------------------- revision 1.4 date: 90/03/13 19:57:16; author: tml; state: Exp; lines added/del: 3/0 Fixes to ptc.[ph]. Even better laziness. ---------------------------- revision 1.3 date: 90/03/13 08:23:28; author: tml; state: Exp; lines added/del: 5/3 Include all RCS logs in the tar file, not only the one for ptc.p. ---------------------------- revision 1.2 date: 90/03/13 08:13:34; author: tml; state: Exp; lines added/del: 4/1 By mistake I used fgetc in ptc.h. getc is better of course (faster). ---------------------------- revision 1.1 date: 90/03/13 08:10:49; author: tml; state: Exp; Initial revision ============================================================================= RCS file: RCS/ptc.h,v; Working file: ptc.h head: 1.15 branch: locks: ; strict access list: symbolic names: comment leader: " * " total revisions: 15; selected revisions: 15 description: ---------------------------- revision 1.15 date: 90/03/27 01:19:19; author: tml; state: Exp; lines added/del: 26/25 No longer uses (void) in the macros because of Ultrix 3.1 compiler lossage. The buffer in textfiles is unsigned char, and argv is unsigned char **. ---------------------------- revision 1.14 date: 90/03/25 08:58:02; author: tml; state: Exp; lines added/del: 6/5 Added mssing __LINE__ arguments to Fopen. ---------------------------- revision 1.13 date: 90/03/23 16:26:07; author: tml; state: Exp; lines added/del: 3/3 Set eoln flag at eof. Use putc, not fputc. ---------------------------- revision 1.12 date: 90/03/17 17:31:46; author: tml; state: Exp; lines added/del: 2/2 Parens were wrong in Seek. ---------------------------- revision 1.11 date: 90/03/13 19:56:08; author: tml; state: Exp; lines added/del: 6/4 New macro: RealGetx, used by Bufx. Getx now only does a Bufx and invalidates the buffer. ---------------------------- revision 1.10 date: 90/03/13 08:12:35; author: tml; state: Exp; lines added/del: 2/2 By mistake I used fgetc in ptc.h. getc is better of course (faster). ---------------------------- revision 1.9 date: 90/03/11 00:49:55; author: tml; state: Exp; lines added/del: 2/2 Fixed missing rparen in Seek. ---------------------------- revision 1.8 date: 90/03/02 16:35:18; author: tml; state: Exp; lines added/del: 2/2 Fixed definition of Round. ---------------------------- revision 1.7 date: 90/03/02 10:34:08; author: tml; state: Exp; lines added/del: 3/3 This is getting embarrassing... I had left out the format parameter from fscanf. ---------------------------- revision 1.6 date: 90/03/02 10:20:08; author: tml; state: Exp; lines added/del: 2/2 Fixed Fscan: We must clear bufvalid. ---------------------------- revision 1.5 date: 90/03/02 10:03:45; author: tml; state: Exp; lines added/del: 2/2 Fixed Fscan: Only do ungetc if bufvalid is true. ---------------------------- revision 1.4 date: 90/03/02 08:27:34; author: tml; state: Exp; lines added/del: 6/3 Fixed Tell and Seek to use sizeof(file component). ---------------------------- revision 1.3 date: 90/02/28 18:40:35; author: tml; state: Exp; lines added/del: 4/1 Added definitions of Trunc and Round. ---------------------------- revision 1.2 date: 90/02/28 18:23:53; author: tml; state: Exp; lines added/del: 6/5 Fixed bugs. ---------------------------- revision 1.1 date: 90/02/25 23:41:37; author: tml; state: Exp; Initial revision ============================================================================= RCS file: RCS/ptc.p,v; Working file: ptc.p head: 1.17 branch: locks: ; strict access list: symbolic names: comment leader: " * " total revisions: 17; selected revisions: 17 description: ---------------------------- revision 1.17 date: 90/03/27 16:24:55; author: tml; state: Exp; lines added/del: 8/3 Check for Char type in etdef, and output chartyp (unsiged char) in that case. ---------------------------- revision 1.16 date: 90/03/27 01:20:33; author: tml; state: Exp; lines added/del: 6/24 Removed some unnecesary flags. Changed chartype to unsigned char, as that is what we have supposed all the time. ---------------------------- revision 1.15 date: 90/03/13 19:55:31; author: tml; state: Exp; lines added/del: 3/8 Don't output Getx(f) after a (series of) Scans (translated from Read or Readln). ---------------------------- revision 1.14 date: 90/03/11 22:52:05; author: tml; state: Exp; lines added/del: 8/8 Fixed needsintcast. I didn't work if the upper limit of a subrange was a symbolic constant, for instance. ---------------------------- revision 1.13 date: 90/03/08 14:58:25; author: tml; state: Exp; lines added/del: 5/5 Correctly initialize "writable" fields of output and erroutput. ---------------------------- revision 1.12 date: 90/03/02 10:13:39; author: tml; state: Exp; lines added/del: 3/3 Fixed a generated call to PTCerror (__FILE__ parameter dropped). ---------------------------- revision 1.11 date: 90/03/02 08:12:33; author: tml; state: Exp; lines added/del: 11/11 Increased maxchar to 255. Set align to false. Fixed initialization of file variables (set fp field to 0). ---------------------------- revision 1.10 date: 90/03/02 00:44:47; author: tml; state: Exp; lines added/del: 4/3 FIxed bug in needsintcast: The low bound of a subrange is not necessary of type ninteger. (It could be a numinus for instance.) ---------------------------- revision 1.9 date: 90/03/01 00:30:14; author: tml; state: Exp; lines added/del: 31/7 Fixed handling of file buffer variable as the destination of an assignment: We shouldn't do any (lazy) I/O in this case. ---------------------------- revision 1.8 date: 90/02/28 23:14:37; author: tml; state: Exp; lines added/del: 3/4 Call PTCerror with right arguments when case error. ---------------------------- revision 1.7 date: 90/02/28 18:41:20; author: tml; state: Exp; lines added/del: 3/25 Trunc and Round are now macros in . ---------------------------- revision 1.6 date: 90/02/23 18:02:25; author: tml; state: Exp; lines added/del: 16/12 Recognize file of char in one more place. Simplifications for buggy HP-UX C compiler (generate compound statement instead of long multiple comma expression). ---------------------------- revision 1.5 date: 90/02/06 00:44:19; author: tml; state: Exp; lines added/del: 149/458 Many changes: Moved most macro definitions to a header file . (They used to be output by ptc itself.) Also, compile helper functions like Fopen and Argvgt separately and put them in a library. Introduced the predefined file erroutput which by default is associated with the stderr stream. ---------------------------- revision 1.4 date: 88/06/01 18:47:06; author: tml; state: Exp; lines added/del: 264/97 Merged in patches from the author. ---------------------------- revision 1.3 date: 88/03/06 14:27:09; author: tml; state: Exp; lines added/del: 20/4 Must insert (int) casts in front of expressions which are represented by unsigned values in C. ---------------------------- revision 1.2 date: 87/11/20 12:25:16; author: tml; state: Exp; lines added/del: 133/84 General changes to get it working on HP-UX, fixed read(f,x) to be x:=f^;get(f), added flush(f) and tell(f), rewind is of void type. ---------------------------- revision 1.1 date: 87/11/09 22:38:37; author: tml; state: Exp; Initial revision =============================================================================