diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2006-09-26 11:52:21 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2006-09-26 11:52:21 +0000 |
| commit | 65ab209e41b7f99a40f1440eec143a2e38cff301 (patch) | |
| tree | f0e8042c09193c157aff55ec099dc2466ffabf8b /devtools | |
| parent | cdba65e2981b01d1f4099c411b6fc6b3f9fbdc2e (diff) | |
| download | MPC-65ab209e41b7f99a40f1440eec143a2e38cff301.tar.gz | |
ChangeLogTag: Tue Sep 26 11:49:52 UTC 2006 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'devtools')
| -rwxr-xr-x | devtools/document_template.pl | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/devtools/document_template.pl b/devtools/document_template.pl index e77ca03b..329233e4 100755 --- a/devtools/document_template.pl +++ b/devtools/document_template.pl @@ -182,12 +182,12 @@ if (open($fh, $input)) { } my($part) = substr($_, $sindex, $eindex - $sindex); - my($key) = lc(substr($part, 2, length($part) - 4)); - my($name) = $key; + my($key) = substr($part, 2, length($part) - 4); + my($name) = lc($key); my($tvar) = undef; my($def) = undef; if ($key =~ /^([^\(]+)\((.*)\)/) { - $name = $1; + $name = lc($1); my($vname) = $2; if (defined $keywords{$name}) { @@ -195,6 +195,11 @@ if (open($fh, $input)) { if ($name eq 'foreach') { ++$findex; + ## Remove the functions inside the foreach + foreach my $keyword (keys %keywords) { + $vname =~ s/$keyword\(([^\)]+)\)/$1/gi; + } + my($remove_s) = 1; if ($vname =~ /([^,]*),(.*)/) { my($n) = $1; @@ -213,9 +218,9 @@ if (open($fh, $input)) { $vname = $n; } - $name = $vname; + $name = lc($vname); - $key = $vname; + $key = lc($vname); $vname =~ s/\s.*//; $vname =~ s/s$// if ($remove_s); @@ -228,8 +233,8 @@ if (open($fh, $input)) { $vname =~ s/$keyword\(.*\)//g; } if ($vname !~ /^\s*$/) { - $name = $vname; - $key = $vname; + $name = lc($vname); + $key = lc($vname); $tvar = undef; } } @@ -238,6 +243,9 @@ if (open($fh, $input)) { $def = $2; } } + else { + $key = lc($key); + } my($otvar) = $tvar; foreach my $k (split(/\s+/, $key)) { |