home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / runtime / doc / makehtml.awk < prev    next >
Encoding:
AWK Script  |  2010-08-15  |  17.4 KB  |  788 lines
  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(/&/,"\\&");gsub(/>/,"\\>");gsub(/</,"\\<");gsub("ß","\\á");}
  39. #
  40. # end of sample lines by non-blank in first column
  41. #
  42. sample == "yes" && substr($0,1,4) == "<" { sample = "no"; gsub(/^</, " "); }
  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 == ">" { sample = "yes"; print ""; next; }
  53. substr($0,length($0)-4,5) == " >" { sample = "yes"; gsub(/ >$/, ""); }
  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(/\|/,"\\|"); }
  62. / = b / {gsub(/ b /," \\b "); }
  63. #
  64. # one letter tag
  65. #
  66. /[     ]\*.\*[     ]/ {gsub(/\*/,"ZWWZ"); }
  67. #
  68. # isolated "*"
  69. #
  70. /[     ]\*[     ]/ {gsub(/ \* /," \\* ");
  71.             gsub(/ \*    /," \\*    ");
  72.             gsub(/    \* /,"    \\* ");
  73.             gsub(/    \*    /,"    \\*    "); }
  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(/ \| /," \\| ");
  88.             gsub(/ \|    /," \\|    ");
  89.             gsub(/    \| /,"    \\| ");
  90.             gsub(/    \|    /,"    \\|    "); }
  91. /'\|'/ { gsub(/'\|'/,"'\\|'"); }
  92. /\^V\|/ {gsub(/\^V\|/,"^V\\|");}
  93. / \\\|    / {gsub(/\|/,"\\|");}
  94. #
  95. # one letter pipes and "||" false pipe (digraphs)
  96. #
  97. /[     ]\|.\|[     ]/ && asciiart == "no" {gsub(/\|/,"YXXY"); }
  98. /^\|.\|[     ]/ {gsub(/\|/,"YXXY"); }
  99. /\|\|/ {gsub(/\|\|/,"\\|\\|"); }
  100. /^shellpipe/ {gsub(/\|/,"\\|"); }
  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(/'"/,"\\'\\"'");}
  117. /"/    {gsub(/"/,"\\"");}
  118. /%/    {gsub(/%/,"\\%");}
  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\"><%s></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\"><%s></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("<","");
  327.     gsub(">","");
  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 == """ && last6of7 == """ && 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(""%s",rightchar); return; }
  529.     printf("%s"%s",atag,rightchar);
  530.     return;
  531.     }
  532. if ( first6 == """ && last6 != """ ) {
  533.     allow_one_char="yes";
  534.     atag=substr(atag,7,length(atag)-6);
  535.     if ( atag == "[" ) { printf(""%s",atag); return; }
  536.     if ( atag == "." ) { printf(""%s",atag); return; }
  537.     if ( atag == ":" ) { printf(""%s",atag); return; }
  538.     if ( atag == "a" ) { printf(""%s",atag); return; }
  539.     if ( atag == "A" ) { printf(""%s",atag); return; }
  540.     if ( atag == "g" ) { printf(""%s",atag); return; }
  541.     if_already();
  542.     if ( already == "yes" ) {
  543.         printf(""%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 == """ && first6 == """ ) {
  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 == """ && first6 == """ ) {
  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,""");
  750.     if ( nfields > 1 )  {
  751.         btag="'"tae[1]"'";
  752.         btag2=tae[1];
  753.            find_tag3();
  754.         if (done == "yes") {
  755.             printf(""");
  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(""");
  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. }
  788.