![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tu.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / tbl|
Return to tu.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / tbl |
1.1 root 1: #ifndef lint
2: static char sccsid[] = "@(#)tu.c 4.2 8/11/83";
3: #endif
4:
5: /* tu.c: draws horizontal lines */
6: # include "t..c"
7: makeline(i,c,lintype)
8: {
9: int cr, type, shortl;
10: type = thish(i,c);
11: if (type==0) return;
12: cr=c;
13: shortl = (table[i][c].col[0]=='\\');
14: if (c>0 && !shortl && thish(i,c-1) == type)return;
15: if (shortl==0)
16: for(cr=c; cr < ncol && (ctype(i,cr)=='s'||type==thish(i,cr)); cr++);
17: else
18: for(cr=c+1; cr<ncol && ctype(i,cr)=='s'; cr++);
19: drawline(i, c, cr-1, lintype, 0, shortl);
20: }
21: fullwide(i, lintype)
22: {
23: int cr, cl;
24: if (!pr1403)
25: fprintf(tabout, ".nr %d \\n(.v\n.vs \\n(.vu-\\n(.sp\n", SVS);
26: cr= 0;
27: while (cr<ncol)
28: {
29: cl=cr;
30: while (i>0 && vspand(prev(i),cl,1))
31: cl++;
32: for(cr=cl; cr<ncol; cr++)
33: if (i>0 && vspand(prev(i),cr,1))
34: break;
35: if (cl<ncol)
36: drawline(i,cl,(cr<ncol?cr-1:cr),lintype,1,0);
37: }
38: fprintf(tabout, "\n");
39: if (!pr1403)
40: fprintf(tabout, ".vs \\n(%du\n", SVS);
41: }
42:
43: drawline(i, cl, cr, lintype, noheight, shortl)
44: {
45: char *exhr, *exhl;
46: int lcount, ln, linpos, oldpos, nodata, lnch;
47: lcount=0;
48: exhr=exhl= "";
49: switch(lintype)
50: {
51: case '-': lcount=1;break;
52: case '=': lcount = pr1403? 1 : 2; break;
53: case SHORTLINE: lcount=1; break;
54: }
55: if (lcount<=0) return;
56: nodata = cr-cl>=ncol || noheight || allh(i);
57: if (!nodata)
58: fprintf(tabout, "\\v'-.5m'");
59: for(ln=oldpos=0; ln<lcount; ln++)
60: {
61: linpos = 2*ln - lcount +1;
62: if (linpos != oldpos)
63: fprintf(tabout, "\\v'%dp'", linpos-oldpos);
64: oldpos=linpos;
65: if (shortl==0)
66: {
67: tohcol(cl);
68: if (lcount>1)
69: {
70: switch(interv(i,cl))
71: {
72: case TOP: exhl = ln==0 ? "1p" : "-1p"; break;
73: case BOT: exhl = ln==1 ? "1p" : "-1p"; break;
74: case THRU: exhl = "1p"; break;
75: }
76: if (exhl[0])
77: fprintf(tabout, "\\h'%s'", exhl);
78: }
79: else if (lcount==1)
80: {
81: switch(interv(i,cl))
82: {
83: case TOP: case BOT: exhl = "-1p"; break;
84: case THRU: exhl = "1p"; break;
85: }
86: if (exhl[0])
87: fprintf(tabout, "\\h'%s'", exhl);
88: }
89: if (lcount>1)
90: {
91: switch(interv(i,cr+1))
92: {
93: case TOP: exhr = ln==0 ? "-1p" : "+1p"; break;
94: case BOT: exhr = ln==1 ? "-1p" : "+1p"; break;
95: case THRU: exhr = "-1p"; break;
96: }
97: }
98: else if (lcount==1)
99: {
100: switch(interv(i,cr+1))
101: {
102: case TOP: case BOT: exhr = "+1p"; break;
103: case THRU: exhr = "-1p"; break;
104: }
105: }
106: }
107: else
108: fprintf(tabout, "\\h'|\\n(%du'", cl+CLEFT);
109: fprintf(tabout, "\\s\\n(%d",LSIZE);
110: if (linsize)
111: fprintf(tabout, "\\v'-\\n(%dp/6u'", LSIZE);
112: if (shortl)
113: fprintf(tabout, "\\l'|\\n(%du'", cr+CRIGHT);
114: else
115: {
116: lnch = "\\(ul";
117: if (pr1403)
118: lnch = lintype==2 ? "=" : "\\(ru";
119: if (cr+1>=ncol)
120: fprintf(tabout, "\\l'|\\n(TWu%s%s'", exhr,lnch);
121: else
122: fprintf(tabout, "\\l'(|\\n(%du+|\\n(%du)/2u%s%s'", cr+CRIGHT,
123: cr+1+CLEFT, exhr, lnch);
124: }
125: if (linsize)
126: fprintf(tabout, "\\v'\\n(%dp/6u'", LSIZE);
127: fprintf(tabout, "\\s0");
128: }
129: if (oldpos!=0)
130: fprintf(tabout, "\\v'%dp'", -oldpos);
131: if (!nodata)
132: fprintf(tabout, "\\v'+.5m'");
133: }
134: getstop()
135: {
136: int i,c,k,junk, stopp;
137: stopp=1;
138: for(i=0; i<MAXLIN; i++)
139: linestop[i]=0;
140: for(i=0; i<nlin; i++)
141: for(c=0; c<ncol; c++)
142: {
143: k = left(i,c,&junk);
144: if (k>=0 && linestop[k]==0)
145: linestop[k]= ++stopp;
146: }
147: if (boxflg || allflg || dboxflg)
148: linestop[0]=1;
149: }
150: left(i,c, lwidp)
151: int *lwidp;
152: {
153: int kind, li, lj;
154: /* returns -1 if no line to left */
155: /* returns number of line where it starts */
156: /* stores into lwid the kind of line */
157: *lwidp=0;
158: kind = lefdata(i,c);
159: if (kind==0) return(-1);
160: if (i+1<nlin)
161: if (lefdata(next(i),c)== kind) return(-1);
162: while (i>=0 && lefdata(i,c)==kind)
163: i=prev(li=i);
164: if (prev(li)== -1) li=0;
165: *lwidp=kind;
166: for(lj= i+1; lj<li; lj++)
167: if (instead[lj] && strcmp(instead[lj], ".TH")==0)
168: return(li);
169: for(i= i+1; i<li; i++)
170: if (fullbot[i])
171: li=i;
172: return(li);
173: }
174: lefdata(i,c)
175: {
176: int ck;
177: if (i>=nlin) i=nlin-1;
178: if (ctype(i,c) == 's')
179: {
180: for(ck=c; ctype(i,ck)=='s'; ck--);
181: if (thish(i,ck)==0)
182: return(0);
183: }
184: i =stynum[i];
185: i = lefline[i][c];
186: if (i>0) return(i);
187: if (dboxflg && c==0) return(2);
188: if (allflg)return(1);
189: if (boxflg && c==0) return(1);
190: return(0);
191: }
192: next(i)
193: {
194: while (i+1 <nlin)
195: {
196: i++;
197: if (!fullbot[i] && !instead[i]) break;
198: }
199: return(i);
200: }
201: prev(i)
202: {
203: while (--i >=0 && (fullbot[i] || instead[i]))
204: ;
205: return(i);
206: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.