1 open SPARC, "syscallent.h" || die "no puedo abrir el de la sparc"; 2 open ALPHA, "../alpha/syscallent.h" || die "no puedo abrir el de la alpha"; 3 open PC, "../i386/syscallent.h" || die "no puedo abrir PC\n"; 4 5 while (<SPARC>) { 6 chop; 7 ($i1, $i2, $i3, $syscall, $syscall_name) = split; 8 $strn[$index] = $syscall_name; 9 $name[$index++] = $syscall; 10 } 11 12 while (<ALPHA>){ 13 if (/\{/) { 14 ($i1, $n, $pr, $syscall) = split; 15 $par{$syscall} = $n; 16 $prr{$syscall} = $pr; 17 } 18 } 19 20 while (<PC>){ 21 if (/\{/) { 22 ($i1, $n, $pr, $syscall) = split; 23 $par{$syscall} = $n; 24 $prr{$syscall} = $pr; 25 } 26 } 27 28 print "missing \n"; 29 30 for ($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