/* Copyright (c) 1979 Regents of the University of California */
-#include "whoami"
-/*
- * pi - Pascal interpreter code translator
- *
- * Charles Haley, Bill Joy UCB
- * Version 1.2 November 1978
- *
- *
- * pxp - Pascal execution profiler
- *
- * Bill Joy UCB
- * Version 1.2 November 1978
- */
+static char sccsid[] = "@(#)subr.c 1.2 11/13/80";
+
+#include "whoami.h"
#include "0.h"
#ifndef PI1
{
register char *tp;
- tp = &opts[c-'a'];
+ tp = &opt( c );
*tp = 1 - *tp;
}
char *file, *error;
{
+ write(2, file, strlen(file));
+ write(2, ": ", 2);
+ write(2, error, strlen(error));
+ write(2, "\n", 1);
+/*
errno = 0;
sys_errlist[0] = error;
perror(file);
+*/
}
int *
register CHAR c;
{
- c -= 'a';
+ c -= 'A';
optstk[c] <<= 1;
optstk[c] |= opts[c];
opts[c] = 1;
register CHAR c;
{
- c -= 'a';
+ c -= 'A';
opts[c] = optstk[c] & 1;
optstk[c] >>= 1;
#ifdef PI0