new copyright; att/bsd/shared

[unix-history] / usr / src / usr.bin / pascal / src / main.c

diff --git a/usr/src/usr.bin/pascal/src/main.c b/usr/src/usr.bin/pascal/src/main.c
index 546e4a3..2469bc7 100644 (file)
--- a/usr/src/usr.bin/pascal/src/main.c
+++ b/usr/src/usr.bin/pascal/src/main.c
@@ -1,11 +1,19 @@
-/* Copyright (c) 1979 Regents of the University of California */
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.redist.c%
+ */

 
 #ifndef lint
 
 #ifndef lint

-static char copyright[] =
-           "@(#)Copyright (c) 1979 Regents of the University of California";
+char copyright[] =
+"@(#) Copyright (c) 1980 The Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */

 
 

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

 
 #include "whoami.h"
 #include "0.h"
 
 #include "whoami.h"
 #include "0.h"


@@ -106,10 +114,10 @@ main(argc, argv)
        }
 #      ifdef OBJ
            opt('p') = opt('t') = opt('b') = 1;
        }
 #      ifdef OBJ
            opt('p') = opt('t') = opt('b') = 1;

-#ifdef vax
-           /* pdx is currently supported only on the vax */
+#if defined(vax) || defined(tahoe)
+           /* pdx is currently supported on the vax and the tahoe */

            opt('g') = 1;
            opt('g') = 1;

-#endif vax
+#endif

            while (argc > 0) {
                    cp = argv[0];
                    if (*cp++ != '-')
            while (argc > 0) {
                    cp = argv[0];
                    if (*cp++ != '-')


@@ -163,6 +171,9 @@ main(argc, argv)
                            case 'z':
                                    monflg = TRUE;
                                    continue;
                            case 'z':
                                    monflg = TRUE;
                                    continue;

+                           case 'L':
+                                   togopt( 'L' );
+                                   continue;

                            default:
     usage:
                                    Perror( "Usage", usageis);
                            default:
     usage:
                                    Perror( "Usage", usageis);


@@ -263,6 +274,9 @@ main(argc, argv)
                    case 'z':
                            monflg = TRUE;
                            break;
                    case 'z':
                            monflg = TRUE;
                            break;

+                   case 'L':
+                           togopt( 'L' );
+                           break;

                    default:
 usage:
                            Perror( "Usage", usageis);
                    default:
 usage:
                            Perror( "Usage", usageis);


@@ -291,7 +305,7 @@ usage:
                perror( pcname );
                pexit( NOSTART );
            }
                perror( pcname );
                pexit( NOSTART );
            }

-           stabsource( filename );
+           stabsource( filename, TRUE );

 #      endif PC
 #      ifdef PTREE
 #          define      MAXpPAGES       16
 #      endif PC
 #      ifdef PTREE
 #          define      MAXpPAGES       16


@@ -318,7 +332,12 @@ pchr(c)
        putc ( c , stdout );
 }
 
        putc ( c , stdout );
 }
 

+#ifdef PC
+char   ugh[]   = "Fatal error in pc\n";
+#endif
+#ifdef OBJ

 char   ugh[]   = "Fatal error in pi\n";
 char   ugh[]   = "Fatal error in pi\n";

+#endif

 /*
  * Exit from the Pascal system.
  * We throw in an ungraceful termination
 /*
  * Exit from the Pascal system.
  * We throw in an ungraceful termination