![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to awkprog CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / cmd / sun / c2|
Return to awkprog CVS log | Up to [Research Unix] / researchv9 / cmd / sun / c2 |
1.1 ! root 1: # ! 2: # @(#)awkprog 1.1 86/02/03 SMI ! 3: # ! 4: ! 5: BEGIN{ ! 6: flavor = "AS" ! 7: FS = " " ! 8: MNEMONIC = 1 ! 9: OPTYPE = 2 ! 10: SUBOP = 3 ! 11: OPCODES = 4 ! 12: TOUCHOP = 5 ! 13: OPACCESS = 6 ! 14: CCODES = 7 ! 15: NASSOC = 8 ! 16: MACHINE = 9 ! 17: } ! 18: { ! 19: if (NF == 0){ ! 20: printf("\n") ! 21: next ! 22: } ! 23: if ($MNEMONIC == "FLAVOR"){ ! 24: flavor = $OPTYPE ! 25: next ! 26: } ! 27: if ($MNEMONIC == "##"){ ! 28: next ! 29: } ! 30: nop = split( $OPTYPE, op, "," ) ! 31: noperand = split( $TOUCHOP, touch, ",") ! 32: if (flavor == "C2"){ ! 33: if ( $OPTYPE == "PSEUDO" ){ ! 34: # flavor is C2, and this is a pseudoop ! 35: nop = split( $3, op, "," ) ! 36: printf( "P(\"%s\", OP_%s, %d, %d, SUBOP_%s )\n", $MNEMONIC, op[2], $5, $7, $4 ) ! 37: next ! 38: } ! 39: # flavor is C2, this is a machine instruction. ! 40: if ( nop == 2){ ! 41: $OPTYPE = op[2] ! 42: } else if ( $OPTYPE == "JBRNCH" || $OPTYPE == "cp_branch" ) { ! 43: $OPTYPE = "BRANCH" ! 44: } else if ( $OPTYPE != "BRANCH" && $OPTYPE != "DBRA" ) { ! 45: $OPTYPE = "OTHER" ! 46: } ! 47: if ( $OPTYPE != "BRANCH" && $OPTYPE != "DBRA" && $OPTYPE != "FBRANCH" && $OPTYPE != "FDBRA" ) { ! 48: $SUBOP = "SUBOP_" $SUBOP ! 49: } ! 50: printf( "I(\"%s\", OP_%s, %s, ", $MNEMONIC, $OPTYPE, $SUBOP ) ! 51: if (touch[1] == "X"){ ! 52: printf("T_X, ") ! 53: noperand = 0 ! 54: } else { ! 55: if (noperand == 1){ ! 56: printf("T_ONE(%s),", $TOUCHOP) ! 57: } else if (noperand == 2){ ! 58: printf("T_TWO(%s),", $TOUCHOP) ! 59: } else { ! 60: printf("T_THREE(%s),",$TOUCHOP) ! 61: } ! 62: } ! 63: printf( "%d, %s, %d, ", noperand, $CCODES, $NASSOC ) ! 64: naccess = split( $OPACCESS, access, ",") ! 65: # next, go print OPACCESS info. ! 66: } else if (flavor == "AS"){ ! 67: if ( $OPTYPE == "PSEUDO"){ ! 68: # flavor is AS, this is a pseodoop ! 69: nop = split( $3, op, "," ) ! 70: if ($8 == "") $8 = "0" ! 71: naccess = split( $8, access, ",") ! 72: printf( "P(\"%s\", %s, OP_%s, SUBOP_%s, %d, %d, %d, ", $MNEMONIC, op[1], op[2], $4, $5, $6, $7 ) ! 73: if (naccess==1){ ! 74: printf("A_ONE( %s )", $8 ) ! 75: } else if (naccess==2){ ! 76: printf("A_TWO( %s )", $8 ) ! 77: } else printf("help") ! 78: print ")\n" ! 79: next ! 80: } ! 81: # flavor is AS, and this is a machine instruction. ! 82: naccess = split( $OPACCESS, access, ",") ! 83: ncode = split( $OPCODES, code, "," ) ! 84: if (touch[1] == "X"){ ! 85: noperand = 0 ! 86: $OPACCESS = 0 ! 87: } ! 88: if (op[1] == "BRANCH" ){ ! 89: if ($MNEMONIC ~ /b..s/ ){ ! 90: op[1] = "BRNCHS" ! 91: } else if ( $MNEMONIC ~ /b..l/){ ! 92: op[1] = "BRNCHL" ! 93: } ! 94: if (op[2]==""){ ! 95: op[2] = "BRANCH" ! 96: } ! 97: } ! 98: if (op[2] == "") op[2] = "OTHER" ! 99: if (length($SUBOP) == 1) $SUBOP = "SUBOP_" $SUBOP ! 100: printf("I(\"%s\", %s, OP_%s, %s, ", $MNEMONIC, op[1], op[2], $SUBOP ) ! 101: printf("%d, ", noperand) ! 102: if (touch[1] == "X"){ ! 103: printf("T_X, ") ! 104: } else { ! 105: if (noperand == 1){ ! 106: printf("T_ONE(%s),", $TOUCHOP) ! 107: } else if (noperand == 2){ ! 108: printf("T_TWO(%s),", $TOUCHOP) ! 109: } else { ! 110: printf("T_THREE(%s),",$TOUCHOP) ! 111: } ! 112: } ! 113: if (ncode==1) { ! 114: printf("A_ONE(%s), ",$OPCODES) ! 115: } else if (ncode==2){ ! 116: printf("A_TWO(%s, %s), ",code[1], code[2]) ! 117: } else if (ncode==3){ ! 118: printf("A_TH3(%s, %s, %s), ",code[1], code[2], code[3] ) ! 119: } else if (ncode==4){ ! 120: printf("A_4R(%s, %s, %s, %s), ", code[1], code[2], code[3], code[4] ) ! 121: } else { ! 122: printf("A_5V(%s, %s, %s, %s, %s), ", code[1], code[2], code[3], code[4], code[5] ) ! 123: } ! 124: } else { ! 125: print "FLAVOR IS " flavor ! 126: exit ! 127: } ! 128: # here we print the OPACCESS stuff for any flavor. ! 129: if (naccess == 1){ ! 130: printf("A_ONE(%s) ", access[1] ) ! 131: } else if (naccess==2){ ! 132: printf("A_TWO(%s, %s) ", access[1], access[2] ) ! 133: } else if (naccess==3){ ! 134: printf("A_TH3(%s, %s, %s) ", access[1], access[2], access[3] ) ! 135: } else if (naccess==4){ ! 136: printf("A_4R(%s, %s, %s, %s) ", access[1], access[2], access[3], access[4] ) ! 137: } else if (naccess==5){ ! 138: printf("A_5V(%s, %s, %s, %s, %s) ", access[1], access[2], access[3], access[4], access[5] ) ! 139: } else if (naccess==6){ ! 140: printf("A_6X(%s, %s, %s, %s, %s, %s) ", access[1], access[2], access[3], access[4], access[5], access[6] ) ! 141: } else if (naccess==8){ ! 142: printf("A_8T(%s, %s, %s, %s, %s, %s, %s, %s) ", access[1], access[2], access[3], access[4], access[5], access[6], access[7], access[8] ) ! 143: } else { ! 144: printf("\n#include NACCESS==%d NOT DEALT WITH IN AWK PROG",naccess) ! 145: } ! 146: print " )" ! 147: next ! 148: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.