/* Copyright (c) 1979 Regents of the University of California */
* pi - Pascal interpreter code translator
* Charles Haley, Bill Joy UCB
* Version 1.2 January 1979
* pxp - Pascal execution profiler
* Version 1.2 January 1979
* Does the string fp end in '.' and the character c ?
return (i
> 1 && fp
[i
- 2] == '.' && fp
[i
- 1] == c
);
* Set the time vector "tvec" to the
* modification time stamp of the current file.
* Convert a "ctime" into a Pascal styple time line
* Is "fp" in the command line list of names ?
for (i
= pflstc
; i
> 0; i
--)
if (strcmp(fp
, *pfp
++) == 0)
extern char *sys_errlist
[];
return (calloc(size
, 1));
register char *to
, *from
;
* Is ch one of the characters in the string cp ?