/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ /* tm.c: split numerical fields */# include "t.h" char	*maknew(char *str){				/* make two numerical fields */	int	c;	char	*p, *q, *ba, *dpoint; 	p = str;	for (ba = 0; c = *str; str++)		if (c == '\\' && *(str + 1) == '&')			ba = str;	str = p;	if (ba == 0) {		for (dpoint = 0; *str; str++) {			if (*str == '.' && !ineqn(str, p) && 			    (str > p && digit(*(str - 1)) || 			    digit(*(str + 1))))				dpoint = str;		}		if (dpoint == 0)			for (; str > p; str--) {				if (digit( *(str - 1) ) && !ineqn(str, p))					break;			}		if (!dpoint && p == str) /* not numerical, don't split */			return(0);		if (dpoint) 			str = dpoint;	} else		str = ba;	p = str;	if (exstore == 0 || exstore > exlim) {		exstore = exspace = chspace();		exlim = exstore + MAXCHS;	}	q = exstore;	while (*exstore++ = *str++)		;	*p = 0;	return(q);}  intineqn (char *s, char *p){				/* true if s is in a eqn within p */	int	ineq = 0, c; 	while (c = *p) {		if (s == p)			return(ineq);		p++;		if ((ineq == 0) && (c == delim1))			ineq = 1;		else if ((ineq == 1) && (c == delim2))			ineq = 0;	}	return(0);}