tbl/tt.c

   1 /* tt.c: subroutines for drawing horizontal lines */
   2 # include "t.h"
   3
   4 int
   5 ctype(int il, int ic)
   6 {
   7         if (instead[il])
   8                 return(0);
   9         if (fullbot[il])
  10                 return(0);
  11         il = stynum[il];
  12         return(style[ic][il]);
  13 }
  14
  15
  16 int
  17 min(int a, int b)
  18 {
  19         return(a < b ? a : b);
  20 }
  21
  22
  23 int
  24 fspan(int i, int c)
  25 {
  26         c++;
  27         return(c < ncol && ctype(i, c) == 's');
  28 }
  29
  30
  31 int
  32 lspan(int i, int c)
  33 {
  34         int     k;
  35
  36         if (ctype(i, c) != 's')
  37                 return(0);
  38         c++;
  39         if (c < ncol && ctype(i, c) == 's')
  40                 return(0);
  41         for (k = 0; ctype(i, --c) == 's'; k++)
  42                 ;
  43         return(k);
  44 }
  45
  46
  47 int
  48 ctspan(int i, int c)
  49 {
  50         int     k;
  51         c++;
  52         for (k = 1; c < ncol && ctype(i, c) == 's'; k++)
  53                 c++;
  54         return(k);
  55 }
  56
  57
  58 void
  59 tohcol(int ic)
  60 {
  61         if (ic == 0)
  62                 fprintf(tabout, "\\h'|0'");
  63         else
  64                 fprintf(tabout, "\\h'(|\\n(%2su+|\\n(%2su)/2u'", reg(ic, CLEFT),
  65                      reg(ic - 1, CRIGHT));
  66 }
  67
  68
  69 int
  70 allh(int i)
  71 {
  72                         /* return true if every element in line i is horizontal */
  73                                 /* also at least one must be horizontl */
  74         int     c, one, k;
  75
  76         if (fullbot[i])
  77                 return(1);
  78         if (i >= nlin)
  79                 return(dboxflg || boxflg);
  80         for (one = c = 0; c < ncol; c++) {
  81                 k = thish(i, c);
  82                 if (k == 0)
  83                         return(0);
  84                 if (k == 1)
  85                         continue;
  86                 one = 1;
  87         }
  88         return(one);
  89 }
  90
  91
  92 int
  93 thish(int i, int c)
  94 {
  95         int     t;
  96         char    *s;
  97         struct colstr *pc;
  98
  99         if (c < 0)
 100                 return(0);
 101         if (i < 0)
 102                 return(0);
 103         t = ctype(i, c);
 104         if (t == '_' || t == '-')
 105                 return('-');
 106         if (t == '=')
 107                 return('=');
 108         if (t == '^')
 109                 return(1);
 110         if (fullbot[i] )
 111                 return(fullbot[i]);
 112         if (t == 's')
 113                 return(thish(i, c - 1));
 114         if (t == 0)
 115                 return(1);
 116         pc = &table[i][c];
 117         s = (t == 'a' ? pc->rcol : pc->col);
 118         if (s == 0 || (point(s) && *s == 0))
 119                 return(1);
 120         if (vspen(s))
 121                 return(1);
 122         if (t = barent( s))
 123                 return(t);
 124         return(0);
 125 }
 126
 127