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

handle __attribute__

Browse Source 
git-svn-id: svn://svn.h5l.se/heimdal/trunk/heimdal@5948 ec53bebd-3082-4978-b11e-865c3cabbd6b
This commit is contained in:
Johan Danielsson
1999-04-15 12:17:24 +00:00
parent 61ae9ea37a
commit 727a2a7943
1 changed files with 36 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
cf/make-proto.pl
View File

@@ -31,14 +31,14 @@ while(<>) {
next;
}
if(/\{/){
$_ = $line;
while(s/\*\//\ca/){
s/\/\*(.|\n)*\ca//;
}
s/^\s*//;
s/\s$//;
s/\s+/ /g;
if($line =~ /\)\s$/){
$_ = $line;
while(s/\*\//\ca/){
s/\/\*(.|\n)*\ca//;
}
s/^\s*//;
s/\s$//;
s/\s+/ /g;
if(!/^static/ && !/^PRIVATE/){
# remove outer ()
s/\s*\(/@/;
@@ -52,15 +52,19 @@ while(<>) {
/([a-zA-Z0-9_]+)\s*@/;
$f = $1;
# only add newline if more than one parameter
$LP = "(("; # XXX workaround for indentation bug in emacs
$RP = "))";
$P = "__P((";
if(/,/){
s/@/ __P((\n\t/;
s/@/ __P$LP\n\t/;
}else{
s/@/ __P((/;
s/@/ __P$LP/;
}
s/@/))/;
s/@/$RP/;
$_ = $_ . ";";
# insert newline before function name
s/(.*)\s([a-zA-Z0-9_]+ __P)/$1\n$2/;
s/(.*)\s(__attribute__.*)/$1\n\t$2/;
$funcs{$f} = $_;
}
}
@@ -141,11 +145,33 @@ foreach(sort keys %funcs){
if(/^(main)$/) { next }
if(/^_/) {
$private_h .= $funcs{$_} . "\n\n";
if($funcs{$_} =~ /__attribute__/) {
$private_attribute_seen = 1;
}
} else {
$public_h .= $funcs{$_} . "\n\n";
if($funcs{$_} =~ /__attribute__/) {
$public_attribute_seen = 1;
}
}
}
if ($public_attribute_seen) {
$public_h_header .= "#if !defined(__GNUC__) && !defined(__attribute__)
#define __attribute__(x)
#endif
";
}
if ($private_attribute_seen) {
$private_h_header .= "#if !defined(__GNUC__) && !defined(__attribute__)
#define __attribute__(x)
#endif
";
}
if ($public_h ne "") {
$public_h = $public_h_header . $public_h . "#endif /* $block */\n";