Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Wednesday, October 14, 2026
[BACK] [TXT][DIR] Up to [Platon] / scripts / shell / docbook

Diff for scripts/shell/docbook/db-get-id between version 1.4 and 1.5

version 1.4, 2002/09/05 23:37:35 version 1.5, 2002/09/06 00:38:04
Line 1 
Line 1 
 #!/usr/bin/awk -f  #!/usr/bin/awk -f
   
 # $Id$  # $Id$
   
 BEGIN {  BEGIN {
         last_tag  = "";          last_tag  = "";
         str       = "";          str       = "";
Line 10  BEGIN {
Line 11  BEGIN {
 }  }
   
 function remove_tag(s, reg)  function remove_tag(s, reg)
 {  { # {{{
                 sub(/\t+/, " ", s);                  sub(/\t+/, " ", s);
                 reg1 = sprintf("^.*<%s[^>]*> *", reg);                  reg1 = sprintf("^.*<%s[^>]*> *", reg);
                 reg2 = sprintf(" *</%s>.*$", reg);                  reg2 = sprintf(" *</%s>.*$", reg);
Line 18  function remove_tag(s, reg)
Line 19  function remove_tag(s, reg)
                 if (!sub(reg2, "", s)) { s = ""; }                  if (!sub(reg2, "", s)) { s = ""; }
   
                 return s;                  return s;
 }  } # }}}
   
 function compete_tag(reg)  function complete_tag(reg)
 {  { # {{{
         reg1 = sprintf("<%s",   reg);          reg1 = sprintf("<%s",   reg);
         reg2 = sprintf("</%s>", reg);          reg2 = sprintf("</%s>", reg);
   
Line 35  function compete_tag(reg)
Line 36  function compete_tag(reg)
                 desc = remove_tag(str, reg);                  desc = remove_tag(str, reg);
         }          }
   
 }  } # }}}
   
 /<refentrytitle>/ {  /<refentrytitle>/ {
         manpage = remove_tag($0, "refentrytitle");          manpage = remove_tag($0, "refentrytitle");
Line 48  function compete_tag(reg)
Line 49  function compete_tag(reg)
         } else          } else
                 str = sprintf("%s", $0);                  str = sprintf("%s", $0);
   
         compete_tag("title");          complete_tag("title");
         compete_tag("constant");          complete_tag("constant");
   
   
         if (str ~ /<[^>]*$/) {          if (str ~ /<[^>]*$/) {
Line 81  function compete_tag(reg)
Line 82  function compete_tag(reg)
 }  }
   
 # vim: ft=awk cindent  # vim: ft=awk cindent
   # vim600: fdl=0 fdc=3 fdm=marker
   
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top