tap (long delayed sync from ctan)

git-svn-id: svn://tug.org/texlive/trunk@31731 c570f23f-e606-0410-a88d-b1316a301751

16 files changed, 0 insertions, 388 deletions

diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/0sampdos.inf b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/0sampdos.inf
deleted file mode 100644
index b7bcb5379bf..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/0sampdos.inf
+++ /dev/null
@@ -1,5 +0,0 @@
-           All files in this directory belong to the TAP package
-
-            Use TCV.BAT to translate *.RAW files into plain TeX.
-     (TCV.BAT makes use of Gnu AWK; the version 3.0.x is recommended)
-
diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/post1.tex b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/post1.tex
deleted file mode 100644
index 0e2330f2bfa..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/post1.tex
+++ /dev/null
@@ -1,3 +0,0 @@
-\endtable
-
-\end
diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/post2.tex b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/post2.tex
deleted file mode 100644
index 2a7a74853ad..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/post2.tex
+++ /dev/null
@@ -1,4 +0,0 @@
-\B"\Z"\Z"  "\Z"\Z"  "\Z"\Z"  "\Z"\Z"  "\Z"\Z"  "\Z"\Z"  "\Z"\Z\E"
-\endtable
-
-\end
diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/prea1.tex b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/prea1.tex
deleted file mode 100644
index 9af340975b8..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/prea1.tex
+++ /dev/null
@@ -1,5 +0,0 @@
-\input tap
-\nopagenumbers
-
-\begintable
-\begintableformat &\center \endtableformat 
diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/prea2.tex b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/prea2.tex
deleted file mode 100644
index a6af34ddb91..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/prea2.tex
+++ /dev/null
@@ -1,7 +0,0 @@
-\input tap
-\nopagenumbers
-
-\def\Z{\hbox to5mm{}}
-
-\begintable
-\begintableformat &\center \endtableformat 
diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/prea3.tex b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/prea3.tex
deleted file mode 100644
index a6c581c8e82..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/prea3.tex
+++ /dev/null
@@ -1,6 +0,0 @@
-\input tap
-\nopagenumbers
-
-\thistable{\desiredwidth36em}
-\begintable
-\begintableformat &\left \endtableformat 
diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv0.raw b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv0.raw
deleted file mode 100644
index 74403186b1d..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv0.raw
+++ /dev/null
@@ -1,5 +0,0 @@
-ÉÍÍÍÍÑÍÍÍÍËÍÍÍÍÑÍÍÍÍ»
-º  1 ³  2 º  3 ³  4 º
-ÇÄÄÄÄÅÄÄÄÄ×ÄÄÄÄÅÄÄÄĶ
-º 11 ³ 22 º 33 ³ 44 º
-ÈÍÍÍÍÏÍÍÍÍÊÍÍÍÍÏÍÍÍͼ
diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv1.raw b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv1.raw
deleted file mode 100644
index be6f5924445..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv1.raw
+++ /dev/null
@@ -1,9 +0,0 @@
-ÉÍÍÍÍÑÍÍÍÍËÍÍÍÍÑÍÍÍÍ»
-º  1 ³  1 º  1 ³  1 º
-º  2 ³  2 º  2 ³  2 º
-º  3 ³  3 º  3 ³  3 º
-ÇÄÄÄÄÅÄÄÄÄ×ÄÄÄÄÅÄÄÄĶ
-º 44 ³ 44 º 44 ³ 44 º
-º 55 ³ 55 º 55 ³ 55 º
-º 66 ³ 66 º 66 ³ 66 º
-ÈÍÍÍÍÏÍÍÍÍÊÍÍÍÍÏÍÍÍͼ
diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv2.raw b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv2.raw
deleted file mode 100644
index 5ca9a2c85c3..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv2.raw
+++ /dev/null
@@ -1,11 +0,0 @@
-
-
-  ÉÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
-  º rubryka 1 ³ rubryka 2 ³ rubryka 3 ³  rubryka 4   º
-  ÌÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
-  º     rubryka 1 i 2     ³     rubryka 3 i 4        º
-  ÇÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
-  º           ³      rubryka 2 i 3    ³              º
-  ÇÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ wiersz 3 i 4 º
-  º           rubryka 1, 2, 3         ³              º
-  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv3.raw b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv3.raw
deleted file mode 100644
index 57ce13288d8..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv3.raw
+++ /dev/null
@@ -1,15 +0,0 @@
-                                                  J. H. B\"ohning, 1838
-                                               ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-                      M. J. H. B\"ohning, 1882 ³
-                    ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
-                    ³                          ³   M. D. Blase, 1840
-                    ³                          ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-L. M. Bohning, 1912 ³
-ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
-                    ³                             E. F. Ehlert, 1845
-                    ³                          ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
-                    ³ P. A. M. Ehlert, 1884    ³
-                    ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´
-                                               ³  C. L. Wischmeyer, 1850
-                                               ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ       
-
diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv4.raw b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv4.raw
deleted file mode 100644
index 9af65fe2dd1..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv4.raw
+++ /dev/null
@@ -1,8 +0,0 @@
-   COLUMN
- OF NUMBERS 
-ÍÍÍÍÍÍÍÍÍÍÍÍ
-    12,3
-     0,12
- 12345,678
-     0,1234
-123456,0
diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv5.raw b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv5.raw
deleted file mode 100644
index d2ec5442dd5..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv5.raw
+++ /dev/null
@@ -1,15 +0,0 @@
-                                  ÉÍÍÍÍÍÍÍ»
-                                  ºB O S Sº
-                                  ÈÍÍÍÑÍÍͼ
-                                      ³
-                                      ³
-                                      ³
-                                      ³
-     ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿
-     ³          ³          ³                     ³          ³          ³
-     ³          ³          ³                     ³          ³          ³
-     ³          ³          ³                     ³          ³          ³
- ÚÄÄÄÁÄÄÄ¿  ÚÄÄÄÁÄÄÄ¿  ÚÄÄÄÁÄÄÄ¿             ÚÄÄÄÁÄÄÄ¿  ÚÄÄÄÁÄÄÄ¿  ÚÄÄÄÁÄÄÄ¿
- ³ v-ce  ³  ³ v-ce  ³  ³ v-ce  ³             ³ v-ce  ³  ³ v-ce  ³  ³ v-ce  ³
- ³ boss 1³  ³ boss 2³  ³ boss 3³             ³ boss 4³  ³ boss 5³  ³ boss 6³
- ÀÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÄÄÄÙ             ÀÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÄÄÄÙ  ÀÄÄÄÄÄÄÄÙ
diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv6.raw b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv6.raw
deleted file mode 100644
index b3a3c4cca95..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tapcv6.raw
+++ /dev/null
@@ -1,36 +0,0 @@
-
-
-
-                ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
-                ³                                                   ³
-                ³  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ³
-                ³  ³                                             ³  ³
-                ³  ³  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ³  ³
-                ³  ³  ³                                       ³  ³  ³
-                ³  ³  ³  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ³  ³  ³
-                ³  ³  ³  ³                                 ³  ³  ³  ³
-                ³  ³  ³  ³  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ³  ³  ³  ³
-                ³  ³  ³  ³  ³                           ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³  ³                     ³  ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³  ³  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿  ³  ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³  ³  ³               ³  ³  ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³  ³  ³  ÉÍÍÍÍÍÍÍÍÍ»  ³  ³  ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³  ³  ³  º         º  ³  ³  ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³  ³  ³  º  T A P  º  ³  ³  ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³  ³  ³  º         º  ³  ³  ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³  ³  ³  ÈÍÍÍÍÍÍÍÍͼ  ³  ³  ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³  ³  ³               ³  ³  ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³  ³  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ³  ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³  ³                     ³  ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ³                           ³  ³  ³  ³  ³
-                ³  ³  ³  ³  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ³  ³  ³  ³
-                ³  ³  ³  ³                                 ³  ³  ³  ³
-                ³  ³  ³  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ³  ³  ³
-                ³  ³  ³                                       ³  ³  ³
-                ³  ³  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ³  ³
-                ³  ³                                             ³  ³
-                ³  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ  ³
-                ³                                                   ³
-                ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tcv.bat b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tcv.bat
deleted file mode 100644
index 660ff087ee2..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tcv.bat
+++ /dev/null
@@ -1,16 +0,0 @@
-@echo off

-:: %1 input file name

-:: %2 output file name

-:: %3 extra spaces added at sides of every cell

-:: %4 span columns if %4=0, no spanning if %4=1

-:: %5 TeX text inserted in rows containing only vertical rules

-:: %6 preamble file name

-:: %7 postamble file name

-call tcv_ tapcv0.raw tapcv0.tex  prea1.tex post1.tex 2 0

-call tcv_ tapcv1.raw tapcv1.tex  prea1.tex post1.tex 2 0

-call tcv_ tapcv2.raw tapcv2.tex  prea1.tex post1.tex 2 0

-call tcv_ tapcv3.raw tapcv3.tex  prea3.tex post1.tex 0 1

-call tcv_ tapcv4.raw tapcv4.tex  prea1.tex post1.tex 2 0

-call tcv_ tapcv5.raw tapcv5.tex  prea2.tex post2.tex 2 0 \\V{x}

-call tcv_ tapcv6.raw tapcv6a.tex prea1.tex post1.tex 2 0 \\D+

-call tcv_ tapcv6.raw tapcv6b.tex prea1.tex post1.tex 2 0

diff --git a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tcv_.bat b/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tcv_.bat
deleted file mode 100644
index f8ffb442b9b..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/sampdos/tcv_.bat
+++ /dev/null
@@ -1,4 +0,0 @@
-echo converting %1 to %2

-gawk -f../tapcv.awk -vEXPROW=%5 -vNOSPAN=%6 -vINSROW=%7 %1 > tmp.tmp

-copy /b %3 + tmp.tmp + %4 %2 > nul

-del tmp.tmp

diff --git a/Master/texmf-dist/source/generic/tap/tabcv/tapcv.awk b/Master/texmf-dist/source/generic/tap/tabcv/tapcv.awk
deleted file mode 100644
index 1be6213b475..00000000000
--- a/Master/texmf-dist/source/generic/tap/tabcv/tapcv.awk
+++ /dev/null
@@ -1,239 +0,0 @@
-# ---------------------------------------------------------------------------
-                 This file belongs to the TAP package
-# ---------------------------------------------------------------------------
-# This is an AWK translator of tables written in extended ASCII format
-# to TeX/TAP format.
-
-# VERSION: 0.71, Tuesday, January 27th, 1998 -- essentially the
-#          same as ver. 0.5 of Friday, May 3rd, 1996 (BachoTeX 96 release)
-
-# AUTHORS' COORDINATES
-# 
-# Names:  Bogu\l{}aw Jackowski, Piotr Pianowski, Piotr Strzelczyk
-# Mail:   BOP s.c., ul. Piastowska 70, 80-363 Gda\'nsk, Poland
-# Email:  B.Jackowski@GUST.ORG.PL
-
-# ===========================================================================
-BEGIN {
-  EXPROW=EXPROW+0 # pad each cell with at least EXPROW spaces
-  NOSPAN=NOSPAN+0 # use " mark instead of @ operator
-# INSROW is inserted in rows ~ "^[ " U S "]+$" (if not empty)
-  H="Í"; V="¶·¹º»¼½ÇÈÉÊËÌÎÐÒÓÖ×"; h="Ä"; v="µ¸´³¿Ù¾ÆÀÚÁÂÃÅÏÑÔÕØ"
-  U=" º³"  # U is the subset of V + v + " "
-  S="°"    # the explicit mark of a strut column (converted later to ")
-}
-# ===========================================================================
-function int_subst(u) {# task-specific substitutions for table interior
-  gsub("<","$<$",u); gsub(">","$>$",u); gsub("%","\\%",u); return u
-}
-function spaces(n) {return (n>0 ? sprintf("%" n "s", "") : "")}
-function chars(n,c, t) {t=spaces(n); gsub(" ", c, t); return t}
-function tildes(n) {return chars(n,"~")}
-function center(l,s, k1,k2) {
-# pads string s symmetrically with spaces such that result has length=l
-  k2=0; k1=int((l-length(s))/2); if (k1>=0) k2=l-length(s)-k1
-  return spaces(k1) s spaces(k2)
-}
-# ===========================================================================
-#                          STORE ALL THE STUFF
-# ===========================================================================
-/[^ ]/ {
- if ( !(($0 ~ "^[ " U S "]+$") && (INSROW=="")) ) {
-   gsub(/ +$/,"") # trailing spaces are meaningless
-   line[++line_]=$0
-   if (longest<length($0)) longest=length($0) # fix max line length
-   PFX[line_]=(line[line_] ~ "(^[" V v S " ]+$)|([" H h "])" ? "-" : "+")
-   if ($0 ~ "^[ " U S "]+$") PFX[line_]="0"
- }
-}
-# ===========================================================================
-END {
-# PASS 0:
-# 0a: truncate leading spaces
-  u=longest
-  for (l=1; l<=line_; ++l)
-    if (match(line[l],/^ +[^ ]/)) {if (RLENGTH<u) u=RLENGTH} else u=1
-  if (u>1) for (l=1; l<=line_; ++l) line[l]=substr(line[l],u)
-  longest=longest-u+1
-# 0b: check whether the first and the last columns contain vrules
-  i=1; j=1;
-  for (l=1; l<=line_; ++l) {
-    if (substr(line[l],1,1) ~ ("[" V v S "]")) i=0
-    if (length(line[l])==longest)
-      if (substr(line[l],longest) ~ ("[" V v S "]")) j=0
-  }
-# 0c: pad with trailing spaces (make the length of all rows equal)
-  for (l=1; l<=line_; ++l) line[l]=line[l] spaces(longest-length(line[l]))
-# 0d: add artificial begin and end strut, if needed
-  if (j) for (l=1; l<=line_; ++l) line[l]=line[l] S
-  if (i) for (l=1; l<=line_; ++l) line[l]=S line[l]
-  longest=longest+i+j
-# 0e: fix prefixes
-  for (l=1; l<=line_-1; ++l)
-    if ((PFX[l]=="-") && (PFX[l+1]=="+")) PFX[l+1]="^"
-  for (l=1; l<=line_-1; ++l) {
-    if ((PFX[l]=="^") && (PFX[l+1]=="-")) PFX[l]=":"
-    if ((PFX[l]=="+") && (PFX[l+1]=="-")) PFX[l]="_"
-  }
-# PASS 1: check input data
-# 1a: find position of vrules for all rows
-  for (l=1; l<=line_; ++l) {
-    for (i=1; i<=length(line[l]); ++i) {
-      ch=substr(line[l],i,1)
-      if ((ch!=".") && (ch!="?") && (ch!="(") && (ch!=")")\
-        && (ch!="+") && (ch!="*") && (ch!="[") && (ch!="]"))
-          if (match(V v S,ch)) C[i]=i
-    }
-  }
-  for (i in C) if ((i+0)>C_) C_=i+0 # index is a string, hence forced coercion
-  for (i=1; i<=C_; ++i) if (i in C) {D[++D_]=i; C[i]=D_}
-# if (c in C) holds, a vrule has occured in c-th column; C_ is the maximal
-# such c; for d such that 1<=d<=D_ (D[d] in C) holds; moreover, C[D[d]]=d
-# 1b: check consistency of data (in the positions of vrules only spaces
-#     or vrules or struts may appear, unless NOSPAN==0)
-  for (l=1; l<=line_; ++l) for (i=1; i<=D_; ++i)
-    if ((NOSPAN) || (i==1)  || (i==D_))
-      if (!match(V v S " ",substr(line[l],D[i],1))) {
-        print "! INCONSISTENT DATA."
-        print "ROW:", l ", COLUMN:", i ", CHARACTER:",
-               substr(line[l],D[i],1) "."
-        exit
-     }
-# 1c: put opening and closing struts, and all remaining struts if (NOSPAN==1)
-  for (l=1; l<=line_; ++l) for (i=1; i<=D_; ++i)
-    if ((NOSPAN) || (i==1)  || (i==D_))
-      if (substr(line[l],D[i],1)==" ")
-        line[l]=substr(line[l],1,D[i]-1) S substr(line[l],D[i]+1)
-# PASS 2: check areas between vertical rules (find the longest one)
-  for (l=1; l<=line_; ++l) {
-    s=line[l]; t=""; u2=1
-    while (s!="") {
-      if (match(s,"[" V v S "][^" V v S "]+[" V v S "]")) {
-        t=t substr(s,RSTART,1)
-        u=substr(s,RSTART+1,RLENGTH-2)
-        s=substr(s,RSTART+RLENGTH-1)
-        u_=length(u); gsub("^ +","",u); gsub(" +$","",u)
-        u1=u2+RSTART-1; u2=u1+RLENGTH-1; c1=C[u1]; c2=C[u2]
-        if (u ~ /^[0-9]+[\.,]?[0-9]*$/) {
-          if (match(u,/^[0-9]+$/)) {
-            if (DD[c1,c2]<RLENGTH) DD[c1,c2]=RLENGTH
-          } else {
-            if (match(u,/^[0-9]+/))
-              if (LD[c1,c2]<RLENGTH) LD[c1,c2]=RLENGTH
-            if (match(u,/[\.,][0-9]*$/))
-              if (RD[c1,c2]<RLENGTH) RD[c1,c2]=RLENGTH
-          }
-        }
-        if ((u=="") && (NOSPAN)) {
-          u=spaces(u_)
-          for (i=C[u1]+1; i<=C[u2]-1; ++i) {
-            u=substr(u,1,D[i]-D[C[u1]]-1) S substr(u,D[i]-D[C[u1]]+1)
-          }
-        }
-        t=t center(u_,u)
-      } else {t=t s; s=""}
-    }
-    line[l]=t
-  }
-# PASS 3: transform appropriately (adding @ operator, if needed)
-#         areas between vertical rules
-  for (l=1; l<=line_; ++l) {
-    s=line[l]; t=""; u2=1
-    while (s!="") {
-      if (match(s,"[" V v S "][^" V v S "]+[" V v S "]")) {
-        t=t substr(s,RSTART,1)
-        u=substr(s,RSTART+1,RLENGTH-2)
-        s=substr(s,RSTART+RLENGTH-1)
-        u_=length(u); gsub("^ +","",u); gsub(" +$","",u)
-        u1=u2+RSTART-1; u2=u1+RLENGTH-1; c1=C[u1]+0; c2=C[u2]+0
-        if (u ~ /^[0-9]+[\.,]?[0-9]*$/) {
-          if (match(u,/^[0-9]+$/)) {u=tildes(DD[c1,c2]-RLENGTH) u}
-          else {
-            if (match(u,/^[0-9]+/))  u=tildes(LD[c1,c2]-RLENGTH) u
-            if (match(u,/[\.,][0-9]*$/)) u=u tildes(RD[c1,c2]-RLENGTH)
-          }
-        }
-        gsub("[" h "]+","\\-",u); gsub("[" H "]+","\\=",u)
-        if ((c1==1) && (line[l] ~ "^[" U S " ]+$"))
-          {u=INSROW} else u=int_subst(u)
-        if ((c2-c1)>1) u="@" c2-c1 " " u
-        u=center(u_,u)
-        PAD[l,u2]=length(u)-u_ # PAD[l,u2] = shift of vrule u2 in line l
-        t=t u
-      } else {t=t s; s=""}
-    }
-    line[l]=t
-  }
-# PASS 4: align distorted columns (surprisingly hard task...)
-# 4a: find maximal shifts of vrules for all table rows
-  for (i=1; i<=D_; ++i) PADmax[D[i]]=EXPROW
-  for (l=1; l<=line_; ++l)
-    for (j=2; j<=D_; ++j) {i=D[j]
-      if ((l,i) in PAD)
-        PADmax[i]=(PAD[l,i]>PADmax[i] ? PAD[l,i] : PADmax[i])
-    }
-  for (l=1; l<=line_; ++l) {
-# 4b: find shifts of vrules for a given row
-    PAD_=0
-    for (j=2; j<=D_; ++j) {i=D[j]
-      if ((l,i) in PAD) {PADloc[i]=PADmax[i]+PAD_; PAD_=0}
-      else {PADloc[i]=0; PAD_+=PADmax[i]} # slip over non-existant rules
-    }
-# 4c: add spaces before appropriate vrules
-    cc=0;
-    for (j=2; j<=D_; ++j) {i=D[j]
-      if (PADloc[i]>0) {
-        line[l]=substr(line[l],1,i+cc-1+PAD[l,i]) spaces(PADloc[i]-PAD[l,i]) substr(line[l],i+cc+PAD[l,i])
-        cc+=PADloc[i]
-      }
-    }
-  }
-# 4d: center cells again
-  for (l=1; l<=line_; ++l) {
-    s=line[l]; t=""
-    while (s!="") {
-      if (match(s,"[" V v S "][^" V v S "]+[" V v S "]")) {
-        t=t substr(s,RSTART,1)
-        u=substr(s,RSTART+1,RLENGTH-2); s=substr(s,RSTART+RLENGTH-1)
-        u_=length(u); gsub("^ +","",u); gsub(" +$","",u); t=t center(u_,u)
-      } else {t=t s; s=""}
-    }
-    line[l]=t
-  }
-# PASS 5: output results
-# 5a: insert !, | and "
-  for (l=1; l<=line_; ++l) {
-    gsub("[" V "]","!",line[l])
-    gsub("[" v "]","|",line[l])
-    gsub("[" S "]","\"",line[l])
-    p=line[l]; gsub(/(\\\|)|(\\!)|(\\")/,"  ",p); gsub(/[^\|!"]/," ",p);
-    PAT[p]=1 # fix row pattern
-    print "\\B" substr(line[l],1,1)\
-          PFX[l] substr(line[l],2,length(line[l])-2)\
-          "\\E" substr(line[l],length(line[l]),1)
-  }
-# 5b: clear old values of C and D and fix new ones
-  for (i in C) delete C[i]; for (i in D) delete D[i]; C_=0; D_=0;
-  for (p in PAT) for (i=1; i<=length(p); ++i) if (substr(p,i,1)!=" ")
-    {C[i]=1; if (i>C_) C_=i}
-  for (i=1; i<=C_; ++i) if (i in C) {D[++D_]=i; C[i]=D_}
-# 5c: write extra information
-  if (NOSPAN) {# add a row with complete column marks (a comment in fact)
-    p=spaces(D[D_]-D[1])
-    for (i=1; i<=D_; ++i) p=substr(p,1,D[i]-1) "\"" substr(p,D[i]+1)
-      print "\\B" substr(p,1,1) " " substr(p,2,length(p)-2)\
-            "\\E" substr(p,length(p),1)
-  }
-# 5d: add the ``rear''
-#  print "% ROW PATTERNS:"
-#  for (p in PAT) {
-#    for (i in C) if (substr(p,i,1)==" ") p=substr(p,1,i-1) "\"" substr(p,i+1)
-#    print "%\\B" substr(p,1,1)\
-#          "0" substr(p,2,length(p)-2) "\\E" substr(p,length(p),1)
-#  }
-#  print "% VRULES FOUND IN THE FOLLOWING COLUMNS:"
-#  print "%"
-#  print "% No.    Col.:"
-#  for (j=1; j<=D_; ++j) printf("%s %3d %4d\n", "%", j, D[j])
-}
-# ===========================================================================