tm.c revision 381:1a7f0e46092a 
1/*
2 * Copyright 1991 Sun Microsystems, Inc.  All rights reserved.
3 * Use is subject to license terms.
4 */
5
6/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
7/*	  All Rights Reserved  	*/
8
9/*
10 * Copyright (c) 1980 Regents of the University of California.
11 * All rights reserved. The Berkeley software License Agreement
12 * specifies the terms and conditions for redistribution.
13 */
14
15#pragma ident	"%Z%%M%	%I%	%E% SMI"
16
17 /* tm.c: split numerical fields */
18# include "t..c"
19
20char *
21maknew(char *str)
22{
23	/* make two numerical fields */
24	int c;
25	char *dpoint, *p, *q, *ba;
26	p = str;
27	for (ba= 0; c = *str; str++)
28		if (c == '\\' && *(str+1)== '&')
29			ba=str;
30	str=p;
31	if (ba==0)
32		{
33		for (dpoint=0; *str; str++)
34			{
35			if (*str=='.' && !ineqn(str,p) &&
36				(str>p && digit(*(str-1)) ||
37				digit(*(str+1))))
38					dpoint=str;
39			}
40		if (dpoint==0)
41			for(; str>p; str--)
42			{
43			if (digit( * (str-1) ) && !ineqn(str, p))
44				break;
45			}
46		if (!dpoint && p==str) /* not numerical, don't split */
47			return(0);
48		if (dpoint) str=dpoint;
49		}
50	else
51		str = ba;
52	p =str;
53	if (exstore ==0 || exstore >exlim)
54		{
55		exstore = chspace();
56		exlim= exstore+MAXCHS;
57		}
58	q = exstore;
59	ba = exstore + MAXSTR;
60	do {
61		if (exstore > ba)
62			error(gettext("numeric field too big"));
63	} while (*exstore++ = *str++);
64	*p = 0;
65	return(q);
66}
67
68int
69ineqn (char *s, char *p)
70{
71/* true if s is in a eqn within p */
72int ineq = 0, c;
73while (c = *p)
74	{
75	if (s == p)
76		return(ineq);
77	p++;
78	if ((ineq == 0) && (c == delim1))
79		ineq = 1;
80	else
81	if ((ineq == 1) && (c == delim2))
82		ineq = 0;
83	}
84return(0);
85}
86