tm.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
*/
/*
* Copyright (c) 1983, 1984 1985, 1986, 1987, 1988, Sun Microsystems, Inc.
* All Rights Reserved.
*/
#ident "%Z%%M% %I% %E% SMI" /* SVr4.0 1.1 */
/* tm.c: split numerical fields */
# include "t..c"
char *
char *str;
{
/* make two numerical fields */
int c;
p = str;
str=p;
if (ba==0)
{
{
}
if (dpoint==0)
{
break;
}
return(0);
}
else
p =str;
{
}
q = exstore;
do {
*p = 0;
return(q);
}
ineqn (s, p)
char *s, *p;
{
/* true if s is in a eqn within p */
int ineq = 0, c;
while (c = *p)
{
if (s == p)
return(ineq);
p++;
ineq = 1;
else
ineq = 0;
}
return(0);
}