repos/tabletprog: interp.js comparison

comparison interp.js @ 210:d0848563f25d

Fix some bugs and allow proper access to list literals in interpreter/macro expander

author	Mike Pavone <pavone@retrodev.com>
date	Sat, 30 Nov 2013 15:03:47 -0800
parents	4b3b57f39f10
children	e00a8bc6361b

comparison

equal deleted inserted replaced

-:4b3b57f39f10
+:d0848563f25d
 	return ret;
 };
 var tptrue = null;
 var tpfalse = null;
+var tplist = null;
 function topenv(moduledirs)
 {
 	this.names = {};
 	this.modules = {};
 		tpfalse = this.find('false');
 		tpfalse.valueOf = function() {
 			return false;
 		};
 	}
+	if (!tplist) {
+		tplist = this.find('list');
+		if (tplist instanceof Function) {
+			tplist = tplist.call(null);
+		}
+	}
 }
 topenv.prototype = {
 	find: function(name) {
 		if (name in this.modules) {
 };
 symbol.prototype.macroexpand =
 	intlit.prototype.macroexpand =
 	floatlit.prototype.macroexpand =
-	strlit.prototype.macroexpand =
+	strlit.prototype.macroexpand = function(env) {
-	arraylit.prototype.macroexpand =
+	return this;
+};
+arraylit.prototype.macroexpand =
 	listlit.prototype.macroexpand = function(env) {
+	for (var i = 0; i < this.val.length; i++) {
+		this.val[i] = this.val[i].macroexpand(env);
+	}
 	return this;
 };
 intlit.prototype.quote =
 	floatlit.prototype.quote =
 };
 intlit.prototype.tpmeth_value =
 	floatlit.prototype.tpmeth_value =
 	strlit.prototype.tpmeth_value =
-	arraylit.prototype.tpmeth_value =
+	arraylit.prototype.tpmeth_value = function() {
-	listlit.prototype.tpmeth_value = function() {
 	return this.val;
-}
+};
+listlit.prototype.tpmeth_value = function() {
+	var cur = tplist.tpmeth_empty();
+	for (var idx = this.val.length - 1; idx >= 0; --idx) {
+		cur = tplist['tpmeth_node:withTail'](this.val[idx], cur);
+	}
+	return cur;
+};
 funcall.prototype.eval = function(env) {
 	var args = [];
 	var name = this.name;
 	if (name[name.length-1] == ":") {
 			return args[2].call(null);
 		}
 		return args[1].call(null, res);
 	}
 	var fun = env.findNoTop(name);
-	if (fun) {
+	if (fun && (fun.numargs === undefined || fun.numargs == args.length)) {
 		return fun.apply(null, args);
 	} else {
 		//if (typeof args[0]'tpmeth_'+name in args[0]) {
 			try {
 				return args[0]['tpmeth_'+name].apply(args[0], args.slice(1));
 			} catch(e) {
-				throw new Error('Error, \n\t' + e.message.split('\n').join('\n\t') + '\ninvoking method ' + name + ' on object ' + args[0]);
+				var msg = 'Error, \n\t' + e.message.split('\n').join('\n\t') + '\ninvoking method ' + name + ' on object ' + args[0];
+				if (typeof args[0] == 'object') {
+					msg += ' with keys ' + JSON.stringify(Object.keys(args[0]) + ' and constructor ' + args[0].constructor.name);
+				}
+				throw new Error(msg);
 			}
 		/*} else {JSON.stringify
 			throw new Error('No method named ' + name + ' on object ' + JSON.stringify(args[0]));
 		}*/
 	}
 		if (msg instanceof assignment) {
 			if (msg.expression instanceof lambda) {
 				obj['tpmeth_' + msg.symbol.name] = msg.expression.eval(env);
 				(function(name) {
 					env.syms[name] = function() {
-						return obj['tpmeth_' + name].apply(obj, arguments);
+						var ret = obj['tpmeth_' + name].apply(obj, arguments);
+						return ret;
 					};
+					env.syms[name].numargs = msg.expression.numArgs();
 				})(msg.symbol.name);
 			} else {
 				var makeProp = function(obj, name) {
 					obj['tprop_' + name] = msg.expression.eval(env);
-					name = 'tpmeth_' + name;
+					obj['tpmeth_' + name] = function() {
-					obj[name] = function() {
+						return this['tprop_'+name];
-						return this[name];
 					};
 					var setname = name+'!';
-					obj[setname] = function(val) {
+					obj['tpmeth_' + setname] = function(val) {
-						this[setname] = val;
+						this['tprop_'+name] = val;
 						return this;
 					};
 				};
 				makeProp(obj, msg.symbol.name);
 			}
 						if (!obj['tpmeth_' + name]) {
 							obj['tpmeth_' + name] = expr.eval(env);
 						}
 						return obj['tpmeth_' + name].apply(obj, arguments);
 					};
+					env.syms[name].numargs = expr.numArgs();
 				})(msg.symbol.name, msg.expression);
 				outmessages.push(msg);
 			} else if (msg.expression instanceof funcall && msg.expression.name == 'macro:') {
 				env.defMacro(msg.symbol.name, msg.expression.args[0].eval(env));
 			} else {
 			while (j < args.length && args[j].cleanName() == 'self') {
 				j++;
 			}
 			env.syms[args[j].cleanName()] = arguments[i];
 		}
-		if (this != null && !(args.length == 0 || args[0].cleanName() != 'self')) {
+		if (this != null) {
 			env.syms['self'] = this;
 		}
 		var res = null;
 		for (var i = 0; i < exprs.length; i++) {
 			res = exprs[i].eval(env);
 		expressions.push(this.expressions[i].quote(env));
 	}
 	return new lambda(args, expressions);
 };
+lambda.prototype.numArgs = function() {
+	var num = this.args.length;
+	if (num && (this.args[0].cleanName() == 'self')) {
+		--num;
+	}
+	return num;
+};
 lambda.prototype.tpmeth_nodeType = function() {
 	return "lambda";
 };
 assignment.prototype.eval = function(env) {