Mercurial > repos > rhope
view runtime/main_mid.c @ 189:d0e3a13c1bd9 default tip
Remove old calculator example
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 07 Oct 2011 00:24:04 -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