blob: bd83aee2751a95bbf37c5adb489ba0eb9e80e398 (
plain) (
blame)
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#!/usr/bin/perl
#
# Perl script to beautify and enhance RTEMS configure.in
#
# Reads from stdin and writes to stdout
#
# usage:
# acpolish <configure.in >configure.in~
# mv configure.in~ configure.in
#
# ATTENTION: This file contains embedded tabs
my $nl_seen = 0 ;
# find a relative up-path to a file $file, starting at directory $pre
sub find_file
{
my $pre = $_[0] ;
my $file= $_[1] ;
my $top = "." ;
if (not "$pre") { $pre = "." ; }
for ( $str = "$pre" . "/" . "$top" ;
( -d "$str" ) ;
$str = "$pre" . "/" . "$top" )
{
if ( -f "${str}/${file}" )
{
return $top ;
}
if ( "$top" eq "." )
{
$top = ".." ;
}
else
{
$top .= "/.." ;
}
} ;
die "Can't find file ${file}\n" ;
}
# find relative up-path to configure.in
my $rtems_cfg = find_file(".","VERSION");
while( <> )
{
if ( /^[ ]*$/o )
{
$nl_seen = $nl_seen+1;
}
if ( /^[ ]*AC_CONFIG_AUX_DIR\(.*\)[ ]*$/o )
{
print "AC_CONFIG_AUX_DIR($rtems_cfg)\n" ;
}
elsif ( /^[ ]*RTEMS_TOP\(.*\)[ ]*$/o )
{
print "RTEMS_TOP($rtems_cfg)\n" ;
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_HAS_POSIX_API\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_HAS_ITRON_API\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_HAS_HWAPI\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_USE_MACROS\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_HAS_MULTIPROCESSING\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_HAS_RDBG\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[\s\t]*AC_SUBST\(RTEMS_USE_OWN_PDIR\)[ ]*$/o )
{ # obsolete option
#remove the line
}
elsif ( /^[\s\t]*RTEMS_ENABLE_GMAKE_PRINT[ ]*$/o )
{ # obsolete macro
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_HAS_NETWORKING\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_LIBC_DIR\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(PROJECT_ROOT\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*AC_SUBST\(RTEMS_GAS_CODE16\)[ ]*$/o )
{
#remove the line
}
elsif ( /^[ ]*PROJECT_ROOT[ ]*=.*$/o )
{
#remove the line
}
elsif ( /^[ ]*$/o )
{
print "$_" if $nl_seen < 2 ;
}
else
{
print "$_" ;
$nl_seen = 0;
}
} # while
;1
|
