File: mkglobals_h

package info (click to toggle)
libnewlib-nano 2.11.2-1
  • links: PTS
  • area: main
  • in suites: buster
  • size: 114,156 kB
  • sloc: ansic: 631,393; cpp: 129,053; makefile: 62,427; asm: 49,042; sh: 15,817; xml: 15,337; perl: 4,340; lisp: 720; python: 557; exp: 470; yacc: 315; awk: 25; tcl: 4
file content (28 lines) | stat: -rwxr-xr-x 607 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
#!/usr/bin/perl
my @argv = @ARGV;
$_ = join('', <>);
s/\s+\n/\n/sog;
s/\n[^\n]*!globals.h[^\n]*\n/\n/sog;
s%/\*.*?\*/%%sog;
s/(enum\s.*?{.*?})/munge($1)/soge;
s/^(\s*)([a-zA-Z_])/$1extern $2/mog;
s/extern (extern|enum)/$1/sog;
s/\n\s*extern static[^\n]*\n/\n/sog;
s/\s+=.*?;/;/sog;
s/^\n+//sog;
s/#include "winsup\.h"\n//so;
s/-NL-/\n/sog;
s/-EQ-/=/sog;
s/\n{2,}/\n/sog;
print <<PRELUDE,$_;
/* $target - Autogenerated from @argv.  Look there for comments. */

#pragma once
PRELUDE
close $target_fd;
sub munge($) {
    my $val = shift;
    $val =~ s/\n/-NL-/sog;
    $val =~ s/=/-EQ-/sog;
    return $val;
}