BSD 4 release
[unix-history] / usr / src / cmd / pi / yyput.c
index a2dce89..53a7e47 100644 (file)
@@ -1,19 +1,8 @@
 /* Copyright (c) 1979 Regents of the University of California */
 /* Copyright (c) 1979 Regents of the University of California */
-#
-/*
- * pi - Pascal interpreter code translator
- *
- * Charles Haley, Bill Joy UCB
- * Version 1.1 February 1978
- *
- *
- * pxp - Pascal execution profiler
- *
- * Bill Joy UCB
- * Version 1.1 February 1978
- */
 
 
-#include "whoami"
+static char sccsid[] = "@(#)yyput.c 1.1 8/27/80";
+
+#include "whoami.h"
 #include "0.h"
 #include "tree.h"
 #include "yy.h"
 #include "0.h"
 #include "tree.h"
 #include "yy.h"
@@ -240,6 +229,8 @@ char        printed 1;
  * Set the current file name to be file,
  * printing the name, or a header on a new
  * page if required.
  * Set the current file name to be file,
  * printing the name, or a header on a new
  * page if required.
+ * there is another yysetfile in error.c
+ * this one is for PI and PXP that one is for PI1
  */
 yysetfile(file)
        register char *file;
  */
 yysetfile(file)
        register char *file;