memory.c

#include <stdlib.h>
#include <stdio.h>
#include "jscheme.h"

OBJ
newInteger(jscheme_int64 iVal){

	struct jschemeInteger *theJSInt;

	theJSInt = (struct jschemeInteger*)(malloc( sizeof( struct jschemeInteger)));
	theJSInt->tag = T_INTEGER;
	theJSInt->intVal = iVal;
	return (OBJ) theJSInt;
}

OBJ
newFileStream(FILE* file){

	struct jschemeFileStream *fileStream;

	fileStream = (struct jschemeFileStream*)(malloc( sizeof( struct jschemeFileStream)));
	fileStream->tag = T_FILESTREAM;
	fileStream->file = file;
	fileStream->peekChar = 0;

	return (OBJ)fileStream;
}

OBJ
newStringStream(char *buffer){

	struct jschemeStringStream *stringStream;

	stringStream = (struct jschemeStringStream*)(malloc( sizeof( struct jschemeStringStream)));
	stringStream->tag = T_STRINGSTREAM;
	stringStream->buffer = buffer;
	stringStream->index = 0;

	return (OBJ)stringStream;
}

OBJ
newSymbol(char *chars){

	struct jschemeSymbol *theSymbol;

	theSymbol = (struct jschemeSymbol*)(malloc( sizeof( struct jschemeSymbol)));
	theSymbol->tag = T_SYMBOL;
	theSymbol->symbolVal = chars;

	return (OBJ)theSymbol;
}

OBJ
newString(char *chars){

	struct jschemeString *theString;

	theString = (struct jschemeString*)(malloc( sizeof( struct jschemeString)));
	theString->tag = T_STRING;
	theString->stringVal = chars;

	return (OBJ)theString;
}

OBJ
newCons(OBJ car, OBJ cdr){

	struct jschemeCons *theCons;
	theCons = (struct jschemeCons*)(malloc( sizeof( struct jschemeCons)));
	theCons->tag = T_CONS;
	theCons->car = car;
	theCons->cdr = cdr;

	return (OBJ) theCons;
}

OBJ
newBuiltinFunction(char *internalName, OBJFUNC theCode){
	
	struct jsBuiltinFunction *theFunction;
	theFunction = (struct jsBuiltinFunction *)(malloc( sizeof(struct jsBuiltinFunction)));
	theFunction->tag = T_BUILTINFUNCTION;
	theFunction->internalName = internalName;
	theFunction->theCode = theCode;
	
	return (OBJ) theFunction;	
}

OBJ
newBuiltinSyntax(char *internalName, OBJFUNC theCode){
	
	struct jsBuiltinSyntax *theSyntax;
	theSyntax = (struct jsBuiltinSyntax *)(malloc( sizeof(struct jsBuiltinSyntax)));
	theSyntax->tag = T_BUILTINSYNTAX;
	theSyntax->internalName = internalName;
	theSyntax->theCode = theCode;
	
	return (OBJ) theSyntax;	
}

OBJ
CP_newBuiltinSyntax(char *internalName, VOIDPTRFUNC theCode){
	
	struct CP_jsBuiltinSyntax *theSyntax;
	theSyntax = (struct CP_jsBuiltinSyntax *)(malloc( sizeof(struct CP_jsBuiltinSyntax)));
	theSyntax->tag = T_BUILTINSYNTAX;
	theSyntax->internalName = internalName;
	theSyntax->theCode = theCode;
	
	return (OBJ) theSyntax;	
}

// length helper method
int
length(OBJ list) {
	int len = 0;

	while( list != js_nil){
		if( !ISCONS(list)){
			js_error("bad element in list", list);	
		}
		len++;
		list = CDR(list);
	}
	return len;
}

OBJ
newUserDefinedFunction(char *internalName, OBJ argList, OBJ bodyList){

	struct jsUserDefinedFunction *theUDF;
	theUDF = (struct jsUserDefinedFunction *)(malloc (sizeof(struct jsUserDefinedFunction)));
	theUDF->tag = T_USERDEFINEDFUNCTION;
	theUDF->internalName = internalName;
	theUDF->argList = argList;
	theUDF->bodyList = bodyList;
	theUDF->numArgs = length(argList);
	theUDF->home = js_nil;

	return (OBJ) theUDF;
}

const char* tag_lookup[15] = {
	"T_NIL",
	"T_TRUE",
	"T_FALSE",
	"T_INTEGER",
	"T_SYMBOL",
	"T_STRING",
	"T_FILESTREAM",
	"T_STRINGSTREAM",
	"T_CONS",
	"T_BUILTINFUNCTION",
	"T_BUILTINSYNTAX",
	"T_VOID",
	"T_GLOBALENVIRONMENT",
	"T_LOCALENVIRONMENT",
	"T_USERDEFINEDFUNCTION",
};