1BEGIN { 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# 42sample == "yes" && substr($0,1,4) == "<" { sample = "no"; gsub(/^</, " "); } 43sample == "yes" && substr($0,1,1) != " " && substr($0,1,1) != " " && length($0) > 0 { sample = "no" } 44# 45# sample lines printed bold unless empty... 46# 47sample == "yes" && $0 =="" { print ""; next; } 48sample == "yes" && $0 !="" { print "<B>" $0 "</B>"; next; } 49# 50# start of sample lines in next line 51# 52$0 == ">" { sample = "yes"; print ""; next; } 53substr($0,length($0)-4,5) == " >" { sample = "yes"; gsub(/ >$/, ""); } 54# 55# header lines printed bold, colored 56# 57substr($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 120NR == 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 149substr($0,1,5) == " vim:" { next; } 150substr($0,1,4) == "vim:" { next; } 151# keep just whole lines of "-", "=" 152substr($0,1,3) == "===" && substr($0,75,1) != "=" { next; } 153substr($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 175FILENAME == "gui.txt" && asciiart == "no" \ 176 && $0 ~ /\+----/ && $0 ~ /----\+/ { 177 asciiart= "yes"; 178 asciicnt=0; 179 } 180 181FILENAME == "quotes.txt" && asciiart == "no" \ 182 && $0 ~ /In summary:/ { 183 asciiart= "yes"; 184 asciicnt=0; 185 } 186 187FILENAME == "usr_20.txt" && asciiart == "no" \ 188 && $0 ~ /an empty line at the end:/ { 189 asciiart= "yes"; 190 asciicnt=0; 191 } 192 193asciiart == "yes" && $0=="" { asciicnt++; } 194 195asciiart == "yes" && asciicnt == 2 { asciiart = "no"; } 196 197asciiart == "yes" { npipe = 1; } 198# { print NR " <=> " asciiart; } 199 200# 201# line contains "*" 202# 203nstar > 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# 225npipe > 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# 265npipe > 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# 351nstar == 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 375asciiart == "yes" && $0 ~ /\+-\+--/ \ 376 && $0 ~ "scrollbar" { asciiart = "no"; } 377 378END { 379 topback(); 380 print "</PRE>\n</BODY>\n\n\n</HTML>"; } 381 382# 383# as main we keep index.txt (by default) 384# 385function 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 396function 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 411function see_tag() { 412# ad-hoc code: 413if ( atag == "\"--" || atag == "--\"" ) { return; } 414if_already(); 415if ( already == "yes" ) { 416 printf("%s",aword); 417 return; 418 } 419allow_one_char="no"; 420find_tag2(); 421if ( done == "yes" ) { return; } 422rightchar=substr(atag,length(atag),1); 423if ( 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 } 454atag=aword; 455leftchar=substr(atag,1,1); 456if ( 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 } 471last2=substr(atag,length(atag)-1,2); 472first2=substr(atag,1,2); 473if ( 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 } 487if ( 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 } 499if ( 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 } 511first6=substr(atag,1,6); 512last6=substr(atag,length(atag)-5,6); 513if ( last6 == atag ) { 514 printf("%s",aword); 515 return; 516 } 517last6of7=substr(atag,length(atag)-6,6); 518if ( 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 } 532if ( 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 } 552if ( 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 } 566last6of7=substr(atag,length(atag)-6,6); 567if ( 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 } 582printf("%s",aword); 583} 584 585function 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 614function 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 631function 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 647function 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 663function 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 679function 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 705function 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 721function 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