Diff for scripts/shell/docbook/db-get-id between version 1.2 and 1.3
| version 1.2, 2002/09/05 23:08:59 |
version 1.3, 2002/09/05 23:24:44 |
| Line 19 function compete_tag(reg) |
|
| Line 19 function compete_tag(reg) |
|
| str = sprintf("%s %s", str, $0); |
str = sprintf("%s %s", str, $0); |
| # printf "AFTER = '%s'\n", str; |
# printf "AFTER = '%s'\n", str; |
| } |
} |
| if (str ~ reg && desc == "") { |
if (str ~ reg && str ~ /id=['"]/ && desc == "") { |
| desc = str; |
desc = str; |
| reg1 = sprintf("^.*<%s[^>]*>", reg); |
sub(/\t+/, " ", desc); |
| reg2 = sprintf("[ \t]*</%s>.*$", reg); |
reg1 = sprintf("^.*<%s[^>]*> *", reg); |
| sub(reg1, "", desc); |
reg2 = sprintf(" *</%s>.*$", reg); |
| sub(reg2, "", desc); |
if (!sub(reg1, "", desc)) { desc = ""; } |
| |
if (!sub(reg2, "", desc)) { desc = ""; } |
| } |
} |
| |
|
| } |
} |
Platon Group <platon@platon.org> http://platon.org/
|
|