1open SPARC, "syscallent.h" || die "no puedo abrir el de la sparc";
2open ALPHA, "../alpha/syscallent.h" || die "no puedo abrir el de la alpha";
3open PC, "../syscallent.h" || die "no puedo abrir PC\n";
4
5while (<SPARC>) {
6    chop;
7    ($i1, $i2, $i3, $syscall, $syscall_name) = split;
8    $strn[$index]   = $syscall_name;
9    $name[$index++] = $syscall;
10}
11
12while (<ALPHA>){
13    if (/\{/) {
14	($i1, $n, $pr, $syscall) = split;
15	$par{$syscall} = $n;
16	$prr{$syscall} = $pr;
17    }
18}
19
20while (<PC>){
21    if (/\{/) {
22	($i1, $n, $pr, $syscall) = split;
23	$par{$syscall} = $n;
24	$prr{$syscall} = $pr;
25    }
26}
27
28print "missing \n";
29
30for ($i = 0; $i < $index; $i++){
31    $x = $name[$i];
32    $y = $strn[$i];
33    $n = $par{$x};
34    $p = $prr{$x};
35    $j++;
36    print "\t{ $n\t$p\t$x\t$y },\t /* $j */\n";
37}
38
39