view runtime/main_mid.c @ 188:170ad9cb6384

Remove obsolete interpreter related stuff
author Mike Pavone <pavone@retrodev.com>
date Fri, 07 Oct 2011 00:22:31 -0700
parents ba35ab624ec2
children
line wrap: on
line source

#ifdef RAW_FUNC
	ret = f_List(0, inout);
	inout[0] = ret.retvals[0];
	for (idx = 0; idx < argc; ++idx)
	{
		inout[1] = make_String(argv[idx]);
		ret = f_Append(2, inout);
		inout[0] = ret.retvals[0];
	}
	ret = f_Main(1, inout);
	numret = ret.num_ret;
	if (numret)
		inout[0] = ret.retvals[0];
#else

	rhope(FUNC_List, inout, 0, 1);
	for (idx = 0; idx < argc; ++idx)
	{
		inout[1] = make_String(argv[idx]);
		rhope(FUNC_Append, inout, 2, 2);
	}
	numret = rhope(FUNC_Main, inout, 1, 1);
#endif