runtime/doc/makehtml.awk

   1 BEGIN   {
   2         # some initialization variables
   3         asciiart="no";
   4         wasset="no";
   5         lineset=0;
   6         sample="no";
   7         while ( getline ti <"tags.ref" > 0 ) {
   8                 nf=split(ti,tag,"       ");
   9                 tagkey[tag[1]]="yes";tagref[tag[1]]=tag[2];
  10         }
  11         skip_word["and"]="yes";
  12         skip_word["backspace"]="yes";
  13         skip_word["beep"]="yes";
  14         skip_word["bugs"]="yes";
  15         skip_word["da"]="yes";
  16         skip_word["end"]="yes";
  17         skip_word["ftp"]="yes";
  18         skip_word["go"]="yes";
  19         skip_word["help"]="yes";
  20         skip_word["home"]="yes";
  21         skip_word["news"]="yes";
  22         skip_word["index"]="yes";
  23         skip_word["insert"]="yes";
  24         skip_word["into"]="yes";
  25         skip_word["put"]="yes";
  26         skip_word["reference"]="yes";
  27         skip_word["section"]="yes";
  28         skip_word["space"]="yes";
  29         skip_word["starting"]="yes";
  30         skip_word["toggle"]="yes";
  31         skip_word["various"]="yes";
  32         skip_word["version"]="yes";
  33         skip_word["is"]="yes";
  34 }
  35 #
  36 # protect special chars
  37 #
  38 /[><&á]/ {gsub(/&/,"\\&amp;");gsub(/>/,"\\&gt;");gsub(/</,"\\&lt;");gsub("á","\\&aacute;");}
  39 #
  40 # end of sample lines by non-blank in first column
  41 #
  42 sample == "yes" && substr($0,1,4) == "&lt;" { sample = "no"; gsub(/^&lt;/, " "); }
  43 sample == "yes" && substr($0,1,1) != " " && substr($0,1,1) != " " && length($0) > 0 { sample = "no" }
  44 #
  45 # sample lines printed bold unless empty...
  46 #
  47 sample == "yes" && $0 =="" { print ""; next; }
  48 sample == "yes" && $0 !="" { print "<B>" $0 "</B>"; next; }
  49 #
  50 # start of sample lines in next line
  51 #
  52 $0 == "&gt;" { sample = "yes"; print ""; next; }
  53 substr($0,length($0)-4,5) == " &gt;" { sample = "yes"; gsub(/ &gt;$/, ""); }
  54 #
  55 # header lines printed bold, colored
  56 #
  57 substr($0,length($0),1) == "~" { print "<B><FONT COLOR=\"PURPLE\">" substr($0,1,length($0)-1) "</FONT></B>"; next; }
  58 #
  59 #ad hoc code
  60 #
  61 /^"\|\& / {gsub(/\|/,"\\&#124;"); }
  62 / = b / {gsub(/ b /," \\&#98; "); }
  63 #
  64 # one letter tag
  65 #
  66 /[      ]\*.\*[         ]/ {gsub(/\*/,"ZWWZ"); }
  67 #
  68 # isolated "*"
  69 #
  70 /[      ]\*[    ]/ {gsub(/ \* /," \\&#42; ");
  71                     gsub(/ \*   /," \\&#42;     ");
  72                     gsub(/      \* /,"  \\&#42; ");
  73                     gsub(/      \*      /,"     \\&#42; "); }
  74 #
  75 # tag start
  76 #
  77 /[      ]\*[^   ]/      {gsub(/ \*/," ZWWZ");gsub(/     \*/,"   ZWWZ");}
  78 /^\*[^  ]/       {gsub(/^\*/,"ZWWZ");}
  79 #
  80 # tag end
  81 #
  82 /[^     ]\*$/    {gsub(/\*$/,"ZWWZ");}
  83 /[^ \/  ]\*[    ]/  {gsub(/\*/,"ZWWZ");}
  84 #
  85 # isolated "|"
  86 #
  87 /[      ]\|[    ]/ {gsub(/ \| /," \\&#124; ");
  88                     gsub(/ \|   /," \\&#124;    ");
  89                     gsub(/      \| /,"  \\&#124; ");
  90                     gsub(/      \|      /,"     \\&#124;        "); }
  91 /'\|'/ { gsub(/'\|'/,"'\\&#124;'"); }
  92 /\^V\|/ {gsub(/\^V\|/,"^V\\&#124;");}
  93 / \\\|  / {gsub(/\|/,"\\&#124;");}
  94 #
  95 # one letter pipes and "||" false pipe (digraphs)
  96 #
  97 /[      ]\|.\|[         ]/ && asciiart == "no" {gsub(/\|/,"YXXY"); }
  98 /^\|.\|[        ]/ {gsub(/\|/,"YXXY"); }
  99 /\|\|/ {gsub(/\|\|/,"\\&#124;\\&#124;"); }
 100 /^shellpipe/ {gsub(/\|/,"\\&#124;"); }
 101 #
 102 # pipe start
 103 #
 104 /[      ]\|[^   ]/ && asciiart == "no"  {gsub(/ \|/," YXXY");
 105                         gsub(/  \|/,"   YXXY");}
 106 /^\|[^  ]/       {gsub(/^\|/,"YXXY");}
 107 #
 108 # pipe end
 109 #
 110 /[^     ]\|$/ && asciiart == "no" {gsub(/\|$/,"YXXY");}
 111 /[^     ]\|[s ,.);      ]/ && asciiart == "no" {gsub(/\|/,"YXXY");}
 112 /[^     ]\|]/ && asciiart == "no" {gsub(/\|/,"YXXY");}
 113 #
 114 # various
 115 #
 116 /'"/    {gsub(/'"/,"\\&#39;\\&#34;'");}
 117 /"/     {gsub(/"/,"\\&quot;");}
 118 /%/     {gsub(/%/,"\\&#37;");}
 119
 120 NR == 1 { nf=split(FILENAME,f,".")
 121         print "<HTML>";
 122
 123         print "<HEAD>"
 124         if ( FILENAME == "mbyte.txt" ) {
 125             # needs utf-8 as uses many languages
 126             print "<META HTTP-EQUIV=\"Content-type\" content=\"text/html; charset=UTF-8\">";
 127         } else {
 128             # common case - Latin1
 129             print "<META HTTP-EQUIV=\"Content-type\" content=\"text/html; charset=ISO-8859-1\">";
 130         }
 131         print "<TITLE>Vim documentation: " f[1] "</TITLE>";
 132         print "</HEAD>";
 133
 134         print "<BODY BGCOLOR=\"#ffffff\">";
 135         print "<H1>Vim documentation: " f[1] "</H1>";
 136         print "<A NAME=\"top\"></A>";
 137         if ( FILENAME != "help.txt" ) {
 138           print "<A HREF=\"index.html\">main help file</A>\n";
 139         }
 140         print "<HR>";
 141         print "<PRE>";
 142         filename=f[1]".html";
 143 }
 144
 145 # set to a low value to test for few lines of text
 146 # NR == 99999 { exit; }
 147
 148 # ignore underlines and tags
 149 substr($0,1,5) == " vim:" { next; }
 150 substr($0,1,4) == "vim:" { next; }
 151 # keep just whole lines of "-", "="
 152 substr($0,1,3) == "===" && substr($0,75,1) != "=" { next; }
 153 substr($0,1,3) == "---" && substr($0,75,1) != "-" { next; }
 154
 155 {
 156         nstar = split($0,s,"ZWWZ");
 157         for ( i=2 ; i <= nstar ; i=i+2 ) {
 158                 nbla=split(s[i],blata,"[        ]");
 159                 if ( nbla > 1 ) {
 160                         gsub("ZWWZ","*");
 161                         nstar = split($0,s,"ZWWZ");
 162                 }
 163         }
 164         npipe = split($0,p,"YXXY");
 165         for ( i=2 ; i <= npipe ; i=i+2 ) {
 166                 nbla=split(p[i],blata,"[        ]");
 167                 if ( nbla > 1 ) {
 168                         gsub("YXXY","|");
 169                         ntabs = split($0,p,"YXXY");
 170                 }
 171         }
 172 }
 173
 174
 175 FILENAME == "gui.txt" && asciiart == "no"  \
 176           && $0 ~ /\+----/ && $0 ~ /----\+/ {
 177         asciiart= "yes";
 178         asciicnt=0;
 179         }
 180
 181 FILENAME == "quotes.txt" && asciiart == "no" \
 182           && $0 ~ /In summary:/ {
 183         asciiart= "yes";
 184         asciicnt=0;
 185         }
 186
 187 FILENAME == "usr_20.txt" && asciiart == "no" \
 188           && $0 ~ /an empty line at the end:/ {
 189         asciiart= "yes";
 190         asciicnt=0;
 191         }
 192
 193 asciiart == "yes" && $0=="" { asciicnt++; }
 194
 195 asciiart == "yes" && asciicnt == 2 { asciiart = "no"; }
 196
 197 asciiart == "yes" { npipe = 1; }
 198 #       { print NR " <=> " asciiart; }
 199
 200 #
 201 # line contains  "*"
 202 #
 203 nstar > 2 && npipe < 3 {
 204         printf("\n");
 205         for ( i=1; i <= nstar ; i=i+2 ) {
 206                 this=s[i];
 207                 put_this();
 208                 ii=i+1;
 209                 nbla = split(s[ii],blata," ");
 210                 if ( ii <= nstar ) {
 211                         if ( nbla == 1 && substr(s[ii],length(s[ii]),1) != " " ) {
 212                         printf("*<A NAME=\"%s\"></A>",s[ii]);
 213                                 printf("<B>%s</B>*",s[ii]);
 214                         } else {
 215                         printf("*%s*",s[ii]);
 216                         }
 217                 }
 218         }
 219         printf("\n");
 220         next;
 221         }
 222 #
 223 # line contains "|"
 224 #
 225 npipe > 2 && nstar < 3 {
 226         if  ( npipe%2 == 0 ) {
 227                 for ( i=1; i < npipe ; i++ ) {
 228                         gsub("ZWWZ","*",p[i]);
 229                         printf("%s|",p[i]);
 230                 }
 231                 printf("%s\n",p[npipe]);
 232                 next;
 233                 }
 234         for ( i=1; i <= npipe ; i++ )
 235                 {
 236                 if ( i % 2 == 1 ) {
 237                         gsub("ZWWZ","*",p[i]);
 238                         this=p[i];
 239                         put_this();
 240                         }
 241                         else {
 242                         nfn=split(p[i],f,".");
 243                         if ( nfn == 1 || f[2] == "" || f[1] == "" || length(f[2]) < 3 ) {
 244                                 find_tag1();
 245                                 }
 246                                 else {
 247                                         if ( f[1] == "index" ) {
 248                 printf "|<A HREF=\"vimindex.html\">" p[i] "</A>|";
 249                                         } else {
 250                                                 if ( f[1] == "help" ) {
 251                 printf "|<A HREF=\"index.html\">" p[i] "</A>|";
 252                                                 } else {
 253                 printf "|<A HREF=\"" f[1] ".html\">" p[i] "</A>|";
 254                                                 }
 255                                         }
 256                                 }
 257                         }
 258                 }
 259                 printf("\n");
 260                 next;
 261         }
 262 #
 263 # line contains both "|" and "*"
 264 #
 265 npipe > 2 && nstar > 2 {
 266         printf("\n");
 267         for ( j=1; j <= nstar ; j=j+2 ) {
 268                 npipe = split(s[j],p,"YXXY");
 269                 if ( npipe > 1 ) {
 270                         for ( np=1; np<=npipe; np=np+2 ) {
 271                                 this=p[np];
 272                                 put_this();
 273                                 i=np+1;find_tag1();
 274                         }
 275                 } else {
 276                         this=s[j];
 277                         put_this();
 278                 }
 279                 jj=j+1;
 280                 nbla = split(s[jj],blata," ");
 281                 if ( jj <= nstar && nbla == 1 && s[jj] != "" ) {
 282                 printf("*<A NAME=\"%s\"></A>",s[jj]);
 283                         printf("<B>%s</B>*",s[jj]);
 284                 } else {
 285                         if ( s[jj] != "" ) {
 286                         printf("*%s*",s[jj]);
 287                         }
 288                 }
 289         }
 290         printf("\n");
 291         next;
 292         }
 293 #
 294 # line contains e-mail address john.doe@some.place.edu
 295 #
 296 $0 ~ /@/ && $0 ~ /[a-zA-Z0-9]@[a-z]/ \
 297         {
 298         nemail=split($0,em," ");
 299         if ( substr($0,1,1) == "        " ) { printf("  "); }
 300         for ( i=1; i <= nemail; i++ ) {
 301                 if ( em[i] ~ /@/ ) {
 302                         if ( substr(em[i],2,3) == "lt;" && substr(em[i],length(em[i])-2,3) == "gt;" ) {
 303                                 mailaddr=substr(em[i],5,length(em[i])-8);
 304                                 printf("<A HREF=\"mailto:%s\">&lt;%s&gt;</A> ",mailaddr,mailaddr);
 305                         } else {
 306                                 if ( substr(em[i],2,3) == "lt;" && substr(em[i],length(em[i])-3,3) == "gt;" ) {
 307                                         mailaddr=substr(em[i],5,length(em[i])-9);
 308                                         printf("<A HREF=\"mailto:%s\">&lt;%s&gt;</A>%s ",mailaddr,mailaddr,substr(em[i],length(em[i]),1));
 309                                 } else {
 310                                         printf("<A HREF=\"mailto:%s\">%s</A> ",em[i],em[i]);
 311                                 }
 312                         }
 313                 } else {
 314                                 printf("%s ",em[i]);
 315                 }
 316         }
 317         #print "*** " NR " " FILENAME " - possible mail ref";
 318         printf("\n");
 319         next;
 320         }
 321 #
 322 # line contains http / ftp reference
 323 #
 324 $0 ~ /http:\/\// || $0 ~ /ftp:\/\// {
 325         gsub("URL:","");
 326         gsub("&lt;","");
 327         gsub("&gt;","");
 328         gsub("\\(","");
 329         gsub("\\)","");
 330         nemail=split($0,em," ");
 331         for ( i=1; i <= nemail; i++ ) {
 332                 if ( substr(em[i],1,5) == "http:" ||
 333                 substr(em[i],1,4) == "ftp:" ) {
 334                         if ( substr(em[i],length(em[i]),1) != "." ) {
 335                                 printf("        <A HREF=\"%s\">%s</A>",em[i],em[i]);
 336                         } else {
 337                                 em[i]=substr(em[i],1,length(em[i])-1);
 338                                 printf("        <A HREF=\"%s\">%s</A>.",em[i],em[i]);
 339                         }
 340                 } else {
 341                 printf(" %s",em[i]);
 342                 }
 343         }
 344         #print "*** " NR " " FILENAME " - possible http ref";
 345         printf("\n");
 346         next;
 347         }
 348 #
 349 # some lines contains just one "almost regular" "*"...
 350 #
 351 nstar == 2  {
 352         this=s[1];
 353         put_this();
 354         printf("*");
 355         this=s[2];
 356         put_this();
 357         printf("\n");
 358         next;
 359         }
 360 #
 361 # regular line
 362 #
 363         { ntabs = split($0,tb," ");
 364         for ( i=1; i < ntabs ; i++) {
 365                 this=tb[i];
 366                 put_this();
 367                 printf("        ");
 368                 }
 369         this=tb[ntabs];
 370         put_this();
 371         printf("\n");
 372         }
 373
 374
 375 asciiart == "yes"  && $0 ~ /\+-\+--/  \
 376         && $0 ~ "scrollbar" { asciiart = "no"; }
 377
 378 END {
 379         topback();
 380         print "</PRE>\n</BODY>\n\n\n</HTML>"; }
 381
 382 #
 383 # as main we keep index.txt (by default)
 384 #
 385 function topback () {
 386         if ( FILENAME != "tags" ) {
 387         if ( FILENAME != "help.txt" ) {
 388         printf("<A HREF=\"#top\">top</A> - ");
 389         printf("<A HREF=\"index.html\">main help file</A>\n");
 390         } else {
 391         printf("<A HREF=\"#top\">top</A>\n");
 392         }
 393         }
 394 }
 395
 396 function find_tag1() {
 397         if ( p[i] == "" ) { return; }
 398         if ( tagkey[p[i]] == "yes" ) {
 399                 which=tagref[p[i]];
 400                 put_href();
 401                 return;
 402         }
 403         # if not found, then we have a problem
 404         print "============================================"  >>"errors.log";
 405         print FILENAME ", line " NR ", pointer: >>" p[i] "<<" >>"errors.log";
 406         print $0 >>"errors.log";
 407         which="intro.html";
 408         put_href();
 409 }
 410
 411 function see_tag() {
 412 # ad-hoc code:
 413 if ( atag == "\"--" || atag == "--\"" ) { return; }
 414 if_already();
 415 if ( already == "yes" ) {
 416         printf("%s",aword);
 417         return;
 418         }
 419 allow_one_char="no";
 420 find_tag2();
 421 if ( done == "yes" ) { return; }
 422 rightchar=substr(atag,length(atag),1);
 423 if (    rightchar == "." \
 424      || rightchar == "," \
 425      || rightchar == ":" \
 426      || rightchar == ";" \
 427      || rightchar == "!" \
 428      || rightchar == "?" \
 429      || rightchar == ")" ) {
 430         atag=substr(atag,1,length(atag)-1);
 431         if_already();
 432         if ( already == "yes" ) {
 433                 printf("%s",aword);
 434                 return;
 435         }
 436         find_tag2();
 437         if ( done == "yes" ) { printf("%s",rightchar);return; }
 438         leftchar=substr(atag,1,1);
 439         lastbut1=substr(atag,length(atag),1);
 440         if (    leftchar == "'" && lastbut1 == "'"  ) {
 441                 allow_one_char="yes";
 442                 atag=substr(atag,2,length(atag)-2);
 443                 if_already();
 444                 if ( already == "yes" ) {
 445                         printf("%s",aword);
 446                         return;
 447                 }
 448                 printf("%s",leftchar);
 449                 aword=substr(atag,1,length(atag))""lastbut1""rightchar;
 450                 find_tag2();
 451                 if ( done == "yes" ) { printf("%s%s",lastbut1,rightchar);return; }
 452                 }
 453         }
 454 atag=aword;
 455 leftchar=substr(atag,1,1);
 456 if (    leftchar == "'" && rightchar == "'"  ) {
 457         allow_one_char="yes";
 458         atag=substr(atag,2,length(atag)-2);
 459         if  ( atag == "<" ) { printf(" |%s|%s| ",atag,p[2]); }
 460         if_already();
 461         if ( already == "yes" ) {
 462                 printf("%s",aword);
 463                 return;
 464                 }
 465         printf("%s",leftchar);
 466         find_tag2();
 467         if ( done == "yes" ) { printf("%s",rightchar);return; }
 468         printf("%s%s",atag,rightchar);
 469         return;
 470         }
 471 last2=substr(atag,length(atag)-1,2);
 472 first2=substr(atag,1,2);
 473 if (    first2 == "('" && last2 == "')"  ) {
 474         allow_one_char="yes";
 475         atag=substr(atag,3,length(atag)-4);
 476         if_already();
 477         if ( already == "yes" ) {
 478                 printf("%s",aword);
 479                 return;
 480                 }
 481         printf("%s",first2);
 482         find_tag2();
 483         if ( done == "yes" ) { printf("%s",last2);return; }
 484         printf("%s%s",atag,last2);
 485         return;
 486         }
 487 if ( last2 == ".)" ) {
 488         atag=substr(atag,1,length(atag)-2);
 489         if_already();
 490         if ( already == "yes" ) {
 491                 printf("%s",aword);
 492                 return;
 493                 }
 494         find_tag2();
 495         if ( done == "yes" ) { printf("%s",last2);return; }
 496         printf("%s%s",atag,last2);
 497         return;
 498         }
 499 if ( last2 == ")." ) {
 500         atag=substr(atag,1,length(atag)-2);
 501         find_tag2();
 502         if_already();
 503         if ( already == "yes" ) {
 504                 printf("%s",aword);
 505                 return;
 506                 }
 507         if ( done == "yes" ) { printf("%s",last2);return; }
 508         printf("%s%s",atag,last2);
 509         return;
 510         }
 511 first6=substr(atag,1,6);
 512 last6=substr(atag,length(atag)-5,6);
 513 if ( last6 == atag ) {
 514         printf("%s",aword);
 515         return;
 516         }
 517 last6of7=substr(atag,length(atag)-6,6);
 518 if ( first6 == "&quot;" && last6of7 == "&quot;" && length(atag) > 12 ) {
 519         allow_one_char="yes";
 520         atag=substr(atag,7,length(atag)-13);
 521         if_already();
 522         if ( already == "yes" ) {
 523                 printf("%s",aword);
 524                 return;
 525                 }
 526         printf("%s",first6);
 527         find_tag2();
 528         if ( done == "yes" ) { printf("&quot;%s",rightchar); return; }
 529         printf("%s&quot;%s",atag,rightchar);
 530         return;
 531         }
 532 if ( first6 == "&quot;" && last6 != "&quot;" ) {
 533         allow_one_char="yes";
 534         atag=substr(atag,7,length(atag)-6);
 535         if ( atag == "[" ) { printf("&quot;%s",atag); return; }
 536         if ( atag == "." ) { printf("&quot;%s",atag); return; }
 537         if ( atag == ":" ) { printf("&quot;%s",atag); return; }
 538         if ( atag == "a" ) { printf("&quot;%s",atag); return; }
 539         if ( atag == "A" ) { printf("&quot;%s",atag); return; }
 540         if ( atag == "g" ) { printf("&quot;%s",atag); return; }
 541         if_already();
 542         if ( already == "yes" ) {
 543                 printf("&quot;%s",atag);
 544                 return;
 545                 }
 546         printf("%s",first6);
 547         find_tag2();
 548         if ( done == "yes" ) { return; }
 549         printf("%s",atag);
 550         return;
 551         }
 552 if ( last6 == "&quot;" && first6 == "&quot;" ) {
 553         allow_one_char="yes";
 554         atag=substr(atag,7,length(atag)-12);
 555         if_already();
 556         if ( already == "yes" ) {
 557                 printf("%s",aword);
 558                 return;
 559                 }
 560         printf("%s",first6);
 561         find_tag2();
 562         if ( done == "yes" ) { printf("%s",last6);return; }
 563         printf("%s%s",atag,last6);
 564         return;
 565         }
 566 last6of7=substr(atag,length(atag)-6,6);
 567 if ( last6of7 == "&quot;" && first6 == "&quot;" ) {
 568         allow_one_char="yes";
 569         atag=substr(atag,7,length(atag)-13);
 570         #printf("\natag=%s,aword=%s\n",atag,aword);
 571         if_already();
 572         if ( already == "yes" ) {
 573                 printf("%s",aword);
 574                 return;
 575                 }
 576         printf("%s",first6);
 577         find_tag2();
 578         if ( done == "yes" ) { printf("%s%s",last6of7,rightchar);return; }
 579         printf("%s%s%s",atag,last6of7,rightchar);
 580         return;
 581         }
 582 printf("%s",aword);
 583 }
 584
 585 function find_tag2() {
 586         done="no";
 587         # no blanks present in a tag...
 588         ntags=split(atag,blata,"[       ]");
 589         if ( ntags > 1 ) { return; }
 590         if      ( ( allow_one_char == "no" ) && \
 591                   ( index("!#$%&'()+,-./0:;=?@ACINX\\[\\]^_`at\\{\\}~",atag) !=0 ) ) {
 592                 return;
 593         }
 594         if ( skip_word[atag] == "yes" ) { return; }
 595         if ( wasset == "yes" && lineset == NR ) {
 596         wasset="no";
 597         see_opt();
 598         if ( done_opt == "yes" ) {return;}
 599         }
 600         if ( wasset == "yes" && lineset != NR ) {
 601         wasset="no";
 602         }
 603         if ( atag == ":set" ) {
 604         wasset="yes";
 605         lineset=NR;
 606         }
 607         if ( tagkey[atag] == "yes" ) {
 608                 which=tagref[atag];
 609                 put_href2();
 610                 done="yes";
 611         }
 612 }
 613
 614 function find_tag3() {
 615         done="no";
 616         # no blanks present in a tag...
 617         ntags=split(btag,blata,"[       ]");
 618         if ( ntags > 1 ) { return; }
 619         if      ( ( allow_one_char == "no" ) && \
 620                   ( index("!#$%&'()+,-./0:;=?@ACINX\\[\\]^_`at\\{\\}~",btag) !=0 ) ) {
 621                 return;
 622         }
 623         if ( skip_word[btag] == "yes" ) { return; }
 624         if ( tagkey[btag] == "yes" ) {
 625                 which=tagref[btag];
 626                 put_href3();
 627                 done="yes";
 628         }
 629 }
 630
 631 function put_href() {
 632         if ( p[i] == "" ) { return; }
 633         if ( which == FILENAME ) {
 634                 printf("|<A HREF=\"#%s\">%s</A>|",p[i],p[i]);
 635                 }
 636                 else {
 637                 nz=split(which,zz,".");
 638                 if ( zz[2] == "txt" || zz[1] == "tags" ) {
 639                 printf("|<A HREF=\"%s.html#%s\">%s</A>|",zz[1],p[i],p[i]);
 640                 }
 641                 else {
 642                 printf("|<A HREF=\"intro.html#%s\">%s</A>|",p[i],p[i]);
 643                 }
 644         }
 645 }
 646
 647 function put_href2() {
 648         if ( atag == "" ) { return; }
 649         if ( which == FILENAME ) {
 650                 printf("<A HREF=\"#%s\">%s</A>",atag,atag);
 651                 }
 652                 else {
 653                 nz=split(which,zz,".");
 654                 if ( zz[2] == "txt" || zz[1] == "tags" ) {
 655                 printf("<A HREF=\"%s.html#%s\">%s</A>",zz[1],atag,atag);
 656                 }
 657                 else {
 658                 printf("<A HREF=\"intro.html#%s\">%s</A>",atag,atag);
 659                 }
 660         }
 661 }
 662
 663 function put_href3() {
 664         if ( btag == "" ) { return; }
 665         if ( which == FILENAME ) {
 666                 printf("<A HREF=\"#%s\">%s</A>",btag,btag2);
 667                 }
 668                 else {
 669                 nz=split(which,zz,".");
 670                 if ( zz[2] == "txt" || zz[1] == "tags" ) {
 671                 printf("<A HREF=\"%s.html#%s\">%s</A>",zz[1],btag,btag2);
 672                 }
 673                 else {
 674                 printf("<A HREF=\"intro.html#%s\">%s</A>",btag,btag2);
 675                 }
 676         }
 677 }
 678
 679 function put_this() {
 680         ntab=split(this,ta,"    ");
 681         for ( nta=1 ; nta <= ntab ; nta++ ) {
 682                 ata=ta[nta];
 683                 lata=length(ata);
 684                 aword="";
 685                 for ( iata=1 ; iata <=lata ; iata++ ) {
 686                         achar=substr(ata,iata,1);
 687                         if ( achar != " " ) { aword=aword""achar; }
 688                         else {
 689                                 if ( aword != "" ) { atag=aword;
 690                                         see_tag();
 691                                         aword="";
 692                                         printf(" "); }
 693                                 else    {
 694                                         printf(" ");
 695                                         }
 696                         }
 697                 }
 698                 if ( aword != "" ) { atag=aword;
 699                                         see_tag();
 700                                         }
 701                 if ( nta != ntab ) { printf("   "); }
 702         }
 703 }
 704
 705 function if_already() {
 706         already="no";
 707         if  ( npipe < 2 ) { return; }
 708         if  ( atag == ":au" && p[2] == ":autocmd" ) { already="yes";return; }
 709         for ( npp=2 ; npp <= npipe ; npp=npp+2 ) {
 710                 if      (  (  (index(p[npp],atag)) != 0 \
 711                               && length(p[npp]) > length(atag) \
 712                               && length(atag) >= 1  \
 713                             ) \
 714                             || (p[npp] == atag) \
 715                         ) {
 716                 # printf("p=|%s|,tag=|%s| ",p[npp],atag);
 717                 already="yes"; return; }
 718         }
 719 }
 720
 721 function see_opt() {
 722         done_opt="no";
 723         stag=atag;
 724         nfields = split(atag,tae,"=");
 725         if ( nfields > 1 )  {
 726                 btag="'"tae[1]"'";
 727                 btag2=tae[1];
 728             find_tag3();
 729                 if (done == "yes") {
 730                         for ( ntae=2 ; ntae <= nfields ; ntae++ ) {
 731                                 printf("=%s",tae[ntae]);
 732                         }
 733                         atag=stag;
 734                         done_opt="yes";
 735                         return;
 736                 }
 737                 btag=tae[1];
 738                 btag2=tae[1];
 739             find_tag3();
 740                 if ( done=="yes" ) {
 741                         for ( ntae=2 ; ntae <= nfields ; ntae++ ) {
 742                                 printf("=%s",tae[ntae]);
 743                         }
 744                         atag=stag;
 745                         done_opt="yes";
 746                         return;
 747                 }
 748         }
 749         nfields = split(atag,tae,"&quot;");
 750         if ( nfields > 1 )  {
 751                 btag="'"tae[1]"'";
 752                 btag2=tae[1];
 753                 find_tag3();
 754                 if (done == "yes") {
 755                         printf("&quot;");
 756                         atag=stag;
 757                         done_opt="yes";
 758                         return;
 759                 }
 760                 btag=tae[1];
 761                 btag2=tae[1];
 762             find_tag3();
 763                 if (done == "yes") {
 764                         printf("&quot;");
 765                         atag=stag;
 766                         done_opt="yes";
 767                         return;
 768                 }
 769         }
 770         btag="'"tae[1]"'";
 771         btag2=tae[1];
 772         find_tag3();
 773         if (done == "yes") {
 774                 atag=stag;
 775                 done_opt="yes";
 776                 return;
 777         }
 778         btag=tae[1];
 779         btag2=tae[1];
 780         find_tag3();
 781         if (done == "yes") {
 782                 atag=stag;
 783                 done_opt="yes";
 784                 return;
 785         }
 786         atag=stag;
 787 }