indrajith/RCBASIC4
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added function changes to compiler and runtime

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

4
doc/doc_files/nav_bottom.html
View File

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

4
doc/files/readinput_gettext.txt Normal file
View File

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

6
rcbasic_build/main.cpp
View File

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

3
rcbasic_build/rc_builtin.h
View File

@@ -8,7 +8,6 @@ void init_embedded_functions()
add_embedded_arg("txt$", ID_TYPE_STR); add_embedded_arg("txt$", ID_TYPE_STR);
embed_function("Input$", ID_TYPE_FN_STR); embed_function("Input$", ID_TYPE_FN_STR);
add_embedded_arg("prompt$", ID_TYPE_STR); add_embedded_arg("prompt$", ID_TYPE_STR);
embed_function("tst", ID_TYPE_SUB);
embed_function("ArrayDim", ID_TYPE_FN_NUM); embed_function("ArrayDim", ID_TYPE_FN_NUM);
add_embedded_arg("id", ID_TYPE_BYREF_NUM); add_embedded_arg("id", ID_TYPE_BYREF_NUM);
embed_function("StringArrayDim", ID_TYPE_FN_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("HasClipboardText", ID_TYPE_FN_NUM);
embed_function("ReadInput_Start", ID_TYPE_SUB); embed_function("ReadInput_Start", ID_TYPE_SUB);
embed_function("ReadInput_Stop", 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); embed_function("ReadInput_SetText", ID_TYPE_SUB);
add_embedded_arg("txt$", ID_TYPE_STR); add_embedded_arg("txt$", ID_TYPE_STR);
embed_function("ReadInput_ToggleBackspace", ID_TYPE_SUB); embed_function("ReadInput_ToggleBackspace", ID_TYPE_SUB);

3
rcbasic_build/rcbasic_dev.txt
View File

@@ -2,7 +2,6 @@ embed_function("Fprint", ID_TYPE_SUB);
add_embedded_arg("txt$", ID_TYPE_STR); add_embedded_arg("txt$", ID_TYPE_STR);
embed_function("Input$", ID_TYPE_FN_STR); embed_function("Input$", ID_TYPE_FN_STR);
add_embedded_arg("prompt$", ID_TYPE_STR); add_embedded_arg("prompt$", ID_TYPE_STR);
embed_function("tst", ID_TYPE_SUB);
embed_function("ArrayDim", ID_TYPE_FN_NUM); embed_function("ArrayDim", ID_TYPE_FN_NUM);
add_embedded_arg("id", ID_TYPE_BYREF_NUM); add_embedded_arg("id", ID_TYPE_BYREF_NUM);
embed_function("StringArrayDim", ID_TYPE_FN_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("HasClipboardText", ID_TYPE_FN_NUM);
embed_function("ReadInput_Start", ID_TYPE_SUB); embed_function("ReadInput_Start", ID_TYPE_SUB);
embed_function("ReadInput_Stop", 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); embed_function("ReadInput_SetText", ID_TYPE_SUB);
add_embedded_arg("txt$", ID_TYPE_STR); add_embedded_arg("txt$", ID_TYPE_STR);
embed_function("ReadInput_ToggleBackspace", ID_TYPE_SUB); embed_function("ReadInput_ToggleBackspace", ID_TYPE_SUB);

1995
rcbasic_build/rcbasic_dev2.txt
View File

File diff suppressed because it is too large Load Diff

7
rcbasic_build/rcbasic_dev3.txt
View File

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

1995
rcbasic_runtime/rc_defines.h
View File

File diff suppressed because it is too large Load Diff

7
rcbasic_runtime/rc_func130_cases.h
View File

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

2
rcbasic_runtime/rc_gfx.h
View File

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

8
rcbasic_runtime/rcbasic_runtime.depend
View File

@@ -32,10 +32,10 @@
<irrtheora.h> <irrtheora.h>
"rc_func130_cases.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> <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 1730291453 /home/n00b/Projects/RCBASIC4/rcbasic_runtime/rc_stdlib.h
"rc_os_defines.h" "rc_os_defines.h"
@@ -1247,7 +1247,7 @@
1727545973 /home/n00b/Projects/RCBASIC4/rcbasic_runtime/RealisticWater.h 1727545973 /home/n00b/Projects/RCBASIC4/rcbasic_runtime/RealisticWater.h
<irrlicht.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" "SDL.h"
<SDL2/SDL.h> <SDL2/SDL.h>
<irrlicht.h> <irrlicht.h>
@@ -2272,7 +2272,7 @@
"rc_gfx_core.h" "rc_gfx_core.h"
<irrtheora.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 1724469097 source:/home/n00b/Projects/irrBullet/src/irrBullet.cpp
"irrBullet.h" "irrBullet.h"