Add -esc option for C-literal escaping/encoding of output (e.g. for JS/.ini)

<phigz> what would you convert ansi to so it displays right when written out from a .js file?

Now, you can use 'ans2asc -esc' for this purpose.

src/sbbs3/ans2asc.c

@@ -23,6 +23,7 @@
 #include <stdlib.h>
 #include <string.h>		/* strcmp */
 #include "sauce.h"
+#include "genwrap.h"
 #include "git_branch.h"
 #include "git_hash.h"
 
@@ -45,6 +46,7 @@ static void print_usage(const char* prog)
 	fprintf(stderr,"  -clear          insert a clear screen code at beginning of output file\n");
 	fprintf(stderr,"  -pause          append a pause (hit a key) code to end of output file\n");
 	fprintf(stderr,"  -space          use space characters for cursor-right movement/alignment\n");
+	fprintf(stderr,"  -esc            use C-style string literal escaping of control and CP437 chars\n");
 	fprintf(stderr,"  -delay <int>    insert a 1/10th second delay code at output byte interval\n");
 	fprintf(stderr,"                  (lower interval values result in more delays, slower display)\n");
 }
@@ -57,6 +59,7 @@ int main(int argc, char **argv)
 	FILE *out=stdout;
 	bool ice=false;
 	bool normal=false;
+	bool encode=false;
 	int cols=0;
 	int column=0;
 	int delay=0;
@@ -64,6 +67,7 @@ int main(int argc, char **argv)
 	int pause=0;
 	int space=0;
 	int newline=0;
+	char* ctrl_a = "\1";
 
 	if(argc<2) {
 		print_usage(argv[0]);
@@ -94,6 +98,10 @@ int main(int argc, char **argv)
 				normal = true;
 			else if(strcmp(argv[i], "-newline") == 0)
 				newline++;
+			else if(strcmp(argv[i], "-esc") == 0) {
+				encode = true;
+				ctrl_a = "\\x01";
+			}
 			else if(IS_DIGIT(argv[i][1]))
 				cols = atoi(argv[i] + 1);
 			else {
@@ -124,7 +132,7 @@ int main(int argc, char **argv)
 	const char* cond_newline = normal ? "\1+\1N\1/\1-" : "\1/";
 
 	if(clear)
-		fprintf(out,"\1N\1L");
+		fprintf(out,"%sN%sL", ctrl_a, ctrl_a);
 	esc=0;
 	while((ch=fgetc(in))!=EOF && ch != CTRL_Z) {
 		if(ch=='[' && esc) {    /* ANSI escape sequence */
@@ -167,23 +175,23 @@ int main(int argc, char **argv)
 					case 'f':
 					case 'H':
 						if(n[0]<=1 && n[1]<=1)			/* home cursor */
-							fputs("\1'", out);
+							fprintf(out, "%s'", ctrl_a);
 						column = 0;
 						break;
 					case 'J':
 						if(n[0]==2) 					/* clear screen */
-							fputs("\1L",out);           /* ctrl-aL */
+							fprintf(out, "%sL", ctrl_a);
 						else if(n[0]==0)				/* clear to EOS */
-							fputs("\1J",out);           /* ctrl-aJ */
+							fprintf(out, "%sJ", ctrl_a);
 						column = 0;
 						break;
 					case 'K':
-						fputs("\1>",out);               /* clear to eol */
+						fprintf(out, "%s>", ctrl_a);	/* clear to eol */
 						column = cols ? (cols - 1) : 79;
 						break;
 					case 'm':
 						for(i=0;i<ni;i++) {
-							fputc(1,out);				/* ctrl-ax */
+							fprintf(out, ctrl_a);		/* ctrl-ax */
 							switch(n[i]) {
 								case 0:
 								case 2: 				/* no attribute */
@@ -255,24 +263,28 @@ int main(int argc, char **argv)
 						break;
 					case 'B':	/* cursor down */
 						while(n[0]) {
-							fprintf(out,"\1]");	/* linefeed */
+							fprintf(out,"%s]", ctrl_a);	/* linefeed */
 							n[0]--;
 						}
 						break;
 					case 'C':	/* cursor right */
 						if(space)
 							fprintf(out, "%*s", n[0], " ");
+						else {
+							if(encode)
+								fprintf(out, "%s\\x%02X", ctrl_a, 0x7f + n[0]);
 							else
-							fprintf(out,"\1%c",0x7f+n[0]);
+								fprintf(out,"%s%c", ctrl_a, 0x7f+n[0]);
+						}
 						column += n[0];
 						break;
 					case 'D':	/* cursor left */
 						column -= n[0];
 						if(n[0] >= column)
-							fprintf(out,"\1[");
+							fprintf(out,"%s[", ctrl_a);
 						else
 							while(n[0]) {
-								fprintf(out,"\1<");
+								fprintf(out,"%s<", ctrl_a);
 								n[0]--;
 							}
 						break;
@@ -289,6 +301,17 @@ int main(int argc, char **argv)
 			esc=1;
 		else {
 			esc=0;
+			if(encode) {
+				if(ch < ' ' || ch >= 0x7f) {
+					char* p = c_escape_char(ch);
+					if(p == NULL)
+						fprintf(out, "\\x%02X", ch);
+					else
+						fprintf(out, "%s", p);
+				}
+				else
+					fputc(ch, out);
+			} else {
 				switch(ch) {
 					case '\r':
 					case '\n':
@@ -304,8 +327,9 @@ int main(int argc, char **argv)
 						column++;
 						break;
 				}
+			}
 			if(delay && (ftell(out)%delay)==0)
-				fprintf(out,"\1,");
+				fprintf(out,"%s,", ctrl_a);
 		}
 		if(column < 0)
 			column = 0;
@@ -313,7 +337,7 @@ int main(int argc, char **argv)
 	while(newline--)
 		fprintf(out,"\r\n");
 	if(pause)
-		fprintf(out,"\1p");
+		fprintf(out,"%sp", ctrl_a);
 	return(0);
 }