kolibrios/programs/cmm/lisp/stdcall.h

dword std_print(dword count, args)
{
	consoleInit();
	count = 1;
	WHILE(count)
	{
		con_printf stdcall (DSDWORD[args]);
		args+=4;
		count--;
	}
}

:dword std_set(dword count, args)
{
	dword name = 0;
	dword value = 0;
	WHILE(count>0)
	{
		name = DSDWORD[args];
		args += 4;
		value = DSDWORD[args];
		args += 4;
		variables.set(name, value);
		count-=2;
	}
}

:dword std_get(dword count, args)
{
	RETURN variables.get(DSDWORD[args]);
}

:dword std_str(dword count, args)
{
	dword tmp = 0;
	tmp = malloc(15);
	itoa_(tmp,DSDWORD[args]);
	RETURN tmp;
}

:dword std_add(dword count, args)
{
	dword ret = 0;
	WHILE(count)
	{
		ret += DSDWORD[args];
		args+=4;
		count--;
	}
	RETURN ret;
}

:dword std_sub(dword count, args)
{
	dword ret = 0;
	IF(count)
	{ 
		ret = DSDWORD[args];
		count--;
		args+=4;
	}
	WHILE(count)
	{
		ret -= DSDWORD[args];
		args+=4;
		count--;
	}
	RETURN ret;
}

void Init()
{
	functions.init(100);
	
	/* Console functions */
	
	
	/* String functions */
	functions.set("str", #std_str);
	
	/* System functions */
	functions.set("exit", #ExitProcess);
	
	/* Math functions */
	functions.set("+", #std_add);
	functions.set("-", #std_sub);
	
	/* Lisp functions */
	functions.set("set", #std_set);
	functions.set("get", #std_get);
	
	variables.init(100);
}

dword StdCall(dword count, name, args)
{
	dword tmp = 0;
	
	functions.get(name);
	IF(EAX) RETURN EAX(count, args);
	IF(!strcmp(name, "print"))
	{
		consoleInit();
		count = 1;
		WHILE(count)
		{
			con_printf stdcall (DSDWORD[args]);
			args += 4;
			count--;
		}
	}
	RETURN 0;
}