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
|
#Usage for #define format is `perl MakeSysTraps.pl -d /path/to/systrap.h'.
use strict;
if (@ARGV == 0)
{
print <<EOF;
Usage: $0 [-cds] file...
Generates an annotated list of systraps from the named files.
<default> Produces output suitable for the build-prc data file.
-s Produces an asm include file.
-d Produces a bunch of #defines.
-c Produces a list of Perl constants.
EOF
exit;
}
my ($format, $forConst);
$forConst = 0;
if ($ARGV[0] eq "-s")
{
shift;
$format = "\t.equ %s,%s\n";
print <<EOF;
/* DO NOT EDIT! This file was automatically produced by $0
from @ARGV */
.macro systrap trapname
trap #15
.word \\trapname
.endm
EOF
}
elsif ($ARGV[0] eq "-d")
{
shift;
$format = "#define _P_sysTrap%s\t%s\n";
print <<EOF;
/* DO NOT EDIT! This section was automatically produced by $0
from @ARGV */
EOF
}
elsif ($ARGV[0] eq "-c")
{
shift;
$format = "use constant sysTrap%s\t=> %s;\n";
$forConst = 1;
print <<EOF;
# DO NOT EDIT! This section was automatically produced by $0
# from @ARGV
EOF
}
else
{
$format = "<%s>\t%s\n";
print <<EOF;
DO NOT EDIT! This file was automatically produced by $0
from @ARGV
EOF
}
my $num = 0;
while (<>)
{
s"//.*$""; # eat C++-style comments
s"/\*[^/]*\*/""g; # eat simple C-style comments (just in case)
if (/define\W+sysTrapBase\W+((0[xX][\da-fA-F]+)|(\d+))/)
{
$num = $1;
$num = oct $num if $num =~ /^0/;
}
next unless /=.*sysTrapBase.*,/ .. /}.*SysTrapNumber.*;/;
printf $format, $1, sprintf("\"%lX\"", $num++) if /sysTrap(\w+)\b/;
}
if ($forConst != 0)
{
print "\n", "1;", "\n";
}
|
