written by Kirk McKusick; add Berkeley specific copyright notice

SCCS-vsn: usr.bin/pascal/libpc/CTTOT.c 1.6
SCCS-vsn: usr.bin/pascal/libpc/ACTFILE.c 1.2
SCCS-vsn: usr.bin/pascal/libpc/ADDT.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/APPEND.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/ARGV.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/ASRT.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/ASRTS.c 1.2
SCCS-vsn: usr.bin/pascal/libpc/ATAN.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/BUFF.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/CARD.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/CASERNG.c 1.2
SCCS-vsn: usr.bin/pascal/libpc/CATCHERR.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/CHR.c 1.6
SCCS-vsn: usr.bin/pascal/libpc/CLCK.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/COS.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/DATE.c 1.2
SCCS-vsn: usr.bin/pascal/libpc/DEFNAME.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/DFDISPOSE.c 4.4
SCCS-vsn: usr.bin/pascal/libpc/DISPOSE.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/ERROR.c 1.11
SCCS-vsn: usr.bin/pascal/libpc/EXCEPT.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/EXP.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/EXPO.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/FCALL.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/FLUSH.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/FNIL.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/FRTN.c 1.6
SCCS-vsn: usr.bin/pascal/libpc/FSAV.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/GET.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/GETNAME.c 1.13
SCCS-vsn: usr.bin/pascal/libpc/HALT.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/IN.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/INCT.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/IOSYNC.c 1.6
SCCS-vsn: usr.bin/pascal/libpc/LINO.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/LLIMIT.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/LN.c 1.6
SCCS-vsn: usr.bin/pascal/libpc/MAX.c 1.6
SCCS-vsn: usr.bin/pascal/libpc/MULT.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/NAM.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/NEW.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/NIL.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/PACK.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/PAGE.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/PCEXIT.c 1.2
SCCS-vsn: usr.bin/pascal/libpc/PCLOSE.c 1.7
SCCS-vsn: usr.bin/pascal/libpc/PCSTART.c 1.9
SCCS-vsn: usr.bin/pascal/libpc/PERROR.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/PFCLOSE.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/PFLUSH.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/PMFLUSH.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/PRED.c 1.6
SCCS-vsn: usr.bin/pascal/libpc/PUT.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/RANDOM.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/RANG4.c 1.6
SCCS-vsn: usr.bin/pascal/libpc/READ4.c 1.10
SCCS-vsn: usr.bin/pascal/libpc/READ8.c 1.11
SCCS-vsn: usr.bin/pascal/libpc/READC.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/READE.c 1.8
SCCS-vsn: usr.bin/pascal/libpc/READLN.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/RELEQ.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/RELNE.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/RELSGE.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/RELSGT.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/RELSLE.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/RELSLT.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/RELTGE.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/RELTGT.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/RELTLE.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/RELTLT.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/REMOVE.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/RESET.c 1.9
SCCS-vsn: usr.bin/pascal/libpc/REWRITE.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/ROUND.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/RSNG4.c 1.6
SCCS-vsn: usr.bin/pascal/libpc/SCLCK.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/SEED.c 1.6
SCCS-vsn: usr.bin/pascal/libpc/SEEK.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/SIN.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/SQRT.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/STLIM.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/SUBSC.c 1.6
SCCS-vsn: usr.bin/pascal/libpc/SUBSCZ.c 1.6
SCCS-vsn: usr.bin/pascal/libpc/SUBT.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/SUCC.c 1.6
SCCS-vsn: usr.bin/pascal/libpc/TELL.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/TEOF.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/TEOLN.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/TIME.c 1.2
SCCS-vsn: usr.bin/pascal/libpc/TRUNC.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/UNIT.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/UNPACK.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/UNSYNC.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/VWRITEF.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/WRITEC.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/WRITEF.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/WRITES.c 1.5
SCCS-vsn: usr.bin/pascal/libpc/WRITLN.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/blkclr.c 1.3
SCCS-vsn: usr.bin/pascal/libpc/blkcpy.c 1.4
SCCS-vsn: usr.bin/pascal/libpc/h00vars.h 1.12
SCCS-vsn: usr.bin/pascal/libpc/libpc.h 1.9

diff --git a/usr/src/usr.bin/pascal/libpc/ACTFILE.c b/usr/src/usr.bin/pascal/libpc/ACTFILE.c
index 6de8c60..4ed6f80 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/ACTFILE.c
+++ b/usr/src/usr.bin/pascal/libpc/ACTFILE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)ACTFILE.c 1.1 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)ACTFILE.c  1.2 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/ADDT.c b/usr/src/usr.bin/pascal/libpc/ADDT.c
index 9642285..18f2b6c 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/ADDT.c
+++ b/usr/src/usr.bin/pascal/libpc/ADDT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)ADDT.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)ADDT.c     1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 long *
 ADDT(result0, left, right, siz)
 
 long *
 ADDT(result0, left, right, siz)

diff --git a/usr/src/usr.bin/pascal/libpc/APPEND.c b/usr/src/usr.bin/pascal/libpc/APPEND.c
index 4c0e1a2..d2f747b 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/APPEND.c
+++ b/usr/src/usr.bin/pascal/libpc/APPEND.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)APPEND.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)APPEND.c   1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/ARGV.c b/usr/src/usr.bin/pascal/libpc/ARGV.c
index ace4efb..53b2922 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/ARGV.c
+++ b/usr/src/usr.bin/pascal/libpc/ARGV.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)ARGV.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)ARGV.c     1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/ASRT.c b/usr/src/usr.bin/pascal/libpc/ASRT.c
index 16322a1..ca319a7 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/ASRT.c
+++ b/usr/src/usr.bin/pascal/libpc/ASRT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)ASRT.c 1.3 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)ASRT.c     1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 char EASRT[] = "Assertion failed\n";
 
 
 char EASRT[] = "Assertion failed\n";
 

diff --git a/usr/src/usr.bin/pascal/libpc/ASRTS.c b/usr/src/usr.bin/pascal/libpc/ASRTS.c
index f869cb8..3d43395 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/ASRTS.c
+++ b/usr/src/usr.bin/pascal/libpc/ASRTS.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1982 Regents of the University of California */
+/*-
+ * Copyright (c) 1982 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)ASRTS.c 1.1 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)ASRTS.c    1.2 (Berkeley) %G%";
+#endif /* not lint */

 
 char EASRTS[] = "Assertion failed: %s\n";
 
 
 char EASRTS[] = "Assertion failed: %s\n";
 

diff --git a/usr/src/usr.bin/pascal/libpc/ATAN.c b/usr/src/usr.bin/pascal/libpc/ATAN.c
index 852c4f7..5c8ef5a 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/ATAN.c
+++ b/usr/src/usr.bin/pascal/libpc/ATAN.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1982 Regents of the University of California */
+/*-
+ * Copyright (c) 1982 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)ATAN.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)ATAN.c     1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include <math.h>
 extern int errno;
 
 #include <math.h>
 extern int errno;

diff --git a/usr/src/usr.bin/pascal/libpc/BUFF.c b/usr/src/usr.bin/pascal/libpc/BUFF.c
index 77628e3..6d889bb 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/BUFF.c
+++ b/usr/src/usr.bin/pascal/libpc/BUFF.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)BUFF.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)BUFF.c     1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/CARD.c b/usr/src/usr.bin/pascal/libpc/CARD.c
index b9daa9c..f75a7ef 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/CARD.c
+++ b/usr/src/usr.bin/pascal/libpc/CARD.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)CARD.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)CARD.c     1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 char _cntbl[] = {
        0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 4,
 
 char _cntbl[] = {
        0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 4,

diff --git a/usr/src/usr.bin/pascal/libpc/CASERNG.c b/usr/src/usr.bin/pascal/libpc/CASERNG.c
index 5057725..6e00cc1 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/CASERNG.c
+++ b/usr/src/usr.bin/pascal/libpc/CASERNG.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1982 Regents of the University of California */
+/*-
+ * Copyright (c) 1982 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)CASERNG.c 1.1 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)CASERNG.c  1.2 (Berkeley) %G%";
+#endif /* not lint */

 
 CASERNG(val)
        int val;
 
 CASERNG(val)
        int val;

diff --git a/usr/src/usr.bin/pascal/libpc/CATCHERR.c b/usr/src/usr.bin/pascal/libpc/CATCHERR.c
index 030f027..bbc15e9 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/CATCHERR.c
+++ b/usr/src/usr.bin/pascal/libpc/CATCHERR.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)CATCHERR.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)CATCHERR.c 1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/CHR.c b/usr/src/usr.bin/pascal/libpc/CHR.c
index 61108cb..8fc7470 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/CHR.c
+++ b/usr/src/usr.bin/pascal/libpc/CHR.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)CHR.c 1.5 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)CHR.c      1.6 (Berkeley) %G%";
+#endif /* not lint */

 
 char ECHR[] = "Argument to chr of %D is out of range\n";
 
 
 char ECHR[] = "Argument to chr of %D is out of range\n";
 

diff --git a/usr/src/usr.bin/pascal/libpc/CLCK.c b/usr/src/usr.bin/pascal/libpc/CLCK.c
index 334c0b2..49a54a1 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/CLCK.c
+++ b/usr/src/usr.bin/pascal/libpc/CLCK.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)CLCK.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)CLCK.c     1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 long
 CLCK()
 
 long
 CLCK()

diff --git a/usr/src/usr.bin/pascal/libpc/COS.c b/usr/src/usr.bin/pascal/libpc/COS.c
index 28dbaec..013f171 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/COS.c
+++ b/usr/src/usr.bin/pascal/libpc/COS.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1982 Regents of the University of California */
+/*-
+ * Copyright (c) 1982 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)COS.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)COS.c      1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include <math.h>
 extern int errno;
 
 #include <math.h>
 extern int errno;

diff --git a/usr/src/usr.bin/pascal/libpc/CTTOT.c b/usr/src/usr.bin/pascal/libpc/CTTOT.c
index 6ea6134..a0e5e9c 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/CTTOT.c
+++ b/usr/src/usr.bin/pascal/libpc/CTTOT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)CTTOT.c 1.5 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)CTTOT.c    1.6 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "whoami.h"
 #include "h00vars.h"
 
 #include "whoami.h"
 #include "h00vars.h"

diff --git a/usr/src/usr.bin/pascal/libpc/DATE.c b/usr/src/usr.bin/pascal/libpc/DATE.c
index f0540e1..8835c0e 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/DATE.c
+++ b/usr/src/usr.bin/pascal/libpc/DATE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)DATE.c 1.1 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)DATE.c     1.2 (Berkeley) %G%";
+#endif /* not lint */

 
 char   _pd_date[] = {
        8, 9, 10, 4, 5, 6, 10, 22, 23, 10, 0
 
 char   _pd_date[] = {
        8, 9, 10, 4, 5, 6, 10, 22, 23, 10, 0

diff --git a/usr/src/usr.bin/pascal/libpc/DEFNAME.c b/usr/src/usr.bin/pascal/libpc/DEFNAME.c
index 21bc137..7e63136 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/DEFNAME.c
+++ b/usr/src/usr.bin/pascal/libpc/DEFNAME.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)DEFNAME.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)DEFNAME.c  1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/DFDISPOSE.c b/usr/src/usr.bin/pascal/libpc/DFDISPOSE.c
index 7a73bd5..95b6a15 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/DFDISPOSE.c
+++ b/usr/src/usr.bin/pascal/libpc/DFDISPOSE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1982 Regents of the University of California */
+/*-
+ * Copyright (c) 1982 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)DFDISPOSE.c        4.3     (Berkeley)      %G%";
+#ifndef lint
+static char sccsid[] = "@(#)DFDISPOSE.c        4.4 (Berkeley) %G%";
+#endif /* not lint */

 
 /*
  * Close all active files within a dynamic record,
 
 /*
  * Close all active files within a dynamic record,

diff --git a/usr/src/usr.bin/pascal/libpc/DISPOSE.c b/usr/src/usr.bin/pascal/libpc/DISPOSE.c
index ce55404..fc86cc6 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/DISPOSE.c
+++ b/usr/src/usr.bin/pascal/libpc/DISPOSE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)DISPOSE.c 1.3 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)DISPOSE.c  1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 #include       "h00vars.h"
 
 
 #include       "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/ERROR.c b/usr/src/usr.bin/pascal/libpc/ERROR.c
index 9fc3cea..9894811 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/ERROR.c
+++ b/usr/src/usr.bin/pascal/libpc/ERROR.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)ERROR.c 1.10 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)ERROR.c    1.11 (Berkeley) %G%";
+#endif /* not lint */

 
 #include       <stdio.h>
 #include       <signal.h>
 
 #include       <stdio.h>
 #include       <signal.h>

diff --git a/usr/src/usr.bin/pascal/libpc/EXCEPT.c b/usr/src/usr.bin/pascal/libpc/EXCEPT.c
index bba5693..e8a4c9c 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/EXCEPT.c
+++ b/usr/src/usr.bin/pascal/libpc/EXCEPT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1982 Regents of the University of California */
+/*-
+ * Copyright (c) 1982 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)EXCEPT.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)EXCEPT.c   1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include       <signal.h>
 
 
 #include       <signal.h>
 

diff --git a/usr/src/usr.bin/pascal/libpc/EXP.c b/usr/src/usr.bin/pascal/libpc/EXP.c
index 59988cf..272b706 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/EXP.c
+++ b/usr/src/usr.bin/pascal/libpc/EXP.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1982 Regents of the University of California */
+/*-
+ * Copyright (c) 1982 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)EXP.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)EXP.c      1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include <math.h>
 extern int errno;
 
 #include <math.h>
 extern int errno;

diff --git a/usr/src/usr.bin/pascal/libpc/EXPO.c b/usr/src/usr.bin/pascal/libpc/EXPO.c
index 46f2988..894b382 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/EXPO.c
+++ b/usr/src/usr.bin/pascal/libpc/EXPO.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)EXPO.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)EXPO.c     1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 long
 EXPO(value)
 
 long
 EXPO(value)

diff --git a/usr/src/usr.bin/pascal/libpc/FCALL.c b/usr/src/usr.bin/pascal/libpc/FCALL.c
index 0f97d94..ce9f31d 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/FCALL.c
+++ b/usr/src/usr.bin/pascal/libpc/FCALL.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)FCALL.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)FCALL.c    1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/FLUSH.c b/usr/src/usr.bin/pascal/libpc/FLUSH.c
index cbd9fbc..fda67fa 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/FLUSH.c
+++ b/usr/src/usr.bin/pascal/libpc/FLUSH.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)FLUSH.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)FLUSH.c    1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/FNIL.c b/usr/src/usr.bin/pascal/libpc/FNIL.c
index 2871cd6..fde0f23 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/FNIL.c
+++ b/usr/src/usr.bin/pascal/libpc/FNIL.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)FNIL.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)FNIL.c     1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/FRTN.c b/usr/src/usr.bin/pascal/libpc/FRTN.c
index 940a3cd..9ddb3f9 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/FRTN.c
+++ b/usr/src/usr.bin/pascal/libpc/FRTN.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)FRTN.c 1.5 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)FRTN.c     1.6 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/FSAV.c b/usr/src/usr.bin/pascal/libpc/FSAV.c
index f299684..0d5369d 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/FSAV.c
+++ b/usr/src/usr.bin/pascal/libpc/FSAV.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)FSAV.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)FSAV.c     1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/GET.c b/usr/src/usr.bin/pascal/libpc/GET.c
index a21d9af..304ae3f 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/GET.c
+++ b/usr/src/usr.bin/pascal/libpc/GET.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)GET.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)GET.c      1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/GETNAME.c b/usr/src/usr.bin/pascal/libpc/GETNAME.c
index 255aaef..3cdd59c 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/GETNAME.c
+++ b/usr/src/usr.bin/pascal/libpc/GETNAME.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)GETNAME.c 1.12 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)GETNAME.c  1.13 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 #include "libpc.h"
 
 #include "h00vars.h"
 #include "libpc.h"

diff --git a/usr/src/usr.bin/pascal/libpc/HALT.c b/usr/src/usr.bin/pascal/libpc/HALT.c
index 79000ba..af1d1bb 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/HALT.c
+++ b/usr/src/usr.bin/pascal/libpc/HALT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)HALT.c 1.3 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)HALT.c     1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/IN.c b/usr/src/usr.bin/pascal/libpc/IN.c
index 10dbc91..a61e76a 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/IN.c
+++ b/usr/src/usr.bin/pascal/libpc/IN.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)IN.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)IN.c       1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/INCT.c b/usr/src/usr.bin/pascal/libpc/INCT.c
index f0e2d40..3059f58 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/INCT.c
+++ b/usr/src/usr.bin/pascal/libpc/INCT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)INCT.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)INCT.c     1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/IOSYNC.c b/usr/src/usr.bin/pascal/libpc/IOSYNC.c
index 1d7f361..bae9078 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/IOSYNC.c
+++ b/usr/src/usr.bin/pascal/libpc/IOSYNC.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)IOSYNC.c 1.5 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)IOSYNC.c   1.6 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/LINO.c b/usr/src/usr.bin/pascal/libpc/LINO.c
index 0f01b89..4e6829b 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/LINO.c
+++ b/usr/src/usr.bin/pascal/libpc/LINO.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)LINO.c 1.3 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)LINO.c     1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/LLIMIT.c b/usr/src/usr.bin/pascal/libpc/LLIMIT.c
index 4e07ca6..595d35e 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/LLIMIT.c
+++ b/usr/src/usr.bin/pascal/libpc/LLIMIT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)LLIMIT.c 1.3 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)LLIMIT.c   1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/LN.c b/usr/src/usr.bin/pascal/libpc/LN.c
index 1507a9b..6d6dccc 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/LN.c
+++ b/usr/src/usr.bin/pascal/libpc/LN.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)LN.c 1.5 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)LN.c       1.6 (Berkeley) %G%";
+#endif /* not lint */

 
 #include <math.h>
 
 
 #include <math.h>
 

diff --git a/usr/src/usr.bin/pascal/libpc/MAX.c b/usr/src/usr.bin/pascal/libpc/MAX.c
index e556d60..d7f6564 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/MAX.c
+++ b/usr/src/usr.bin/pascal/libpc/MAX.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)MAX.c 1.5 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)MAX.c      1.6 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/MULT.c b/usr/src/usr.bin/pascal/libpc/MULT.c
index 1f3d95c..3654d99 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/MULT.c
+++ b/usr/src/usr.bin/pascal/libpc/MULT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)MULT.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)MULT.c     1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 long *
 MULT(result0, left, right, siz)
 
 long *
 MULT(result0, left, right, siz)

diff --git a/usr/src/usr.bin/pascal/libpc/NAM.c b/usr/src/usr.bin/pascal/libpc/NAM.c
index 510e0cf..c27ec29 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/NAM.c
+++ b/usr/src/usr.bin/pascal/libpc/NAM.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)NAM.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)NAM.c      1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/NEW.c b/usr/src/usr.bin/pascal/libpc/NEW.c
index 9ff8f8e..76f9317 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/NEW.c
+++ b/usr/src/usr.bin/pascal/libpc/NEW.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)NEW.c 1.3 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)NEW.c      1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/NIL.c b/usr/src/usr.bin/pascal/libpc/NIL.c
index 3f82faa..cc2b702 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/NIL.c
+++ b/usr/src/usr.bin/pascal/libpc/NIL.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)NIL.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)NIL.c      1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/PACK.c b/usr/src/usr.bin/pascal/libpc/PACK.c
index 2293fc1..ecfc869 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PACK.c
+++ b/usr/src/usr.bin/pascal/libpc/PACK.c
@@ -1,7 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
-
-static char sccsid[] = "@(#)PACK.c 1.3 %G%";
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

+#ifndef lint
+static char sccsid[] = "@(#)PACK.c     1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 /*
  * pack(a,i,z)
 
 /*
  * pack(a,i,z)

diff --git a/usr/src/usr.bin/pascal/libpc/PAGE.c b/usr/src/usr.bin/pascal/libpc/PAGE.c
index dc10915..8a35d8d 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PAGE.c
+++ b/usr/src/usr.bin/pascal/libpc/PAGE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)PAGE.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)PAGE.c     1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/PCEXIT.c b/usr/src/usr.bin/pascal/libpc/PCEXIT.c
index 738d98a..0bb2cc2 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PCEXIT.c
+++ b/usr/src/usr.bin/pascal/libpc/PCEXIT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)PCEXIT.c 1.1 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)PCEXIT.c   1.2 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/PCLOSE.c b/usr/src/usr.bin/pascal/libpc/PCLOSE.c
index 3cfe9be..5bc0af1 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PCLOSE.c
+++ b/usr/src/usr.bin/pascal/libpc/PCLOSE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)PCLOSE.c 1.6 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)PCLOSE.c   1.7 (Berkeley) %G%";
+#endif /* not lint */

 
 /*
  * Close all files associated with the topmost stack frame.
 
 /*
  * Close all files associated with the topmost stack frame.

diff --git a/usr/src/usr.bin/pascal/libpc/PCSTART.c b/usr/src/usr.bin/pascal/libpc/PCSTART.c
index a537e9d..dd824fb 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PCSTART.c
+++ b/usr/src/usr.bin/pascal/libpc/PCSTART.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)PCSTART.c 1.8 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)PCSTART.c  1.9 (Berkeley) %G%";
+#endif /* not lint */

 
 #include <signal.h>
 #include "h00vars.h"
 
 #include <signal.h>
 #include "h00vars.h"

diff --git a/usr/src/usr.bin/pascal/libpc/PERROR.c b/usr/src/usr.bin/pascal/libpc/PERROR.c
index c0c1fcf..85ee11d 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PERROR.c
+++ b/usr/src/usr.bin/pascal/libpc/PERROR.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)PERROR.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)PERROR.c   1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include       <stdio.h>
 #include       <signal.h>
 
 #include       <stdio.h>
 #include       <signal.h>

diff --git a/usr/src/usr.bin/pascal/libpc/PFCLOSE.c b/usr/src/usr.bin/pascal/libpc/PFCLOSE.c
index ea5de73..ab18bba 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PFCLOSE.c
+++ b/usr/src/usr.bin/pascal/libpc/PFCLOSE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1982 Regents of the University of California */
+/*-
+ * Copyright (c) 1982 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)PFCLOSE.c  1.3     (Berkeley)      %G%";
+#ifndef lint
+static char sccsid[] = "@(#)PFCLOSE.c  1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 /*
  * Close a Pascal file deallocating resources as appropriate.
 
 /*
  * Close a Pascal file deallocating resources as appropriate.

diff --git a/usr/src/usr.bin/pascal/libpc/PFLUSH.c b/usr/src/usr.bin/pascal/libpc/PFLUSH.c
index 04c1516..37627d7 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PFLUSH.c
+++ b/usr/src/usr.bin/pascal/libpc/PFLUSH.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)PFLUSH.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)PFLUSH.c   1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/PMFLUSH.c b/usr/src/usr.bin/pascal/libpc/PMFLUSH.c
index 44a6aa2..f23dc10 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PMFLUSH.c
+++ b/usr/src/usr.bin/pascal/libpc/PMFLUSH.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)PMFLUSH.c 1.3 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)PMFLUSH.c  1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/PRED.c b/usr/src/usr.bin/pascal/libpc/PRED.c
index 55abb6b..e19d034 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PRED.c
+++ b/usr/src/usr.bin/pascal/libpc/PRED.c
@@ -1,7 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
-
-static char sccsid[] = "@(#)PRED.c 1.5 %G%";
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

+#ifndef lint
+static char sccsid[] = "@(#)PRED.c     1.6 (Berkeley) %G%";
+#endif /* not lint */

 
 long
 PRED(value, lower, upper)
 
 long
 PRED(value, lower, upper)

diff --git a/usr/src/usr.bin/pascal/libpc/PUT.c b/usr/src/usr.bin/pascal/libpc/PUT.c
index 4009dfd..dddc9fc 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/PUT.c
+++ b/usr/src/usr.bin/pascal/libpc/PUT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)PUT.c 1.3 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)PUT.c      1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/RANDOM.c b/usr/src/usr.bin/pascal/libpc/RANDOM.c
index 5fe3edc..6144659 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RANDOM.c
+++ b/usr/src/usr.bin/pascal/libpc/RANDOM.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RANDOM.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RANDOM.c   1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/RANG4.c b/usr/src/usr.bin/pascal/libpc/RANG4.c
index 5df35ac..c40ac11 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RANG4.c
+++ b/usr/src/usr.bin/pascal/libpc/RANG4.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RANG4.c 1.5 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RANG4.c    1.6 (Berkeley) %G%";
+#endif /* not lint */

 
 char ERANG[] = "Value of %D is out of range\n";
 
 
 char ERANG[] = "Value of %D is out of range\n";
 

diff --git a/usr/src/usr.bin/pascal/libpc/READ4.c b/usr/src/usr.bin/pascal/libpc/READ4.c
index f91273f..ccbbca4 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/READ4.c
+++ b/usr/src/usr.bin/pascal/libpc/READ4.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)READ4.c 1.9 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)READ4.c    1.10 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 #include <errno.h>
 
 #include "h00vars.h"
 #include <errno.h>

diff --git a/usr/src/usr.bin/pascal/libpc/READ8.c b/usr/src/usr.bin/pascal/libpc/READ8.c
index 99cdd60..3beea1b 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/READ8.c
+++ b/usr/src/usr.bin/pascal/libpc/READ8.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)READ8.c 1.10 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)READ8.c    1.11 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 #include <errno.h>
 
 #include "h00vars.h"
 #include <errno.h>

diff --git a/usr/src/usr.bin/pascal/libpc/READC.c b/usr/src/usr.bin/pascal/libpc/READC.c
index e218efe..ac241e1 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/READC.c
+++ b/usr/src/usr.bin/pascal/libpc/READC.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)READC.c 1.3 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)READC.c    1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/READE.c b/usr/src/usr.bin/pascal/libpc/READE.c
index e8f6f16..3e75302 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/READE.c
+++ b/usr/src/usr.bin/pascal/libpc/READE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)READE.c 1.7 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)READE.c    1.8 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/READLN.c b/usr/src/usr.bin/pascal/libpc/READLN.c
index 2caf783..8af5973 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/READLN.c
+++ b/usr/src/usr.bin/pascal/libpc/READLN.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)READLN.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)READLN.c   1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/RELEQ.c b/usr/src/usr.bin/pascal/libpc/RELEQ.c
index 4703f27..3d9ba29 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RELEQ.c
+++ b/usr/src/usr.bin/pascal/libpc/RELEQ.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RELEQ.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RELEQ.c    1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/RELNE.c b/usr/src/usr.bin/pascal/libpc/RELNE.c
index 721db80..c61ed4c 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RELNE.c
+++ b/usr/src/usr.bin/pascal/libpc/RELNE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RELNE.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RELNE.c    1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/RELSGE.c b/usr/src/usr.bin/pascal/libpc/RELSGE.c
index 8c895ac..044d6d4 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RELSGE.c
+++ b/usr/src/usr.bin/pascal/libpc/RELSGE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RELSGE.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RELSGE.c   1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/RELSGT.c b/usr/src/usr.bin/pascal/libpc/RELSGT.c
index 492ccae..e554b12 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RELSGT.c
+++ b/usr/src/usr.bin/pascal/libpc/RELSGT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RELSGT.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RELSGT.c   1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/RELSLE.c b/usr/src/usr.bin/pascal/libpc/RELSLE.c
index 5864ed9..52005e0 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RELSLE.c
+++ b/usr/src/usr.bin/pascal/libpc/RELSLE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RELSLE.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RELSLE.c   1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/RELSLT.c b/usr/src/usr.bin/pascal/libpc/RELSLT.c
index 15994bd..6a4ffdb 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RELSLT.c
+++ b/usr/src/usr.bin/pascal/libpc/RELSLT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RELSLT.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RELSLT.c   1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/RELTGE.c b/usr/src/usr.bin/pascal/libpc/RELTGE.c
index 75f7da7..83bb743 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RELTGE.c
+++ b/usr/src/usr.bin/pascal/libpc/RELTGE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RELTGE.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RELTGE.c   1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/RELTGT.c b/usr/src/usr.bin/pascal/libpc/RELTGT.c
index 56b11a9..27a9eca 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RELTGT.c
+++ b/usr/src/usr.bin/pascal/libpc/RELTGT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RELTGT.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RELTGT.c   1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/RELTLE.c b/usr/src/usr.bin/pascal/libpc/RELTLE.c
index 1fa74e3..dc08705 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RELTLE.c
+++ b/usr/src/usr.bin/pascal/libpc/RELTLE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RELTLE.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RELTLE.c   1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/RELTLT.c b/usr/src/usr.bin/pascal/libpc/RELTLT.c
index b888cfc..c7a48ea 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RELTLT.c
+++ b/usr/src/usr.bin/pascal/libpc/RELTLT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RELTLT.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RELTLT.c   1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/REMOVE.c b/usr/src/usr.bin/pascal/libpc/REMOVE.c
index d3dbcbc..dc99cec 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/REMOVE.c
+++ b/usr/src/usr.bin/pascal/libpc/REMOVE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)REMOVE.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)REMOVE.c   1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/RESET.c b/usr/src/usr.bin/pascal/libpc/RESET.c
index 8551a05..c6c1d82 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RESET.c
+++ b/usr/src/usr.bin/pascal/libpc/RESET.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RESET.c 1.8 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RESET.c    1.9 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/REWRITE.c b/usr/src/usr.bin/pascal/libpc/REWRITE.c
index c925a03..fbb9d09 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/REWRITE.c
+++ b/usr/src/usr.bin/pascal/libpc/REWRITE.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)REWRITE.c 1.3 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)REWRITE.c  1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/ROUND.c b/usr/src/usr.bin/pascal/libpc/ROUND.c
index 8b60be0..42f587c 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/ROUND.c
+++ b/usr/src/usr.bin/pascal/libpc/ROUND.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)ROUND.c 1.3 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)ROUND.c    1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 long
 ROUND(value)
 
 long
 ROUND(value)

diff --git a/usr/src/usr.bin/pascal/libpc/RSNG4.c b/usr/src/usr.bin/pascal/libpc/RSNG4.c
index acecb86..20a4d2d 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/RSNG4.c
+++ b/usr/src/usr.bin/pascal/libpc/RSNG4.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)RSNG4.c 1.5 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)RSNG4.c    1.6 (Berkeley) %G%";
+#endif /* not lint */

 
 extern char ERANG[];   /* ERANG is defined in RANG4.c */
 
 
 extern char ERANG[];   /* ERANG is defined in RANG4.c */
 

diff --git a/usr/src/usr.bin/pascal/libpc/SCLCK.c b/usr/src/usr.bin/pascal/libpc/SCLCK.c
index 5687a9c..6e48ec4 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/SCLCK.c
+++ b/usr/src/usr.bin/pascal/libpc/SCLCK.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)SCLCK.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)SCLCK.c    1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 long
 SCLCK()
 
 long
 SCLCK()

diff --git a/usr/src/usr.bin/pascal/libpc/SEED.c b/usr/src/usr.bin/pascal/libpc/SEED.c
index 6015505..fc6d01d 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/SEED.c
+++ b/usr/src/usr.bin/pascal/libpc/SEED.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)SEED.c 1.5 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)SEED.c     1.6 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/SEEK.c b/usr/src/usr.bin/pascal/libpc/SEEK.c
index af009a0..2bee567 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/SEEK.c
+++ b/usr/src/usr.bin/pascal/libpc/SEEK.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)SEEK.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)SEEK.c     1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/SIN.c b/usr/src/usr.bin/pascal/libpc/SIN.c
index 84c9242..20aad3a 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/SIN.c
+++ b/usr/src/usr.bin/pascal/libpc/SIN.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1982 Regents of the University of California */
+/*-
+ * Copyright (c) 1982 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)SIN.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)SIN.c      1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include <math.h>
 extern int errno;
 
 #include <math.h>
 extern int errno;

diff --git a/usr/src/usr.bin/pascal/libpc/SQRT.c b/usr/src/usr.bin/pascal/libpc/SQRT.c
index 9245b93..4bd89de 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/SQRT.c
+++ b/usr/src/usr.bin/pascal/libpc/SQRT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)SQRT.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)SQRT.c     1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include <math.h>
 
 
 #include <math.h>
 

diff --git a/usr/src/usr.bin/pascal/libpc/STLIM.c b/usr/src/usr.bin/pascal/libpc/STLIM.c
index 16163f6..0a48336 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/STLIM.c
+++ b/usr/src/usr.bin/pascal/libpc/STLIM.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)STLIM.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)STLIM.c    1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/SUBSC.c b/usr/src/usr.bin/pascal/libpc/SUBSC.c
index 15e3d51..7177a9d 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/SUBSC.c
+++ b/usr/src/usr.bin/pascal/libpc/SUBSC.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)SUBSC.c 1.5 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)SUBSC.c    1.6 (Berkeley) %G%";
+#endif /* not lint */

 
 char ESUBSC[] = "Subscript value of %D is out of range\n";
 
 
 char ESUBSC[] = "Subscript value of %D is out of range\n";
 

diff --git a/usr/src/usr.bin/pascal/libpc/SUBSCZ.c b/usr/src/usr.bin/pascal/libpc/SUBSCZ.c
index 1a5c1d7..b4c2478 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/SUBSCZ.c
+++ b/usr/src/usr.bin/pascal/libpc/SUBSCZ.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)SUBSCZ.c 1.5 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)SUBSCZ.c   1.6 (Berkeley) %G%";
+#endif /* not lint */

 
 extern char ESUBSC[];  /* ESUBSC is defined in SUBSCZ.c */
 
 
 extern char ESUBSC[];  /* ESUBSC is defined in SUBSCZ.c */
 

diff --git a/usr/src/usr.bin/pascal/libpc/SUBT.c b/usr/src/usr.bin/pascal/libpc/SUBT.c
index dabed54..8fdd32b 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/SUBT.c
+++ b/usr/src/usr.bin/pascal/libpc/SUBT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)SUBT.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)SUBT.c     1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 long *
 SUBT(result0, left, right, siz)
 
 long *
 SUBT(result0, left, right, siz)

diff --git a/usr/src/usr.bin/pascal/libpc/SUCC.c b/usr/src/usr.bin/pascal/libpc/SUCC.c
index f6e43e4..7c25da2 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/SUCC.c
+++ b/usr/src/usr.bin/pascal/libpc/SUCC.c
@@ -1,7 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
-
-static char sccsid[] = "@(#)SUCC.c 1.5 %G%";
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

+#ifndef lint
+static char sccsid[] = "@(#)SUCC.c     1.6 (Berkeley) %G%";
+#endif /* not lint */

 
 long
 SUCC(value, lower, upper)
 
 long
 SUCC(value, lower, upper)

diff --git a/usr/src/usr.bin/pascal/libpc/TELL.c b/usr/src/usr.bin/pascal/libpc/TELL.c
index e1a3143..a2651f8 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/TELL.c
+++ b/usr/src/usr.bin/pascal/libpc/TELL.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)TELL.c 1.3 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)TELL.c     1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/TEOF.c b/usr/src/usr.bin/pascal/libpc/TEOF.c
index 5946304..3b8be36 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/TEOF.c
+++ b/usr/src/usr.bin/pascal/libpc/TEOF.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)TEOF.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)TEOF.c     1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/TEOLN.c b/usr/src/usr.bin/pascal/libpc/TEOLN.c
index de1f7bb..77dcd26 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/TEOLN.c
+++ b/usr/src/usr.bin/pascal/libpc/TEOLN.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)TEOLN.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)TEOLN.c    1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/TIME.c b/usr/src/usr.bin/pascal/libpc/TIME.c
index c5c2676..0ba26ea 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/TIME.c
+++ b/usr/src/usr.bin/pascal/libpc/TIME.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)TIME.c 1.1 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)TIME.c     1.2 (Berkeley) %G%";
+#endif /* not lint */

 
 extern char *ctime();
 
 
 extern char *ctime();
 

diff --git a/usr/src/usr.bin/pascal/libpc/TRUNC.c b/usr/src/usr.bin/pascal/libpc/TRUNC.c
index 67d5b8c..e389a17 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/TRUNC.c
+++ b/usr/src/usr.bin/pascal/libpc/TRUNC.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)TRUNC.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)TRUNC.c    1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 long
 TRUNC(value)
 
 long
 TRUNC(value)

diff --git a/usr/src/usr.bin/pascal/libpc/UNIT.c b/usr/src/usr.bin/pascal/libpc/UNIT.c
index 5ff7636..fe87e23 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/UNIT.c
+++ b/usr/src/usr.bin/pascal/libpc/UNIT.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)UNIT.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)UNIT.c     1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/UNPACK.c b/usr/src/usr.bin/pascal/libpc/UNPACK.c
index c971d4d..1e91b71 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/UNPACK.c
+++ b/usr/src/usr.bin/pascal/libpc/UNPACK.c
@@ -1,7 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
-
-static char sccsid[] = "@(#)UNPACK.c 1.3 %G%";
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

+#ifndef lint
+static char sccsid[] = "@(#)UNPACK.c   1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 /*
  * unpack(z,a,i)
 
 /*
  * unpack(z,a,i)

diff --git a/usr/src/usr.bin/pascal/libpc/UNSYNC.c b/usr/src/usr.bin/pascal/libpc/UNSYNC.c
index debbb40..b6bf24a 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/UNSYNC.c
+++ b/usr/src/usr.bin/pascal/libpc/UNSYNC.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)UNSYNC.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)UNSYNC.c   1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/VWRITEF.c b/usr/src/usr.bin/pascal/libpc/VWRITEF.c
index 1398467..b9a70fd 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/VWRITEF.c
+++ b/usr/src/usr.bin/pascal/libpc/VWRITEF.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1989 Regents of the University of California */
+/*-
+ * Copyright (c) 1989 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)VWRITEF.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)VWRITEF.c  1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/WRITEC.c b/usr/src/usr.bin/pascal/libpc/WRITEC.c
index 9bcc71d..fc9beb1 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/WRITEC.c
+++ b/usr/src/usr.bin/pascal/libpc/WRITEC.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)WRITEC.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)WRITEC.c   1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/WRITEF.c b/usr/src/usr.bin/pascal/libpc/WRITEF.c
index 599c7f4..08a31f1 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/WRITEF.c
+++ b/usr/src/usr.bin/pascal/libpc/WRITEF.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)WRITEF.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)WRITEF.c   1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/WRITES.c b/usr/src/usr.bin/pascal/libpc/WRITES.c
index 017e080..95288ec 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/WRITES.c
+++ b/usr/src/usr.bin/pascal/libpc/WRITES.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)WRITES.c 1.4 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)WRITES.c   1.5 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/WRITLN.c b/usr/src/usr.bin/pascal/libpc/WRITLN.c
index 077ce2e..f0e11b7 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/WRITLN.c
+++ b/usr/src/usr.bin/pascal/libpc/WRITLN.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)WRITLN.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)WRITLN.c   1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 #include "h00vars.h"
 
 
 #include "h00vars.h"
 

diff --git a/usr/src/usr.bin/pascal/libpc/blkclr.c b/usr/src/usr.bin/pascal/libpc/blkclr.c
index a098550..b3badd2 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/blkclr.c
+++ b/usr/src/usr.bin/pascal/libpc/blkclr.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)blkclr.c 1.2 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)blkclr.c   1.3 (Berkeley) %G%";
+#endif /* not lint */

 
 blkclr(at, siz)
        register char   *at;
 
 blkclr(at, siz)
        register char   *at;

diff --git a/usr/src/usr.bin/pascal/libpc/blkcpy.c b/usr/src/usr.bin/pascal/libpc/blkcpy.c
index f16171a..9a54382 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/blkcpy.c
+++ b/usr/src/usr.bin/pascal/libpc/blkcpy.c
@@ -1,6 +1,13 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 

-static char sccsid[] = "@(#)blkcpy.c 1.3 %G%";
+#ifndef lint
+static char sccsid[] = "@(#)blkcpy.c   1.4 (Berkeley) %G%";
+#endif /* not lint */

 
 blkcpy(from, to, siz)
        register char   *from;
 
 blkcpy(from, to, siz)
        register char   *from;

diff --git a/usr/src/usr.bin/pascal/libpc/h00vars.h b/usr/src/usr.bin/pascal/libpc/h00vars.h
index 11a4774..5a5e552 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/h00vars.h
+++ b/usr/src/usr.bin/pascal/libpc/h00vars.h
@@ -1,6 +1,11 @@
-/* Copyright (c) 1979 Regents of the University of California */
-
-/* sccsid[] = "@(#)h00vars.h 1.11 %G%"; */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ *
+ *     @(#)h00vars.h   1.12 (Berkeley) %G%
+ */

 
 #include <stdio.h>
 #include "whoami.h"
 
 #include <stdio.h>
 #include "whoami.h"

diff --git a/usr/src/usr.bin/pascal/libpc/libpc.h b/usr/src/usr.bin/pascal/libpc/libpc.h
index c447b0c..5585a2d 100644 (file)
--- a/usr/src/usr.bin/pascal/libpc/libpc.h
+++ b/usr/src/usr.bin/pascal/libpc/libpc.h
@@ -1,6 +1,11 @@
-/* Copyright (c) 1979 Regents of the University of California */
-
-/* static char sccsid[] = "@(#)libpc.h 1.8 %G%"; */
+/*-
+ * Copyright (c) 1979 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ *
+ *     @(#)libpc.h     1.9 (Berkeley) %G%
+ */

 
 extern FILE *ACTFILE();
 extern long *ADDT();
 
 extern FILE *ACTFILE();
 extern long *ADDT();