15dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughesopen SPARC, "syscallent.h" || die "no puedo abrir el de la sparc"; 25dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughesopen ALPHA, "../alpha/syscallent.h" || die "no puedo abrir el de la alpha"; 35dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughesopen PC, "../i386/syscallent.h" || die "no puedo abrir PC\n"; 45dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes 55dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hugheswhile (<SPARC>) { 65dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes chop; 75dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes ($i1, $i2, $i3, $syscall, $syscall_name) = split; 85dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes $strn[$index] = $syscall_name; 95dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes $name[$index++] = $syscall; 105dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes} 115dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes 125dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hugheswhile (<ALPHA>){ 135dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes if (/\{/) { 145dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes ($i1, $n, $pr, $syscall) = split; 155dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes $par{$syscall} = $n; 165dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes $prr{$syscall} = $pr; 175dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes } 185dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes} 195dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes 205dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hugheswhile (<PC>){ 215dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes if (/\{/) { 225dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes ($i1, $n, $pr, $syscall) = split; 235dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes $par{$syscall} = $n; 245dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes $prr{$syscall} = $pr; 255dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes } 265dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes} 275dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes 285dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughesprint "missing \n"; 295dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes 305dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughesfor ($i = 0; $i < $index; $i++){ 315dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes $x = $name[$i]; 325dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes $y = $strn[$i]; 335dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes $n = $par{$x}; 345dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes $p = $prr{$x}; 355dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes $j++; 365dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes print "\t{ $n\t$p\t$x\t$y },\t /* $j */\n"; 375dec78d0c2663930cd1bbcecbbcee47f68bc52f3Elliott Hughes} 38