1*48316Sbostic /*-
2*48316Sbostic * %sccs.include.proprietary.c%
3*48316Sbostic */
4*48316Sbostic
514513Ssam #ifndef lint
6*48316Sbostic static char sccsid[] = "@(#)tf.c 4.3 (Berkeley) 04/18/91";
7*48316Sbostic #endif /* not lint */
811040Sshannon
911040Sshannon /* tf.c: save and restore fill mode around table */
1011040Sshannon # include "t..c"
savefill()1111040Sshannon savefill()
1211040Sshannon {
1311040Sshannon /* remembers various things: fill mode, vs, ps in mac 35 (SF) */
1411040Sshannon fprintf(tabout, ".de %d\n",SF);
1511040Sshannon fprintf(tabout, ".ps \\n(.s\n");
1611040Sshannon fprintf(tabout, ".vs \\n(.vu\n");
1711040Sshannon fprintf(tabout, ".in \\n(.iu\n");
1811040Sshannon fprintf(tabout, ".if \\n(.u .fi\n");
1911040Sshannon fprintf(tabout, ".if \\n(.j .ad\n");
2011040Sshannon fprintf(tabout, ".if \\n(.j=0 .na\n");
2111040Sshannon fprintf(tabout, "..\n");
2211040Sshannon fprintf(tabout, ".nf\n");
2311040Sshannon /* set obx offset if useful */
2411040Sshannon fprintf(tabout, ".nr #~ 0\n");
2511040Sshannon fprintf(tabout, ".if n .nr #~ 0.6n\n");
2611040Sshannon }
rstofill()2711040Sshannon rstofill()
2811040Sshannon {
2911040Sshannon fprintf(tabout, ".%d\n",SF);
3011040Sshannon }
endoff()3111040Sshannon endoff()
3211040Sshannon {
3311040Sshannon int i;
3411040Sshannon for(i=0; i<MAXHEAD; i++)
3511040Sshannon if (linestop[i])
3611040Sshannon fprintf(tabout, ".nr #%c 0\n", 'a'+i);
3711040Sshannon for(i=0; i<texct; i++)
3811040Sshannon fprintf(tabout, ".rm %c+\n",texstr[i]);
3911040Sshannon fprintf(tabout, "%s\n", last);
4011040Sshannon }
ifdivert()4111040Sshannon ifdivert()
4211040Sshannon {
4311040Sshannon fprintf(tabout, ".ds #d .d\n");
4411040Sshannon fprintf(tabout, ".if \\(ts\\n(.z\\(ts\\(ts .ds #d nl\n");
4511040Sshannon }
saveline()4611040Sshannon saveline()
4711040Sshannon {
4811040Sshannon fprintf(tabout, ".if \\n+(b.=1 .nr d. \\n(.c-\\n(c.-1\n");
4911040Sshannon linstart=iline;
5011040Sshannon }
restline()5111040Sshannon restline()
5211040Sshannon {
5311040Sshannon fprintf(tabout,".if \\n-(b.=0 .nr c. \\n(.c-\\n(d.-%d\n", iline-linstart);
5411040Sshannon linstart = 0;
5511040Sshannon }
cleanfc()5611040Sshannon cleanfc()
5711040Sshannon {
5811040Sshannon fprintf(tabout, ".fc\n");
5911040Sshannon }
60