xref: /titanic_41/usr/src/cmd/tbl/te.c (revision ace1a5f11236a072fca1b5e0ea1416a083a9f2aa)
1 /*
2  * Copyright 2005 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  /* te.c: error message control, input line count */
18 #include "t..c"
19 #include <locale.h>
20 #include <errno.h>
21 #include <unistd.h>
22 #include <string.h>
23 
24 void
error(char * s)25 error(char *s)
26 {
27 	(void) fprintf(stderr, gettext("\n%s: line %d: %s\n"), ifile, iline, s);
28 	(void) fprintf(stderr, gettext("tbl quits\n"));
29 	exit(1);
30 }
31 
32 char *
gets1(char * s,int len)33 gets1(char *s, int len)
34 {
35 char *p;
36 int nbl;
37 while(len > 0)
38 	{
39 	iline++;
40 	while ((p = fgets(s,len,tabin))==0)
41 		{
42 		if (swapin()==0)
43 			return((char *)0);
44 		}
45 
46 	while (*s) s++;
47 	s--;
48 	if (*s == '\n') {
49 		*s-- = '\0';
50 	} else {
51 		if (!feof(tabin)) {
52 			if (ferror(tabin))
53 				error(strerror(errno));
54 			else
55 				error(gettext("Line too long"));
56 		}
57 	}
58 
59 	for(nbl=0; *s == '\\' && s>p; s--)
60 		nbl++;
61 	if (linstart && nbl % 2) /* fold escaped nl if in table */
62 		{
63 		s++;
64 		len -= s - p;
65 		continue;
66 		}
67 	break;
68 	}
69 
70 return(p);
71 }
72 
73 # define BACKMAX 500
74 
75 char backup[BACKMAX];
76 char *backp = backup;
77 
78 void
un1getc(int c)79 un1getc(int c)
80 {
81 if (c=='\n')
82 	iline--;
83 *backp++ = c;
84 if (backp >= backup+BACKMAX)
85 	error(gettext("too much backup"));
86 }
87 
88 int
get1char(void)89 get1char(void)
90 {
91 int c;
92 if (backp>backup)
93 	c = *--backp;
94 else
95 	c=getc(tabin);
96 if (c== EOF) /* EOF */
97 	{
98 	if (swapin() ==0)
99 		error(gettext("unexpected EOF"));
100 	c = getc(tabin);
101 	}
102 if (c== '\n')
103 	iline++;
104 return(c);
105 }
106