xref: /minix/minix/commands/cawf/pass3.c (revision 83133719) 
1 /*
2  *	pass3.c - cawf(1) pass 3 function
3  */
4 
5 /*
6  *	Copyright (c) 1991 Purdue University Research Foundation,
7  *	West Lafayette, Indiana 47907.  All rights reserved.
8  *
9  *	Written by Victor A. Abell <abe@mace.cc.purdue.edu>,  Purdue
10  *	University Computing Center.  Not derived from licensed software;
11  *	derived from awf(1) by Henry Spencer of the University of Toronto.
12  *
13  *	Permission is granted to anyone to use this software for any
14  *	purpose on any computer system, and to alter it and redistribute
15  *	it freely, subject to the following restrictions:
16  *
17  *	1. The author is not responsible for any consequences of use of
18  *	   this software, even if they arise from flaws in it.
19  *
20  *	2. The origin of this software must not be misrepresented, either
21  *	   by explicit claim or by omission.  Credits must appear in the
22  *	   documentation.
23  *
24  *	3. Altered versions must be plainly marked as such, and must not
25  *	   be misrepresented as being the original software.  Credits must
26  *	   appear in the documentation.
27  *
28  *	4. This notice may not be removed or altered.
29  */
30 
31 #include "cawf.h"
32 
33 void
34 Pass3(len, word, sarg, narg)
35 	int len;			/* length (negative is special) */
36 	unsigned char *word;		/* word */
37 	unsigned char *sarg;		/* string argument */
38 	int narg;			/* numeric argument */
39 {
40 	int addto;			/* spaces to add to all words */
41 	int i, j, k;			/* temporary index */
42 	unsigned char msg[MAXLINE];	/* message buffer */
43 	int n;				/* temporary number */
44 	unsigned char *s1;		/* temporary string pointer */
45 	int sp = 0;			/* no-break spacing switch */
46 	int sp_Outll;			/* sp-saved Outll */
47 	char sp_Outln;			/* sp-saved Outln[0] */
48 	int sp_Outlx;			/* sp-saved Outlx */
49 	int sp_Padx;			/* sp-saved Padx */
50 	int sp_Tind;			/* sp-saved Tind */
51 	int wl;				/* real word length */
52 	int xsp;			/* extra spaces to add */
53 	int vsp;			/* vertical spacing status */
54 
55 	vsp = 0;
56 	if (word != NULL)
57 		wl = strlen((char *)word);
58     /*
59      * If not a special command, process a word.
60      */
61 	if (len >= 0 && Outll < 0) {
62 	/*
63 	 * Enter first word.
64 	 */
65 		(void) strcpy((char *)Outln, (char *)word);
66 		Outll = len;
67 		Outlx = wl;
68 		Padx = 0;
69 	} else if (len >= 0
70 	       && (Outll+Contlen+len+narg) <= (LL-Pgoff-Ind-Tind)) {
71 	/*
72 	 * The word fits, so enter it.
73 	 */
74 		if ((Contlen + len) > 0) {
75 line_too_big:
76 			if ((Outlx + Contlen + wl) >= MAXOLL) {
77 				Error3(len, (char *)word, (char *)sarg, narg,
78 					"output line too big");
79 				return;
80 			} else {
81 				if (Contlen > 0 && Cont != NULL) {
82 					if (Contlen == 1 && *Cont == ' ') {
83 						Padchar[Padx++] = Outlx;
84 						Outln[Outlx++] = ' ';
85 					} else {
86 					    (void) strcpy((char *)&Outln[Outlx],
87 						(char *)Cont);
88 					    Outlx += Contlen;
89 					}
90 				}
91 				if (len > 0) {
92 					(void) strcpy((char *)&Outln[Outlx],
93 						(char *)word);
94 					Outlx += wl;
95 				}
96 			}
97 		}
98 		Outll += Contlen + len;
99 	} else if (len == NOBREAK || len == MESSAGE) {
100 		/*
101 		 * Do nothing (equivalent to break)
102 		 */
103 	} else if (len == DOBREAK && strcmp((char *)word, "need") == 0
104 	       &&  (Nxtln + narg) < (Pglen + 1 - Botmarg)) {
105 		/*
106 		 * Do nothing, because there is room on the page.
107 		 */
108 	} else if (len == DOBREAK && strcmp((char *)word, "toindent") == 0
109 	       &&  (Ind + Tind + Outll) < Ind) {
110 	/*
111 	 * Move to indent position with line - there is room.
112 	 */
113 		n = Ind - (Ind + Tind +Outll);
114 		Outll += n;
115 		if ((Outlx + n) >= MAXOLL)
116 			goto line_too_big;
117 		for (i = n; i; i--)
118 			Outln[Outlx++] = ' ';
119 		Padx = 0;
120 		Free(&Cont);
121 		Contlen = 0;
122 	} else if (Outll >= 0
123 	       || (len == DOBREAK && strcmp((char *)word, "need") == 0)) {
124 	/*
125 	 * A non-empty line or a "need" forces output.
126 	 */
127 		vsp = 0;
128 
129 print_line:
130 		if (Nxtln == 1) {
131 	    /*
132 	     * We're at the top of the page, so issue the header.
133 	     */
134 			if (Thispg > 1)
135 				Charput((int)'\f');
136 			for (i = (Topmarg - 1)/2; i > 0; i--) {
137 				Charput((int)'\n');
138 				Nxtln++;
139 			}
140 		    /*
141 		     * Print the page header, as required.
142 		     */
143 			if (Fph || Thispg > 1) {
144 				i = LenprtHF(Hdc, Thispg, 0)
145 				  + LenprtHF(Hdl, Thispg, 0)
146 				  + LenprtHF(Hdr, Thispg, 0) + 2;
147 				j = (LL - i - Pgoff) / 2 + 1;
148 				n = LL - Pgoff - i - j + 2;
149 				for (k = 0; k < Pgoff; k++)
150 					Charput((int)' ');
151 				if (Hdl)
152 					LenprtHF(Hdl, Thispg, 1);
153 				while (j-- > 0)
154 					Charput((int)' ');
155 				if (Hdc)
156 					LenprtHF(Hdc, Thispg, 1);
157 				while (n-- > 0)
158 					Charput((int)' ');
159 				if (Hdr)
160 					LenprtHF(Hdr, Thispg, 1);
161 				Charput((int)'\n');
162 			} else
163 				Charput((int)'\n');
164 			Nxtln++;
165 			while(Nxtln <= Topmarg) {
166 				Charput((int)'\n');
167 				Nxtln++;
168 			}
169 		}
170 	    /*
171 	     *  Add a trailing hyphen, if mecessary.
172 	     */
173      		if (vsp == 0 && Eollen > 0 && Eol != NULL) {
174 			i = strlen((char *)Eol);
175 			if ((Outlx + i) >= MAXOLL)
176 				goto line_too_big;
177 			(void) strcpy((char *)&Outln[Outlx], (char *)Eol);
178 			Outlx += i;
179 			Outll += Eollen;
180 		}
181 	    /*
182 	     * Trim trailing spaces from the output line.
183 	     */
184      		while (Outlx > 0) {
185 			if (Outln[Outlx - 1] != ' ')
186 				break;
187 			if (Padx > 0 && (Outlx - 1) == Padchar[Padx - 1])
188 				Padx--;
189 			Outlx--;
190 			Outln[Outlx] = '\0';
191 			Outll--;
192 		}
193 		if (Outlx == 0)
194 			Charput((int)'\n');
195 		else if (len == DOBREAK && strcmp((char *)word, "center") == 0)
196 		    {
197 		    /*
198 		     * Center the output line.
199 		     */
200 			i = (LL - Pgoff - Outll) / 2;
201 			if (i < 0)
202 				i = 0;
203 			for (j = (Pgoff + Ind + Tind + i); j; j--)
204 				Charput((int)' ');
205 			Stringput(Outln);
206 			Charput((int)'\n');
207 		} else if (Adj == LEFTADJ
208 		       || (Adj == BOTHADJ && (len < 0 || Padx == 0))) {
209 		    /*
210 		     * No right margin adjustment - disabled, inappropriate
211 		     * (line ended by break) or impossible.
212 		     */
213 			for (i = 0; i < (Pgoff + Ind + Tind); i++)
214 				Charput((int)' ');
215 			Stringput(Outln);
216 			Charput((int)'\n');
217 		} else if (Adj == BOTHADJ) {
218 		    /*
219 		     * Adjust right margin.
220 		     */
221 			for (i = 0; i < (Pgoff + Ind + Tind); i++)
222 				Charput((int)' ');
223 			i = LL - (Pgoff + Ind + Tind);
224 			j = i - Outll;
225 			addto = Padx ? (j / Padx) : 0;
226 			xsp = j - (Padx * addto);
227 			for (i = 0, s1 = Outln; i < Padx; i++) {
228 				while (*s1 && (s1 - Outln) <= Padchar[i])
229 					Charput((int)*s1++);
230 				if (*s1 == '\0')
231 					break;
232 				j = addto;
233 				if (Padfrom == PADLEFT) {
234 					if (i < xsp)
235 						j++;
236 				} else if (i >= (Padx - xsp))
237 					j++;
238 				while (j-- > 0)
239 					Charput((int)' ');
240 			}
241 			while (*s1)
242 				Charput((int)*s1++);
243 			Charput((int)'\n');
244 			Padfrom = (Padfrom == PADLEFT) ? PADRIGHT : PADLEFT;
245 		}
246 	    /*
247 	     * End of line housekeeping
248 	     */
249 		Nxtln++;
250 		Outll = -1;
251 		Outlx = 0;
252 		Padx = 0;
253 		Tind = 0;
254 		Nospmode = 0;
255 		if (vsp == 0 && len == DOBREAK
256 		&&  strcmp((char *)word, "need") == 0) {
257 		    /*
258 		     * Break caused by "need" - satisfy it.
259 		     */
260 			while (Nxtln < (Pglen + 1 - Botmarg)) {
261 				Charput((int)'\n');
262 				Nxtln++;
263 			}
264 		}
265 		if (Nxtln >= (Pglen + 1 - Botmarg)) {
266 	    /*
267 	     * Footer required
268 	     */
269 			for (i = (Botmarg - 1)/2; i > 0; i--) {
270 				Charput((int)'\n');
271 				Nxtln++;
272 			}
273 			i = LenprtHF(Ftl, Thispg, 0) + LenprtHF(Ftc, Thispg, 0)
274 			  + LenprtHF(Ftr, Thispg, 0) + 2;
275 			j = (LL - i - Pgoff) / 2 + 1;
276 			n = LL - Pgoff - i - j + 2;
277 			for (k = 0; k < Pgoff; k++)
278 				Charput((int)' ');
279 			if (Ftl)
280 				LenprtHF(Ftl, Thispg, 1);
281 			while (j-- > 0)
282 				Charput((int)' ');
283 			if (Ftc)
284 				LenprtHF(Ftc, Thispg, 1);
285 			while (n-- > 0)
286 				Charput((int)' ');
287 			if (Ftr)
288 				LenprtHF(Ftr, Thispg, 1);
289 			Charput((int)'\n');
290 			Nxtln++;
291 		/*
292 		 * The last blank line on the page is suppressed to assist
293 		 * printers that can't look ahead to the following FF.
294 		 */
295 			while (Nxtln < Pglen) {
296 				Charput((int)'\n');
297 				Nxtln++;
298 			}
299 			Nxtln = 1;
300 			Thispg++;
301 			Nospmode = 1;
302 			Padfrom = PADRIGHT;
303 		}
304 	    /*
305 	     * Initiate any extra vertical spacing.
306 	     */
307 		if (++vsp < Vspace)
308 			goto print_line;
309 	    /*
310 	     * Save any input word that might have forced output.
311 	     */
312 		if (len >= 0) {
313 			(void) strcpy((char *)Outln, (char *)word);
314 			Outll = len;
315 			Outlx = wl;
316 			Padx = 0;
317 		}
318 	}
319     /*
320      * A break causes padding reversal.
321      */
322 	if (len == DOBREAK)
323 		Padfrom = PADRIGHT;
324 	if (len >= 0 || strcmp((char *)word, "nohyphen") == 0) {
325     /*
326      * Reset continuation and hyphenation.
327      */
328 		if (Contlen != 1 || Cont[0] != ' ') {
329 			Free(&Cont);
330 			Cont = Newstr((unsigned char *)" ");
331 			Contlen = 1;
332 		}
333 		if (Eollen > 0) {
334 			Free(&Eol);
335 			Eollen = 0;
336 		}
337 		return;
338 	}
339     /*
340      * Now post-process any special commands.
341      */
342 	if (len == MESSAGE) {
343 		Error3(len, (char *)word, (char *)sarg, narg, NULL);
344 		return;
345 	}
346 
347 	switch (*word) {
348 
349 	case 'b':				/* both */
350 	    /*
351 	     * Adjust on both margins.
352 	     */
353 		Adj = BOTHADJ;
354 		return;
355 
356 	case 'c':				/* center */
357 		return;
358 
359 	case 'e':				/* errsto */
360 	    /*
361 	     * "errsto" comes from awf.
362 	     */
363 		return;
364 
365 	case 'f':				/* flush and fph */
366 		if (word[1] == 'l')
367 			return;
368 		else if (word[1] == 'p') {
369 	    /*
370 	     * First page header status
371 	     */
372 			Fph = narg;
373 			return;
374 		}
375 		break;
376 
377 	case 'g':				/* gap */
378 	    /*
379 	     * Increase word gap.  (Space is not paddable.)
380 	     */
381 		if (Outll >= 0) {
382 			if ((Outlx + narg - 1) >= MAXOLL)
383 				goto line_too_big;
384 			for (i = 0; i < (narg - 1); i++) {
385 				Outln[Outlx++] = ' ';
386 				Outll++;
387 			}
388 		}
389 		return;
390 
391 	case 'h':				/* hyphen */
392 	    /*
393 	     * Set discretionary hyphen.
394 	     */
395 		Free(&Cont);
396 		Contlen = 0;
397 		Free(&Eol);
398 		Eol = (sarg != NULL) ? Newstr(sarg) : NULL;
399 		Eollen = narg;
400 		return;
401 
402 	case 'i':				/* indent */
403 	    /*
404 	     * Set indentation.
405 	     */
406 		Ind = narg;
407 		return;
408 
409 	case 'l':				/* left or linelen */
410 		if (word[1] == 'e') {
411 	    /*
412 	     * Adjust on left margin.
413 	     */
414 			Adj = LEFTADJ;
415 			return;
416 		} else if (word[1] == 'i') {
417 	    /*
418 	     * Set line length.
419 	     */
420 			LL = narg;
421 			return;
422 		}
423 		break;
424 
425 	case 'n':				/* need or nospace */
426 		if (word[1] == 'e')
427 			return;			/* need */
428 		else if (word[1] == 'o') {
429 	    /*
430 	     * Set no space mode.
431 	     */
432 			Nospmode = 1;
433 			return;
434 		}
435 		break;
436 
437 	case 'p':				/* pagelen or pageoffset */
438 		if (strncmp((char *)&word[1], "age", 3) != 0)
439 			break;
440 		if (word[4] == 'l') {
441 	    /*
442 	     * Set page length.
443 	     */
444 			Pglen = narg;
445 			return;
446 		} else if (word[4] == 'o') {
447 	    /*
448 	     * Set page offset.
449 	     */
450 			Pgoff = narg;
451 			return;
452 		}
453 		break;
454 
455 	case 's':				/* space */
456 		if (sp) {
457 
458 		/*
459 		 * Restore values after NOBREAK spacing ("^'sp").
460 		 */
461 			Outlx = sp_Outlx;
462 			Outln[0] = sp_Outln;
463 			Padx = sp_Padx;
464 			Outll = sp_Outll;
465 			Tind = sp_Tind;
466 			return;
467 		}
468 		if (Nospmode == 0) {
469 			if (len == NOBREAK) {
470 
471 			/*
472 			 * Set up for NOBREAK spacing.
473 			 */
474 				sp_Outlx = Outlx;
475 				sp_Outln = Outln[0];
476 				sp_Padx = Padx;
477 				sp_Outll = Outll;
478 				sp_Tind = Tind;
479 				vsp = Vspace + 1;
480 				sp = 1;
481 			}
482 		/*
483 		 * Generate a blank line.
484 		 */
485 			Outlx = 0;
486 			Outln[0] = '\0';
487 			Padx = 0;
488 			Outll = LL - 1;
489 			if (sp)
490 				goto print_line;
491 		}
492 		return;
493 
494 	case 't':				/* tabto, tempindent, or
495 						 * toindent */
496 		if (word[1] == 'a') {
497 	    /*
498 	     * Move to TAB stop.
499 	     */
500 			if (Outll < 0)
501 				Outll = 0;
502 			if ((n = narg - Outll) > 0) {
503 				if ((Outlx + n) >= MAXOLL)
504 					goto line_too_big;
505 				Outll += n;
506 				for (i = n; i > 0; i--)
507 					Outln[Outlx++] = ' ';
508 				Free(&Cont);
509 				Contlen = 0;
510 				Padx = 0;
511 			}
512 			return;
513 		} else if (word[1] == 'e') {
514 	    /*
515 	     * Set temporary indentation.
516 	     */
517 			if (*sarg == '\0' && narg >= 0)
518 				Tind = narg - Ind;
519 			else
520 				Tind = ((Ind + narg) >= 0) ? narg : -Ind;
521 			return;
522 		} else if (word[1] == 'o')
523 			return;				/* toindent */
524 		break;
525 
526 	case 'u':					/* userhyphen */
527 	    /*
528 	     * Set line length.
529 	     */
530 		Free(&Cont);
531 		Free(&Eol);
532 		Contlen = Eollen = narg;
533 		Cont = (sarg == NULL) ? NULL : Newstr(sarg);
534 		Eol = (sarg == NULL) ? NULL : Newstr(sarg);
535 		return;
536 
537 	case 'v':					/* vspace */
538 	    /*
539 	     * Set vertical spacing.
540 	     */
541 		Vspace = (narg == 0) ? 1 : narg;
542 		return;
543 
544 	case 'y':					/* yesspace */
545 	    /*
546 	     * Set space mode.
547 	     */
548 		Nospmode = 0;
549 		return;
550 	}				/* end of switch(*word) */
551     /*
552      * Locate header and footer defintions.
553      */
554 	if (regexec(Pat[14].pat, word)) {
555 		if (strcmp((char *)word, "LH") == 0) {
556 		    /*
557 		     * Left header
558 		     */
559 			Free(&Hdl);
560 			if (sarg != NULL)
561 				Hdl = Newstr(sarg);
562 			return;
563 		}
564 		if (strcmp((char *)word, "CH") == 0) {
565 		    /*
566 		     * Center header
567 		     */
568 			Free(&Hdc);
569 			if (sarg != NULL)
570 				Hdc = Newstr(sarg);
571 			return;
572 		}
573 		if (strcmp((char *)word, "RH") == 0) {
574 		    /*
575 		     * Right header
576 		     */
577 			Free(&Hdr);
578 			if (sarg != NULL)
579 				Hdr = Newstr(sarg);
580 			return;
581 		}
582 		if (strcmp((char *)word, "LF") == 0) {
583 		    /*
584 		     * Left footer
585 		     */
586 			Free(&Ftl);
587 			if (sarg != NULL)
588 				Ftl = Newstr(sarg);
589 			return;
590 		}
591 		if (strcmp((char *)word, "CF") == 0) {
592 		    /*
593 		     * Center footer
594 		     */
595 			Free(&Ftc);
596 			if (sarg != NULL)
597 				Ftc = Newstr(sarg);
598 			return;
599 		}
600 		if (strcmp((char *)word, "RF") == 0) {
601 		    /*
602 		     * Right footer
603 		     */
604 			Free(&Ftr);
605 			if (sarg != NULL)
606 				Ftr = Newstr(sarg);
607 			return;
608 		}
609 	}
610     /*
611      * Error on unknown arguments
612      */
613 	Error3(len, (char *)word, (char *)sarg, narg, "unknown request");
614 }
615