From d0095f039081102ede7c8802565b43fd1caabc77 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Tue, 16 Jul 2024 05:11:36 -0400 Subject: listbas: properly colorize BXE functions with ( as part of the name. --- TODO | 3 +++ listbas.c | 9 +++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/TODO b/TODO index 848f39b..d98144a 100644 --- a/TODO +++ b/TODO @@ -1,4 +1,7 @@ for now: + +listbas - Turbo BASIC tokens for variables 128-255 not recognized. + These may need library (xex.c) changes: xexcat: handle run/init addresses embedded in a segment longer than 2 bytes. Implemented in library, but not used by xexcat yet. diff --git a/listbas.c b/listbas.c index 5972aa8..bcdb052 100644 --- a/listbas.c +++ b/listbas.c @@ -64,18 +64,18 @@ const char *cmd_tokens[256]; const char *op_tokens[256]; -int dump_tables = 0; - -int bas_type = B_ATARI; +int bas_type = B_ATARI; /* -b */ int output_mode = M_UTF8; -int bold = 0; /* 1 with -b */ +int bold = 0; /* 1 with -B */ int color = 1; /* 0 with -n */ int immediate = 0; /* 1 with -i */ int underline = 0; /* 1 with -u */ int skip_lineno = 0; /* 1 with -l */ +int dump_tables = 0; /* 1 with -D */ +/* change these with -c */ int color_cmd = C_YELLOW; int color_op = C_GREEN; int color_func = C_PURPLE; @@ -414,6 +414,7 @@ void print_mixed_case(const char *name) { while(( c = *name++)) { if(c >= 'A' && c <= 'Z') c |= 0x20; + if(color && c == '(') color_on(color_op); outchr(c); } } -- cgit v1.2.3