sys/src/cmd/tbl/tu.c

   1 /* tu.c: draws horizontal lines */
   2 # include "t.h"
   3
   4 void
   5 makeline(int i, int c, int lintype)
   6 {
   7         int     cr, type, shortl;
   8
   9         type = thish(i, c);
  10         if (type == 0)
  11                 return;
  12         shortl = (table[i][c].col[0] == '\\');
  13         if (c > 0 && !shortl && thish(i, c - 1) == type)
  14                 return;
  15         if (shortl == 0)
  16                 for (cr = c; cr < ncol && (ctype(i, cr) == 's' || type == thish(i, cr)); cr++)
  17                         ;
  18         else
  19                 for (cr = c + 1; cr < ncol && ctype(i, cr) == 's'; cr++)
  20                         ;
  21         drawline(i, c, cr - 1, lintype, 0, shortl);
  22 }
  23
  24
  25 void
  26 fullwide(int i, int lintype)
  27 {
  28         int     cr, cl;
  29
  30         if (!pr1403)
  31                 Bprint(&tabout, ".nr %d \\n(.v\n.vs \\n(.vu-\\n(.sp\n", SVS);
  32         cr = 0;
  33         while (cr < ncol) {
  34                 cl = cr;
  35                 while (i > 0 && vspand(prev(i), cl, 1))
  36                         cl++;
  37                 for (cr = cl; cr < ncol; cr++)
  38                         if (i > 0 && vspand(prev(i), cr, 1))
  39                                 break;
  40                 if (cl < ncol)
  41                         drawline(i, cl, (cr < ncol ? cr - 1 : cr), lintype, 1, 0);
  42         }
  43         Bprint(&tabout, "\n");
  44         if (!pr1403)
  45                 Bprint(&tabout, ".vs \\n(%du\n", SVS);
  46 }
  47
  48
  49 void
  50 drawline(int i, int cl, int cr, int lintype, int noheight, int shortl)
  51 {
  52         char    *exhr, *exhl, *lnch;
  53         int     lcount, ln, linpos, oldpos, nodata;
  54
  55         lcount = 0;
  56         exhr = exhl = "";
  57         switch (lintype) {
  58         case '-':
  59                 lcount = 1;
  60                 break;
  61         case '=':
  62                 lcount = pr1403 ? 1 : 2;
  63                 break;
  64         case SHORTLINE:
  65                 lcount = 1;
  66                 break;
  67         }
  68         if (lcount <= 0)
  69                 return;
  70         nodata = cr - cl >= ncol || noheight || allh(i);
  71         if (!nodata)
  72                 Bprint(&tabout, "\\v'-.5m'");
  73         for (ln = oldpos = 0; ln < lcount; ln++) {
  74                 linpos = 2 * ln - lcount + 1;
  75                 if (linpos != oldpos)
  76                         Bprint(&tabout, "\\v'%dp'", linpos - oldpos);
  77                 oldpos = linpos;
  78                 if (shortl == 0) {
  79                         tohcol(cl);
  80                         if (lcount > 1) {
  81                                 switch (interv(i, cl)) {
  82                                 case TOP:
  83                                         exhl = ln == 0 ? "1p" : "-1p";
  84                                         break;
  85                                 case BOT:
  86                                         exhl = ln == 1 ? "1p" : "-1p";
  87                                         break;
  88                                 case THRU:
  89                                         exhl = "1p";
  90                                         break;
  91                                 }
  92                                 if (exhl[0])
  93                                         Bprint(&tabout, "\\h'%s'", exhl);
  94                         } else if (lcount == 1) {
  95                                 switch (interv(i, cl)) {
  96                                 case TOP:
  97                                 case BOT:
  98                                         exhl = "-1p";
  99                                         break;
 100                                 case THRU:
 101                                         exhl = "1p";
 102                                         break;
 103                                 }
 104                                 if (exhl[0])
 105                                         Bprint(&tabout, "\\h'%s'", exhl);
 106                         }
 107                         if (lcount > 1) {
 108                                 switch (interv(i, cr + 1)) {
 109                                 case TOP:
 110                                         exhr = ln == 0 ? "-1p" : "+1p";
 111                                         break;
 112                                 case BOT:
 113                                         exhr = ln == 1 ? "-1p" : "+1p";
 114                                         break;
 115                                 case THRU:
 116                                         exhr = "-1p";
 117                                         break;
 118                                 }
 119                         } else if (lcount == 1) {
 120                                 switch (interv(i, cr + 1)) {
 121                                 case TOP:
 122                                 case BOT:
 123                                         exhr = "+1p";
 124                                         break;
 125                                 case THRU:
 126                                         exhr = "-1p";
 127                                         break;
 128                                 }
 129                         }
 130                 } else
 131                         Bprint(&tabout, "\\h'|\\n(%2su'", reg(cl, CLEFT));
 132                 Bprint(&tabout, "\\s\\n(%d", LSIZE);
 133                 if (linsize)
 134                         Bprint(&tabout, "\\v'-\\n(%dp/6u'", LSIZE);
 135                 if (shortl)
 136                         Bprint(&tabout, "\\l'|\\n(%2su'", reg(cr, CRIGHT));
 137                 else
 138                  {
 139                         lnch = "\\(ul";
 140                         if (pr1403)
 141                                 lnch = lintype == 2 ? "=" : "\\(ru";
 142                         if (cr + 1 >= ncol)
 143                                 Bprint(&tabout, "\\l'|\\n(TWu%s%s'", exhr, lnch);
 144                         else
 145                                 Bprint(&tabout, "\\l'(|\\n(%2su+|\\n(%2su)/2u%s%s'", reg(cr, CRIGHT),
 146                                     reg(cr + 1, CLEFT), exhr, lnch);
 147                 }
 148                 if (linsize)
 149                         Bprint(&tabout, "\\v'\\n(%dp/6u'", LSIZE);
 150                 Bprint(&tabout, "\\s0");
 151         }
 152         if (oldpos != 0)
 153                 Bprint(&tabout, "\\v'%dp'", -oldpos);
 154         if (!nodata)
 155                 Bprint(&tabout, "\\v'+.5m'");
 156 }
 157
 158
 159 void
 160 getstop(void)
 161 {
 162         int     i, c, k, junk, stopp;
 163
 164         stopp = 1;
 165         for (i = 0; i < MAXLIN; i++)
 166                 linestop[i] = 0;
 167         for (i = 0; i < nlin; i++)
 168                 for (c = 0; c < ncol; c++) {
 169                         k = left(i, c, &junk);
 170                         if (k >= 0 && linestop[k] == 0)
 171                                 linestop[k] = ++stopp;
 172                 }
 173         if (boxflg || allflg || dboxflg)
 174                 linestop[0] = 1;
 175 }
 176
 177
 178 int
 179 left(int i, int c, int *lwidp)
 180 {
 181         int     kind, li, lj;
 182                                         /* returns -1 if no line to left */
 183                                         /* returns number of line where it starts */
 184                                         /* stores into lwid the kind of line */
 185         *lwidp = 0;
 186         if (i < 0)
 187                 return(-1);
 188         kind = lefdata(i, c);
 189         if (kind == 0)
 190                 return(-1);
 191         if (i + 1 < nlin)
 192                 if (lefdata(next(i), c) == kind)
 193                         return(-1);
 194         li = i;
 195         while (i >= 0 && lefdata(i, c) == kind)
 196                 i = prev(li = i);
 197         if (prev(li) == -1)
 198                 li = 0;
 199         *lwidp = kind;
 200         for (lj = i + 1; lj < li; lj++)
 201                 if (instead[lj] && strcmp(instead[lj], ".TH") == 0)
 202                         return(li);
 203         for (i = i + 1; i < li; i++)
 204                 if (fullbot[i])
 205                         li = i;
 206         return(li);
 207 }
 208
 209
 210 int
 211 lefdata(int i, int c)
 212 {
 213         int     ck;
 214
 215         if (i >= nlin)
 216                 i = nlin - 1;
 217         if (ctype(i, c) == 's') {
 218                 for (ck = c; ctype(i, ck) == 's'; ck--)
 219                         ;
 220                 if (thish(i, ck) == 0)
 221                         return(0);
 222         }
 223         i = stynum[i];
 224         i = lefline[c][i];
 225         if (i > 0)
 226                 return(i);
 227         if (dboxflg && c == 0)
 228                 return(2);
 229         if (allflg)
 230                 return(1);
 231         if (boxflg && c == 0)
 232                 return(1);
 233         return(0);
 234 }
 235
 236
 237 int
 238 next(int i)
 239 {
 240         while (i + 1 < nlin) {
 241                 i++;
 242                 if (!fullbot[i] && !instead[i])
 243                         break;
 244         }
 245         return(i);
 246 }
 247
 248
 249 int
 250 prev(int i)
 251 {
 252         while (--i >= 0  && (fullbot[i] || instead[i]))
 253                 ;
 254         return(i);
 255 }
 256
 257