cpcbasic.js

// cpcbasic.js - CPCBasic for the Browser
// (c) Marco Vieth, 2019
// https://benchmarko.github.io/CPCBasic/
//

/* globals Controller, Model, Utils, View */

"use strict";

var cpcconfig, cpcBasic;

cpcBasic = {
	config: {
		bench: 0, // debug: number of parse bench loops
		debug: 0,
		databaseDirs: "examples", // example base directories (comma separated)
		database: "examples", // examples, apps, saved
		example: "cpcbasic",
		exampleIndex: "0index.js", // example index for every exampleDir
		input: "", // keyboard input when starting the app
		kbdLayout: "alphanum", // alphanum, alpha, num
		random: "cpc", // cpc or minstd (legacy Park-Miller generator)
		showInput: true,
		showInp2: false,
		showCpc: true,
		showKbd: false,
		showKbdLayout: false,
		showOutput: false,
		showResult: false,
		showText: false,
		showVariable: false,
		showConsole: false,
		sound: true,
		tron: false, // trace on
		redirectExamples: {}
	},
	model: null,
	view: null,
	controller: null,

	fnHereDoc: function (fn) {
		return String(fn).
			replace(/^[^/]+\/\*\S*/, "").
			replace(/\*\/[^/]+$/, "");
	},

	addIndex: function (sDir, input) {
		var tmp;

		if (typeof input === "function") {
			tmp = JSON.parse(this.fnHereDoc(input).trim());
			input = {};
			input[sDir] = tmp;
		}
		return cpcBasic.controller.addIndex(sDir, input);
	},

	addItem: function (sKey, input) {
		if (typeof input !== "string") {
			input = this.fnHereDoc(input);
		}
		return cpcBasic.controller.addItem(sKey, input);
	},

	addRsx: function (sKey, oRsxConstructor) {
		return cpcBasic.controller.addRsx(sKey, oRsxConstructor);
	},

	// https://stackoverflow.com/questions/901115/how-can-i-get-query-string-values-in-javascript
	fnParseUri: function (oConfig) {
		var aMatch,
			rPlus = /\+/g, // Regex for replacing addition symbol with a space
			rSearch = /([^&=]+)=?([^&]*)/g,
			fnDecode = function (s) { return decodeURIComponent(s.replace(rPlus, " ")); },
			sQuery = window.location.search.substring(1),
			sName,
			sValue;

		while ((aMatch = rSearch.exec(sQuery)) !== null) {
			sName = fnDecode(aMatch[1]);
			sValue = fnDecode(aMatch[2]);
			if (sValue !== null && oConfig.hasOwnProperty(sName)) {
				switch (typeof oConfig[sName]) {
				case "string":
					break;
				case "boolean":
					sValue = (sValue === "true");
					break;
				case "number":
					sValue = Number(sValue);
					break;
				case "object":
					break;
				default:
					break;
				}
			}
			oConfig[sName] = sValue;
		}
	},

	setDebugUtilsConsole: function (sCpcBasicLog) {
		var oCurrentConsole = Utils.console,
			oConsole = {
				consoleLog: {
					value: sCpcBasicLog || "" // already something collected?
				},
				console: oCurrentConsole,
				fnMapObjectProperties: function (arg) {
					var aRes, sKey, value;

					if (typeof arg === "object") {
						aRes = [];
						for (sKey in arg) { // eslint-disable-line guard-for-in
							// if (arg.hasOwnProperty(sKey)) {
							value = arg[sKey];
							if (typeof value !== "object" && typeof value !== "function") {
								aRes.push(sKey + ": " + value);
							}
						}
						arg = String(arg) + "{" + aRes.join(", ") + "}";
					}
					return arg;
				},
				rawLog: function (fnMethod, sLevel, aArgs) {
					if (sLevel) {
						aArgs.unshift(sLevel);
					}
					if (fnMethod) {
						if (fnMethod.apply) {
							fnMethod.apply(console, aArgs);
						}
					}
					if (this.consoleLog) {
						this.consoleLog.value += aArgs.map(this.fnMapObjectProperties).join(" ") + ((sLevel !== null) ? "\n" : "");
					}
				},
				log: function () {
					this.rawLog(this.console && this.console.log, "", Array.prototype.slice.call(arguments));
				},
				debug: function () {
					this.rawLog(this.console && this.console.debug, "DEBUG:", Array.prototype.slice.call(arguments));
				},
				info: function () {
					this.rawLog(this.console && this.console.info, "INFO:", Array.prototype.slice.call(arguments));
				},
				warn: function () {
					this.rawLog(this.console && this.console.warn, "WARN:", Array.prototype.slice.call(arguments));
				},
				error: function () {
					this.rawLog(this.console && this.console.error, "ERROR:", Array.prototype.slice.call(arguments));
				},
				changeLog: function (oLog) {
					var oldLog = this.consoleLog;

					this.consoleLog = oLog;
					if (oldLog && oldLog.value && oLog) { // some log entires collected?
						oLog.value += oldLog.value; // take collected log entries
					}
				}
			};

		Utils.console = oConsole;
	},

	fnRedirectExamples: function () {
		var redirectExamples = this.model.getProperty("redirectExamples"),
			name = this.model.getProperty("database") + "/" + this.model.getProperty("example");

		if (redirectExamples[name]) {
			this.model.setProperty("database", redirectExamples[name].database);
			this.model.setProperty("example", redirectExamples[name].example);
		}
	},

	fnDoStart: function () {
		var that = this,
			oStartConfig = this.config,
			sCpcBasicLog, oInitialConfig, iDebug;

		Object.assign(oStartConfig, cpcconfig || {}); // merge external config from cpcconfig.js
		oInitialConfig = Object.assign({}, oStartConfig); // save config
		this.fnParseUri(oStartConfig); // modify config with URL parameters
		this.model = new Model(oStartConfig, oInitialConfig);
		this.view = new View({});

		iDebug = Number(this.model.getProperty("debug"));
		Utils.debug = iDebug;

		if (Utils.console.cpcBasicLog) {
			sCpcBasicLog = Utils.console.cpcBasicLog;
			Utils.console.cpcBasicLog = null; // do not log any more to dummy console
		}

		if (Utils.debug > 1 && this.model.getProperty("showConsole")) { // console log window?
			this.setDebugUtilsConsole(sCpcBasicLog);
			Utils.console.log("CPCBasic log started at", Utils.dateFormat(new Date()));
			Utils.console.changeLog(document.getElementById("consoleText"));
		}

		this.fnRedirectExamples();

		that.controller = new Controller(this.model, this.view);
	},

	fnOnLoad: function () {
		Utils.console.log("CPCBasic started at", Utils.dateFormat(new Date()));
		this.fnDoStart();
	}
};


cpcBasic.fnOnLoad(); // if cpcbasic.js is the last script, we do not need to wait for window.onload