repos/tabletprog: cbackend.js comparison

comparison cbackend.js @ 121:1a4446f573d3

Add isInteger? method to the int32 type in the C backend

author	Mike Pavone <pavone@retrodev.com>
date	Thu, 01 Aug 2013 19:10:48 -0700
parents	59a94f3ad56f
children	9820ecd4eed4

comparison

equal deleted inserted replaced

-:d5dc9507d612
+:1a4446f573d3
 var methodIds = {};
 function getMethodId(methodName)
 {
 	if (!(methodName in methodIds)) {
 		methodIds[methodName] = nextmethodId++;
 	}
 	return methodIds[methodName];
 }
 op.prototype.toC = function(isReceiver) {
 function getSymbolPrefix(info, symbols)
 {
 	var pre = '';
 	switch(info.type) {
 	case 'self':
 		pre = (new symbol('self', symbols)).toC() + '->';
 		break;
 	case 'parent':
 		pre = (new symbol('self', symbols)).toC() + '->header.';
 		for (var i = 0; i < info.depth; ++i) {
 		var init = this.init.slice(0, this.init.length);
 		init.push('return (object *)self;');
 		this.addMessage('_init', {
 			vars: {},
 			lines: init
 		});
 		this.initmsgadded = true;
 	}
 }
 cObject.prototype.populateSymbols = function() {};
 			for (var varname in this.slotvars[i]) {
 				slotdefs += '\t' + this.slotvars[i][varname] + ' ' + varname + ';\n';
 			}
 			if (this.slots[i].length == 1) {
 				slotdefs += '\tif (method_id == ' + this.slots[i][0][0] + ') { /* ' + this.slots[i][0][2] + '*/\n' +
 					'\t\t' + this.slots[i][0][1] + '\n' +
 					'\t}\n' +
 					'\treturn no_impl(method_id, num_params, (object *)self, args);\n}\n';
 			} else {
 				slotdefs += '\tswitch(method_id) {\n';
 				for (j in this.slots[i]) {
 					slotdefs += '\t\tcase ' + this.slots[i][j][0] + ': /* ' + this.slots[i][j][2] + '*/\n' +
 						'\t\t\t' + this.slots[i][j][1] + '\n';
 				}
 				slotdefs += '\t\tdefault:\n' +
 					'\t\t\treturn no_impl(method_id, num_params, (object *)self, args);\n\t}\n}\n';
 			}
 			metadef += this.name + '_slot_' + i;
 		} else {
 			metadef += 'no_impl';
 		}
 				me.addMessage(msgname, {
 					vars: vars,
 					lines: messages[i].args[2].toCLines(vars, true)
 				});
 			} else {
 				throw new Error('Only import and import:from calls allowed in object context. ' + messages[i].name + 'with ' + messages[i].args.length + ' arguments found instead.');
 			}
 		} else {
 			messages[i].toCObject(me);
 		}
 			'sprintf(str->data, "%d", self->num);',
 			'str->len = str->bytes = strlen(str->data);',
 			'return &(str->header);'
 		]
 	});
+	int32.addMessage('isInteger?', {
+		vars: {},
+		lines: [
+			'return ' + toplevel.moduleVar('true') + ';'
+		]
+	});
 	int32.addMessage('hash', {
 		vars: {},
 		lines: [
 			'return &(self->header);'
 		]
 modulefile.prototype.toC = function(){
 	return this.ast.toCModuleInstance();
 };
 function processUsedToplevel(toplevel)
 {
 	var alwaysused = ['true', 'false'];
 	var ret = '';
 	var modulenum = 0;
 	var visited = {};
 	for (var i in alwaysused) {
 				newused.push(symbol);
 				allused.push(symbol);
 			}
 		}
 	}
 	for (var i = allused.length-1; i >= 0; i--) {
 		var symbol = allused[i];
 		debugprint('//---module', symbol, '(' + i +')--- compile');
 		ret += '\t' + toplevel.moduleVar(symbol) + ' = ' + toplevel.names[symbol].toC() + ';\n';
 	}
 	} else {
 		var offset = 0;
 	}
 	for (var i = 0; i < args.length; ++i) {
 		var argname = args[i].toC();
 		args[i] = (argname.indexOf('->') < 0 ? '\tobject * ' : '\t') + argname + ' = va_arg(args, object *);\n';
 	}
 	var compiled = []
 	for (var i in exprs) {
 		var js = exprs[i].toC();
 	}
 	exprs = compiled;
 	if (exprs.length) {
 		exprs[exprs.length-1] = 'return (object *)(' + exprs[exprs.length-1] + ');';
 	}
 	if (Object.keys(this.symbols.closedover).length) {
 		forwarddec += 'struct ' + this.name + '_env {\n';
 		if (this.symbols.needsParentEnv) {
 			forwarddec += '\tstruct ' + this.symbols.parentEnvType() + ' * parent;\n';
 		}
 			} else {
 				forwarddec += '\tobject * ' + escapeCName(varname) + ';\n';
 			}
 		}
 		forwarddec += '};\n'
 		var myenvinit = '\t' + this.name + '_env * myenv = GC_MALLOC(sizeof(' + this.name + '_env));\n';
 		if (this.symbols.needsParentEnv) {
 			myenvinit += '\tmyenv->parent = env;\n';
 		}
 		this.symbols.envtype = this.name + '_env';
 	} else {
 		var myenvinit = '';
 	}
 	forwarddec += 'object *' + this.name + ' (' + this.symbols.parentEnvType() + ' * env, uint32_t num_args, ...);\n';
 	toplevelcode +=  'object * ' + this.name + ' ( ' + this.symbols.parentEnvType() + ' * env, uint32_t num_args, ...) {\n\tva_list args;\n' + myenvinit + '\tva_start(args, num_args);\n';
 	if (this.selftype) {
 		var selfvar = (new symbol('self', this.symbols)).toC();
 		if (selfvar == 'self') {
 			toplevelcode += '\t' + this.selftype + ' * self = va_arg(args, ' + this.selftype + ' *);\n';
 		} else {
 			toplevelcode += '\t' + selfvar  + ' = va_arg(args, ' + this.selftype + ' *);\n';
 		}
 	}
 	toplevelcode += args.join('') + '\tva_end(args);\n' + exprs.join(';\n\t') + '\n}\n';
 	if (this.selftype) {
 		return this.name;
 	} else {
 		if (this.symbols.parentEnvType() != 'void') {
 			if (this.symbols.parent.passthruenv) {
 			} else {
 				var envvar = 'myenv';
 			}
 			debugprint('//' + this.name, 'has envvar:', envvar, 'num vars closed over:', Object.keys(this.symbols.closedover).length);
 			return 'make_lambda(' + envvar + ', (closure_func)' + this.name + ')';
 		} else {
 			toplevelcode += 'lambda ' + this.name + '_obj = {{&lambda_meta, NULL}, NULL, lambda_' + mynum + '};\n';
 			return '((object *)&' + this.name + '_obj)';
 		}
 	}
 };