BEGIN {
# some initialization variables
asciiart="no";
wasset="no";
lineset=0;
t=1;u=0;
while ( getline ti <"tags.ref" > 0 )
{
nf=split(ti,tag," ");
tagkey[t]=tag[1];tagref[t]=tag[2];
# print t " " tagkey[t] " " tagref[t];
t++;
}
t--;
#print t " tags.";
#exit;
# there are "t" entries in the tags table
}
#
# from htmlchek, metachar.awk, protects special chars.
#
/[><&]/ {gsub(/&/,"\\&");gsub(/>/,"\\>");gsub(/";
print "";
print "";
print "" FILENAME " - html version
";
print "" FILENAME " - html version ";
print "";
print "";
print "";
nf=split(FILENAME,f,".")
filename=f[1]".html";
#print filename;
#exit;
}
# set to a low value to test for few lines of text
# NR == 99999 { exit; }
# ignore underlines and tags
substr($0,1,3) == "===" { next; }
substr($0,1,3) == "---" { next; }
substr($0,1,5) == " vim:" { next; }
substr($0,1,4) == "vim:" { next; }
{
nstar = split($0,s,"ZWWZ");
for ( i=2 ; i <= nstar ; i=i+2 ) {
nbla=split(s[i],blata," ");
ntabs=split(s[i],tb," ");
if ( nbla > 1 || ntabs > 1 ) {
gsub("ZWWZ","\*");
nstar = split($0,s,"ZWWZ");
}
}
npipe = split($0,p,"YXXY");
for ( i=2 ; i <= npipe ; i=i+2 ) {
nbla=split(p[i],blata," ");
ntabs=split(p[i],tb," ");
if ( nbla > 1 || ntabs > 1 ) {
gsub("YXXY","\|");
ntabs = split($0,p,"YXXY");
}
}
}
FILENAME == "gui.txt" && asciiart == "no" \
&& $0 ~ /\+----/ && $0 ~ /----\+/ {
asciiart= "yes";
}
asciiart == "yes" { npipe = 1; }
# { print NR " <=> " asciiart; }
#
# line contains "*"
#
nstar > 2 && npipe < 3 {
printf("\n\n");
for ( i=1; i <= nstar ; i=i+2 ) {
this=s[i];
put_this();
ii=i+1;
nbla = split(s[ii],blata," ");
if ( ii <= nstar ) {
if ( nbla == 1 && substr(s[ii],length(s[ii]),1) != " " ) {
printf("",s[ii]);
printf("*%s*",s[ii]);
} else {
printf("*%s*",s[ii]);
}
}
}
printf("\n");
next;
}
#
# line contains "|"
#
npipe > 2 && nstar < 3 {
if ( npipe%2 == 0 ) {
for ( i=1; i < npipe ; i++ ) {
gsub("ZWWZ","*",p[i]);
printf("%s\|",p[i]);
}
printf("%s\n",p[npipe]);
next;
}
for ( i=1; i <= npipe ; i++ )
{
if ( i % 2 == 1 ) {
gsub("ZWWZ","*",p[i]);
this=p[i];
put_this();
}
else {
nfn=split(p[i],f,".");
if ( nfn == 1 || f[2] == "" || f[1] == "" ) {
find_tag();
}
else {
printf "\|" p[i] "\|";
}
}
}
printf("\n");
next;
}
#
# line contains both "|" and "*"
#
npipe > 2 && nstar > 2 {
printf("\n\n");
for ( j=1; j <= nstar ; j=j+2 ) {
npipe = split(s[j],p,"YXXY");
if ( npipe > 1 ) {
this=p[1];
put_this();
i=2;find_tag();
this=p[3];
put_this();
} else {
this=s[j];
put_this();
}
jj=j+1;
nbla = split(s[jj],blata," ");
if ( jj <= nstar && nbla == 1 && s[jj] != "" ) {
printf("",s[jj]);
printf("*%s*",s[jj]);
} else {
if ( s[jj] != "" ) {
printf("*%s*",s[jj]);
}
}
}
printf("\n");
next;
}
#
# line contains e-mail address (normalized: )
#
$0 ~ /@/ && ( $0 ~ /\.com/ || $0 ~ /\.de/ || $0 ~ /\.nl/ || $0 ~ /\.edu/ ) \
{
nemail=split($0,em,"\\&");
for ( i=1; i <= nemail; i++ ) {
if ( substr(em[i],1,2) == "lt" ) {
mailaddr=substr(em[i],4);
printf("\<%s\>",mailaddr,mailaddr);
} else {
if ( substr(em[i],1,2) == "gt" ) {
shortstr=substr(em[i],4);
printf("%s",shortstr);
} else {
printf("%s",em[i]);
}
}
}
#print "*** " NR " " FILENAME " - possible mail ref";
printf("\n");
next;
}
#
# line contains http reference (normalized:
# )
#
$0 ~ /URL:/ || $0 ~ /ftp:/ || $0 ~ /http:/ \
{
nemail=split($0,em,"\\&");
for ( i=1; i <= nemail; i++ ) {
if ( substr(em[i],1,2) == "lt" ) {
httpref=substr(em[i],8);
printf("\<%s\>",httpref,httpref);
} else {
if ( substr(em[i],1,2) == "gt" ) {
shortstr=substr(em[i],4);
printf("%s",shortstr);
} else {
printf("%s",em[i]);
}
}
}
#print "*** " NR " " FILENAME " - possible http ref";
printf("\n");
next;
}
#
# some lines contains just one "almost regular" "*"...
#
nstar == 2 {
this=s[1];
put_this();
printf("*");
this=s[2];
put_this();
printf("\n");
next;
}
#
# regular line
#
{ ntabs = split($0,tb," ");
for ( i=1; i < ntabs ; i++) {
this=tb[i];
put_this();
printf(" ");
}
this=tb[ntabs];
put_this();
printf("\n");
}
asciiart == "yes" && $0 ~ /\+-\+--/ \
&& $0 ~ "scrollbar" { asciiart = "no"; }
END {
topback();
print "\n\n\n\n