Added function changes to compiler and runtime

This commit is contained in:
n00b
2024-11-23 15:54:12 -05:00
parent a2363aa63a
commit 26f89808ba
11 changed files with 2014 additions and 2020 deletions

View File

@@ -85,8 +85,6 @@ ul, #myUL {
<li><a href="input.html" target="main">Input$</a></li>
<li><a href="tst.html" target="main">tst</a></li>
</ul>
</li>
@@ -1149,7 +1147,7 @@ ul, #myUL {
<li><a href="readinput_stop.html" target="main">ReadInput_Stop</a></li>
<li><a href="readinput_text.html" target="main">ReadInput_Text$</a></li>
<li><a href="readinput_gettext.html" target="main">ReadInput_GetText$</a></li>
<li><a href="readinput_settext.html" target="main">ReadInput_SetText</a></li>

View File

@@ -0,0 +1,4 @@
#title ReadInput_GetText$ [RCBasic Doc]
#header function ReadInput_GetText$()

View File

@@ -922,6 +922,8 @@ int main(int argc, char * argv[])
//rc_filename = "/home/n00b/Projects/RCBASIC4/rcbasic_runtime/bin/Release/unittest.bas";
//DEBUG END
//enable_presets = true;
if(argc > 1)
rc_filename = argv[1];
@@ -935,12 +937,12 @@ int main(int argc, char * argv[])
if(cmd_arg.compare("--debug")==0)
{
cout << "DEBUG MODE" << endl;
//cout << "DEBUG MODE" << endl;
rcbasic_build_debug = true;
}
else if(cmd_arg.compare("--no-presets")==0)
{
cout << "DISABLE PRESETS" << endl;
//cout << "DISABLE PRESETS" << endl;
enable_presets = false;
}
else if(cmd_arg.compare("--no-clean")==0)

View File

@@ -8,7 +8,6 @@ void init_embedded_functions()
add_embedded_arg("txt$", ID_TYPE_STR);
embed_function("Input$", ID_TYPE_FN_STR);
add_embedded_arg("prompt$", ID_TYPE_STR);
embed_function("tst", ID_TYPE_SUB);
embed_function("ArrayDim", ID_TYPE_FN_NUM);
add_embedded_arg("id", ID_TYPE_BYREF_NUM);
embed_function("StringArrayDim", ID_TYPE_FN_NUM);
@@ -1275,7 +1274,7 @@ void init_embedded_functions()
embed_function("HasClipboardText", ID_TYPE_FN_NUM);
embed_function("ReadInput_Start", ID_TYPE_SUB);
embed_function("ReadInput_Stop", ID_TYPE_SUB);
embed_function("ReadInput_Text$", ID_TYPE_FN_STR);
embed_function("ReadInput_GetText$", ID_TYPE_FN_STR);
embed_function("ReadInput_SetText", ID_TYPE_SUB);
add_embedded_arg("txt$", ID_TYPE_STR);
embed_function("ReadInput_ToggleBackspace", ID_TYPE_SUB);

View File

@@ -2,7 +2,6 @@ embed_function("Fprint", ID_TYPE_SUB);
add_embedded_arg("txt$", ID_TYPE_STR);
embed_function("Input$", ID_TYPE_FN_STR);
add_embedded_arg("prompt$", ID_TYPE_STR);
embed_function("tst", ID_TYPE_SUB);
embed_function("ArrayDim", ID_TYPE_FN_NUM);
add_embedded_arg("id", ID_TYPE_BYREF_NUM);
embed_function("StringArrayDim", ID_TYPE_FN_NUM);
@@ -1269,7 +1268,7 @@ add_embedded_arg("txt$", ID_TYPE_STR);
embed_function("HasClipboardText", ID_TYPE_FN_NUM);
embed_function("ReadInput_Start", ID_TYPE_SUB);
embed_function("ReadInput_Stop", ID_TYPE_SUB);
embed_function("ReadInput_Text$", ID_TYPE_FN_STR);
embed_function("ReadInput_GetText$", ID_TYPE_FN_STR);
embed_function("ReadInput_SetText", ID_TYPE_SUB);
add_embedded_arg("txt$", ID_TYPE_STR);
embed_function("ReadInput_ToggleBackspace", ID_TYPE_SUB);

File diff suppressed because it is too large Load Diff

View File

@@ -4,9 +4,6 @@ case FN_Fprint: //Sub Procedure
case FN_Input$: //String Function
rc_push_str(rc_input( INPUT$_PROMPT$ ));
break;
case FN_tst: //Sub Procedure
rc_tst( );
break;
case FN_ArrayDim: //Number Function
//DUMMY CASE
@@ -1364,8 +1361,8 @@ case FN_ReadInput_Start: //Sub Procedure
case FN_ReadInput_Stop: //Sub Procedure
rc_readInput_Stop( );
break;
case FN_ReadInput_Text$: //String Function
rc_push_str(rc_readInput_Text( ));
case FN_ReadInput_GetText$: //String Function
rc_push_str(rc_readInput_GetText( ));
break;
case FN_ReadInput_SetText: //Sub Procedure
rc_readInput_SetText( READINPUT_SETTEXT_TXT$ );

File diff suppressed because it is too large Load Diff

View File

@@ -4,9 +4,6 @@ case FN_Fprint: //Sub Procedure
case FN_Input$: //String Function
rc_push_str(rc_input( INPUT$_PROMPT$ ));
break;
case FN_tst: //Sub Procedure
rc_tst( );
break;
case FN_ArrayDim: //Number Function
//DUMMY CASE
@@ -1364,8 +1361,8 @@ case FN_ReadInput_Start: //Sub Procedure
case FN_ReadInput_Stop: //Sub Procedure
rc_readInput_Stop( );
break;
case FN_ReadInput_Text$: //String Function
rc_push_str(rc_readInput_Text( ));
case FN_ReadInput_GetText$: //String Function
rc_push_str(rc_readInput_GetText( ));
break;
case FN_ReadInput_SetText: //Sub Procedure
rc_readInput_SetText( READINPUT_SETTEXT_TXT$ );

View File

@@ -2185,7 +2185,7 @@ void rc_readInput_Stop()
SDL_StopTextInput();
}
std::string rc_readInput_Text()
std::string rc_readInput_GetText()
{
return rc_textinput_string;
}

View File

@@ -32,10 +32,10 @@
<irrtheora.h>
"rc_func130_cases.h"
1731732087 /home/n00b/Projects/RCBASIC4/rcbasic_runtime/rc_os_defines.h
1732373037 /home/n00b/Projects/RCBASIC4/rcbasic_runtime/rc_os_defines.h
<TargetConditionals.h>
1731903073 /home/n00b/Projects/RCBASIC4/rcbasic_runtime/rc_defines.h
1732393499 /home/n00b/Projects/RCBASIC4/rcbasic_runtime/rc_defines.h
1730291453 /home/n00b/Projects/RCBASIC4/rcbasic_runtime/rc_stdlib.h
"rc_os_defines.h"
@@ -1247,7 +1247,7 @@
1727545973 /home/n00b/Projects/RCBASIC4/rcbasic_runtime/RealisticWater.h
<irrlicht.h>
1732372520 /home/n00b/Projects/RCBASIC4/rcbasic_runtime/rc_gfx.h
1732393902 /home/n00b/Projects/RCBASIC4/rcbasic_runtime/rc_gfx.h
"SDL.h"
<SDL2/SDL.h>
<irrlicht.h>
@@ -2272,7 +2272,7 @@
"rc_gfx_core.h"
<irrtheora.h>
1731903073 /home/n00b/Projects/RCBASIC4/rcbasic_runtime/rc_func130_cases.h
1732393499 /home/n00b/Projects/RCBASIC4/rcbasic_runtime/rc_func130_cases.h
1724469097 source:/home/n00b/Projects/irrBullet/src/irrBullet.cpp
"irrBullet.h"