* Harness the awesome power of BAJA with JavaScript!

* Watch as it turns your BAJA program into a non-functional mess of JavaScript code!
* Feel it touch you inappropriately!

exec/baja.js

+/** BAJA to JavaScript translation library
+
+don't expect this to produce working scripts.
+it is meant as a starting point and time-saver
+for those who wish to convert a BAJA source file
+to JavaScript.
+
+~mcmlxxix/echicken
+	
+$id: $ **/
+
+BAJA = new (function() {
+
+/* load baja command library */
+load("bajalib.js");
+
+/* baja source file */
+var srcName = argv[0];
+
+/* js output file */
+var destName = argv[1];
+
+/* include directories */
+var locations = [
+	js.exec_dir,
+	system.exec_dir,
+	system.mods_dir,
+	system.exec_dir + "load/",
+	system.mods_dir + "load/"
+];
+
+/* handle your shit */
+if(!srcName)
+	srcName = prompt("Enter BAJA source file name: ");
+if(!destName)
+	destName = prompt("Enter JavaScript output file name: ");
+
+/* load BAJA file contents */
+function open(fName) {
+	for(var i=0;i<locations.length && !file_exists(fName);i++) {
+		fName = locations[i] + file_getname(fName);
+	}
+	if(!file_exists(fName)) 
+		throw("file not found: " + fName);
+	var f = new File(fName);
+	log("loading source file: " + f.name);
+	if(!f.open('r',false))
+		throw("error opening file: " + f.name);
+	var data = f.readAll();
+	f.close();
+	return data;
+}
+
+/* main loop */
+function parse(data,script) {
+	if(!script)
+		script = [
+			"const FALSE = NOT_EQUAL = 0, TRUE = EQUAL = (1<<0), LESS = (1<<1), GREATER = (1<<2);",
+			"system.baja = { logicState:TRUE, userInput:'', cmdKey:'', temp:'', errNo : 0, etx:'', dir:0 };"
+		];
+	
+	while(data.length > 0) {
+		var line = data.shift();
+		
+		/* trim spaces */
+		line = trim(line);
+		
+		try {
+		/* parse baja */
+		if(!consume(script,line)) {
+			script.push("// PARSING ERROR: " + line);
+		}
+		} catch(e) {
+			log(e);
+			log(e.stack);
+		}
+	}
+	return script;
+}
+
+/* trim leading and trailing spaces */
+function trim(str) {
+	return str.replace(/(^[\t\s]+|[\t\s]+$)/,'');
+}
+
+/* parse a line of baja code */
+function consume(script, line) {
+	
+	/* handle blank lines */
+	if(trim(line).length == 0) {
+		script.push("");
+		return true;
+	}
+
+	/* remove comments (and put on own line) */
+	var comment = line.match(/[\t\s]*\#(.*)/);
+	if(comment) {
+		script.push("//" + comment[1]);
+		line = line.replace(/[\t\s]*\#.*/,'');
+	}
+	
+	/* if string is empty after comment is stripped, ignore */
+	if(trim(line).length == 0)
+		return true;
+	
+	//log(line);
+	
+	/* set labels */
+	if(line[0] == ":") {
+		script.push(line.substr(1) + ":");
+		script.push(line.substr(1) + " = (function() {");
+		return true;
+	}
+	
+	/* handle !includes */
+	var inc = line.match(/^\!include[\t\s]+(.*)/i);
+	if(inc) {
+		if(line.match(/sbbsdefs/i))
+			script.push("load(\"sbbsdefs.js\");");
+		else if(line.match(/userdefs/i))
+			script.push("load(\"userdefs.js\");");
+		else if(line.match(/nodedefs/i))
+			script.push("load(\"nodedefs.js\");");
+		else {
+			var d = open(inc[1]);
+			script.push("/** BEGIN FILE IMPORT: " + inc[1] + " **/");
+			parse(d,script);
+			script.push("/** END FILE IMPORT: " + inc[1] + " **/");
+		}
+		return true;
+	}
+	
+	/* handle defs */
+	var def = line.match(/^\!define[\t\s]+(.*)[\t\s]+(.*)/i);
+	if(def && def[1] && def[2]) {
+		var bit = def[2].match(/\.(\d+)/);
+		if(bit)
+			def[2] = "(1<<" + bit[1] + ")";
+		script.push("var " + def[1] + " = " + def[2] + ";");
+		return true;
+	}
+	
+	/* handle globals */
+	var glob = line.match(/^\!global[\t\s]+(.*)/i);
+	if(glob && glob[1]) {
+		/* parse object path: _USERON.ALIAS */
+		var path = glob[1].split(".");
+		var path_string = "";
+		var global = globals;
+		
+		while(path.length > 0) {
+			/* object properties: _USERON, ALIAS */
+			var prop = path.shift();
+			path_string += prop;
+			
+			/* define the property if it's not already */
+			if(!global[prop]) {
+				if(path.length > 0) {
+					script.push(path_string + " = {};");
+					global[prop] = {};
+				}
+				else {
+					script.push(path_string + " = undefined;");
+					global[prop] = undefined;
+				}
+			}
+			
+			/* climb into the object */
+			global = global[prop];
+			path_string += ".";
+		}
+		return true;
+	}	
+
+	/* handle other shit */
+	line = line.match(/([^\s"]+|"[^"]*")/g);
+	if(baja[line[0].toUpperCase()]) {
+		var cmd = line[0].toUpperCase();
+		var args = line.slice(1);
+		var str = baja[cmd].apply({},args);
+		if(str != undefined) {
+			str = str.split(/\r\n/);
+			while(str.length > 0)
+				script.push(str.shift());
+		}
+		return true;
+	}
+
+	/* unhandled line */
+	return false;
+}
+
+/* format raw code */
+function form(array) {
+	var output = [];
+	var depth = 0;
+	
+	for(var l=0;l<array.length;l++) {
+		var line = array[l]; 
+		
+		/* check for depth increment triggers */
+		if(line.match(/^[^\}]*\{[^\}]*$|case[\t\s]+.*\:/)) {
+			output.push(tabs(depth) + line);
+			depth++;
+		}
+		
+		/* check for depth decrement triggers */ 
+		else if(line.match(/^[^\{]*\}[^\{]*$|break\;/i)) {
+			depth--;
+			if(depth < 0)
+				depth = 0;
+			output.push(tabs(depth) + line);
+		}
+		
+		else {
+			output.push(tabs(depth) + line);			
+		}
+	}
+	return output;
+}
+
+/* get a string containing specified number of tabs */
+function tabs(num) {
+	return format("%*s",num,'').replace(/\s/g,'\t');
+}
+
+/* save javascript */
+function close(fName,data) {
+	var f = new File(fName);
+	log("saving javascript file: " + f.name);
+	if(!f.open('w',true))
+		throw("error opening file: " + f.name);
+	f.writeAll(data);
+	f.close();
+}
+
+var data = open(srcName);
+var script = parse(data);
+var output = form(script);
+close(destName,output);
+
+})();
+