Updates from 0.2.1 into 0.2.1-inu-1.5release-0-2-1-inu-1-5

2 files changed, 112 insertions, 2979 deletions

diff --git a/table.c b/table.c
index fd2a2ff..00d3b2d 100644
--- a/table.c
+++ b/table.c
@@ -1,4 +1,4 @@
-/* $Id: table.c,v 1.1 2001/11/08 05:15:40 a-ito Exp $ */
+/* $Id: table.c,v 1.2 2001/11/09 04:59:18 a-ito Exp $ */
 /* 
  * HTML table
  */
@@ -25,32 +25,32 @@ static char *ruleB[] =
 #define HORIZONTALBAR "¨¬"
 #define RULE_WIDTH 2
 #else				/* not KANJI_SYMBOLS */
+char alt_rule[] = {
+'+', '|', '-', '+', '|', '|', '+', ' ', '-', '+', '-', ' ', '+', ' ', ' ', ' '};
 #if defined(__EMX__)&&!defined(JP_CHARSET)
 extern int	CodePage;
 
 static char    *_rule[] =
 #else
-char alt_rule[] = {
-'+', '|', '-', '+', '|', '|', '+', ' ', '-', '+', '-', ' ', '+', ' ', ' ', ' '};
 static char    *rule[] =
 #endif
 {
-    "<_RULE>\200</_RULE>",
-    "<_RULE>\201</_RULE>",
-    "<_RULE>\202</_RULE>",
-    "<_RULE>\203</_RULE>",
-    "<_RULE>\204</_RULE>",
-    "<_RULE>\205</_RULE>",
-    "<_RULE>\206</_RULE>",
-    "<_RULE>\207</_RULE>",
-    "<_RULE>\210</_RULE>",
-    "<_RULE>\211</_RULE>",
-    "<_RULE>\212</_RULE>",
-    "<_RULE>\213</_RULE>",
-    "<_RULE>\214</_RULE>",
-    "<_RULE>\215</_RULE>",
-    "<_RULE>\216</_RULE>",
-    "<_RULE>\217</_RULE>"
+    "<_RULE TYPE=0>+</_RULE>",
+    "<_RULE TYPE=1>|</_RULE>",
+    "<_RULE TYPE=2>-</_RULE>",
+    "<_RULE TYPE=3>+</_RULE>",
+    "<_RULE TYPE=4>|</_RULE>",
+    "<_RULE TYPE=5>|</_RULE>",
+    "<_RULE TYPE=6>+</_RULE>",
+    "<_RULE TYPE=7> </_RULE>",
+    "<_RULE TYPE=8>-</_RULE>",
+    "<_RULE TYPE=9>+</_RULE>",
+    "<_RULE TYPE=10>-</_RULE>",
+    "<_RULE TYPE=11> </_RULE>",
+    "<_RULE TYPE=12>+</_RULE>",
+    "<_RULE TYPE=13> </_RULE>",
+    "<_RULE TYPE=14> </_RULE>",
+    "<_RULE TYPE=15> </_RULE>"
 };
 #if defined(__EMX__)&&!defined(JP_CHARSET)
 static char   **ruleB = _rule, **rule = _rule;
@@ -64,7 +64,7 @@ static char *ruleB850[] = {
 static char   **ruleB = rule;
 #endif				/* not __EMX__ or JP_CHARSET */
 
-#define TN_VERTICALBAR "<_RULE>\205</_RULE>"
+#define TN_VERTICALBAR "<_RULE TYPE=5>|</_RULE>"
 #define RULE_WIDTH 1
 #endif				/* not KANJI_SYMBOLS */
 
@@ -386,7 +386,7 @@ check_row(struct table *t, int row)
 	r = max(t->max_rowsize * 2, row + 1);
 	tabdata = New_N(GeneralList **, r);
 	tabattr = New_N(table_attr *, r);
-	tabheight = New_N(short, r);
+	tabheight = NewAtom_N(short, r);
 #ifdef ID_EXT
 	tabidvalue = New_N(Str *, r);
 	tridvalue = New_N(Str, r);
@@ -461,7 +461,7 @@ int visible_length_offset = 0;
 int
 visible_length(char *str)
 {
-    int len = 0;
+    int len = 0, max_len = 0;
     int status = R_ST_NORMAL;
     int prev_status = status;
     Str tagbuf = Strnew();
@@ -508,6 +508,12 @@ visible_length(char *str)
 		len++;
 	    } while ((visible_length_offset + len) % Tabstop != 0);
 	}
+        else if (*str == '\n' || *str == '\r') {
+            if (len > max_len) max_len = len;
+            len = 0;
+        }
+       else if (*str == '\n' || *str == '\r')
+           len = 0;
 	str++;
     }
     if (status == R_ST_AMP) {
@@ -518,7 +524,7 @@ visible_length(char *str)
 	    len += strlen(r2);
 	}
     }
-    return len;
+    return len > max_len ? len : max_len;
 }
 
 int
@@ -1508,20 +1514,21 @@ check_table_height(struct table *t)
 			cell.rowspan[idx] == rowspan)
 			c = idx;
 		}
-		if (c > cell.maxcell && c < MAXCELL) {
-		    cell.maxcell++;
-		    cell.row[cell.maxcell] = j;
-		    cell.rowspan[cell.maxcell] = rowspan;
-		    cell.height[cell.maxcell] = 0;
-		    if (cell.maxcell > k)
-			bcopy(cell.index + k, cell.index + k + 1, cell.maxcell - k);
-		    cell.index[k] = cell.maxcell;
-		}
-		if (c <= cell.maxcell && c >= 0 &&
-		    cell.height[c] < t_dep) {
-		    cell.height[c] = t_dep;
-		    continue;
+        if (c < MAXCELL) {
+            if (c > cell.maxcell) {
+               cell.maxcell++;
+               cell.row[cell.maxcell] = j;
+               cell.rowspan[cell.maxcell] = rowspan;
+               cell.height[cell.maxcell] = 0;
+               if (cell.maxcell > k)
+                   bcopy(cell.index + k, cell.index + k + 1, cell.maxcell - k);
+               cell.index[k] = cell.maxcell;
+            }
+
+            if (cell.height[c] < t_dep)
+               cell.height[c] = t_dep;
 		}
+        continue;
 	    }
 	    if (t->tabheight[j] < t_dep)
 		t->tabheight[j] = t_dep;
@@ -1639,33 +1646,29 @@ make_caption(struct table *t, struct html_feed_environ *h_env)
     struct html_feed_environ henv;
     struct readbuffer obuf;
     struct environment envs[MAX_ENV_LEVEL];
-    TextLineList *tl;
-    Str tmp;
+    int limit;
 
     if (t->caption->length <= 0)
 	return;
 
-    if (t->total_width <= 0)
-	t->total_width = h_env->limit;
-
+    if (t->total_width > 0)
+       limit = t->total_width;
+    else
+       limit = h_env->limit;
     init_henv(&henv, &obuf, envs, MAX_ENV_LEVEL, newTextLineList(),
-	      t->total_width, h_env->envs[h_env->envc].indent);
+             limit, h_env->envs[h_env->envc].indent);
     HTMLlineproc1("<center>", &henv);
     HTMLlineproc0(t->caption->ptr, &henv, FALSE);
     HTMLlineproc1("</center>", &henv);
 
-    tl = henv.buf;
-
-    if (tl->nitem > 0) {
-	TextLineListItem *ti;
-	tmp = Strnew_charp("<pre for_table>");
-	for (ti = tl->first; ti != NULL; ti = ti->next) {
-	    Strcat(tmp, ti->ptr->line);
-	    Strcat_char(tmp, '\n');
-	}
-	Strcat_charp(tmp, "</pre>");
-	HTMLlineproc1(tmp->ptr, h_env);
-    }
+    if (t->total_width < henv.maxlimit)
+       t->total_width = henv.maxlimit;
+    limit = h_env->limit;
+    h_env->limit = t->total_width;
+    HTMLlineproc1("<center>", h_env);
+    HTMLlineproc0(t->caption->ptr, h_env, FALSE);
+    HTMLlineproc1("</center>", h_env);
+    h_env->limit = limit;
 }
 
 void
@@ -1674,7 +1677,7 @@ renderTable(struct table *t,
 	    struct html_feed_environ *h_env)
 {
     int i, j, w, r, h;
-    Str renderbuf = Strnew();
+    Str renderbuf;
     short new_tabwidth[MAXCOL];
 #ifdef MATRIX
     int itr;
@@ -1682,6 +1685,7 @@ renderTable(struct table *t,
     MAT *mat, *minv;
     PERM *pivot;
 #endif				/* MATRIX */
+    int width;
     int rulewidth;
     Str vrulea, vruleb, vrulec;
 #ifdef ID_EXT
@@ -1830,12 +1834,14 @@ renderTable(struct table *t,
     }
 
     /* table output */
+    width = t->total_width;
+
     make_caption(t, h_env);
 
     HTMLlineproc1("<pre for_table>", h_env);
 #ifdef ID_EXT
     if (t->id != NULL) {
-	idtag = Sprintf("<_id id=\"%s\">", htmlquote_str((t->id)->ptr));
+	idtag = Sprintf("<_id id=\"%s\">", html_quote((t->id)->ptr));
 	HTMLlineproc1(idtag->ptr, h_env);
     }
 #endif				/* ID_EXT */
@@ -1844,7 +1850,7 @@ renderTable(struct table *t,
     case BORDER_THICK:
 	renderbuf = Strnew();
 	print_sep(t, -1, T_TOP, t->maxcol, renderbuf);
-	push_render_image(renderbuf, t->total_width, h_env);
+       push_render_image(renderbuf, width, t->total_width, h_env);
 	t->total_height += 1;
 	break;
     }
@@ -1883,7 +1889,7 @@ renderTable(struct table *t,
 #ifdef ID_EXT
 	    if (t->tridvalue[r] != NULL && h == 0) {
 		idtag = Sprintf("<_id id=\"%s\">",
-				htmlquote_str((t->tridvalue[r])->ptr));
+				html_quote((t->tridvalue[r])->ptr));
 		Strcat(renderbuf, idtag);
 	    }
 #endif				/* ID_EXT */
@@ -1892,7 +1898,7 @@ renderTable(struct table *t,
 #ifdef ID_EXT
 		if (t->tabidvalue[r][i] != NULL && h == 0) {
 		    idtag = Sprintf("<_id id=\"%s\">",
-				    htmlquote_str((t->tabidvalue[r][i])->ptr));
+				    html_quote((t->tabidvalue[r][i])->ptr));
 		    Strcat(renderbuf, idtag);
 		}
 #endif				/* ID_EXT */
@@ -1921,12 +1927,12 @@ renderTable(struct table *t,
 		t->total_height += 1;
 		break;
 	    }
-	    push_render_image(renderbuf, t->total_width, h_env);
+           push_render_image(renderbuf, width, t->total_width, h_env);
 	}
 	if (r < t->maxrow && t->border_mode != BORDER_NONE) {
 	    renderbuf = Strnew();
 	    print_sep(t, r, T_MIDDLE, t->maxcol, renderbuf);
-	    push_render_image(renderbuf, t->total_width, h_env);
+           push_render_image(renderbuf, width, t->total_width, h_env);
 	}
 	t->total_height += t->tabheight[r];
     }
@@ -1935,7 +1941,7 @@ renderTable(struct table *t,
     case BORDER_THICK:
 	renderbuf = Strnew();
 	print_sep(t, t->maxrow, T_BOTTOM, t->maxcol, renderbuf);
-	push_render_image(renderbuf, t->total_width, h_env);
+       push_render_image(renderbuf, width, t->total_width, h_env);
 	t->total_height += 1;
 	break;
     }
@@ -1943,7 +1949,7 @@ renderTable(struct table *t,
 	renderbuf = Strnew(" ");
 	t->total_height++;
 	t->total_width = 1;
-	push_render_image(renderbuf, t->total_width, h_env);
+       push_render_image(renderbuf, 1, t->total_width, h_env);
     }
     HTMLlineproc1("</pre>", h_env);
 }
@@ -2244,10 +2250,10 @@ skip_space(struct table *t, char *line, struct table_linfo *linfo,
 	else {
 	    if (c == '&') {
 		ec = getescapechar(&line);
-		if (ec) {
+		if (ec >= 0) {
 		    c = ec;
 		    ctype = IS_CNTRL(ec) ? PC_CTRL : PC_ASCII;
-		    len = strlen(conv_latin1(ec));
+		    len = strlen(conv_entity(ec));
 		    wlen = line - save;
 		}
 	    }
@@ -2411,6 +2417,19 @@ feed_table_tag(struct table *tbl, char *line, struct table_mode *mode, int width
 
     cmd = tag->tagid;
 
+    if (mode->pre_mode & TBLM_IGNORE) {
+	switch (cmd) {
+	case HTML_N_STYLE:
+	    mode->pre_mode &= ~TBLM_STYLE;
+	    return TAG_ACTION_NONE;
+	case HTML_N_SCRIPT:
+	    mode->pre_mode &= ~TBLM_SCRIPT;
+	    return TAG_ACTION_NONE;
+	default:
+	    return TAG_ACTION_NONE;
+	}
+    }
+
     switch (cmd) {
     CASE_TABLE_TAG:
 	if (mode->caption) 
@@ -2433,17 +2452,6 @@ feed_table_tag(struct table *tbl, char *line, struct table_mode *mode, int width
 	}
     }
 
-    if (mode->pre_mode & TBLM_IGNORE) {
-	switch (cmd) {
-	case HTML_N_STYLE:
-	    mode->pre_mode &= ~TBLM_STYLE;
-	case HTML_N_SCRIPT:
-	    mode->pre_mode &= ~TBLM_SCRIPT;
-	default:
-	    return TAG_ACTION_NONE;
-	}
-    }
-
     /* failsafe: a tag other than <option></option>and </select> in *
      * <select> environment is regarded as the end of <select>. */
     if (mode->pre_mode & TBLM_INSELECT && cmd == HTML_N_FORM) {
@@ -2720,6 +2728,7 @@ feed_table_tag(struct table *tbl, char *line, struct table_mode *mode, int width
     case HTML_N_LISTING:
     case HTML_XMP:
     case HTML_N_XMP:
+    case HTML_PLAINTEXT:
 	feed_table_block_tag(tbl, line, mode, 0, cmd);
 	switch (cmd) {
 	case HTML_PRE:
@@ -2740,6 +2749,9 @@ feed_table_tag(struct table *tbl, char *line, struct table_mode *mode, int width
 	case HTML_N_XMP:
 	    mode->pre_mode &= ~TBLM_XMP;
 	    break;
+       case HTML_PLAINTEXT:
+           mode->pre_mode |= TBLM_PLAINTEXT;
+           break;
 	}
 	break;
     case HTML_DL:
@@ -2793,28 +2805,12 @@ feed_table_tag(struct table *tbl, char *line, struct table_mode *mode, int width
 	tok = process_img(tag);
 	feed_table1(tbl, tok, mode, width);
 	break;
-#ifdef NEW_FORM
     case HTML_FORM:
 	process_form(tag);
 	break;
     case HTML_N_FORM:
 	process_n_form();
 	break;
-#else				/* not NEW_FORM */
-    case HTML_FORM:
-    case HTML_N_FORM:
-	feed_table_block_tag(tbl, "<br>", mode, 0, HTML_BR);
-	if (line[1] == '/') {
-	    tok = Strnew_charp("</form_int ");
-	    Strcat_charp(tok, line + 6);
-	}
-	else {
-	    tok = Strnew_charp("<form_int ");
-	    Strcat_charp(tok, line + 5);
-	}
-	pushdata(tbl, tbl->row, tbl->col, tok->ptr);
-	break;
-#endif				/* not NEW_FORM */
     case HTML_INPUT:
 	tmp = process_input(tag);
 	feed_table1(tbl, tmp, mode, width);
@@ -3018,15 +3014,30 @@ feed_table(struct table *tbl, char *line, struct table_mode *mode,
 		else {
 		    int ec;
 		    q = p;
-		    ec = getescapechar(&p);
-		    r = conv_latin1(ec);
-		    if (r != NULL && strlen(r) == 1 &&
-			ec == (unsigned char)*r) {
-			Strcat_char(tmp, *r);
-		    }
-		    else {
-			Strcat_char(tmp, *q);
-			p = q + 1;
+            switch (ec = getescapechar(&p)) {
+            case '<':
+               Strcat_charp(tmp, "<");
+               break;
+            case '>':
+               Strcat_charp(tmp, ">");
+               break;
+            case '&':
+               Strcat_charp(tmp, "&");
+               break;
+            case '\r':
+               Strcat_char(tmp, '\n');
+               break;
+            default:
+               r = conv_entity(ec);
+               if (r != NULL && strlen(r) == 1 &&
+                   ec == (unsigned char)*r) {
+                   Strcat_char(tmp, *r);
+                   break;
+               }
+            case -1:
+                   Strcat_char(tmp, *q);
+                   p = q + 1;
+                   break;
 		    }
 		}
 	    }
diff --git a/table.c.0 b/table.c.0
deleted file mode 100644
index f3cacb1..0000000
--- a/table.c.0
+++ /dev/null
@@ -1,2878 +0,0 @@
-/* -*- mode: c; c-basic-offset: 4; tab-width: 8; -*- */
-/* $Id: table.c.0,v 1.1 2001/11/08 05:15:52 a-ito Exp $ */
-/* 
- * HTML table
- */
-#include <sys/types.h>
-#include <stdio.h>
-#include <string.h>
-#include <math.h>
-#ifdef __EMX__
-#include <strings.h>
-#endif				/* __EMX__ */
-
-#include "fm.h"
-#include "html.h"
-#include "parsetag.h"
-#include "Str.h"
-#include "myctype.h"
-
-#ifdef KANJI_SYMBOLS
-static char *rule[] =
-{"¨«", "¨§", "¨¨", "¨£", "¨©", "¨¢", "¨¤", "07", "¨ª", "¨¦", "¨¡", "0B", "¨¥", "0D", "0E", "  "};
-static char *ruleB[] =
-{"00", "¨·", "¨¸", "¨®", "¨¹", "¨­", "¨¯", "07", "¨º", "¨±", "¨¬", "0B", "¨°", "0D", "0E", "  "};
-#define TN_VERTICALBAR "¨¢"
-#define HORIZONTALBAR "¨¬"
-#define RULE_WIDTH 2
-#else				/* not KANJI_SYMBOLS */
-static char *rule[] =
-{
-    "<_RULE TYPE=0>+</_RULE>",
-    "<_RULE TYPE=1>+</_RULE>",
-    "<_RULE TYPE=2>+</_RULE>",
-    "<_RULE TYPE=3>+</_RULE>",
-    "<_RULE TYPE=4>+</_RULE>",
-    "<_RULE TYPE=5>|</_RULE>",
-    "<_RULE TYPE=6>+</_RULE>",
-    "<_RULE TYPE=7>07</_RULE>",
-    "<_RULE TYPE=8>+</_RULE>",
-    "<_RULE TYPE=9>+</_RULE>",
-    "<_RULE TYPE=10>-</_RULE>",
-    "<_RULE TYPE=11>0B</_RULE>",
-    "<_RULE TYPE=12>+</_RULE>",
-    "<_RULE TYPE=13>0D</_RULE>",
-    "<_RULE TYPE=14>0E</_RULE>",
-    "<_RULE TYPE=15> </_RULE>"};
-static char **ruleB = rule;
-#define TN_VERTICALBAR "<_RULE TYPE=5>|</_RULE>"
-#define HORIZONTALBAR "<_RULE TYPE=10>-</_RULE>"
-#define RULE_WIDTH 1
-#endif				/* not KANJI_SYMBOLS */
-
-#define RULE(mode) (((mode)==BORDER_THICK)?ruleB:rule)
-#define TK_VERTICALBAR(mode) (RULE(mode)[5])
-
-#define BORDERWIDTH     2
-#define BORDERHEIGHT    1
-#define NOBORDERWIDTH   1
-#define NOBORDERHEIGHT  0
-
-#define HTT_X   1
-#define HTT_Y   2
-#define HTT_ALIGN  0x30
-#define HTT_LEFT   0x00
-#define HTT_CENTER 0x10
-#define HTT_RIGHT  0x20
-#define HTT_TRSET  0x40
-#ifdef NOWRAP
-#define HTT_NOWRAP  4
-#endif				/* NOWRAP */
-#define TAG_IS(s,tag,len) (strncasecmp(s,tag,len)==0&&(s[len] == '>' || IS_SPACE((int)s[len])))
-
-#ifndef max
-#define max(a,b)        ((a) > (b) ? (a) : (b))
-#endif				/* not max */
-#ifndef min
-#define min(a,b)        ((a) > (b) ? (b) : (a))
-#endif				/* not min */
-#ifndef abs
-#define abs(a)          ((a) >= 0. ? (a) : -(a))
-#endif				/* not abs */
-
-#ifdef MATRIX
-#ifndef MESCHACH
-#include "matrix.c"
-#endif				/* not MESCHACH */
-#endif				/* MATRIX */
-
-#ifdef MATRIX
-int correct_table_matrix(struct table *, int, int, int, double);
-void set_table_matrix(struct table *, int);
-#endif				/* MATRIX */
-
-#ifdef MATRIX
-static double
-weight(int x)
-{
-
-    if (x < COLS)
-	return (double) x;
-    else
-	return COLS * (log((double) x / COLS) + 1.);
-}
-
-static double
-weight2(int a)
-{
-    return (double) a / COLS * 4 + 1.;
-}
-
-#define sigma_td(a)       (0.5*weight2(a))	/* <td width=...> */
-#define sigma_td_nw(a)    (32*weight2(a))	/* <td ...> */
-#define sigma_table(a)    (0.25*weight2(a))	/* <table width=...> */
-#define sigma_table_nw(a) (2*weight2(a))	/* <table...> */
-#else				/* not MATRIX */
-#define LOG_MIN 1.0
-static double
-weight3(int x)
-{
-    if (x < 0.1)
-	return 0.1;
-    if (x < LOG_MIN)
-	return (double) x;
-    else
-	return LOG_MIN * (log((double) x / LOG_MIN) + 1.);
-}
-#endif				/* not MATRIX */
-
-static int
-dsort_index(short e1, short *ent1, short e2, short *ent2, int base,
-	    char *index, int nent)
-{
-    int n = nent;
-    int k = 0;
-
-    int e = e1 * base + e2;
-    while (n > 0) {
-	int nn = n / 2;
-	int idx = index[k + nn];
-	int ne = ent1[idx] * base + ent2[idx];
-	if (ne == e) {
-	    k += nn;
-	    break;
-	}
-	else if (ne < e) {
-	    n -= nn + 1;
-	    k += nn + 1;
-	}
-	else {
-	    n = nn;
-	}
-    }
-    return k;
-}
-
-static int
-fsort_index(double e, double *ent, char *index, int nent)
-{
-    int n = nent;
-    int k = 0;
-
-    while (n > 0) {
-	int nn = n / 2;
-	int idx = index[k + nn];
-	double ne = ent[idx];
-	if (ne == e) {
-	    k += nn;
-	    break;
-	}
-	else if (ne > e) {
-	    n -= nn + 1;
-	    k += nn + 1;
-	}
-	else {
-	    n = nn;
-	}
-    }
-    return k;
-}
-
-static void
-dv2sv(double *dv, short *iv, int size)
-{
-    int i, k, iw;
-    char *index;
-    double *edv;
-    double w = 0., x;
-
-    index = NewAtom_N(char, size);
-    edv = NewAtom_N(double, size);
-    for (i = 0; i < size; i++) {
-	iv[i] = ceil(dv[i]);
-	edv[i] = (double) iv[i] - dv[i];
-    }
-
-    w = 0.;
-    for (k = 0; k < size; k++) {
-	x = edv[k];
-	w += x;
-	i = fsort_index(x, edv, index, k);
-	if (k > i)
-	    bcopy(index + i, index + i + 1, k - i);
-	index[i] = k;
-    }
-    iw = min((int) (w + 0.5), size);
-    if (iw == 0)
-	return;
-    x = edv[(int) index[iw - 1]];
-    for (i = 0; i < size; i++) {
-	k = index[i];
-	if (i >= iw && abs(edv[k] - x) > 1e-6)
-	    break;
-	iv[k]--;
-    }
-}
-
-static int
-table_colspan(struct table *t, int row, int col)
-{
-    int i;
-    for (i = col + 1; i <= t->maxcol && (t->tabattr[row][i] & HTT_X); i++);
-    return i - col;
-}
-
-static int
-table_rowspan(struct table *t, int row, int col)
-{
-    int i;
-    if (!t->tabattr[row])
-	return 0;
-    for (i = row + 1; i <= t->maxrow && t->tabattr[i] &&
-	 (t->tabattr[i][col] & HTT_Y); i++);
-    return i - row;
-}
-
-static int
-minimum_cellspacing(int border_mode)
-{
-    switch (border_mode) {
-    case BORDER_THIN:
-    case BORDER_THICK:
-    case BORDER_NOWIN:
-	return RULE_WIDTH;
-    case BORDER_NONE:
-	return 1;
-    default:
-	/* not reached */
-	return 0;
-    }
-}
-
-static int
-table_border_width(struct table *t)
-{
-    switch (t->border_mode) {
-    case BORDER_THIN:
-    case BORDER_THICK:
-	return t->maxcol * t->cellspacing + 2 * (RULE_WIDTH + t->cellpadding);
-    case BORDER_NOWIN:
-    case BORDER_NONE:
-	return t->maxcol * t->cellspacing;
-    default:
-	/* not reached */
-	return 0;
-    }
-}
-
-struct table *
-newTable()
-{
-    struct table *t;
-    int i, j;
-
-    t = New(struct table);
-    t->max_rowsize = MAXROW;
-    t->tabdata = New_N(TextList **, MAXROW);
-    t->tabattr = New_N(table_attr *, MAXROW);
-    t->tabheight = NewAtom_N(short, MAXROW);
-#ifdef ID_EXT
-    t->tabidvalue = New_N(Str *, MAXROW);
-    t->tridvalue = New_N(Str, MAXROW);
-#endif				/* ID_EXT */
-
-    for (i = 0; i < MAXROW; i++) {
-	t->tabdata[i] = NULL;
-	t->tabattr[i] = 0;
-	t->tabheight[i] = 0;
-#ifdef ID_EXT
-	t->tabidvalue[i] = NULL;
-	t->tridvalue[i] = NULL;
-#endif				/* ID_EXT */
-    }
-    for (j = 0; j < MAXCOL; j++) {
-	t->tabwidth[j] = 0;
-	t->minimum_width[j] = 0;
-	t->fixed_width[j] = 0;
-    }
-    t->cell.maxcell = -1;
-    t->cell.icell = -1;
-    t->tabcontentssize = 0;
-    t->indent = 0;
-    t->ntable = 0;
-    t->tables_size = 0;
-    t->tables = NULL;
-#ifdef MATRIX
-    t->matrix = NULL;
-    t->vector = NULL;
-#endif				/* MATRIX */
-    t->linfo.prev_ctype = PC_ASCII;
-    t->linfo.prev_spaces = -1;
-    t->linfo.prevchar = ' ';
-    t->trattr = 0;
-
-    t->status = R_ST_NORMAL;
-    t->suspended_input = Strnew();
-    t->caption = Strnew();
-#ifdef ID_EXT
-    t->id = NULL;
-#endif
-    return t;
-}
-
-static void
-check_row(struct table *t, int row)
-{
-    int i, r;
-    TextList ***tabdata;
-    table_attr **tabattr;
-    short *tabheight;
-#ifdef ID_EXT
-    Str **tabidvalue;
-    Str *tridvalue;
-#endif				/* ID_EXT */
-
-    if (row >= t->max_rowsize) {
-	r = max(t->max_rowsize * 2, row + 1);
-	tabdata = New_N(TextList **, r);
-	tabattr = New_N(table_attr *, r);
-	tabheight = New_N(short, r);
-#ifdef ID_EXT
-	tabidvalue = New_N(Str *, r);
-	tridvalue = New_N(Str, r);
-#endif				/* ID_EXT */
-	for (i = 0; i < t->max_rowsize; i++) {
-	    tabdata[i] = t->tabdata[i];
-	    tabattr[i] = t->tabattr[i];
-	    tabheight[i] = t->tabheight[i];
-#ifdef ID_EXT
-	    tabidvalue[i] = t->tabidvalue[i];
-	    tridvalue[i] = t->tridvalue[i];
-#endif				/* ID_EXT */
-	}
-	for (; i < r; i++) {
-	    tabdata[i] = NULL;
-	    tabattr[i] = NULL;
-	    tabheight[i] = 0;
-#ifdef ID_EXT
-	    tabidvalue[i] = NULL;
-	    tridvalue[i] = NULL;
-#endif				/* ID_EXT */
-	}
-	t->tabdata = tabdata;
-	t->tabattr = tabattr;
-	t->tabheight = tabheight;
-#ifdef ID_EXT
-	t->tabidvalue = tabidvalue;
-	t->tridvalue = tridvalue;
-#endif				/* ID_EXT */
-	t->max_rowsize = r;
-    }
-
-    if (t->tabdata[row] == NULL) {
-	t->tabdata[row] = New_N(TextList *, MAXCOL);
-	t->tabattr[row] = NewAtom_N(table_attr, MAXCOL);
-#ifdef ID_EXT
-	t->tabidvalue[row] = New_N(Str, MAXCOL);
-#endif				/* ID_EXT */
-	for (i = 0; i < MAXCOL; i++) {
-	    t->tabdata[row][i] = NULL;
-	    t->tabattr[row][i] = 0;
-#ifdef ID_EXT
-	    t->tabidvalue[row][i] = NULL;
-#endif				/* ID_EXT */
-	}
-    }
-}
-
-void
-pushdata(struct table *t, int row, int col, char *data)
-{
-    check_row(t, row);
-    if (t->tabdata[row][col] == NULL)
-	t->tabdata[row][col] = newTextList();
-
-    pushText(t->tabdata[row][col], data);
-}
-
-int visible_length_offset = 0;
-int
-visible_length(char *str)
-{
-    int len = 0;
-    int status = R_ST_NORMAL;
-    int prev_status = status;
-    Str tagbuf = Strnew();
-    char *t, *r2;
-    struct parsed_tagarg *t_arg, *tt;
-    int amp_len;
-
-    t = str;
-    while (*str) {
-	prev_status = status;
-	len += next_status(*str, &status);
-	if (status == R_ST_TAG0) {
-	    Strclear(tagbuf);
-	    Strcat_char(tagbuf, *str);
-	}
-	else if (status == R_ST_TAG || status == R_ST_DQUOTE || status == R_ST_QUOTE || status == R_ST_EQL) {
-	    Strcat_char(tagbuf, *str);
-	}
-	else if (status == R_ST_AMP) {
-	    if (prev_status == R_ST_NORMAL) {
-		Strclear(tagbuf);
-		amp_len = 0;
-	    }
-	    else {
-		Strcat_char(tagbuf, *str);
-		len++;
-		amp_len++;
-	    }
-	}
-	else if (status == R_ST_NORMAL && prev_status == R_ST_AMP) {
-	    Strcat_char(tagbuf, *str);
-	    r2 = tagbuf->ptr;
-	    t = getescapecmd(&r2);
-	    len += strlen(t) - 1 - amp_len;
-	    if (*r2 != '\0') {
-		str -= strlen(r2);
-	    }
-	}
-	else if (status == R_ST_NORMAL && ST_IS_REAL_TAG(prev_status)) {
-	    Strcat_char(tagbuf, *str);
-	    if (TAG_IS(tagbuf->ptr, "<img", 4)) {
-		int anchor_len = 0;
-		t_arg = parse_tag(tagbuf->ptr + 5);
-		for (tt = t_arg; tt; tt = tt->next) {
-		    if (strcasecmp(tt->arg, "src") == 0 && tt->value && anchor_len == 0) {
-			r2 = tt->value + strlen(tt->value) - 1;
-			while (tt->value < r2 && *r2 != '/')
-			    r2--;
-			if (*r2 == '/')
-			    r2++;
-			while (*r2 && *r2 != '.') {
-			    r2++;
-			    anchor_len++;
-			}
-			anchor_len += 2;
-		    }
-		    else if (strcasecmp(tt->arg, "alt") == 0 && tt->value) {
-			anchor_len = strlen(tt->value) + 1;
-			break;
-		    }
-		}
-		len += anchor_len;
-	    }
-	    else if (TAG_IS(tagbuf->ptr, "<input", 6)) {
-		int width = 20;
-		int valuelen = 1;
-		int input_type = FORM_INPUT_TEXT;
-		t_arg = parse_tag(tagbuf->ptr + 7);
-		for (tt = t_arg; tt; tt = tt->next) {
-		    if (strcasecmp(tt->arg, "type") == 0 && tt->value) {
-			input_type = formtype(tt->value);
-		    }
-		    else if (strcasecmp(tt->arg, "value") == 0 && tt->value) {
-			valuelen = strlen(tt->value);
-		    }
-		    else if (strcasecmp(tt->arg, "width") == 0 && tt->value) {
-			width = atoi(tt->value);
-		    }
-		}
-		switch (input_type) {
-		case FORM_INPUT_TEXT:
-		case FORM_INPUT_FILE:
-		case FORM_INPUT_PASSWORD:
-		    len += width + 2;
-		    break;
-		case FORM_INPUT_SUBMIT:
-		case FORM_INPUT_RESET:
-		case FORM_INPUT_IMAGE:
-		case FORM_INPUT_BUTTON:
-		    len += valuelen + 2;
-		    break;
-		case FORM_INPUT_CHECKBOX:
-		case FORM_INPUT_RADIO:
-		    len += 3;
-		}
-	    }
-	    else if (TAG_IS(tagbuf->ptr, "<textarea", 9)) {
-		int width = 20;
-		t_arg = parse_tag(tagbuf->ptr + 7);
-		for (tt = t_arg; tt; tt = tt->next) {
-		    if (strcasecmp(tt->arg, "cols") == 0 && tt->value) {
-			width = atoi(tt->value);
-		    }
-		}
-		len += width + 2;
-	    }
-	    else if (TAG_IS(tagbuf->ptr, "<option", 7))
-		len += 3;
-	}
-	else if (*str == '\t') {
-	    len--;
-	    do {
-		len++;
-	    } while ((visible_length_offset + len) % Tabstop != 0);
-	}
-	str++;
-    }
-    if (status == R_ST_AMP) {
-	r2 = tagbuf->ptr;
-	t = getescapecmd(&r2);
-	len += strlen(t) - 1 - amp_len;
-	if (*r2 != '\0') {
-	    len += strlen(r2);
-	}
-    }
-    return len;
-}
-
-int
-maximum_visible_length(char *str)
-{
-    int maxlen, len;
-    char *p;
-
-    for (p = str; *p && *p != '\t'; p++);
-
-    visible_length_offset = 0;
-    maxlen = visible_length(str);
-
-    if (*p == '\0')
-	return maxlen;
-
-    for (visible_length_offset = 1; visible_length_offset < Tabstop;
-	 visible_length_offset++) {
-	len = visible_length(str);
-	if (maxlen < len) {
-	    maxlen = len;
-	    break;
-	}
-    }
-    return maxlen;
-}
-
-char *
-align(char *str, int width, int mode)
-{
-    int i, l, l1, l2;
-    Str buf = Strnew();
-
-    if (str == NULL || *str == '\0') {
-	for (i = 0; i < width; i++)
-	    Strcat_char(buf, ' ');
-	return buf->ptr;
-    }
-    l = width - visible_length(str);
-    switch (mode) {
-    case ALIGN_CENTER:
-	l1 = l / 2;
-	l2 = l - l1;
-	for (i = 0; i < l1; i++)
-	    Strcat_char(buf, ' ');
-	Strcat_charp(buf, str);
-	for (i = 0; i < l2; i++)
-	    Strcat_char(buf, ' ');
-	return buf->ptr;
-    case ALIGN_LEFT:
-	Strcat_charp(buf, str);
-	for (i = 0; i < l; i++)
-	    Strcat_char(buf, ' ');
-	return buf->ptr;
-    case ALIGN_RIGHT:
-	for (i = 0; i < l; i++)
-	    Strcat_char(buf, ' ');
-	Strcat_charp(buf, str);
-	return buf->ptr;
-    }
-    return Strnew_charp(str)->ptr;
-}
-
-void
-print_item(struct table *t,
-	   int row, int col, int width,
-	   Str buf)
-{
-    int alignment;
-    char *p;
-
-    if (t->tabdata[row])
-	p = popText(t->tabdata[row][col]);
-    else
-	p = NULL;
-
-    if (p != NULL) {
-	check_row(t, row);
-	alignment = ALIGN_CENTER;
-	if ((t->tabattr[row][col] & HTT_ALIGN) == HTT_LEFT)
-	    alignment = ALIGN_LEFT;
-	else if ((t->tabattr[row][col] & HTT_ALIGN) == HTT_RIGHT)
-	    alignment = ALIGN_RIGHT;
-	else if ((t->tabattr[row][col] & HTT_ALIGN) == HTT_CENTER)
-	    alignment = ALIGN_CENTER;
-	Strcat_charp(buf, align(p, width, alignment));
-    }
-    else
-	Strcat_charp(buf, align(NULL, width, ALIGN_CENTER));
-}
-
-
-#define T_TOP           0
-#define T_MIDDLE        1
-#define T_BOTTOM        2
-
-void
-print_sep(struct table *t,
-	  int row, int type, int maxcol,
-	  Str buf)
-{
-    int forbid;
-    char **rulep;
-    int i, j, k, l, m;
-
-#if defined(__EMX__)&&!defined(JP_CHARSET)
-    if(CodePage==850){
-	ruleB = ruleB850;
-	rule  = rule850;
-    }
-#endif
-    if (row >= 0)
-	check_row(t, row);
-    check_row(t, row + 1);
-    if ((type == T_TOP || type == T_BOTTOM) && t->border_mode == BORDER_THICK) {
-	rulep = ruleB;
-    }
-    else {
-	rulep = rule;
-    }
-    forbid = 1;
-    if (type == T_TOP)
-	forbid |= 2;
-    else if (type == T_BOTTOM)
-	forbid |= 8;
-    else if (t->tabattr[row + 1][0] & HTT_Y) {
-	forbid |= 4;
-    }
-    if (t->border_mode != BORDER_NOWIN)
-	Strcat_charp(buf, RULE(t->border_mode)[forbid]);
-    for (i = 0; i <= maxcol; i++) {
-	forbid = 10;
-	if (type != T_BOTTOM && (t->tabattr[row + 1][i] & HTT_Y)) {
-	    if (t->tabattr[row + 1][i] & HTT_X) {
-		goto do_last_sep;
-	    }
-	    else {
-		for (k = row; k >= 0 && t->tabattr[k] && (t->tabattr[k][i] & HTT_Y); k--);
-		m = t->tabwidth[i] + 2 * t->cellpadding;
-		for (l = i + 1; l <= t->maxcol && (t->tabattr[row][l] & HTT_X); l++)
-		    m += t->tabwidth[l] + t->cellspacing;
-		print_item(t, k, i, m, buf);
-	    }
-	}
-	else {
-	    for (j = 0; j < t->tabwidth[i] + 2 * t->cellpadding; j += RULE_WIDTH) {
-		Strcat_charp(buf, rulep[forbid]);
-	    }
-	}
-      do_last_sep:
-	if (i < maxcol) {
-	    forbid = 0;
-	    if (type == T_TOP)
-		forbid |= 2;
-	    else if (t->tabattr[row][i + 1] & HTT_X) {
-		forbid |= 2;
-	    }
-	    if (type == T_BOTTOM)
-		forbid |= 8;
-	    else {
-		if (t->tabattr[row + 1][i + 1] & HTT_X) {
-		    forbid |= 8;
-		}
-		if (t->tabattr[row + 1][i + 1] & HTT_Y) {
-		    forbid |= 4;
-		}
-		if (t->tabattr[row + 1][i] & HTT_Y) {
-		    forbid |= 1;
-		}
-	    }
-	    if (forbid != 15)	/* forbid==15 means 'no rule at all' */
-		Strcat_charp(buf, rulep[forbid]);
-	}
-    }
-    forbid = 4;
-    if (type == T_TOP)
-	forbid |= 2;
-    if (type == T_BOTTOM)
-	forbid |= 8;
-    if (t->tabattr[row + 1][maxcol] & HTT_Y) {
-	forbid |= 1;
-    }
-    if (t->border_mode != BORDER_NOWIN)
-	Strcat_charp(buf, RULE(t->border_mode)[forbid]);
-    Strcat_charp(buf, "<eol>");
-}
-
-static int
-get_spec_cell_width(struct table *tbl, int row, int col)
-{
-    int i, w;
-
-    w = tbl->tabwidth[col];
-    for (i = col + 1; i <= tbl->maxcol; i++) {
-	check_row(tbl, row);
-	if (tbl->tabattr[row][i] & HTT_X)
-	    w += tbl->tabwidth[i] + tbl->cellspacing;
-	else
-	    break;
-    }
-    return w;
-}
-
-void
-do_refill(struct table *tbl, int row, int col)
-{
-    TextList *orgdata;
-    TextListItem *l;
-    struct readbuffer obuf;
-    struct html_feed_environ h_env;
-    struct environment envs[MAX_ENV_LEVEL];
-
-    if (tbl->tabdata[row] == NULL ||
-	tbl->tabdata[row][col] == NULL)
-	return;
-    orgdata = tbl->tabdata[row][col];
-    tbl->tabdata[row][col] = newTextList();
-
-    init_henv(&h_env, &obuf, envs, MAX_ENV_LEVEL, tbl->tabdata[row][col],
-	      tbl->tabwidth[col], 0);
-    h_env.limit = get_spec_cell_width(tbl, row, col);
-    for (l = orgdata->first; l != NULL; l = l->next) {
-	if (TAG_IS(l->ptr, "<dummy_table", 12)) {
-	    struct parsed_tagarg *t_arg, *t;
-	    int id = -1;
-	    t_arg = parse_tag(l->ptr + 12);
-	    for (t = t_arg; t; t = t->next) {
-		if (!strcasecmp(t->arg, "id") && t->value) {
-		    id = atoi(t->value);
-		    break;
-		}
-	    }
-	    if (id >= 0) {
-		int alignment;
-		TextListItem *ti;
-		save_fonteffect(&h_env, h_env.obuf);
-		flushline(&h_env, &obuf, 0, 0, h_env.limit);
-
-		if (RB_GET_ALIGN(h_env.obuf) == RB_CENTER)
-		    alignment = ALIGN_CENTER;
-		else if (RB_GET_ALIGN(h_env.obuf) == RB_RIGHT)
-		    alignment = ALIGN_RIGHT;
-		else
-		    alignment = ALIGN_LEFT;
-
-		if (alignment == ALIGN_LEFT) {
-		    appendTextList(h_env.buf, tbl->tables[id].buf);
-		}
-		else {
-		    for (ti = tbl->tables[id].buf->first; ti != NULL; ti = ti->next) {
-			pushText(h_env.buf, align(ti->ptr, h_env.limit, alignment));
-		    }
-		}
-		restore_fonteffect(&h_env, h_env.obuf);
-	    }
-	}
-	else
-	    HTMLlineproc1(l->ptr, &h_env);
-    }
-    flushline(&h_env, &obuf, 0, 0, h_env.limit);
-}
-
-static void
-check_cell_width(short *tabwidth, short *cellwidth,
-		 short *col, short *colspan, short maxcell,
-		 char *index, int space, int dir)
-{
-    int i, j, k, bcol, ecol;
-    int swidth, width;
-
-    for (k = 0; k <= maxcell; k++) {
-	j = index[k];
-	if (cellwidth[j] <= 0)
-	    continue;
-	bcol = col[j];
-	ecol = bcol + colspan[j];
-	swidth = 0;
-	for (i = bcol; i < ecol; i++)
-	    swidth += tabwidth[i];
-
-	width = cellwidth[j] - (colspan[j] - 1) * space;
-	if (width > swidth) {
-	    int w = (width - swidth) / colspan[j];
-	    int r = (width - swidth) % colspan[j];
-	    for (i = bcol; i < ecol; i++)
-		tabwidth[i] += w;
-	    /* dir {0: horizontal, 1: vertical} */
-	    if (dir == 1 && r > 0)
-		r = colspan[j];
-	    for (i = 1; i <= r; i++)
-		tabwidth[ecol - i]++;
-	}
-    }
-}
-
-void
-check_minimum_width(struct table *t, short *tabwidth)
-{
-    int i;
-    struct table_cell *cell = &t->cell;
-
-    for (i = 0; i <= t->maxcol; i++) {
-	if (tabwidth[i] < t->minimum_width[i])
-	    tabwidth[i] = t->minimum_width[i];
-    }
-
-    check_cell_width(tabwidth, cell->minimum_width, cell->col, cell->colspan,
-		     cell->maxcell, cell->index, t->cellspacing, 0);
-}
-
-void
-check_maximum_width(struct table *t)
-{
-    struct table_cell *cell = &t->cell;
-#ifdef MATRIX
-    int i, j, bcol, ecol;
-    int swidth, width;
-
-    cell->necell = 0;
-    for (j = 0; j <= cell->maxcell; j++) {
-	bcol = cell->col[j];
-	ecol = bcol + cell->colspan[j];
-	swidth = 0;
-	for (i = bcol; i < ecol; i++)
-	    swidth += t->tabwidth[i];
-
-	width = cell->width[j] - (cell->colspan[j] - 1) * t->cellspacing;
-	if (width > swidth) {
-	    cell->eindex[cell->necell] = j;
-	    cell->necell++;
-	}
-    }
-#else				/* not MATRIX */
-    check_cell_width(t->tabwidth, cell->width, cell->col, cell->colspan,
-		     cell->maxcell, cell->index, t->cellspacing, 0);
-    check_minimum_width(t, t->tabwidth);
-#endif				/* not MATRIX */
-}
-
-
-#ifdef MATRIX
-static int
-recalc_width(int old, int delta, double rat)
-{
-    double w = rat * old;
-    double ww = (double) delta;
-    if (w > 0.) {
-	if (ww < 0.)
-	    ww = 0.;
-	ww += 0.2;
-    }
-    else {
-	if (ww > 0.)
-	    ww = 0.;
-	ww -= 1.0;
-    }
-    if (w > ww)
-	return (int) (ww / rat);
-    return old;
-}
-
-static int
-check_compressible_cell(struct table *t, MAT * minv,
-			short *newwidth, short *swidth, short *cwidth,
-			int totalwidth,
-			int icol, int icell, double sxx, int corr)
-{
-    struct table_cell *cell = &t->cell;
-    int i, j, k, m, bcol, ecol;
-    int delta, dmax, dmin, owidth;
-    double sxy;
-
-    if (sxx < 10.)
-	return corr;
-
-    if (icol >= 0) {
-	owidth = newwidth[icol];
-	delta = newwidth[icol] - t->tabwidth[icol];
-	bcol = icol;
-	ecol = bcol + 1;
-    }
-    else if (icell >= 0) {
-	owidth = swidth[icell];
-	delta = swidth[icell] - cwidth[icell];
-	bcol = cell->col[icell];
-	ecol = bcol + cell->colspan[icell];
-    }
-    else {
-	owidth = totalwidth;
-	delta = totalwidth;
-	bcol = 0;
-	ecol = t->maxcol + 1;
-    }
-
-    dmin = delta;
-    dmax = 0;
-    for (k = 0; k <= cell->maxcell; k++) {
-	int bcol1, ecol1;
-	if (dmin <= 0)
-	    return corr;
-	j = cell->index[k];
-	if (icol < 0 && j == icell)
-	    continue;
-	bcol1 = cell->col[j];
-	ecol1 = bcol1 + cell->colspan[j];
-	sxy = 0.;
-	for (m = bcol1; m < ecol1; m++) {
-	    for (i = bcol; i < ecol; i++)
-		sxy += m_entry(minv, i, m);
-	}
-	if (fabs(delta * sxy / sxx) < 0.5)
-	    continue;
-	if (sxy > 0.)
-	    dmin = recalc_width(dmin, swidth[j] - cwidth[j], sxy / sxx);
-	else
-	    dmax = recalc_width(dmax, swidth[j] - cwidth[j], sxy / sxx);
-    }
-    for (m = 0; m <= t->maxcol; m++) {
-	if (dmin <= 0)
-	    return corr;
-	if (icol >= 0 && m == icol)
-	    continue;
-	sxy = 0.;
-	for (i = bcol; i < ecol; i++)
-	    sxy += m_entry(minv, i, m);
-	if (fabs(delta * sxy / sxx) < 0.5)
-	    continue;
-	if (sxy > 0.)
-	    dmin = recalc_width(dmin, newwidth[m] - t->tabwidth[m], sxy / sxx);
-	else
-	    dmax = recalc_width(dmax, newwidth[m] - t->tabwidth[m], sxy / sxx);
-    }
-    if (dmax > 0 && dmin > dmax)
-	dmin = dmax;
-    if (dmin > 1) {
-	correct_table_matrix(t, bcol, ecol - bcol, owidth - dmin, 1.);
-	corr++;
-    }
-    return corr;
-}
-
-#define MAX_ITERATION 3
-int
-check_table_width(struct table *t, short *newwidth, MAT * minv, int itr)
-{
-    int i, j, k, m, bcol, ecol;
-    int corr = 0;
-    struct table_cell *cell = &t->cell;
-#ifdef __GNUC__
-    short orgwidth[t->maxcol + 1];
-    short cwidth[cell->maxcell + 1], swidth[cell->maxcell + 1];
-#else				/* __GNUC__ */
-    short orgwidth[MAXCOL];
-    short cwidth[MAXCELL], swidth[MAXCELL];
-#endif				/* __GNUC__ */
-    int twidth;
-    double sxy, *Sxx, stotal;
-
-    twidth = 0;
-    stotal = 0.;
-    for (i = 0; i <= t->maxcol; i++) {
-	twidth += newwidth[i];
-	stotal += m_entry(minv, i, i);
-	for (m = 0; m < i; m++) {
-	    stotal += 2 * m_entry(minv, i, m);
-	}
-    }
-
-    Sxx = NewAtom_N(double, cell->maxcell + 1);
-    for (k = 0; k <= cell->maxcell; k++) {
-	j = cell->index[k];
-	bcol = cell->col[j];
-	ecol = bcol + cell->colspan[j];
-	swidth[j] = 0;
-	for (i = bcol; i < ecol; i++)
-	    swidth[j] += newwidth[i];
-	cwidth[j] = cell->width[j] - (cell->colspan[j] - 1) * t->cellspacing;
-	Sxx[j] = 0.;
-	for (i = bcol; i < ecol; i++) {
-	    Sxx[j] += m_entry(minv, i, i);
-	    for (m = bcol; m <= ecol; m++) {
-		if (m < i)
-		    Sxx[j] += 2 * m_entry(minv, i, m);
-	    }
-	}
-    }
-
-    /* compress table */
-    corr = check_compressible_cell(t, minv, newwidth, swidth, cwidth, twidth,
-				   -1, -1, stotal, corr);
-    if (itr < MAX_ITERATION && corr > 0)
-	return corr;
-
-    /* compress multicolumn cell */
-    for (k = cell->maxcell; k >= 0; k--) {
-	j = cell->index[k];
-	corr = check_compressible_cell(t, minv, newwidth, swidth, cwidth, twidth,
-				       -1, j, Sxx[j], corr);
-	if (itr < MAX_ITERATION && corr > 0)
-	    return corr;
-    }
-
-    /* compress single column cell */
-    for (i = 0; i <= t->maxcol; i++) {
-	corr = check_compressible_cell(t, minv, newwidth, swidth, cwidth, twidth,
-				       i, -1, m_entry(minv, i, i), corr);
-	if (itr < MAX_ITERATION && corr > 0)
-	    return corr;
-    }
-
-
-    for (i = 0; i <= t->maxcol; i++)
-	orgwidth[i] = newwidth[i];
-
-    check_minimum_width(t, newwidth);
-
-    for (i = 0; i <= t->maxcol; i++) {
-	double sx = sqrt(m_entry(minv, i, i));
-	if (sx < 0.1)
-	    continue;
-	if (orgwidth[i] < t->minimum_width[i] &&
-	    newwidth[i] == t->minimum_width[i]) {
-	    double w = (sx > 0.5) ? 0.5 : sx * 0.2;
-	    sxy = 0.;
-	    for (m = 0; m <= t->maxcol; m++) {
-		if (m == i)
-		    continue;
-		sxy += m_entry(minv, i, m);
-	    }
-	    if (sxy <= 0.) {
-		correct_table_matrix(t, i, 1, t->minimum_width[i], w);
-		corr++;
-	    }
-	}
-    }
-
-    for (k = 0; k <= cell->maxcell; k++) {
-	int nwidth = 0, mwidth;
-	double sx;
-
-	j = cell->index[k];
-	sx = sqrt(Sxx[j]);
-	if (sx < 0.1)
-	    continue;
-	bcol = cell->col[j];
-	ecol = bcol + cell->colspan[j];
-	for (i = bcol; i < ecol; i++)
-	    nwidth += newwidth[i];
-	mwidth = cell->minimum_width[j] - (cell->colspan[j] - 1) * t->cellspacing;
-	if (mwidth > swidth[j] && mwidth == nwidth) {
-	    double w = (sx > 0.5) ? 0.5 : sx * 0.2;
-
-	    sxy = 0.;
-	    for (i = bcol; i < ecol; i++) {
-		for (m = 0; m <= t->maxcol; m++) {
-		    if (m >= bcol && m < ecol)
-			continue;
-		    sxy += m_entry(minv, i, m);
-		}
-	    }
-	    if (sxy <= 0.) {
-		correct_table_matrix(t, bcol, cell->colspan[j], mwidth, w);
-		corr++;
-	    }
-	}
-    }
-
-    if (itr >= MAX_ITERATION)
-	return 0;
-    else
-	return corr;
-}
-
-#else				/* not MATRIX */
-void
-set_table_width(struct table *t, short *newwidth, int maxwidth)
-{
-    int i, j, k, bcol, ecol;
-    struct table_cell *cell = &t->cell;
-    char *fixed;
-    int swidth, fwidth, width, nvar;
-    double s;
-    double *dwidth;
-    int try_again;
-
-    fixed = NewAtom_N(char, t->maxcol + 1);
-    bzero(fixed, t->maxcol + 1);
-    dwidth = NewAtom_N(double, t->maxcol + 1);
-
-    for (i = 0; i <= t->maxcol; i++) {
-	dwidth[i] = 0.0;
-	if (t->fixed_width[i] < 0) {
-	    t->fixed_width[i] = -t->fixed_width[i] * maxwidth / 100;
-	}
-	if (t->fixed_width[i] > 0) {
-	    newwidth[i] = t->fixed_width[i];
-	    fixed[i] = 1;
-	}
-	else
-	    newwidth[i] = 0;
-	if (newwidth[i] < t->minimum_width[i])
-	    newwidth[i] = t->minimum_width[i];
-    }
-
-    for (k = 0; k <= cell->maxcell; k++) {
-	j = cell->index[k];
-	bcol = cell->col[j];
-	ecol = bcol + cell->colspan[j];
-
-	if (cell->fixed_width[j] < 0)
-	    cell->fixed_width[j] = -cell->fixed_width[j] * maxwidth / 100;
-
-	swidth = 0;
-	fwidth = 0;
-	nvar = 0;
-	for (i = bcol; i < ecol; i++) {
-	    if (fixed[i]) {
-		fwidth += newwidth[i];
-	    }
-	    else {
-		swidth += newwidth[i];
-		nvar++;
-	    }
-	}
-	width = max(cell->fixed_width[j], cell->minimum_width[j])
-	    - (cell->colspan[j] - 1) * t->cellspacing;
-	if (nvar > 0 && width > fwidth + swidth) {
-	    s = 0.;
-	    for (i = bcol; i < ecol; i++) {
-		if (!fixed[i])
-		    s += weight3(t->tabwidth[i]);
-	    }
-	    for (i = bcol; i < ecol; i++) {
-		if (!fixed[i])
-		    dwidth[i] = (width - fwidth) * weight3(t->tabwidth[i]) / s;
-		else
-		    dwidth[i] = (double) newwidth[i];
-	    }
-	    dv2sv(dwidth, newwidth, cell->colspan[j]);
-	    if (cell->fixed_width[j] > 0) {
-		for (i = bcol; i < ecol; i++)
-		    fixed[i] = 1;
-	    }
-	}
-    }
-
-    do {
-	nvar = 0;
-	swidth = 0;
-	fwidth = 0;
-	for (i = 0; i <= t->maxcol; i++) {
-	    if (fixed[i]) {
-		fwidth += newwidth[i];
-	    }
-	    else {
-		swidth += newwidth[i];
-		nvar++;
-	    }
-	}
-	width = maxwidth - t->maxcol * t->cellspacing;
-	if (nvar == 0 || width <= fwidth + swidth)
-	    break;
-
-	s = 0.;
-	for (i = 0; i <= t->maxcol; i++) {
-	    if (!fixed[i])
-		s += weight3(t->tabwidth[i]);
-	}
-	for (i = 0; i <= t->maxcol; i++) {
-	    if (!fixed[i])
-		dwidth[i] = (width - fwidth) * weight3(t->tabwidth[i]) / s;
-	    else
-		dwidth[i] = (double) newwidth[i];
-	}
-	dv2sv(dwidth, newwidth, t->maxcol + 1);
-
-	try_again = 0;
-	for (i = 0; i <= t->maxcol; i++) {
-	    if (!fixed[i]) {
-		if (newwidth[i] > t->tabwidth[i]) {
-		    newwidth[i] = t->tabwidth[i];
-		    fixed[i] = 1;
-		    try_again = 1;
-		}
-		else if (newwidth[i] < t->minimum_width[i]) {
-		    newwidth[i] = t->minimum_width[i];
-		    fixed[i] = 1;
-		    try_again = 1;
-		}
-	    }
-	}
-    } while (try_again);
-}
-#endif				/* not MATRIX */
-
-void
-check_table_height(struct table *t)
-{
-    int i, j, k;
-    struct {
-	short row[MAXCELL];
-	short rowspan[MAXCELL];
-	char index[MAXCELL];
-	short maxcell;
-	short height[MAXCELL];
-    } cell;
-    int space;
-
-    cell.maxcell = -1;
-
-    for (j = 0; j <= t->maxrow; j++) {
-	if (!t->tabattr[j])
-	    continue;
-	for (i = 0; i <= t->maxcol; i++) {
-	    int t_dep, rowspan;
-	    if (t->tabattr[j][i] & (HTT_X | HTT_Y))
-		continue;
-
-	    if (t->tabdata[j][i] == NULL)
-		t_dep = 0;
-	    else
-		t_dep = t->tabdata[j][i]->nitem;
-
-	    rowspan = table_rowspan(t, j, i);
-	    if (rowspan > 1) {
-		int c = cell.maxcell + 1;
-		k = dsort_index(rowspan, cell.rowspan,
-				j, cell.row, t->maxrow + 1,
-				cell.index, c);
-		if (k <= cell.maxcell) {
-		    int idx = cell.index[k];
-		    if (cell.row[idx] == j &&
-			cell.rowspan[idx] == rowspan)
-			c = idx;
-		}
-		if (c > cell.maxcell && c < MAXCELL) {
-		    cell.maxcell++;
-		    cell.row[cell.maxcell] = j;
-		    cell.rowspan[cell.maxcell] = rowspan;
-		    cell.height[cell.maxcell] = 0;
-		    if (cell.maxcell > k)
-			bcopy(cell.index + k, cell.index + k + 1, cell.maxcell - k);
-		    cell.index[k] = cell.maxcell;
-		}
-		if (c <= cell.maxcell && c >= 0 &&
-		    cell.height[c] < t_dep) {
-		    cell.height[c] = t_dep;
-		    continue;
-		}
-	    }
-	    if (t->tabheight[j] < t_dep)
-		t->tabheight[j] = t_dep;
-	}
-    }
-
-    switch (t->border_mode) {
-    case BORDER_THIN:
-    case BORDER_THICK:
-    case BORDER_NOWIN:
-	space = 1;
-	break;
-    case BORDER_NONE:
-	space = 0;
-    }
-    check_cell_width(t->tabheight, cell.height, cell.row, cell.rowspan,
-		     cell.maxcell, cell.index, space, 1);
-}
-
-int
-get_table_width(struct table *t, short *orgwidth, short *cellwidth,
-		int check_minimum)
-{
-#ifdef __GNUC__
-    short newwidth[t->maxcol + 1];
-#else				/* not __GNUC__ */
-    short newwidth[MAXCOL];
-#endif				/* not __GNUC__ */
-    int i;
-    int swidth;
-    struct table_cell *cell = &t->cell;
-
-    for (i = 0; i <= t->maxcol; i++)
-	newwidth[i] = max(orgwidth[i], 0);
-
-    check_cell_width(newwidth, cellwidth, cell->col, cell->colspan,
-		     cell->maxcell, cell->index, t->cellspacing, 0);
-    if (check_minimum)
-	check_minimum_width(t, newwidth);
-
-    swidth = 0;
-    for (i = 0; i <= t->maxcol; i++) {
-	swidth += newwidth[i];
-    }
-    swidth += table_border_width(t);
-    return swidth;
-}
-
-#define minimum_table_width(t)\
-(get_table_width(t,t->minimum_width,t->cell.minimum_width,0))
-#define maximum_table_width(t)\
-  (get_table_width(t,t->tabwidth,t->cell.width,0))
-#define fixed_table_width(t)\
-  (get_table_width(t,t->fixed_width,t->cell.fixed_width,1))
-
-void
-renderCoTable(struct table *tbl)
-{
-    struct readbuffer obuf;
-    struct html_feed_environ h_env;
-    struct environment envs[MAX_ENV_LEVEL];
-    struct table *t;
-    int i, j, col, row, b_width;
-    int width, nwidth, indent, maxwidth;
-#ifdef __GNUC__
-    short newwidth[tbl->maxcol + 1];
-#else				/* not __GNUC__ */
-    short newwidth[MAXCOL];
-#endif				/* not __GNUC__ */
-
-    for (i = 0; i <= tbl->maxcol; i++)
-	newwidth[i] = tbl->tabwidth[i];
-
-    for (i = 0; i < tbl->ntable; i++) {
-	t = tbl->tables[i].ptr;
-	col = tbl->tables[i].col;
-	row = tbl->tables[i].row;
-	indent = tbl->tables[i].indent;
-
-	init_henv(&h_env, &obuf, envs, MAX_ENV_LEVEL, tbl->tables[i].buf,
-		  tbl->tabwidth[col], indent);
-	nwidth = newwidth[col];
-	check_row(tbl, row);
-	b_width = 0;
-	for (j = col + 1; j <= tbl->maxcol; j++) {
-	    if (tbl->tabattr[row][j] & HTT_X) {
-		h_env.limit += tbl->tabwidth[j];
-		nwidth += newwidth[j];
-		b_width += tbl->cellspacing;
-	    }
-	    else
-		break;
-	}
-	h_env.limit += b_width;
-#ifndef TABLE_EXPAND
-	if (t->total_width == 0)
-	    maxwidth = h_env.limit - indent;
-	else if (t->total_width > 0)
-	    maxwidth = t->total_width;
-	else
-	    maxwidth = t->total_width = -t->total_width *
-		get_spec_cell_width(tbl, row, col) / 100;
-#else
-	maxwidth = h_env.limit - indent;
-	if (t->total_width > 0) {
-	    double r = ((double) maxwidth) / t->total_width;
-	    struct table_cell *cell = &t->cell;
-
-	    for (j = 0; j <= t->maxcol; j++) {
-		if (t->fixed_width[j] > 0)
-		    t->fixed_width[j] = (int) (r * t->fixed_width[j]);
-	    }
-	    for (j = 0; j <= cell->maxcell; j++) {
-		if (cell->fixed_width[j] > 0)
-		    cell->fixed_width[j] = (int) (r * cell->fixed_width[j]);
-	    }
-	    t->total_width = maxwidth;
-	}
-#endif				/* TABLE_EXPAND */
-	renderTable(t, maxwidth, &h_env);
-	width = t->total_width - b_width + indent;
-	if (width > nwidth) {
-	    int cell = tbl->tables[i].cell;
-	    if (cell < 0) {
-		newwidth[col] = width;
-	    }
-	    else {
-		int ecol = col + tbl->cell.colspan[cell];
-		int w = (width - nwidth) / tbl->cell.colspan[cell];
-		int r = (width - nwidth) % tbl->cell.colspan[cell];
-		for (j = col; j < ecol; j++)
-		    newwidth[j] += w;
-		for (j = 1; j <= r; j++)
-		    newwidth[ecol - j]++;
-	    }
-	}
-	t = NULL;
-    }
-    for (i = 0; i <= tbl->maxcol; i++)
-	tbl->tabwidth[i] = newwidth[i];
-}
-
-static void
-make_caption(struct table *t, struct html_feed_environ *h_env)
-{
-    struct html_feed_environ henv;
-    struct readbuffer obuf;
-    struct environment envs[MAX_ENV_LEVEL];
-    TextList *tl;
-    Str tmp;
-
-    if (t->caption->length <= 0)
-	return;
-
-    if (t->total_width <= 0)
-	t->total_width = h_env->limit;
-
-    init_henv(&henv, &obuf, envs, MAX_ENV_LEVEL, newTextList(), t->total_width,
-	      h_env->envs[h_env->envc].indent);
-    HTMLlineproc1("<center>", &henv);
-    HTMLlineproc1(t->caption->ptr, &henv);
-    HTMLlineproc1("</center>", &henv);
-
-    tl = henv.buf;
-
-    if (tl->nitem > 0) {
-	TextListItem *ti;
-	tmp = Strnew_charp("<pre for_table>");
-	for (ti = tl->first; ti != NULL; ti = ti->next) {
-	    Strcat_charp(tmp, ti->ptr);
-	    Strcat_char(tmp, '\n');
-	}
-	Strcat_charp(tmp, "</pre>");
-	HTMLlineproc1(tmp->ptr, h_env);
-    }
-}
-
-void
-renderTable(struct table *t,
-	    int max_width,
-	    struct html_feed_environ *h_env)
-{
-    int i, j, w, r, h;
-    Str renderbuf = Strnew();
-    short new_tabwidth[MAXCOL];
-#ifdef MATRIX
-    int itr;
-    VEC *newwidth;
-    MAT *mat, *minv;
-    PERM *pivot;
-#endif				/* MATRIX */
-    int maxheight = 0;
-    Str vrulea, vruleb, vrulec;
-#ifdef ID_EXT
-    Str idtag;
-#endif				/* ID_EXT */
-
-    if (t->maxcol < 0) {
-	make_caption(t, h_env);
-	return;
-    }
-
-    max_width -= table_border_width(t);
-
-    if (max_width <= 0)
-	max_width = 1;
-
-    check_maximum_width(t);
-
-#ifdef MATRIX
-    if (t->maxcol == 0) {
-	if (t->tabwidth[0] > max_width)
-	    t->tabwidth[0] = max_width;
-	if (t->total_width > 0)
-	    t->tabwidth[0] = max_width;
-	else if (t->fixed_width[0] > 0)
-	    t->tabwidth[0] = t->fixed_width[0];
-	if (t->tabwidth[0] < t->minimum_width[0])
-	    t->tabwidth[0] = t->minimum_width[0];
-    }
-    else {
-	set_table_matrix(t, max_width);
-
-	itr = 0;
-	mat = m_get(t->maxcol + 1, t->maxcol + 1);
-	pivot = px_get(t->maxcol + 1);
-	newwidth = v_get(t->maxcol + 1);
-	minv = m_get(t->maxcol + 1, t->maxcol + 1);
-	do {
-	    m_copy(t->matrix, mat);
-	    LUfactor(mat, pivot);
-	    LUsolve(mat, pivot, t->vector, newwidth);
-	    dv2sv(newwidth->ve, new_tabwidth, t->maxcol + 1);
-	    LUinverse(mat, pivot, minv);
-#ifdef TABLE_DEBUG
-	    fprintf(stderr, "max_width=%d\n", max_width);
-	    fprintf(stderr, "minimum : ");
-	    for (i = 0; i <= t->maxcol; i++)
-		fprintf(stderr, "%2d ", t->minimum_width[i]);
-	    fprintf(stderr, "\ndecided : ");
-	    for (i = 0; i <= t->maxcol; i++)
-		fprintf(stderr, "%2d ", new_tabwidth[i]);
-	    fprintf(stderr, "\n");
-#endif				/* TABLE_DEBUG */
-	    itr++;
-
-	} while (check_table_width(t, new_tabwidth, minv, itr));
-	v_free(newwidth);
-	px_free(pivot);
-	m_free(mat);
-	m_free(minv);
-	m_free(t->matrix);
-	v_free(t->vector);
-	for (i = 0; i <= t->maxcol; i++) {
-	    t->tabwidth[i] = new_tabwidth[i];
-	}
-    }
-#else				/* not MATRIX */
-    set_table_width(t, new_tabwidth, max_width);
-    for (i = 0; i <= t->maxcol; i++) {
-	t->tabwidth[i] = new_tabwidth[i];
-    }
-#endif				/* not MATRIX */
-
-    renderCoTable(t);
-    check_minimum_width(t, t->tabwidth);
-
-    t->total_width = 0;
-    for (i = 0; i <= t->maxcol; i++) {
-	if (t->border_mode != BORDER_NONE && t->tabwidth[i] % RULE_WIDTH == 1)
-	    t->tabwidth[i]++;
-	t->total_width += t->tabwidth[i];
-    }
-
-    t->total_width += table_border_width(t);
-
-    for (i = 0; i <= t->maxcol; i++) {
-	for (j = 0; j <= t->maxrow; j++) {
-	    check_row(t, j);
-	    if (t->tabattr[j][i] & HTT_Y)
-		continue;
-	    do_refill(t, j, i);
-	}
-    }
-
-    check_table_height(t);
-
-    /* table output */
-    make_caption(t, h_env);
-
-    HTMLlineproc1("<pre for_table>", h_env);
-#ifdef ID_EXT
-    if (t->id != NULL) {
-	idtag = Sprintf("<_id id=\"%s\">", (t->id)->ptr);
-	HTMLlineproc1(idtag->ptr, h_env);
-    }
-#endif				/* ID_EXT */
-    switch (t->border_mode) {
-    case BORDER_THIN:
-    case BORDER_THICK:
-	renderbuf = Strnew();
-	print_sep(t, -1, T_TOP, t->maxcol, renderbuf);
-	HTMLlineproc1(renderbuf->ptr, h_env);
-	maxheight += 1;
-	break;
-    }
-    vruleb = Strnew();
-    switch (t->border_mode) {
-    case BORDER_THIN:
-    case BORDER_THICK:
-	vrulea = Strnew();
-	vrulec = Strnew();
-	Strcat_charp(vrulea, TK_VERTICALBAR(t->border_mode));
-	for (i = 0; i < t->cellpadding; i++) {
-	    Strcat_char(vrulea, ' ');
-	    Strcat_char(vruleb, ' ');
-	    Strcat_char(vrulec, ' ');
-	}
-	Strcat_charp(vrulec, TK_VERTICALBAR(t->border_mode));
-    case BORDER_NOWIN:
-#if defined(__EMX__)&&!defined(JP_CHARSET)
-	Strcat_charp(vruleb, CodePage==850?"³":TN_VERTICALBAR);
-#else
-	Strcat_charp(vruleb, TN_VERTICALBAR);
-#endif
-	for (i = 0; i < t->cellpadding; i++)
-	    Strcat_char(vruleb, ' ');
-	break;
-    case BORDER_NONE:
-	for (i = 0; i < t->cellspacing; i++)
-	    Strcat_char(vruleb, ' ');
-    }
-
-    for (r = 0; r <= t->maxrow; r++) {
-	for (h = 0; h < t->tabheight[r]; h++) {
-	    renderbuf = Strnew();
-	    if (t->border_mode == BORDER_THIN || t->border_mode == BORDER_THICK)
-		Strcat(renderbuf, vrulea);
-#ifdef ID_EXT
-	    if (t->tridvalue[r] != NULL && h == 0) {
-		idtag = Sprintf("<_id id=\"%s\">", (t->tridvalue[r])->ptr);
-		Strcat(renderbuf, idtag);
-	    }
-#endif				/* ID_EXT */
-	    for (i = 0; i <= t->maxcol; i++) {
-		check_row(t, r);
-#ifdef ID_EXT
-		if (t->tabidvalue[r][i] != NULL && h == 0) {
-		    idtag = Sprintf("<_id id=\"%s\">", (t->tabidvalue[r][i])->ptr);
-		    Strcat(renderbuf, idtag);
-		}
-#endif				/* ID_EXT */
-		if (!(t->tabattr[r][i] & HTT_X)) {
-		    w = t->tabwidth[i];
-		    for (j = i + 1;
-			 j <= t->maxcol && (t->tabattr[r][j] & HTT_X);
-			 j++)
-			w += t->tabwidth[j] + t->cellspacing;
-		    if (t->tabattr[r][i] & HTT_Y) {
-			for (j = r - 1;
-			     j >= 0 && t->tabattr[j] && (t->tabattr[j][i] & HTT_Y);
-			     j--);
-			print_item(t, j, i, w, renderbuf);
-		    }
-		    else
-			print_item(t, r, i, w, renderbuf);
-		}
-		if (i < t->maxcol && !(t->tabattr[r][i + 1] & HTT_X))
-		    Strcat(renderbuf, vruleb);
-	    }
-	    switch (t->border_mode) {
-	    case BORDER_THIN:
-	    case BORDER_THICK:
-		Strcat(renderbuf, vrulec);
-		Strcat_charp(renderbuf, "<eol>");
-		maxheight += 1;
-		break;
-	    case BORDER_NONE:
-	    case BORDER_NOWIN:
-		Strcat_charp(renderbuf, "<eol>");
-		break;
-	    }
-	    HTMLlineproc1(renderbuf->ptr, h_env);
-	}
-	if (r < t->maxrow && t->border_mode != BORDER_NONE) {
-	    renderbuf = Strnew();
-	    print_sep(t, r, T_MIDDLE, t->maxcol, renderbuf);
-	    HTMLlineproc1(renderbuf->ptr, h_env);
-	}
-	maxheight += t->tabheight[r];
-    }
-    if (t->border_mode == BORDER_THIN || t->border_mode == BORDER_THICK) {
-	renderbuf = Strnew();
-	print_sep(t, t->maxrow, T_BOTTOM, t->maxcol, renderbuf);
-	HTMLlineproc1(renderbuf->ptr, h_env);
-	maxheight += 1;
-    }
-    if (maxheight == 0)
-	HTMLlineproc1(" <eol>", h_env);
-    HTMLlineproc1("</pre>", h_env);
-}
-
-
-struct table *
-begin_table(int border, int spacing, int padding)
-{
-    struct table *t;
-    int mincell = minimum_cellspacing(border);
-
-    t = newTable();
-    t->row = t->col = -1;
-    t->maxcol = -1;
-    t->maxrow = -1;
-    t->border_mode = border;
-    t->flag = 0;
-    if (border == BORDER_NOWIN)
-	t->flag |= TBL_EXPAND_OK;
-    t->cellspacing = max(spacing, mincell);
-    switch (border) {
-    case BORDER_THIN:
-    case BORDER_THICK:
-    case BORDER_NOWIN:
-	t->cellpadding = (t->cellspacing - mincell) / 2;
-	break;
-    case BORDER_NONE:
-	t->cellpadding = t->cellspacing - mincell;
-    }
-
-    if (padding > t->cellpadding)
-	t->cellpadding = padding;
-
-    switch (border) {
-    case BORDER_THIN:
-    case BORDER_THICK:
-    case BORDER_NOWIN:
-	t->cellspacing = 2 * t->cellpadding + mincell;
-	break;
-    case BORDER_NONE:
-	t->cellspacing = t->cellpadding + mincell;
-    }
-    return t;
-}
-
-static void
-check_minimum0(struct table *t, int min)
-{
-    int i, w, ww;
-    struct table_cell *cell;
-
-    if (t->col < 0)
-	return;
-    if (t->tabwidth[t->col] < 0)
-	return;
-    check_row(t, t->row);
-    w = table_colspan(t, t->row, t->col);
-    min += t->indent;
-    if (w == 1)
-	ww = min;
-    else {
-	cell = &t->cell;
-	ww = 0;
-	if (cell->icell >= 0 && cell->minimum_width[cell->icell] < min)
-	    cell->minimum_width[cell->icell] = min;
-    }
-    for (i = t->col;
-      i <= t->maxcol && (i == t->col || (t->tabattr[t->row][i] & HTT_X));
-	 i++) {
-	if (t->minimum_width[i] < ww)
-	    t->minimum_width[i] = ww;
-    }
-}
-
-static int
-setwidth0(struct table *t, struct table_mode *mode)
-{
-    int w;
-    int width = t->tabcontentssize;
-    struct table_cell *cell = &t->cell;
-
-    if (t->col < 0)
-	return -1;
-    if (t->tabwidth[t->col] < 0)
-	return -1;
-    check_row(t, t->row);
-    if (t->linfo.prev_spaces > 0)
-	width -= t->linfo.prev_spaces;
-    w = table_colspan(t, t->row, t->col);
-    if (w == 1) {
-	if (t->tabwidth[t->col] < width)
-	    t->tabwidth[t->col] = width;
-    }
-    else if (cell->icell >= 0) {
-	if (cell->width[cell->icell] < width)
-	    cell->width[cell->icell] = width;
-    }
-    return width;
-}
-
-static void
-setwidth(struct table *t, struct table_mode *mode)
-{
-    int width = setwidth0(t, mode);
-    if (width < 0)
-	return;
-#ifdef NOWRAP
-    if (t->tabattr[t->row][t->col] & HTT_NOWRAP)
-	check_minimum0(t, width);
-#endif				/* NOWRAP */
-    if (mode->pre_mode & (TBLM_NOBR | TBLM_PRE | TBLM_PRE_INT) &&
-	mode->nobr_offset >= 0)
-	check_minimum0(t, width - mode->nobr_offset);
-}
-
-static void
-addcontentssize(struct table *t, int width)
-{
-
-    if (t->col < 0)
-	return;
-    if (t->tabwidth[t->col] < 0)
-	return;
-    check_row(t, t->row);
-    t->tabcontentssize += width;
-}
-
-static void
-clearcontentssize(struct table *t, struct table_mode *mode)
-{
-    mode->nobr_offset = 0;
-    t->linfo.prev_spaces = -1;
-    t->linfo.prevchar = ' ';
-    t->tabcontentssize = 0;
-}
-
-void
-check_rowcol(struct table *tbl)
-{
-    if (!(tbl->flag & TBL_IN_ROW)) {
-	tbl->flag |= TBL_IN_ROW;
-	tbl->row++;
-	if (tbl->row > tbl->maxrow)
-	    tbl->maxrow = tbl->row;
-	tbl->col = -1;
-    }
-    if (tbl->row == -1)
-	tbl->row = 0;
-    if (tbl->col == -1)
-	tbl->col = 0;
-
-    for (;; tbl->row++) {
-	check_row(tbl, tbl->row);
-	for (; tbl->col < MAXCOL &&
-	     tbl->tabattr[tbl->row][tbl->col] & (HTT_X | HTT_Y);
-	     tbl->col++);
-	if (tbl->col < MAXCOL)
-	    break;
-	tbl->col = 0;
-    }
-    if (tbl->row > tbl->maxrow)
-	tbl->maxrow = tbl->row;
-    if (tbl->col > tbl->maxcol)
-	tbl->maxcol = tbl->col;
-
-    tbl->flag |= TBL_IN_COL;
-}
-
-int
-skip_space(struct table *t, char *line, struct table_linfo *linfo,
-	   int checkminimum)
-{
-    int skip = 0, s = linfo->prev_spaces;
-    Lineprop ctype = linfo->prev_ctype, prev_ctype;
-    char prevchar = linfo->prevchar;
-    int w = (linfo->prev_spaces == -1) ? 0 : linfo->length;
-    int min = 1;
-
-    if (*line == '<' && line[strlen(line) - 1] == '>') {
-	if (checkminimum)
-	    check_minimum0(t, visible_length(line));
-	return 0;
-    }
-
-    while (*line) {
-	char c = *line, *save = line;
-	int ec = '\0', len = 1, wlen = 1;
-	prev_ctype = ctype;
-	ctype = get_ctype(c, prev_ctype);
-	if (min < w)
-	    min = w;
-	if (ctype == PC_ASCII && IS_SPACE(c)) {
-	    w = 0;
-	    s++;
-	}
-	else {
-	    if (c == '&') {
-		ec = getescapechar(&line);
-		if (ec) {
-		    c = ec;
-		    if (IS_CNTRL(ec))
-			ctype = PC_CTRL;
-		    else
-			ctype = PC_ASCII;
-		    len = strlen(conv_latin1(ec));
-		    wlen = line - save;
-		}
-	    }
-	    if (prevchar && is_boundary(prevchar, prev_ctype, c, ctype)) {
-		w = len;
-	    }
-	    else {
-		w += len;
-	    }
-	    if (s > 0) {
-#ifdef JP_CHARSET
-		if (ctype == PC_KANJI1 && prev_ctype == PC_KANJI2)
-		    skip += s;
-		else
-#endif				/* JP_CHARSET */
-		    skip += s - 1;
-	    }
-	    s = 0;
-	}
-	prevchar = c;
-	line = save + wlen;
-    }
-    if (s > 1) {
-	skip += s - 1;
-	linfo->prev_spaces = 1;
-    }
-    else {
-	linfo->prev_spaces = s;
-    }
-    linfo->prev_ctype = ctype;
-    linfo->prevchar = prevchar;
-
-    if (checkminimum) {
-	if (min < w)
-	    min = w;
-	linfo->length = w;
-	check_minimum0(t, min);
-    }
-    return skip;
-}
-
-#define TAG_ACTION_NONE 0
-#define TAG_ACTION_FEED 1
-#define TAG_ACTION_TABLE 2
-#define TAG_ACTION_N_TABLE 3
-
-static int
-feed_table_tag(struct table *tbl, char *line, struct table_mode *mode, int width)
-{
-    int cmd;
-    char *s_line;
-    struct table_cell *cell = &tbl->cell;
-    struct parsed_tagarg *t_arg, *t;
-    int colspan, rowspan;
-    int col, prev_col;
-    int i, j, k, v, v0, w, id, status;
-    Str tok, tmp, anchor;
-    table_attr align;
-
-    s_line = line;
-    cmd = gethtmlcmd(&s_line, &status);
-
-    if (mode->pre_mode & TBLM_IGNORE) {
-	switch (cmd) {
-	case HTML_N_STYLE:
-	    mode->pre_mode &= ~TBLM_STYLE;
-	case HTML_N_SCRIPT:
-	    mode->pre_mode &= ~TBLM_SCRIPT;
-	default:
-	    return TAG_ACTION_NONE;
-	}
-    }
-
-#ifdef MENU_SELECT
-    /* failsafe: a tag other than <option></option>and </select> in *
-     * <select> environment is regarded as the end of <select>. */
-    if (mode->pre_mode & TBLM_INSELECT) {
-	switch (cmd) {
-	case HTML_TABLE:
-	case HTML_N_TABLE:
-	case HTML_TR:
-	case HTML_N_TR:
-	case HTML_TD:
-	case HTML_N_TD:
-	case HTML_TH:
-	case HTML_N_TH:
-	case HTML_THEAD:
-	case HTML_N_THEAD:
-	case HTML_TBODY:
-	case HTML_N_TBODY:
-	case HTML_TFOOT:
-	case HTML_N_TFOOT:
-	case HTML_COLGROUP:
-	case HTML_N_COLGROUP:
-	case HTML_COL:
-	    mode->pre_mode &= ~TBLM_INSELECT;
-	    tmp = process_n_select();
-	    feed_table1(tbl, tmp, mode, width);
-	}
-    }
-#endif				/* MENU_SELECT */
-
-    switch (cmd) {
-    case HTML_TABLE:
-	return TAG_ACTION_TABLE;
-    case HTML_N_TABLE:
-	return TAG_ACTION_N_TABLE;
-    case HTML_TR:
-	if (tbl->col >= 0 && tbl->tabcontentssize > 0)
-	    setwidth(tbl, mode);
-	clearcontentssize(tbl, mode);
-	mode->caption = 0;
-	mode->indent_level = 0;
-	mode->nobr_level = 0;
-	mode->mode_level = 0;
-	mode->pre_mode = 0;
-	tbl->col = -1;
-	tbl->row++;
-	tbl->flag |= TBL_IN_ROW;
-	tbl->indent = 0;
-	align = 0;
-	t_arg = parse_tag(line + 3);
-	for (t = t_arg; t; t = t->next) {
-	    if (!strcasecmp(t->arg, "align") && t->value) {
-		if (!strcasecmp(t->value, "left"))
-		    align = (HTT_LEFT | HTT_TRSET);
-		else if (!strcasecmp(t->value, "right"))
-		    align = (HTT_RIGHT | HTT_TRSET);
-		else if (!strcasecmp(t->value, "center"))
-		    align = (HTT_CENTER | HTT_TRSET);
-	    }
-#ifdef ID_EXT
-	    if (!strcasecmp(t->arg, "id") && t->value) {
-		tbl->tridvalue[tbl->row] = Strnew_charp(t->value);
-	    }
-#endif				/* ID_EXT */
-	}
-	tbl->trattr = align;
-	break;
-    case HTML_TH:
-    case HTML_TD:
-	prev_col = tbl->col;
-	if (tbl->col >= 0 && tbl->tabcontentssize > 0)
-	    setwidth(tbl, mode);
-	clearcontentssize(tbl, mode);
-	mode->caption = 0;
-	mode->indent_level = 0;
-	mode->nobr_level = 0;
-	mode->mode_level = 0;
-	mode->pre_mode = 0;
-	tbl->flag |= TBL_IN_COL;
-	tbl->linfo.prev_spaces = -1;
-	tbl->linfo.prevchar = ' ';
-	tbl->linfo.prev_ctype = PC_ASCII;
-	tbl->indent = 0;
-	if (tbl->row == -1) {
-	    /* for broken HTML... */
-	    tbl->row = -1;
-	    tbl->col = -1;
-	    tbl->maxrow = tbl->row;
-	}
-	if (tbl->col == -1) {
-	    if (!(tbl->flag & TBL_IN_ROW)) {
-		tbl->row++;
-		tbl->flag |= TBL_IN_ROW;
-	    }
-	    if (tbl->row > tbl->maxrow)
-		tbl->maxrow = tbl->row;
-	}
-	tbl->col++;
-	check_row(tbl, tbl->row);
-	while (tbl->tabattr[tbl->row][tbl->col]) {
-	    tbl->col++;
-	}
-	if (tbl->col > MAXCOL - 1) {
-	    tbl->col = prev_col;
-	    return TAG_ACTION_NONE;
-	}
-	if (tbl->col > tbl->maxcol) {
-	    tbl->maxcol = tbl->col;
-	}
-	tbl->height = 0;
-	t_arg = parse_tag(line + 3);
-	colspan = rowspan = 1;
-	v = 0;
-	if (tbl->trattr & HTT_TRSET)
-	    align = (tbl->trattr & HTT_ALIGN);
-	else if (cmd == HTML_TH)
-	    align = HTT_CENTER;
-	else
-	    align = HTT_LEFT;
-	for (t = t_arg; t; t = t->next) {
-	    if (!strcasecmp(t->arg, "rowspan") && t->value) {
-		rowspan = atoi(t->value);
-		if ((tbl->row + rowspan) >= tbl->max_rowsize)
-		    check_row(tbl, tbl->row + rowspan);
-	    }
-	    else if (!strcasecmp(t->arg, "colspan") && t->value) {
-		colspan = atoi(t->value);
-		if ((tbl->col + colspan) >= MAXCOL) {
-		    /* Can't expand column */
-		    colspan = MAXCOL - tbl->col;
-		}
-	    }
-	    else if (!strcasecmp(t->arg, "align") && t->value) {
-		if (!strcasecmp(t->value, "left"))
-		    align = HTT_LEFT;
-		else if (!strcasecmp(t->value, "right"))
-		    align = HTT_RIGHT;
-		else if (!strcasecmp(t->value, "center"))
-		    align = HTT_CENTER;
-	    }
-#ifdef NOWRAP
-	    else if (!strcasecmp(t->arg, "nowrap"))
-		tbl->tabattr[tbl->row][tbl->col] |= HTT_NOWRAP;
-#endif				/* NOWRAP */
-	    else if (!strcasecmp(t->arg, "width") && t->value) {
-		if (IS_DIGIT(*t->value)) {
-		    v = atoi(t->value);
-		    if (v == 0)
-			v = 1;
-		    else if (v < 0)
-			v = 0;
-		    if (t->value[strlen(t->value) - 1] == '%') {
-			v = -v;
-		    }
-		    else {
-#ifdef TABLE_EXPAND
-			v = max(v / tbl->ppc, 1);
-#else				/* not TABLE_EXPAND */
-			v = v / PIXEL_PER_CHAR;
-#endif				/* not TABLE_EXPAND */
-		    }
-		}
-		else
-		    continue;
-#ifdef ID_EXT
-	    }
-	    else if (!strcasecmp(t->arg, "id") && t->value) {
-		tbl->tabidvalue[tbl->row][tbl->col] = Strnew_charp(t->value);
-#endif				/* ID_EXT */
-	    }
-	}
-#ifdef NOWRAP
-	if (v != 0) {
-	    /* NOWRAP and WIDTH= conflicts each other */
-	    tbl->tabattr[tbl->row][tbl->col] &= ~HTT_NOWRAP;
-	}
-#endif				/* NOWRAP */
-	tbl->tabattr[tbl->row][tbl->col] &= ~HTT_ALIGN;
-	tbl->tabattr[tbl->row][tbl->col] |= align;
-	if (colspan > 1) {
-	    col = tbl->col;
-
-	    cell->icell = cell->maxcell + 1;
-	    k = dsort_index(colspan, cell->colspan, col, cell->col, MAXCOL,
-			    cell->index, cell->icell);
-	    if (k <= cell->maxcell) {
-		i = cell->index[k];
-		if (cell->col[i] == col &&
-		    cell->colspan[i] == colspan)
-		    cell->icell = i;
-	    }
-	    if (cell->icell > cell->maxcell && cell->icell < MAXCELL) {
-		cell->maxcell++;
-		cell->col[cell->maxcell] = col;
-		cell->colspan[cell->maxcell] = colspan;
-		cell->width[cell->maxcell] = 0;
-		cell->minimum_width[cell->maxcell] = 0;
-		cell->fixed_width[cell->maxcell] = 0;
-		if (cell->maxcell > k)
-		    bcopy(cell->index + k, cell->index + k + 1, cell->maxcell - k);
-		cell->index[k] = cell->maxcell;
-	    }
-	    if (cell->icell > cell->maxcell)
-		cell->icell = -1;
-	}
-	if (v != 0) {
-	    if (colspan == 1) {
-		v0 = tbl->fixed_width[tbl->col];
-		if (v0 == 0 || (v0 > 0 && v > v0) || (v0 < 0 && v < v0)) {
-#ifdef TABLE_DEBUG
-		    fprintf(stderr, "width(%d) = %d\n", tbl->col, v);
-#endif				/* TABLE_DEBUG */
-		    tbl->fixed_width[tbl->col] = v;
-		}
-	    }
-	    else if (cell->icell >= 0) {
-		v0 = cell->fixed_width[cell->icell];
-		if (v0 == 0 || (v0 > 0 && v > v0) || (v0 < 0 && v < v0))
-		    cell->fixed_width[cell->icell] = v;
-	    }
-	}
-	for (i = 0; i < rowspan; i++) {
-	    check_row(tbl, tbl->row + i);
-	    for (j = 0; j < colspan; j++) {
-		tbl->tabattr[tbl->row + i][tbl->col + j] &= ~(HTT_X | HTT_Y);
-		tbl->tabattr[tbl->row + i][tbl->col + j] |=
-		    ((i > 0) ? HTT_Y : 0) | ((j > 0) ? HTT_X : 0);
-		if (tbl->col + j > tbl->maxcol) {
-		    tbl->maxcol = tbl->col + j;
-		}
-	    }
-	    if (tbl->row + i > tbl->maxrow) {
-		tbl->maxrow = tbl->row + i;
-	    }
-	}
-	break;
-    case HTML_N_TR:
-	setwidth(tbl, mode);
-	tbl->col = -1;
-	tbl->flag &= ~(TBL_IN_ROW | TBL_IN_COL);
-	return TAG_ACTION_NONE;
-    case HTML_N_TH:
-    case HTML_N_TD:
-	setwidth(tbl, mode);
-	tbl->flag &= ~TBL_IN_COL;
-#ifdef TABLE_DEBUG
-	{
-	    TextListItem *it;
-	    int i = tbl->col, j = tbl->row;
-	    fprintf(stderr, "(a) row,col: %d, %d\n", j, i);
-	    if (tbl->tabdata[j] && tbl->tabdata[j][i]) {
-		for (it = tbl->tabdata[j][i]->first; it; it = it->next)
-		    fprintf(stderr, "  [%s] \n", it->ptr);
-	    }
-	}
-#endif
-	return TAG_ACTION_NONE;
-    case HTML_P:
-    case HTML_BR:
-    case HTML_DT:
-    case HTML_DD:
-    case HTML_CENTER:
-    case HTML_N_CENTER:
-    case HTML_DIV:
-    case HTML_N_DIV:
-    case HTML_H:
-    case HTML_N_H:
-	check_rowcol(tbl);
-	pushdata(tbl, tbl->row, tbl->col, line);
-	setwidth(tbl, mode);
-	clearcontentssize(tbl, mode);
-	if (cmd == HTML_DD)
-	    addcontentssize(tbl, tbl->indent);
-	break;
-    case HTML_DL:
-    case HTML_BLQ:
-    case HTML_OL:
-    case HTML_UL:
-	check_rowcol(tbl);
-	pushdata(tbl, tbl->row, tbl->col, line);
-	setwidth(tbl, mode);
-	clearcontentssize(tbl, mode);
-	mode->indent_level++;
-	if (mode->indent_level <= MAX_INDENT_LEVEL)
-	    tbl->indent += INDENT_INCR;
-	if (cmd == HTML_BLQ) {
-	    check_minimum0(tbl, 0);
-	    addcontentssize(tbl, tbl->indent);
-	}
-	break;
-    case HTML_N_DL:
-    case HTML_N_BLQ:
-    case HTML_N_OL:
-    case HTML_N_UL:
-	if (mode->indent_level > 0) {
-	    check_rowcol(tbl);
-	    pushdata(tbl, tbl->row, tbl->col, line);
-	    setwidth(tbl, mode);
-	    clearcontentssize(tbl, mode);
-	    mode->indent_level--;
-	    if (mode->indent_level < MAX_INDENT_LEVEL)
-		tbl->indent -= INDENT_INCR;
-	}
-	break;
-    case HTML_LI:
-	check_rowcol(tbl);
-	pushdata(tbl, tbl->row, tbl->col, line);
-	setwidth(tbl, mode);
-	clearcontentssize(tbl, mode);
-	check_minimum0(tbl, 0);
-	addcontentssize(tbl, tbl->indent);
-	break;
-    case HTML_PRE:
-    case HTML_LISTING:
-    case HTML_XMP:
-	setwidth(tbl, mode);
-	check_rowcol(tbl);
-	clearcontentssize(tbl, mode);
-	pushdata(tbl, tbl->row, tbl->col, line);
-	mode->pre_mode |= TBLM_PRE;
-	mode->mode_level++;
-	break;
-    case HTML_N_PRE:
-    case HTML_N_LISTING:
-    case HTML_N_XMP:
-	setwidth(tbl, mode);
-	check_rowcol(tbl);
-	clearcontentssize(tbl, mode);
-	pushdata(tbl, tbl->row, tbl->col, line);
-	if (mode->mode_level > 0)
-	    mode->mode_level--;
-	if (mode->mode_level == 0)
-	    mode->pre_mode &= ~TBLM_PRE;
-	tbl->linfo.prev_spaces = 0;
-	tbl->linfo.prevchar = '\0';
-	tbl->linfo.prev_ctype = PC_ASCII;
-	break;
-    case HTML_NOBR:
-	check_rowcol(tbl);
-	pushdata(tbl, tbl->row, tbl->col, line);
-	if (!(mode->pre_mode & TBLM_NOBR)) {
-	    mode->nobr_offset = -1;
-	    mode->pre_mode |= TBLM_NOBR;
-	}
-	mode->nobr_level++;
-	break;
-    case HTML_WBR:
-	check_rowcol(tbl);
-	pushdata(tbl, tbl->row, tbl->col, line);
-	mode->nobr_offset = -1;
-	break;
-    case HTML_N_NOBR:
-	if (mode->nobr_level > 0)
-	    mode->nobr_level--;
-	check_rowcol(tbl);
-	pushdata(tbl, tbl->row, tbl->col, line);
-	if (mode->nobr_level == 0)
-	    mode->pre_mode &= ~TBLM_NOBR;
-	break;
-    case HTML_PRE_INT:
-	check_rowcol(tbl);
-	pushdata(tbl, tbl->row, tbl->col, line);
-	if (!(mode->pre_mode & TBLM_PRE_INT)) {
-	    mode->nobr_offset = -1;
-	    mode->pre_mode |= TBLM_PRE_INT;
-	}
-	tbl->linfo.prev_spaces = 0;
-	break;
-    case HTML_N_PRE_INT:
-	check_rowcol(tbl);
-	pushdata(tbl, tbl->row, tbl->col, line);
-	mode->pre_mode &= ~TBLM_PRE_INT;
-	break;
-    case HTML_IMG:
-	tok = process_img(parse_tag(line + 3));
-	feed_table1(tbl, tok, mode, width);
-	break;
-#ifdef NEW_FORM
-    case HTML_FORM:
-	process_form(parse_tag(line));
-	break;
-    case HTML_N_FORM:
-	process_n_form();
-	break;
-#else				/* not NEW_FORM */
-    case HTML_FORM:
-    case HTML_N_FORM:
-	check_rowcol(tbl);
-	pushdata(tbl, tbl->row, tbl->col, "<br>");
-	setwidth(tbl, mode);
-	clearcontentssize(tbl, mode);
-	if (line[1] == '/') {
-	    tok = Strnew_charp("</form_int ");
-	    Strcat_charp(tok, line + 6);
-	}
-	else {
-	    tok = Strnew_charp("<form_int ");
-	    Strcat_charp(tok, line + 5);
-	}
-	pushdata(tbl, tbl->row, tbl->col, tok->ptr);
-	break;
-#endif				/* not NEW_FORM */
-    case HTML_INPUT:
-	tmp = process_input(parse_tag(line + 6));
-	feed_table1(tbl, tmp, mode, width);
-	break;
-    case HTML_SELECT:
-	t_arg = parse_tag(line + 7);
-	tmp = process_select(t_arg);
-	feed_table1(tbl, tmp, mode, width);
-#ifdef MENU_SELECT
-	if (!tag_exists(t_arg, "multiple"))	/* non-multiple select */
-	    mode->pre_mode |= TBLM_INSELECT;
-#endif				/* MENU_SELECT */
-	break;
-    case HTML_N_SELECT:
-#ifdef MENU_SELECT
-	mode->pre_mode &= ~TBLM_INSELECT;
-#endif				/* MENU_SELECT */
-	tmp = process_n_select();
-	feed_table1(tbl, tmp, mode, width);
-	break;
-    case HTML_OPTION:
-	tmp = process_option(parse_tag(line + 7));
-	if (tmp)
-	    feed_table1(tbl, tmp, mode, width);
-#ifdef MENU_SELECT
-	else
-	    feed_select(line);
-#endif				/* MENU_SELECT */
-	break;
-    case HTML_TEXTAREA:
-	w = 0;
-	check_rowcol(tbl);
-	if (tbl->col + 1 <= tbl->maxcol &&
-	    tbl->tabattr[tbl->row][tbl->col + 1] & HTT_X) {
-	    if (cell->icell >= 0 && cell->fixed_width[cell->icell] > 0)
-		w = cell->fixed_width[cell->icell];
-	}
-	else {
-	    if (tbl->fixed_width[tbl->col] > 0)
-		w = tbl->fixed_width[tbl->col];
-	}
-	tmp = process_textarea(parse_tag(line + 9), w);
-	feed_table1(tbl, tmp, mode, width);
-	mode->pre_mode |= TBLM_INTXTA;
-	break;
-    case HTML_N_TEXTAREA:
-	mode->pre_mode &= ~TBLM_INTXTA;
-	tmp = process_n_textarea();
-	feed_table1(tbl, tmp, mode, width);
-	break;
-    case HTML_A:
-	anchor = NULL;
-	check_rowcol(tbl);
-	t_arg = parse_tag(line + 2);
-	i = 0;
-	for (t = t_arg; t; t = t->next) {
-	    if (strcasecmp(t->arg, "href") == 0 && t->value) {
-		anchor = Strnew_charp(t->value);
-	    }
-	    else if (strcasecmp(t->arg, "hseq") == 0 && t->value) {
-		i = atoi(t->value);
-	    }
-	}
-	if (i == 0 && anchor) {
-	    Str tmp = process_anchor(line);
-	    pushdata(tbl, tbl->row, tbl->col, tmp->ptr);
-	    if (mode->pre_mode & (TBLM_PRE | TBLM_NOBR))
-		addcontentssize(tbl, 1);
-	    else
-		check_minimum0(tbl, 1);
-	    setwidth(tbl, mode);
-	}
-	else {
-	    pushdata(tbl, tbl->row, tbl->col, line);
-	}
-	break;
-    case HTML_DEL:
-    case HTML_N_DEL:
-    case HTML_INS:
-    case HTML_N_INS:
-	pushdata(tbl, tbl->row, tbl->col, line);
-	i = 5;
-	check_minimum0(tbl, i);
-	addcontentssize(tbl, i);
-	setwidth(tbl, mode);
-	break;
-    case HTML_DUMMY_TABLE:
-	id = -1;
-	w = 0;
-	t_arg = parse_tag(line + 12);
-	for (t = t_arg; t; t = t->next) {
-	    if (!strcasecmp(t->arg, "id") && t->value) {
-		id = atoi(t->value);
-	    }
-	    else if (!strcasecmp(t->arg, "width") && t->value) {
-		w = atoi(t->value);
-	    }
-	}
-	if (id >= 0) {
-	    setwidth(tbl, mode);
-	    check_rowcol(tbl);
-	    pushdata(tbl, tbl->row, tbl->col, line);
-	    clearcontentssize(tbl, mode);
-	    addcontentssize(tbl, maximum_table_width(tbl->tables[id].ptr));
-	    check_minimum0(tbl, minimum_table_width(tbl->tables[id].ptr));
-	    if (w > 0)
-		check_minimum0(tbl, w);
-	    else
-		check_minimum0(tbl, fixed_table_width(tbl->tables[id].ptr));
-	    setwidth0(tbl, mode);
-	    clearcontentssize(tbl, mode);
-	}
-	break;
-    case HTML_CAPTION:
-	mode->caption = 1;
-	break;
-    case HTML_N_CAPTION:
-	mode->caption = 0;
-	break;
-    case HTML_THEAD:
-    case HTML_N_THEAD:
-    case HTML_TBODY:
-    case HTML_N_TBODY:
-    case HTML_TFOOT:
-    case HTML_N_TFOOT:
-    case HTML_COLGROUP:
-    case HTML_N_COLGROUP:
-    case HTML_COL:
-	break;
-    case HTML_SCRIPT:
-	mode->pre_mode |= TBLM_SCRIPT;
-	break;
-    case HTML_STYLE:
-	mode->pre_mode |= TBLM_STYLE;
-	break;
-    default:
-	/* unknown tag: put into table */
-	return TAG_ACTION_FEED;
-    }
-    return TAG_ACTION_NONE;
-}
-
-
-int
-feed_table(struct table *tbl, char **tline, struct table_mode *mode, int width)
-{
-    int i;
-    char *line;
-    char *p;
-    Str tok, tmp;
-    struct table_linfo *linfo = &tbl->linfo;
-
-    if (*tline == NULL || **tline == '\0')
-	return -1;
-
-    tok = Strnew();
-    if (tbl->suspended_input->length > 0) {
-	Strcat_charp(tbl->suspended_input, *tline);
-	*tline = tbl->suspended_input->ptr;
-	tbl->suspended_input = Strnew();
-	tbl->status = R_ST_NORMAL;
-    }
-    while (read_token(tok, tline, &tbl->status, mode->pre_mode & TBLM_PREMODE, 0)) {
-	if (ST_IS_COMMENT(tbl->status)) {
-	    continue;
-	}
-	else if (tbl->status != R_ST_NORMAL) {
-	    /* line ended within tag */
-	    int l = tok->length;
-	    if (tok->ptr[l - 1] == '\n') {
-		Strchop(tok);
-		if (ST_IS_REAL_TAG(tbl->status))
-		    Strcat_char(tok, ' ');
-	    }
-	    tbl->suspended_input = Strdup(tok);
-	    return -1;
-	}
-	line = tok->ptr;
-	if (mode->caption && !TAG_IS(line, "</caption", 9)) {
-	    Strcat(tbl->caption, tok);
-	    continue;
-	}
-	if (*line == '<') {
-	    int action = feed_table_tag(tbl, line, mode, width);
-	    if (action == TAG_ACTION_NONE)
-		continue;
-	    else if (action == TAG_ACTION_N_TABLE)
-		return 0;
-	    else if (action == TAG_ACTION_TABLE) {
-		*tline -= tok->length;
-		return 1;
-	    }
-	}
-	if (mode->pre_mode & TBLM_IGNORE)
-	    continue;
-	if (mode->pre_mode & TBLM_INTXTA) {
-	    feed_textarea(line);
-	    continue;
-	}
-#ifdef MENU_SELECT
-	if (mode->pre_mode & TBLM_INSELECT) {
-	    feed_select(line);
-	    continue;
-	}
-#endif				/* MENU_SELECT */
-	/* convert &...; if it is latin-1 character */
-	if (!(*line == '<' && line[strlen(line) - 1] == '>') &&
-	    strchr(line, '&') != NULL) {
-	    tmp = Strnew();
-	    for (p = line; *p;) {
-		char *q, *r;
-		if (*p == '&') {
-		    if (!strncasecmp(p, "&amp;", 5) ||
-			!strncasecmp(p, "&gt;", 4) ||
-			!strncasecmp(p, "&lt;", 4)) {
-			/* do not convert */
-			Strcat_char(tmp, *p);
-			p++;
-		    }
-		    else {
-			q = p;
-			r = getescapecmd(&p);
-			if (r != NULL && ((*r & 0x80) || IS_CNTRL(*r))) {
-			    /* latin-1 character */
-			    Strcat_charp(tmp, r);
-			}
-			else {
-			    Strcat_char(tmp, *q);
-			    p = q + 1;
-			}
-		    }
-		}
-		else {
-		    Strcat_char(tmp, *p);
-		    p++;
-		}
-	    }
-	    line = tmp->ptr;
-	}
-	if (!(mode->pre_mode & (TBLM_PRE | TBLM_PRE_INT))) {
-	    if (!(tbl->flag & TBL_IN_COL)) {
-		linfo->prev_spaces = -1;
-		linfo->prev_ctype = PC_ASCII;
-	    }
-	    if (linfo->prev_spaces != 0)
-		while (IS_SPACE(*line))
-		    line++;
-	    if (*line == '\0')
-		continue;
-	    check_rowcol(tbl);
-	    if (mode->pre_mode & TBLM_NOBR && mode->nobr_offset < 0)
-		mode->nobr_offset = tbl->tabcontentssize;
-
-	    /* count of number of spaces skipped in normal mode */
-	    i = skip_space(tbl, line, linfo, !(mode->pre_mode & TBLM_NOBR));
-	    addcontentssize(tbl, visible_length(line) - i);
-	    setwidth(tbl, mode);
-	}
-	else {
-	    /* <pre> mode or something like it */
-	    check_rowcol(tbl);
-	    if (mode->pre_mode & TBLM_PRE_INT && mode->nobr_offset < 0)
-		mode->nobr_offset = tbl->tabcontentssize;
-	    i = maximum_visible_length(line);
-	    addcontentssize(tbl, i);
-	    setwidth(tbl, mode);
-	    if (!(mode->pre_mode & TBLM_PRE_INT)) {
-		p = line + strlen(line) - 1;
-		if (*p == '\r' || *p == '\n')
-		    clearcontentssize(tbl, mode);
-	    }
-	}
-	pushdata(tbl, tbl->row, tbl->col, line);
-    }
-    if (ST_IS_COMMENT(tbl->status))
-	return 2;
-    else
-	return -1;
-}
-
-void
-feed_table1(struct table *tbl, Str tok, struct table_mode *mode, int width)
-{
-    char *p;
-    if (!tok)
-	return;
-    p = tok->ptr;
-    feed_table(tbl, &p, mode, width);
-}
-
-void
-pushTable(struct table *tbl, struct table *tbl1)
-{
-    int col;
-    int row;
-
-    check_rowcol(tbl);
-    col = tbl->col;
-    row = tbl->row;
-
-    if (tbl->ntable >= tbl->tables_size) {
-	struct table_in *tmp;
-	tbl->tables_size += MAX_TABLE_N;
-	tmp = New_N(struct table_in, tbl->tables_size);
-	if (tbl->tables)
-#ifdef __CYGWIN__
-	    bcopy((const char *) tbl->tables, (char *) tmp, (size_t) tbl->ntable * sizeof(struct table_in));
-#else				/* not __CYGWIN__ */
-	    bcopy(tbl->tables, tmp, tbl->ntable * sizeof(struct table_in));
-#endif				/* not __CYGWIN__ */
-	tbl->tables = tmp;
-    }
-
-    tbl->tables[tbl->ntable].ptr = tbl1;
-    tbl->tables[tbl->ntable].col = col;
-    tbl->tables[tbl->ntable].row = row;
-    tbl->tables[tbl->ntable].indent = tbl->indent;
-    tbl->tables[tbl->ntable].buf = newTextList();
-    check_row(tbl, row);
-    if (col + 1 <= tbl->maxcol &&
-	tbl->tabattr[row][col + 1] & HTT_X)
-	tbl->tables[tbl->ntable].cell = tbl->cell.icell;
-    else
-	tbl->tables[tbl->ntable].cell = -1;
-    tbl->ntable++;
-}
-
-#ifdef MATRIX
-int
-correct_table_matrix(struct table *t, int col, int cspan, int a, double b)
-{
-    int i, j;
-    int ecol = col + cspan;
-    double w = 1. / (b * b);
-
-    for (i = col; i < ecol; i++) {
-	v_add_val(t->vector, i, w * a);
-	for (j = i; j < ecol; j++) {
-	    m_add_val(t->matrix, i, j, w);
-	    m_set_val(t->matrix, j, i, m_entry(t->matrix, i, j));
-	}
-    }
-    return i;
-}
-
-static void
-correct_table_matrix2(struct table *t, int col, int cspan, double s, double b)
-{
-    int i, j;
-    int ecol = col + cspan;
-    int size = t->maxcol + 1;
-    double w = 1. / (b * b);
-    double ss;
-
-    for (i = 0; i < size; i++) {
-	for (j = i; j < size; j++) {
-	    if (i >= col && i < ecol && j >= col && j < ecol)
-		ss = (1. - s) * (1. - s);
-	    else if ((i >= col && i < ecol) || (j >= col && j < ecol))
-		ss = -(1. - s) * s;
-	    else
-		ss = s * s;
-	    m_add_val(t->matrix, i, j, w * ss);
-	}
-    }
-}
-
-static void
-correct_table_matrix3(struct table *t, int col, char *flags, double s, double b)
-{
-    int i, j;
-    double ss;
-    int size = t->maxcol + 1;
-    double w = 1. / (b * b);
-    int flg = (flags[col] == 0);
-
-    for (i = 0; i < size; i++) {
-	if (!((flg && flags[i] == 0) || (!flg && flags[i] != 0)))
-	    continue;
-	for (j = i; j < size; j++) {
-	    if (!((flg && flags[j] == 0) || (!flg && flags[j] != 0)))
-		continue;
-	    if (i == col && j == col)
-		ss = (1. - s) * (1. - s);
-	    else if (i == col || j == col)
-		ss = -(1. - s) * s;
-	    else
-		ss = s * s;
-	    m_add_val(t->matrix, i, j, w * ss);
-	}
-    }
-}
-
-static void
-set_table_matrix0(struct table *t, int maxwidth)
-{
-    int size = t->maxcol + 1;
-    int i, j, k, bcol, ecol;
-    int swidth, width, a;
-    double w0, w1, w, s, b;
-#ifdef __GNUC__
-    double we[size];
-    char expand[size];
-#else				/* not __GNUC__ */
-    double we[MAXCOL];
-    char expand[MAXCOL];
-#endif				/* not __GNUC__ */
-    struct table_cell *cell = &t->cell;
-
-    w0 = 0.;
-    for (i = 0; i < size; i++) {
-	we[i] = weight(t->tabwidth[i]);
-	w0 += we[i];
-    }
-    if (w0 <= 0.)
-	w0 = 1.;
-
-    if (cell->necell == 0) {
-	for (i = 0; i < size; i++) {
-	    s = we[i] / w0;
-	    b = sigma_td_nw((int) (s * maxwidth));
-	    correct_table_matrix2(t, i, 1, s, b);
-	}
-	return;
-    }
-
-    bzero(expand, size);
-
-    for (k = 0; k < cell->necell; k++) {
-	j = cell->eindex[k];
-	bcol = cell->col[j];
-	ecol = bcol + cell->colspan[j];
-	swidth = 0;
-	for (i = bcol; i < ecol; i++) {
-	    swidth += t->tabwidth[i];
-	    expand[i]++;
-	}
-	width = cell->width[j] - (cell->colspan[j] - 1) * t->cellspacing;
-	w = weight(width);
-	w1 = 0.;
-	for (i = bcol; i < ecol; i++)
-	    w1 += we[i];
-	s = w / (w0 + w - w1);
-	a = (int) (s * maxwidth);
-	b = sigma_td_nw(a);
-	correct_table_matrix2(t, bcol, cell->colspan[j], s, b);
-    }
-
-    w1 = 0.;
-    for (i = 0; i < size; i++)
-	if (expand[i] == 0)
-	    w1 += we[i];
-    for (i = 0; i < size; i++) {
-	if (expand[i] == 0) {
-	    s = we[i] / max(w1, 1.);
-	    b = sigma_td_nw((int) (s * maxwidth));
-	}
-	else {
-	    s = we[i] / max(w0 - w1, 1.);
-	    b = sigma_td_nw(maxwidth);
-	}
-	correct_table_matrix3(t, i, expand, s, b);
-    }
-}
-
-void
-set_table_matrix(struct table *t, int width)
-{
-    int size = t->maxcol + 1;
-    int i, j;
-    double b, s;
-    int a;
-    struct table_cell *cell = &t->cell;
-
-    if (size < 1)
-	return;
-
-    t->matrix = m_get(size, size);
-    t->vector = v_get(size);
-    for (i = 0; i < size; i++) {
-	for (j = i; j < size; j++)
-	    m_set_val(t->matrix, i, j, 0.);
-	v_set_val(t->vector, i, 0.);
-    }
-
-    for (i = 0; i < size; i++) {
-	if (t->fixed_width[i] > 0) {
-	    a = max(t->fixed_width[i], t->minimum_width[i]);
-	    b = sigma_td(a);
-	    correct_table_matrix(t, i, 1, a, b);
-	}
-	else if (t->fixed_width[i] < 0) {
-	    s = -(double) t->fixed_width[i] / 100.;
-	    b = sigma_td((int) (s * width));
-	    correct_table_matrix2(t, i, 1, s, b);
-	}
-    }
-
-    for (j = 0; j <= cell->maxcell; j++) {
-	if (cell->fixed_width[j] > 0) {
-	    a = max(cell->fixed_width[j], cell->minimum_width[j]);
-	    b = sigma_td(a);
-	    correct_table_matrix(t, cell->col[j],
-				 cell->colspan[j], a, b);
-	}
-	else if (cell->fixed_width[j] < 0) {
-	    s = -(double) cell->fixed_width[j] / 100.;
-	    b = sigma_td((int) (s * width));
-	    correct_table_matrix2(t, cell->col[j],
-				  cell->colspan[j], s, b);
-	}
-    }
-
-    set_table_matrix0(t, width);
-
-    if (t->total_width > 0) {
-	b = sigma_table(width);
-    }
-    else {
-	b = sigma_table_nw(width);
-    }
-    correct_table_matrix(t, 0, size, width, b);
-}
-#endif				/* MATRIX */