Add -I (Interpret) command-line option to execute cmdline string

At Tracker1's request/suggestion.

jsexec -Itrue
...
Result (boolean): true

More elaborate expressions can be evaluated and white-space included by quoting the "-I expression".

Also, send all cmd-line usage errors to stderr and syntax help to stdout, always (Deuce's request).

src/sbbs3/jsexec.c

@@ -101,11 +101,11 @@ void banner(FILE* fp)
 		,__DATE__, __TIME__, compiler);
 }
 
-void usage(FILE* fp)
+void usage()
 {
-	banner(fp);
+	banner(stderr);
 
-	fprintf(fp,"\nusage: " PROG_NAME_LC " [-opts] [path]module[.js] [args]\n"
+	fprintf(stderr, "\nusage: " PROG_NAME_LC " [-opts] [[path/]module[.js] or -Ijs-expression] [args]\n"
 		"\navailable opts:\n\n"
 #ifdef JSDOOR
 		"    -c<ctrl_dir>   specify path to CTRL directory\n"
@@ -129,6 +129,7 @@ void usage(FILE* fp)
 		"    -L<level>      set log level (default=%u)\n"
 		"    -E<level>      set error log level threshold (default=%u)\n"
 		"    -i<path_list>  set load() comma-sep search path list (default=\"%s\")\n"
+		"    -I<expression> interpret and execute specified JavaScript expression\n"
 		"    -f             use non-buffered stream for console messages\n"
 		"    -a             append instead of overwriting message output files\n"
 		"    -A             send all message to stdout\n"
@@ -909,7 +910,7 @@ char *dbg_getline(void)
 #endif
 }
 
-long js_exec(const char *fname, char** args)
+long js_exec(const char *fname, const char* buf, char** args)
 {
 	int			argc=0;
 	uint		line_no;
@@ -993,6 +994,12 @@ long js_exec(const char *fname, char** args)
 
 	JS_SetOperationCallback(js_cx, js_OperationCallback);
 
+	if(buf != NULL) {
+		SAFECOPY(path, "cmdline");
+		fp = NULL;
+		js_buf = (char*)buf;
+		js_buflen = strlen(buf);
+	} else {
 		if(fp==stdin) 	 /* Using stdin for script source */
 			SAFECOPY(path,"stdin");
 
@@ -1019,7 +1026,7 @@ long js_exec(const char *fname, char** args)
 		}
 		if(fp!=NULL && fp!=stdin)
 			fclose(fp);
-
+	}
 	start=xp_timer();
 	if(debugger)
 		init_debugger(js_runtime, js_cx, dbg_puts, dbg_getline);
@@ -1040,10 +1047,13 @@ long js_exec(const char *fname, char** args)
 		result = EXIT_FAILURE;
 	} else {
 		exec_result = JS_ExecuteScript(js_cx, js_glob, js_script, &rval);
+		char	*p;
+		if(buf != NULL) {
+			JSVALUE_TO_MSTRING(js_cx, rval, p, NULL);
+			mfprintf(statfp,"Result (%s): %s", JS_GetTypeName(js_cx, JS_TypeOfValue(js_cx, rval)), p);
+		}
 		JS_GetProperty(js_cx, js_glob, "exit_code", &rval);
 		if(rval!=JSVAL_VOID && JSVAL_IS_NUMBER(rval)) {
-			char	*p;
-
 			JSVALUE_TO_MSTRING(js_cx, rval, p, NULL);
 			mfprintf(statfp,"Using JavaScript exit_code: %s",p);
 			free(p);
@@ -1060,7 +1070,7 @@ long js_exec(const char *fname, char** args)
 			,path
 			,diff);
 
-	if(js_buf!=NULL)
+	if(js_buf!=NULL && js_buf!=buf)
 		free(js_buf);
 
 	return(result);
@@ -1134,6 +1144,7 @@ int main(int argc, char **argv, char** env)
 	char	error[512];
 #endif
 	char*	module=NULL;
+	char*	js_buf=NULL;
 	char*	p;
 	char*	omode="w";
 	int		argn;
@@ -1208,7 +1219,7 @@ int main(int argc, char **argv, char** env)
 	errfp = fopen("error.log", "a");
 #endif
 
-	for(argn=1;argn<argc && module==NULL;argn++) {
+	for(argn=1;argn<argc && module==NULL && js_buf==NULL;argn++) {
 		if(argv[argn][0]=='-') {
 			p=argv[argn]+2;
 			switch(argv[argn][1]) {
@@ -1218,6 +1229,7 @@ int main(int argc, char **argv, char** env)
 				case 'E':
 				case 'g':
 				case 'i':
+				case 'I':
 				case 'L':
 				case 'm':
 				case 'o':
@@ -1229,8 +1241,8 @@ int main(int argc, char **argv, char** env)
 					char opt = argv[argn][1];
 					if(*p==0) {
 						if(argn + 1 >= argc) {
-							fprintf(errfp,"\n!Option requires a parameter value: %s\n", argv[argn]);
-							usage(errfp);
+							fprintf(stderr,"\n!Option requires a parameter value: %s\n", argv[argn]);
+							usage();
 							return(do_bail(1));
 						}
 						p=argv[++argn];
@@ -1256,6 +1268,9 @@ int main(int argc, char **argv, char** env)
 						case 'i':
 							load_path_list=p;
 							break;
+						case 'I':
+							js_buf = p;
+							break;
 						case 'L':
 							log_level=parseLogLevel(p);
 							break;
@@ -1352,9 +1367,9 @@ int main(int argc, char **argv, char** env)
 					pause_on_error=TRUE;
 					break;
 				default:
-					fprintf(errfp,"\n!Unsupported option: %s\n",argv[argn]);
+					fprintf(stderr,"\n!Unsupported option: %s\n",argv[argn]);
 				case '?':
-					usage(errfp);
+					usage();
 					return(do_bail(1));
 			}
 			continue;
@@ -1370,9 +1385,9 @@ int main(int argc, char **argv, char** env)
 	if(umask_val >= 0)
 		umask(umask_val);
 
-	if(module==NULL && isatty(fileno(stdin))) {
-		fprintf(errfp,"\n!Module name not specified\n");
-		usage(errfp);
+	if(module==NULL && js_buf==NULL && isatty(fileno(stdin))) {
+		fprintf(stderr,"\n!Module name not specified\n");
+		usage();
 		return(do_bail(1)); 
 	}
 
@@ -1455,13 +1470,13 @@ int main(int argc, char **argv, char** env)
 		}
 		fprintf(statfp,"\n");
 
-		result=js_exec(module,&argv[argn]);
+		result=js_exec(module, js_buf, &argv[argn]);
 		JS_RemoveObjectRoot(js_cx, &js_glob);
 		JS_ENDREQUEST(js_cx);
 		YIELD();
 
 		if(result)
-			lprintf(LOG_ERR,"!Module (%s) set exit_code: %ld", module, result);
+			lprintf(LOG_ERR,"!Module (%s) set exit_code: %ld", module == NULL ? "cmdline" : module, result);
 
 		fprintf(statfp,"\n");
 		fprintf(statfp,"JavaScript: Destroying context\n");