//
// used for relative branch targets (ie $+5, $-12, ...)
//
void plantRelativeGoto(String name, int val) throws jasError {
InsnInfo insn = InsnInfo.get(name);
if (insn.args.equals("label")) {
bufferInsn(new Insn(insn.opcode, val, true));
} else { // forward the request for "normal" instructions
plant(name, val);
}
}
//
// used for ldc <quoted-string>
//
void plantString(String name, String val) throws jasError {
InsnInfo insn = InsnInfo.get(name);
autoNumber();
flushInsnBuffer();
if (name.startsWith("ldc")) {
bufferInsn(new Insn(insn.opcode, new StringCP(val)));
} else {
throw new jasError("Bad arguments for instruction " + name);
}
}
//
// used for iinc
//
void plant(String name, int v1, int v2) throws jasError {
InsnInfo insn = InsnInfo.get(name);
autoNumber();
flushInsnBuffer();
if (insn.args.equalsIgnoreCase("ii")) {
bufferInsn(new IincInsn(v1, v2, insn.args.charAt(0) == 'I'));
} else {
throw new jasError("Bad arguments for instruction " + name);
}
}
//
// used for instructions that take no arguments
//
void plant(String name) throws jasError {
InsnInfo insn = InsnInfo.get(name);
autoNumber();
flushInsnBuffer();
if (insn.args.equals("")) {
bufferInsn(new Insn(insn.opcode));
} else {
throw new jasError("Missing arguments for instruction " + name);
}
}
//
// used for instructions that take a field and a signature as parameters
// (e.g. getstatic, putstatic)
//
void plant(String name, String v1, String v2) throws jasError {
InsnInfo info = InsnInfo.get(name);
CodeAttr code = _getCode();
autoNumber();
flushInsnBuffer();
if (info.args.equals("field")) {
String split[] = ScannerUtils.splitClassField(v1);
if (split[1] == null) throw new jasError("can't extract field from " + v1);
bufferInsn(new Insn(info.opcode, new FieldCP(split[0], split[1], v2)));
} else {
throw new jasError("Bad arguments for instruction " + name);
}
}
//
// used for instructions that take a word as a parameter
// (e.g. branches, newarray, invokemethod)
//
void plant(String name, String val) throws jasError {
InsnInfo insn = InsnInfo.get(name);
CodeAttr code = _getCode();
autoNumber();
flushInsnBuffer();
if (insn.args.equals("method")) {
String split[] = ScannerUtils.splitClassMethodSignature(val);
bufferInsn(new Insn(insn.opcode, new MethodCP(split[0], split[1], split[2])));
} else if (insn.args.equals("interface")) {
String split[] = ScannerUtils.splitClassMethodSignature(val);
bufferInsn(
new InvokeinterfaceInsn(
new InterfaceCP(split[0], split[1], split[2]),
ScannerUtils.getArgumentsAndReturnSizes(split[2]) >> 2));
} else if (name.startsWith("ldc")) {
bufferInsn(new Insn(insn.opcode, new ClassCP(val)));
} else if (insn.args.equals("atype")) {
int atype = 0;
if (val.equals("boolean")) {
atype = 4;
} else if (val.equals("char")) {
atype = 5;
} else if (val.equals("float")) {
atype = 6;
} else if (val.equals("double")) {
atype = 7;
} else if (val.equals("byte")) {
atype = 8;
} else if (val.equals("short")) {
atype = 9;
} else if (val.equals("int")) {
atype = 10;
} else if (val.equals("long")) {
atype = 11;
} else {
throw new jasError("Bad array type: " + name);
}
bufferInsn(new Insn(insn.opcode, atype, false));
} else if (insn.args.indexOf("label") >= 0) {
bufferInsn(new Insn(insn.opcode, getLabel(val), scanner.line_num));
} else if (insn.args.equals("class")) {
bufferInsn(new Insn(insn.opcode, new ClassCP(val)));
} else {
throw new jasError("(gloups)Bad arguments for instruction " + name);
}
}
//
// used for instructions that take an integer parameter
// (branches are part of this, the int is converted to a label)
//
void plant(String name, int val) throws jasError {
InsnInfo insn = InsnInfo.get(name);
CodeAttr code = _getCode();
autoNumber();
flushInsnBuffer();
if (insn.args.equalsIgnoreCase("i")) {
bufferInsn(new Insn(insn.opcode, val, insn.args.charAt(0) == 'I'));
} else if (name.startsWith("ldc")) {
bufferInsn(new Insn(insn.opcode, new IntegerCP(val)));
} else if (insn.args.equals("label")) {
plant(name, String.valueOf(val)); // the target is not signed
// assume it is a label
} else {
throw new jasError("Bad arguments for instruction " + name);
}
}
//
// used for invokeinterface and multianewarray
//
void plant(String name, String val, int nargs) throws jasError {
InsnInfo insn = InsnInfo.get(name);
CodeAttr code = _getCode();
autoNumber();
flushInsnBuffer();
if (insn.args.equals("interface")) {
String split[] = ScannerUtils.splitClassMethodSignature(val);
bufferInsn(
new InvokeinterfaceInsn(
new InterfaceCP(split[0], split[1], split[2]),
ScannerUtils.getArgumentsAndReturnSizes(split[2]) >> 2));
} else if (insn.args.equals("marray")) {
bufferInsn(new MultiarrayInsn(new ClassCP(val), nargs));
} else {
throw new jasError("Bad arguments for instruction " + name);
}
}
//
// used for ldc and other instructions that take a numeric argument
//
void plant(String name, Number val) throws jasError {
InsnInfo insn = InsnInfo.get(name);
CodeAttr code = _getCode();
autoNumber();
flushInsnBuffer();
if (insn.args.equalsIgnoreCase("i") && (val instanceof Integer)) {
bufferInsn(new Insn(insn.opcode, val.intValue(), insn.args.charAt(0) == 'I'));
} else if (name.startsWith("ldc")) {
if (val instanceof Integer) {
bufferInsn(new Insn(insn.opcode, new IntegerCP(val.intValue())));
} else if (val instanceof Float) {
bufferInsn(new Insn(insn.opcode, new FloatCP(val.floatValue())));
} else if (val instanceof Long) {
bufferInsn(new Insn(insn.opcode, new LongCP(val.longValue())));
} else if (val instanceof Double) {
bufferInsn(new Insn(insn.opcode, new DoubleCP(val.doubleValue())));
}
} else {
throw new jasError("Bad arguments for instruction " + name);
}
}
//
// recognize and return the next complete token
//
public token next_token() throws java.io.IOException, jasError {
token_line_num = line_num;
for (; ; )
switch (next_char) {
case ';': // a comment
case '\n':
// return single SEP token (skip multiple newlines
// interspersed with whitespace or comments)
skip_empty_lines();
token_line_num = line_num;
return new token(sym.SEP);
case -1: // EOF token
char_num = -1;
return new token(sym.EOF);
case '-':
case '+':
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
case '.': // a number
{
int pos = 0;
do {
chars[pos] = (char) next_char;
pos++;
if (pos == chars_size) chars_expand();
advance();
} while (!separator(next_char));
String str = new String(chars, 0, pos);
token tok;
// This catches directives like ".method"
if ((tok = ReservedWords.get(str)) != null) return tok;
Number num;
try {
num = ScannerUtils.convertNumber(str);
} catch (NumberFormatException e) {
if (chars[0] != '.') throw new jasError("Badly formatted number");
throw new jasError("Unknown directive or badly formed number.");
}
if (num instanceof Integer) {
int_line = line.toString();
int_line_num = token_line_num;
int_char_num = char_num;
return new int_token(sym.Int, num.intValue());
}
return new num_token(sym.Num, num);
}
case '"': // quoted string
{
boolean already = false;
for (int pos = 0; ; ) {
if (already) already = false;
else advance();
if (next_char == '"') {
advance(); // skip close quote
return new str_token(sym.Str, new String(chars, 0, pos));
}
if (next_char == -1) throw new jasError("Unterminated string");
char chval = (char) next_char;
if (chval == '\\') {
advance();
switch (next_char) {
case -1:
already = true;
continue;
case 'n':
chval = '\n';
break;
case 'r':
chval = '\r';
break;
case 't':
chval = '\t';
break;
case 'f':
chval = '\f';
break;
case 'b':
chval = '\b';
break;
case '"':
chval = '"';
break;
case '\'':
chval = '\'';
break;
case '\\':
chval = '\\';
break;
case 'u':
chval = uniEscape();
if (next_char == -1) {
already = true;
continue;
}
break;
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
{
int res = next_char & 7;
advance();
if (next_char < '0' || next_char > '7') already = true;
else {
res = res * 8 + (next_char & 7);
advance();
if (next_char < '0' || next_char > '7') already = true;
else {
int val = res * 8 + (next_char & 7);
if (val >= 0x100) already = true;
else res = val;
}
}
chval = (char) res;
}
break;
default:
throw new jasError("Bad backslash escape sequence");
}
}
chars[pos] = chval;
pos++;
if (pos == chars_size) chars_expand();
}
}
case '\'': // quotation for overloading reserved words
for (int pos = 0; ; ) {
advance();
if (separator(next_char)) throw new jasError("Unterminated ''-enclosed name");
if (next_char == '\'') {
if (pos == 0) throw new jasError("Empty ''-enclosed name");
advance(); // skip close quote
if (!separator(next_char)) throw new jasError("Not separator after ''-enclosed name");
return new str_token(sym.Word, new String(chars, 0, pos));
}
char chval = (char) next_char;
if (next_char == '\\') chval = nameEscape();
chars[pos] = chval;
pos++;
if (pos == chars_size) chars_expand();
}
case ' ':
case '\t':
case '\r': // whitespace
advance();
break;
case '=': // EQUALS token
advance();
return new token(sym.EQ);
case ':': // COLON token
advance();
return new token(sym.COLON);
default:
{
// read up until a separatorcharacter
int pos = 0;
boolean only_name = false;
do {
char chval = (char) next_char;
if (next_char == '\\') {
chval = nameEscape();
only_name = true;
}
chars[pos] = chval;
pos++;
if (pos == chars_size) chars_expand();
advance();
} while (!separator(next_char));
// convert the byte array into a String
String str = new String(chars, 0, pos);
if (!only_name) {
token tok;
// Jasmin keyword or directive ?
if ((tok = ReservedWords.get(str)) != null) return tok;
// its a JVM instruction ?
if (InsnInfo.contains(str)) return new str_token(sym.Insn, str);
if (str.charAt(0) == '$') {
String s = str.substring(1);
Object v;
int n = 10;
boolean neg = false;
boolean sign = false;
switch (s.charAt(0)) {
default:
break;
case '-':
neg = true;
;
case '+':
s = s.substring(1);
if (s.startsWith("0x")) {
n = 16;
s = s.substring(2);
}
try {
n = Integer.parseInt(s, n);
} catch (NumberFormatException e) {
throw new jasError("Badly relative offset number");
}
if (neg) n = -n;
return new relative_num_token(sym.Relative, n);
}
// Perform variable substitution
if ((v = dict.get(s)) != null) return (token) v;
} // not begin from '$'
} // !only_name
// Unrecognized string token (e.g. a classname)
return new str_token(sym.Word, str);
} /* default */
} /* switch and for */
}