diff options
Diffstat (limited to 'source4/script/mkproto.pl')
| -rwxr-xr-x | source4/script/mkproto.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/source4/script/mkproto.pl b/source4/script/mkproto.pl index 1fca294d97..e79bcfd9b6 100755 --- a/source4/script/mkproto.pl +++ b/source4/script/mkproto.pl @@ -89,7 +89,7 @@ sub handle_loadparm($$) { my ($file,$line) = @_; - if ($line =~ /^FN_(GLOBAL|LOCAL)_(CONST_STRING|STRING|BOOL|CHAR|INTEGER|LIST)\((\w+),.*\)/o) { + if ($line =~ /^_PUBLIC_ FN_(GLOBAL|LOCAL)_(CONST_STRING|STRING|BOOL|CHAR|INTEGER|LIST)\((\w+),.*\)/o) { my $scope = $1; my $type = $2; my $name = $3; @@ -133,6 +133,11 @@ sub process_file($$$) next if ($line =~ /^\/|[;]/); + if ($line =~ /^_PUBLIC_ FN_/) { + handle_loadparm($public_file, $line); + next; + } + if ($line =~ /^_PUBLIC_[\t ]/) { $target = $public_file; $is_public = 1; @@ -147,11 +152,6 @@ sub process_file($$$) next if ($line =~ /^int\s*main/); - if ($line =~ /^FN_/) { - handle_loadparm($public_file, $line); - next; - } - if ( $line =~ /\(.*\)\s*$/o ) { chomp $line; print $target "$line;\n"; |