oysteikt/heimdal
0
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

make it possible to redefine the "private" regexp

Browse Source 
git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@10982 ec53bebd-3082-4978-b11e-865c3cabbd6b
This commit is contained in:
Johan Danielsson
2002-05-16 09:34:37 +00:00
parent aaeaa6bcba
commit 9a018a80df
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
cf/make-proto.pl
View File

@@ -8,8 +8,9 @@ $brace = 0;
$line = ""; $line = "";
$debug = 0; $debug = 0;
$oproto = 1; $oproto = 1;
$private_func_re = "^_";
do Getopts('o:p:dqP:') || die "foo"; do Getopts('o:p:dqR:P:') || die "foo";
if($opt_d) { if($opt_d) {
$debug = 1; $debug = 1;
@@ -19,6 +20,10 @@ if($opt_q) {
$oproto = 0; $oproto = 0;
} }
if($opt_R) {
$private_func_re = $opt_R;
}
while(<>) { while(<>) {
print $brace, " ", $_ if($debug); print $brace, " ", $_ if($debug);
if(/^\#if 0/) { if(/^\#if 0/) {
@@ -178,7 +183,7 @@ $private_h_header .= "#ifdef __STDC__
} }
foreach(sort keys %funcs){ foreach(sort keys %funcs){
if(/^(main)$/) { next } if(/^(main)$/) { next }
if(/^_/) { if(/$private_func_re/) {
$private_h .= $funcs{$_} . "\n\n"; $private_h .= $funcs{$_} . "\n\n";
if($funcs{$_} =~ /__attribute__/) { if($funcs{$_} =~ /__attribute__/) {
$private_attribute_seen = 1; $private_attribute_seen = 1;