listbas: properly colorize BXE functions with ( as part of the name.

1 files changed, 5 insertions, 4 deletions

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);
 	}
 }