repos/tabletprog: cbackend.js comparison

comparison cbackend.js @ 58:7b454d100dc8

Add length method to array. Pass array of arguments to main method. Initialize parent field of environment struct for closures

author	Mike Pavone <pavone@retrodev.com>
date	Sat, 14 Jul 2012 00:35:50 -0700
parents	08ae75d90dc2
children	0fd06e077afe

comparison

equal deleted inserted replaced

-:08ae75d90dc2
+:7b454d100dc8
 			'}',
 			'self->data[self->size++] = va_arg(args, object *);',
 			'return &(self->header);'
 		]
 	});
+	array.addMessage('length', {
+		vars: {intret: 'obj_int32 *'},
+		lines: [
+			'intret = make_object(&obj_int32_meta, NULL, 0);',
+			'intret->num = self->size;',
+			'return intret;'
+		]
+	});
 	return array;
 }
 function makeString()
 {
 			'filedes = va_arg(args, obj_int32 *);',
 			'size = va_arg(args, obj_int32 *);',
 			'str = make_object(&string_meta, NULL, 0);',
 			'str->data = malloc(size->num + 1);',
 			'str->length = str->bytes = read(filedes->num, str->data, size->num);',
-			'str->data[str->bytes+1] = 0;',
+			'if (str->bytes < 0) { str->bytes = str->length = 0; }',
+			'str->data[str->bytes] = 0;',
 			'return str;'
 		]
 	});
 	os.addMessage('open', {
 		vars: {str: 'string *', flags: 'obj_int32 *', filedes: 'obj_int32 *', perm: 'obj_int32 *'},
 			}
 		}
 		forwarddec += '} lambda_' + mynum + '_env;\n'
 		var myenvinit = '\tlambda_' + mynum + '_env * myenv = malloc(sizeof(lambda_' + mynum + '_env));\n';
+		if (this.symbols.needsParentEnv) {
+			myenvinit += '\tmyenv->parent = env;\n';
+		}
 		this.symbols.envtype = 'lambda_' + mynum + '_env';
 	} else {
 		var myenvinit = '';
 	}