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