diff options
-rw-r--r-- | listbas.c | 81 |
1 files changed, 50 insertions, 31 deletions
@@ -508,6 +508,50 @@ void aplus_op_color_on(unsigned char tok) { color_on(c); } +void turbo_op_color_on(unsigned char tok) { + switch(tok) { + case 0x55: + case 0x58: + case 0x59: /* pseudo-func */ + case 0x5b: + case 0x5c: + case 0x5e: + case 0x5f: /* pseudo-func */ + case 0x60: /* pseudo-func */ + case 0x63: /* pseudo-func */ + case 0x64: + case 0x65: + case 0x6b: + case 0x6c: /* pseudo-func */ + case 0x6d: /* pseudo-func */ + color_on(color_func); + break; + case 0x5a: + case 0x5d: + case 0x61: + case 0x62: + case 0x6a: + color_on(color_cmd); + break; + default: + color_on(color_op); + break; + } +} + +/* BXL and BXE use the same operator tokens */ +void bxlxe_op_color_on(unsigned char tok) { + int c = color_op; + + if(tok == 0x55) { + c = color_cmd; + } else if(tok >= 0x5a) { + c = color_func; + } + + color_on(c); +} + void op_color_on(unsigned char tok) { if(!color) return; @@ -529,37 +573,12 @@ void op_color_on(unsigned char tok) { return; } - if(bas_type == B_TURBO) { - switch(tok) { - case 0x55: - case 0x58: - case 0x59: /* pseudo-func */ - case 0x5b: - case 0x5c: - case 0x5e: - case 0x5f: /* pseudo-func */ - case 0x60: /* pseudo-func */ - case 0x63: /* pseudo-func */ - case 0x64: - case 0x65: - case 0x6b: - case 0x6c: /* pseudo-func */ - case 0x6d: /* pseudo-func */ - color_on(color_func); - return; - case 0x5a: - case 0x5d: - case 0x61: - case 0x62: - case 0x6a: - color_on(color_cmd); - return; - default: - break; - } - } - - color_on(color_op); + if(bas_type == B_TURBO) + turbo_op_color_on(tok); + else if(bas_type == B_BXL || bas_type == B_BXE) + bxlxe_op_color_on(tok); + else + color_on(color_op); /* should never get here actually */ } CALLBACK(print_op) { |