* Copyright (c) 1987 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
static char sccsid
[] = "@(#)lisp.c 5.1 (Berkeley) %G%";
extern char *lbp
; /* pointer shared with fortran */
* just look for (def or (DEF
if (!fgets(lbuf
,sizeof(lbuf
),inf
))
if (cicmp("wrapper") || cicmp("whopper"))
for (;!isspace(*lbp
);++lbp
);
for (;isspace(*lbp
);++lbp
);
for (cp
= lbp
;*cp
&& *cp
!= '\n';++cp
);
if (!(cp
= index(lbp
,')')))
for (;cp
>= lbp
&& *cp
!= ':';--cp
);
for (;*cp
&& *cp
!= ')' && *cp
!= ' ';++cp
);
*cp
&& *cp
!= '(' && *cp
!= ' ';++cp
);