projects / unix-history / blobdiff
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
last few day's work
[unix-history] / usr / src / usr.bin / pascal / pc2 / langpats.c
diff --git a/usr/src/usr.bin/pascal/pc2/langpats.c b/usr/src/usr.bin/pascal/pc2/langpats.c
index 0707a02..471ddff 100644 (file)
--- a/usr/src/usr.bin/pascal/pc2/langpats.c
+++ b/usr/src/usr.bin/pascal/pc2/langpats.c
@@ -1,6 +1,6 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 
-static char sccsid[] = "@(#)langpats.c 1.2 %G%";
+static char sccsid[] = "@(#)langpats.c 1.13 %G%";
 
 #include <stdio.h>
 #include <ctype.h>
 
 #include <stdio.h>
 #include <ctype.h>
@@ -10,18 +10,27 @@ static char sccsid[] = "@(#)langpats.c 1.2 %G%";
  */
 #define HSHSIZ 101
 
  */
 #define HSHSIZ 101
 
+#ifdef vax
+#define CALLTEMPLATE   "calls\t$"
+#define TEMPLATESIZE   7
+#endif vax
+
+#ifdef mc68000
+#define CALLTEMPLATE   "jbsr\t"
+#define TEMPLATESIZE   5
+#endif mc68000
+
 struct pats {
        char    *name;
        char    *replace;
 } ptab[] = {
 
 struct pats {
        char    *name;
        char    *replace;
 } ptab[] = {
 
-       { "ACTFILE\n",
-"      movl    (sp)+,r1\n\
-       movl    12(r1),r0\n" },
-
-       { "fgetc\n",
-"      decl    *(sp)\n\
-       jgeq    1f\n\
+#ifdef vax
+/*
+ * C library routines
+ */
+       { "1,_fgetc\n",
+"      sobgeq  *(sp),1f\n\
        calls   $1,__filbuf\n\
        jbr     2f\n\
 1:\n\
        calls   $1,__filbuf\n\
        jbr     2f\n\
 1:\n\
@@ -30,146 +39,143 @@ struct pats {
        incl    (r1)\n\
 2:\n" },
 
        incl    (r1)\n\
 2:\n" },
 
-       { "fputc\n",
-"      decl    *4(sp)\n\
-       jgeq    1f\n\
+       { "2,_fputc\n",
+"      sobgeq  *4(sp),1f\n\
        calls   $2,__flsbuf\n\
        jbr     2f\n\
 1:\n\
        calls   $2,__flsbuf\n\
        jbr     2f\n\
 1:\n\
-       movl    (sp)+,r0\n\
-       addl3   $4,(sp)+,r1\n\
-       movb    r0,*(r1)\n\
-       incl    (r1)\n\
+       popr    $0x3\n\
+       movb    r0,*4(r1)\n\
+       incl    4(r1)\n\
 2:\n" },
 
 2:\n" },
 
-       { "blkcpy\n",
-"      movl    4(sp),r1\n\
-       movl    8(sp),r3\n\
+/*
+ * VAX special instructions
+ */
+       { "3,_blkcpy\n",
+"      popr    $0xa\n\
+       jbr     2f\n\
 1:\n\
 1:\n\
-       movzwl  $65535,r0\n\
-       cmpl    (sp),r0\n\
-       jleq    1f\n\
        subl2   r0,(sp)\n\
        movc3   r0,(r1),(r3)\n\
        subl2   r0,(sp)\n\
        movc3   r0,(r1),(r3)\n\
-       jbr     1b\n\
-1:\n\
+2:\n\
+       movzwl  $65535,r0\n\
+       cmpl    (sp),r0\n\
+       jgtr    1b\n\
        movl    (sp)+,r0\n\
        movl    (sp)+,r0\n\
-       addl2   $8,sp\n\
        movc3   r0,(r1),(r3)\n" },
 
        movc3   r0,(r1),(r3)\n" },
 
-       { "blkclr\n",
-"      movl    4(sp),r3\n\
+       { "2,_blkclr\n",
+"      movl    (sp)+,r3\n\
+       jbr     2f\n\
 1:\n\
 1:\n\
+       subl2   r0,(sp)\n\
+       movc5   $0,(r3),$0,r0,(r3)\n\
+2:\n\
        movzwl  $65535,r0\n\
        cmpl    (sp),r0\n\
        movzwl  $65535,r0\n\
        cmpl    (sp),r0\n\
-       jleq    1f\n\
-       subl2   r0,(sp)\n\
-       movc5   $0,(r1),$0,r0,(r3)\n\
-       jbr     1b\n\
-1:\n\
+       jgtr    1b\n\
        movl    (sp)+,r0\n\
        movl    (sp)+,r0\n\
-       addl2   $4,sp\n\
-       movc5   $0,(r1),$0,r0,(r3)\n" },
+       movc5   $0,(r3),$0,r0,(r3)\n" },
 
 
-       { "LOCC\n",
-"      movl    (sp)+,r5\n\
-       movl    (sp)+,r4\n\
+       { "3,_LOCC\n",
+"      popr    $0x30\n\
        movl    (sp)+,r1\n\
 1:\n\
        movzwl  $65535,r0\n\
        movl    (sp)+,r1\n\
 1:\n\
        movzwl  $65535,r0\n\
-       cmpl    r4,r0\n\
+       cmpl    r5,r0\n\
        jleq    1f\n\
        jleq    1f\n\
-       subl2   r0,r4\n\
-       locc    r5,r0,(r1)\n\
+       subl2   r0,r5\n\
+       locc    r4,r0,(r1)\n\
        jeql    1b\n\
        jeql    1b\n\
-       addl2   r4,r0\n\
+       addl2   r5,r0\n\
        jbr     2f\n\
 1:\n\
        jbr     2f\n\
 1:\n\
-       locc    r5,r4,(r1)\n\
+       locc    r4,r5,(r1)\n\
 2:\n" },
 
 2:\n" },
 
-       { "ROUND\n",
+       { "2,_ROUND\n",
 "      cvtrdl  (sp)+,r0\n" },
 
 "      cvtrdl  (sp)+,r0\n" },
 
-       { "TRUNC\n",
+       { "2,_TRUNC\n",
 "      cvtdl   (sp)+,r0\n" },
 
 "      cvtdl   (sp)+,r0\n" },
 
-       { "FCALL\n",
-"      movl    (sp),r0\n\
-       ashl    $3,4(r0),r1\n\
-       movc3   r1,__disply+8,8(r0)[r1]\n\
-       movl    (sp),r0\n\
-       ashl    $3,4(r0),r1\n\
-       movc3   r1,8(r0),__disply+8\n\
-       movl    *(sp)+,r0\n" },
+/*
+ * General Pascal library routines
+ */
+       { "1,_ACTFILE\n",
+"      movl    (sp)+,r1\n\
+       movl    12(r1),r0\n" },
 
 
-       { "FRTN\n",
+       { "2,_FCALL\n",
+"      movl    4(sp),r0\n\
+       movc3   4(r0),__disply+8,*(sp)+\n\
+       movl    (sp)+,r0\n\
+       movc3   4(r0),8(r0),__disply+8\n" },
+
+       { "2,_FRTN\n",
 "      movl    (sp)+,r0\n\
 "      movl    (sp)+,r0\n\
-       ashl    $3,4(r0),r1\n\
-       movc3   r1,8(r0)[r1],__disply+8\n\
-       movl    (sp)+,r0\n" },
+       movc3   4(r0),*(sp)+,__disply+8\n" },
 
 
-       { "FSAV\n",
+       { "3,_FSAV\n",
 "      movl    8(sp),r0\n\
        movl    (sp)+,(r0)\n\
 "      movl    8(sp),r0\n\
        movl    (sp)+,(r0)\n\
-       movl    (sp)+,4(r0)\n\
-       ashl    $3,4(r0),r1\n\
-       movc3   r1,__disply+8,8(r0)\n\
+       ashl    $3,(sp)+,4(r0)\n\
+       movc3   4(r0),__disply+8,8(r0)\n\
        movl    (sp)+,r0\n" },
 
        movl    (sp)+,r0\n" },
 
-       { "RELEQ\n",
-"      movl    (sp)+,r4\n\
-       movl    (sp)+,r1\n\
-       movl    (sp)+,r3\n\
+/*
+ * Pascal relational comparisons
+ */
+       { "3,_RELEQ\n",
+"      popr    $0xb\n\
+       movl    r0,r4\n\
 1:\n\
        movzwl  $65535,r0\n\
        cmpl    r4,r0\n\
 1:\n\
        movzwl  $65535,r0\n\
        cmpl    r4,r0\n\
-       jleq    2f\n\
+       jleq    3f\n\
        subl2   r0,r4\n\
        cmpc3   r0,(r1),(r3)\n\
        jeql    1b\n\
        subl2   r0,r4\n\
        cmpc3   r0,(r1),(r3)\n\
        jeql    1b\n\
-       jbr     3f\n\
 2:\n\
 2:\n\
-       cmpc3   r4,(r1),(r3)\n\
-       jneq    3f\n\
-       incl    r0\n\
+       clrl    r0\n\
        jbr     4f\n\
 3:\n\
        jbr     4f\n\
 3:\n\
-       clrl    r0\n\
+       cmpc3   r4,(r1),(r3)\n\
+       jneq    2b\n\
+       incl    r0\n\
 4:\n" },
 
 4:\n" },
 
-       { "RELNE\n",
-"      movl    (sp)+,r4\n\
-       movl    (sp)+,r1\n\
-       movl    (sp)+,r3\n\
+       { "3,_RELNE\n",
+"      popr    $0xb\n\
+       movl    r0,r4\n\
 1:\n\
        movzwl  $65535,r0\n\
        cmpl    r4,r0\n\
 1:\n\
        movzwl  $65535,r0\n\
        cmpl    r4,r0\n\
-       jleq    2f\n\
+       jleq    3f\n\
        subl2   r0,r4\n\
        cmpc3   r0,(r1),(r3)\n\
        jeql    1b\n\
        subl2   r0,r4\n\
        cmpc3   r0,(r1),(r3)\n\
        jeql    1b\n\
-       jbr     3f\n\
 2:\n\
 2:\n\
-       cmpc3   r4,(r1),(r3)\n\
-       jeql    4f\n\
-3:\n\
        movl    $1,r0\n\
        movl    $1,r0\n\
+       jbr     4f\n\
+3:\n\
+       cmpc3   r4,(r1),(r3)\n\
+       jneq    2b\n\
 4:\n" },
 
 4:\n" },
 
-       { "RELSLT\n",
-"      movl    (sp)+,r4\n\
-       movl    (sp)+,r1\n\
-       movl    (sp)+,r3\n\
+       { "3,_RELSLT\n",
+"      popr    $0xb\n\
+       movl    r0,r4\n\
+       jbr     2f\n\
 1:\n\
 1:\n\
-       movzwl  $65535,r0\n\
-       cmpl    r4,r0\n\
-       jleq    2f\n\
        subl2   r0,r4\n\
        cmpc3   r0,(r1),(r3)\n\
        subl2   r0,r4\n\
        cmpc3   r0,(r1),(r3)\n\
-       jeql    1b\n\
-       jbr     3f\n\
+       jneq    3f\n\
 2:\n\
 2:\n\
+       movzwl  $65535,r0\n\
+       cmpl    r4,r0\n\
+       jgtr    1b\n\
        cmpc3   r4,(r1),(r3)\n\
 3:\n\
        jlss    4f\n\
        cmpc3   r4,(r1),(r3)\n\
 3:\n\
        jlss    4f\n\
@@ -179,19 +185,18 @@ struct pats {
        movl    $1,r0\n\
 5:\n" },
 
        movl    $1,r0\n\
 5:\n" },
 
-       { "RELSLE\n",
-"      movl    (sp)+,r4\n\
-       movl    (sp)+,r1\n\
-       movl    (sp)+,r3\n\
+       { "3,_RELSLE\n",
+"      popr    $0xb\n\
+       movl    r0,r4\n\
+       jbr     2f\n\
 1:\n\
 1:\n\
-       movzwl  $65535,r0\n\
-       cmpl    r4,r0\n\
-       jleq    2f\n\
        subl2   r0,r4\n\
        cmpc3   r0,(r1),(r3)\n\
        subl2   r0,r4\n\
        cmpc3   r0,(r1),(r3)\n\
-       jeql    1b\n\
-       jbr     3f\n\
+       jneq    3f\n\
 2:\n\
 2:\n\
+       movzwl  $65535,r0\n\
+       cmpl    r4,r0\n\
+       jgtr    1b\n\
        cmpc3   r4,(r1),(r3)\n\
 3:\n\
        jleq    4f\n\
        cmpc3   r4,(r1),(r3)\n\
 3:\n\
        jleq    4f\n\
@@ -201,19 +206,18 @@ struct pats {
        movl    $1,r0\n\
 5:\n" },
 
        movl    $1,r0\n\
 5:\n" },
 
-       { "RELSGT\n",
-"      movl    (sp)+,r4\n\
-       movl    (sp)+,r1\n\
-       movl    (sp)+,r3\n\
+       { "3,_RELSGT\n",
+"      popr    $0xb\n\
+       movl    r0,r4\n\
+       jbr     2f\n\
 1:\n\
 1:\n\
-       movzwl  $65535,r0\n\
-       cmpl    r4,r0\n\
-       jleq    2f\n\
        subl2   r0,r4\n\
        cmpc3   r0,(r1),(r3)\n\
        subl2   r0,r4\n\
        cmpc3   r0,(r1),(r3)\n\
-       jeql    1b\n\
-       jbr     3f\n\
+       jneq    3f\n\
 2:\n\
 2:\n\
+       movzwl  $65535,r0\n\
+       cmpl    r4,r0\n\
+       jgtr    1b\n\
        cmpc3   r4,(r1),(r3)\n\
 3:\n\
        jgtr    4f\n\
        cmpc3   r4,(r1),(r3)\n\
 3:\n\
        jgtr    4f\n\
@@ -223,19 +227,18 @@ struct pats {
        movl    $1,r0\n\
 5:\n" },
 
        movl    $1,r0\n\
 5:\n" },
 
-       { "RELSGE\n",
-"      movl    (sp)+,r4\n\
-       movl    (sp)+,r1\n\
-       movl    (sp)+,r3\n\
+       { "3,_RELSGE\n",
+"      popr    $0xb\n\
+       movl    r0,r4\n\
+       jbr     2f\n\
 1:\n\
 1:\n\
-       movzwl  $65535,r0\n\
-       cmpl    r4,r0\n\
-       jleq    2f\n\
        subl2   r0,r4\n\
        cmpc3   r0,(r1),(r3)\n\
        subl2   r0,r4\n\
        cmpc3   r0,(r1),(r3)\n\
-       jeql    1b\n\
-       jbr     3f\n\
+       jneq    3f\n\
 2:\n\
 2:\n\
+       movzwl  $65535,r0\n\
+       cmpl    r4,r0\n\
+       jgtr    1b\n\
        cmpc3   r4,(r1),(r3)\n\
 3:\n\
        jgeq    4f\n\
        cmpc3   r4,(r1),(r3)\n\
 3:\n\
        jgeq    4f\n\
@@ -245,53 +248,223 @@ struct pats {
        movl    $1,r0\n\
 5:\n" },
 
        movl    $1,r0\n\
 5:\n" },
 
-       { "ADDT\n",
-"      movl    (sp)+,r0\n\
-       movl    (sp)+,r1\n\
-       movl    (sp)+,r2\n\
+/*
+ * Pascal set operations.
+ */
+       { "4,_ADDT\n",
+"      popr    $0x17\n\
        movl    r0,r3\n\
        movl    r0,r3\n\
-       movl    (sp)+,r4\n\
 1:\n\
        bisl3   (r1)+,(r2)+,(r3)+\n\
        sobgtr  r4,1b\n" },
 
 1:\n\
        bisl3   (r1)+,(r2)+,(r3)+\n\
        sobgtr  r4,1b\n" },
 
-       { "SUBT\n",
-"      movl    (sp)+,r0\n\
-       movl    (sp)+,r1\n\
-       movl    (sp)+,r2\n\
+       { "4,_SUBT\n",
+"      popr    $0x17\n\
        movl    r0,r3\n\
        movl    r0,r3\n\
-       movl    (sp)+,r4\n\
 1:\n\
        bicl3   (r2)+,(r1)+,(r3)+\n\
        sobgtr  r4,1b\n" },
 
 1:\n\
        bicl3   (r2)+,(r1)+,(r3)+\n\
        sobgtr  r4,1b\n" },
 
-       { "MULT\n",
-"      movl    (sp)+,r0\n\
-       movl    (sp)+,r1\n\
-       movl    (sp)+,r2\n\
+       { "4,_MULT\n",
+"      popr    $0x17\n\
        movl    r0,r3\n\
        movl    r0,r3\n\
-       movl    (sp)+,r4\n\
 1:\n\
        mcoml   (r1)+,r5\n\
        bicl3   r5,(r2)+,(r3)+\n\
        sobgtr  r4,1b\n" },
 
 1:\n\
        mcoml   (r1)+,r5\n\
        bicl3   r5,(r2)+,(r3)+\n\
        sobgtr  r4,1b\n" },
 
-       { "IN\n",
-"      clrl    r0\n\
-       movl    (sp)+,r1\n\
-       subl2   (sp)+,r1\n\
-       cmpl    r1,(sp)+\n\
+       { "4,_IN\n",
+"      popr    $0x1e\n\
+       clrl    r0\n\
+       subl2   r2,r1\n\
+       cmpl    r1,r3\n\
        jgtru   1f\n\
        jgtru   1f\n\
-       jbc     r1,*(sp)+,1f\n\
-       movl    $1,r0\n\
-1:\n" }
+       jbc     r1,(r4),1f\n\
+       incl    r0\n\
+1:\n" },
+
+/*
+ * Pascal runtime checks
+ */
+       { "1,_ASRT\n",
+"      tstl    (sp)+\n\
+       jneq    1f\n\
+       pushl   $0\n\
+       pushl   $_EASRT\n\
+       calls   $2,_ERROR\n\
+1:\n" },
+
+       { "2,_ASRTS\n",
+"      popr    $0x03\n\
+       tstl    r0\n\
+       jneq    1f\n\
+       pushl   r1\n\
+       pushl   $_EASRTS\n\
+       calls   $2,_ERROR\n\
+1:\n" },
+
+       { "1,_CHR\n",
+"      movl    (sp)+,r0\n\
+       cmpl    r0,$127\n\
+       jlequ   1f\n\
+       pushl   r0\n\
+       pushl   $_ECHR\n\
+       calls   $2,_ERROR\n\
+1:\n" },
+
+       { "0,_LINO\n",
+"      incl    __stcnt\n\
+       cmpl    __stcnt,__stlim\n\
+       jlss    1f\n\
+       pushl   __stcnt\n\
+       pushl   $_ELINO\n\
+       calls   $2,_ERROR\n\
+1:\n" },
+
+       { "1,_NIL\n",
+"      movl    (sp)+,r0\n\
+       cmpl    r0,__maxptr\n\
+       jgtr    1f\n\
+       cmpl    r0,__minptr\n\
+       jgeq    2f\n\
+1:\n\
+       pushl   $0\n\
+       pushl   $_ENIL\n\
+       calls   $2,_ERROR\n\
+2:\n" },
+
+       { "2,_RANDOM\n",
+"      addl2   $8,sp\n\
+       emul    __seed,$1103515245,$0,r0\n\
+       ediv    $0x7fffffff,r0,r1,r0\n\
+       movl    r0,__seed\n\
+       cvtld   r0,r0\n\
+       divd2   $0d2.147483647e+09,r0\n" },
+
+       { "3,_RANG4\n",
+"      popr    $0x07\n\
+       cmpl    r0,r1\n\
+       jlss    1f\n\
+       cmpl    r0,r2\n\
+       jleq    2f\n\
+1:\n\
+       pushl   r0\n\
+       pushl   $_ERANG\n\
+       calls   $2,_ERROR\n\
+2:\n" },
+
+       { "2,_RSNG4\n",
+"      popr    $0x03\n\
+       cmpl    r0,r1\n\
+       jlequ   1f\n\
+       pushl   r0\n\
+       pushl   $_ERANG\n\
+       calls   $2,_ERROR\n\
+1:\n" },
+
+       { "1,_SEED\n",
+"      movl    __seed,r0\n\
+       movl    (sp)+,__seed\n" },
+
+       { "3,_SUBSC\n",
+"      popr    $0x07\n\
+       cmpl    r0,r1\n\
+       jlss    1f\n\
+       cmpl    r0,r2\n\
+       jleq    2f\n\
+1:\n\
+       pushl   r0\n\
+       pushl   $_ESUBSC\n\
+       calls   $2,_ERROR\n\
+2:\n" },
+
+       { "2,_SUBSCZ\n",
+"      popr    $0x03\n\
+       cmpl    r0,r1\n\
+       jlequ   1f\n\
+       pushl   r0\n\
+       pushl   $_ESUBSC\n\
+       calls   $2,_ERROR\n\
+1:\n" },
+#endif vax
+
+#ifdef mc68000
+
+/*
+ * General Pascal library routines
+ */
+       { "_ACTFILE\n",
+"      movl    sp@,a0\n\
+       movl    a0@(12),d0\n" },
+
+       { "_ADDT\n",
+"      movl    a2,sp@-\n\
+       movl    sp@(8),a2\n\
+       movl    sp@(12),a1\n\
+       movl    sp@(4),a0\n\
+       movl    sp@(16),d1\n\
+       subql   #1,d1\n\
+1:\n\
+       movl    a2@+,d0\n\
+       orl     a1@+,d0\n\
+       movl    d0,a0@+\n\
+       dbra    d1,1b\n\
+       movl    sp@+,a2\n\
+       movl    sp@,d0\n" },
+
+       { "_SUBT\n",
+"      movl    a2,sp@-\n\
+       movl    sp@(8),a2\n\
+       movl    sp@(12),a1\n\
+       movl    sp@(4),a0\n\
+       movl    sp@(16),d1\n\
+       subql   #1,d1\n\
+1:\n\
+       movl    a1@+,d0\n\
+       notl    d0\n\
+       andl    a2@+,d0\n\
+       movl    d0,a0@+\n\
+       dbra    d1,1b\n\
+       movl    sp@+,a2\n\
+       movl    sp@,d0\n" },
+
+       { "_MULT\n",
+"      movl    a2,sp@-\n\
+       movl    sp@(8),a2\n\
+       movl    sp@(12),a1\n\
+       movl    sp@(4),a0\n\
+       movl    sp@(16),d1\n\
+       subql   #1,d1\n\
+1:\n\
+       movl    a2@+,d0\n\
+       andl    a1@+,d0\n\
+       movl    d0,a0@+\n\
+       dbra    d1,1b\n\
+       movl    sp@+,a2\n\
+       movl    sp@,d0\n" },
+
+       { "_IN\n",
+"      movl    sp@,d1\n\
+       subl    sp@(4),d1\n\
+       cmpl    sp@(8),d1\n\
+       jbhi    1f\n\
+       movl    sp@(12),a0\n\
+       movl    d1,d0\n\
+       lsrl    #3,d0\n\
+       btst    d1,a0@(0,d0:l)\n\
+       jbne    1f\n\
+       moveq   #1,d0\n\
+       jbra    2f\n\
+1:\n\
+       moveq   #0,d0\n\
+2:\n" },
+#endif mc68000
+
 };
 
 struct pats            *htbl[HSHSIZ];
 
 
 };
 
 struct pats            *htbl[HSHSIZ];
 
 
-#define        CHK(c)  if (*cp++ != c) goto copy;
-
 #define HASH(cp, hp) {\
        hash = 0; rehash = 1; ccp = cp; \
        do      { \
 #define HASH(cp, hp) {\
        hash = 0; rehash = 1; ccp = cp; \
        do      { \
@@ -314,9 +487,10 @@ main(argc, argv)
 {
        register struct pats    *pp;
        register struct pats    **hp;
 {
        register struct pats    *pp;
        register struct pats    **hp;
-       register char           *cp, *ccp;
+       register char           *cp, *ccp, *lp;
        register int            hash, rehash, size;
        char                    line[BUFSIZ];
        register int            hash, rehash, size;
        char                    line[BUFSIZ];
+       extern char             *index();
 
        if (argc > 1)
                freopen(argv[1], "r", stdin);
 
        if (argc > 1)
                freopen(argv[1], "r", stdin);
@@ -335,19 +509,27 @@ main(argc, argv)
         * check each line and replace as appropriate
         */
        while (fgets(line, BUFSIZ, stdin)) {
         * check each line and replace as appropriate
         */
        while (fgets(line, BUFSIZ, stdin)) {
-               for (cp = line; *cp && *cp == '\t'; )
+               lp = index(line, ':');
+               for (cp = (lp != NULL) ? ++lp : line; *cp == '\t'; )
                        cp++;
                        cp++;
-               CHK('c'); CHK('a'); CHK('l'); CHK('l'); CHK('s'); CHK('\t');
-               CHK('$'); if (!isdigit(*cp++)) goto copy; CHK(','); CHK('_');
+               if (strcmpn(cp, CALLTEMPLATE, TEMPLATESIZE) != 0) {
+                       fputs(line, stdout);
+                       continue;
+               }
+               cp += TEMPLATESIZE;
                HASH(cp, hp);
                while (*hp) {
                HASH(cp, hp);
                while (*hp) {
-                       if (RELEQ(size, (*hp)->name, cp)) {
+                       if (strcmpn((*hp)->name, cp, size)==NULL) {
+                               if (lp != NULL) {
+                                       *lp++ = '\n';
+                                       *lp = '\0';
+                                       fputs(line, stdout);
+                               }
                                fputs((*hp)->replace, stdout);
                                goto nextline;
                        }
                        REHASH(hp);
                }
                                fputs((*hp)->replace, stdout);
                                goto nextline;
                        }
                        REHASH(hp);
                }
-copy:
                fputs(line, stdout);
 nextline:;
        }
                fputs(line, stdout);
 nextline:;
        }
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.