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

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";
//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)

3
rcbasic_build/rc_builtin.h
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);

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);
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);

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
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$ );