QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-03 11:11:20 +00:00
Code Issues Releases Wiki Activity

Fix to PRINT text$; USING format$; values

Browse source 
Added _SCREENHIDE as a FUNCTION to return 0/-1 if the screen is hidden or not.
This commit is contained in:
SMcNeill 2015-08-01 22:41:48 -04:00
parent 5f4363174f
commit ea20dad4a9
4 changed files with 21 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
internal/c/libqb.cpp
View file

@ -28464,6 +28464,8 @@ void sub__maptriangle(int32 cull_options,float sx1,float sy1,float sx2,float sy2
screen_hide=1;
}
int32 func__screenhide(){return -screen_hide;}
void sub__consoletitle(qbs* s){
if (new_error) return;
static qbs *sz=NULL; if (!sz) sz=qbs_new(0,0);

1
internal/c/qbx.cpp
View file

@ -183,6 +183,7 @@ extern void sub_shell3(qbs *str,int32 passed);
extern void sub__consoletitle(qbs*);
extern void sub__screenshow();
extern void sub__screenhide();
extern int32 func__screenhide();
extern void sub__console(int32);
extern int32 func__console();
extern void sub__controlchr(int32);

19
source/qb64.bas
View file

@ -9012,16 +9012,15 @@ DO
GOTO redosemi
END IF
END IF
'Values before Quote check will go here once my brain stops smoking from sorting out the other half
'This will fix things like PRINT 123"xyz" to make it PRINT 123; xyz once it's implemented.
'Brain smoke clear; let's finish this up!
IF LEFT$(LTRIM$(nextchar$), 1) = CHR$(34) THEN
IF temp1$ <> ";" AND temp1$ <> "," AND temp1$ <> "+" AND temp1$ <> "(" THEN
insertelements a$, i, ";"
insertelements ca$, i, ";"
n = n + 1
elementon = i + 2 'just a easy way to reduce redundant calls to the routine
GOTO redosemi
IF temp1$ <> "USING" THEN
IF LEFT$(LTRIM$(nextchar$), 1) = CHR$(34) THEN
IF temp1$ <> ";" AND temp1$ <> "," AND temp1$ <> "+" AND temp1$ <> "(" THEN
insertelements a$, i, ";"
insertelements ca$, i, ";"
n = n + 1
elementon = i + 2 'just a easy way to reduce redundant calls to the routine
GOTO redosemi
END IF
END IF
END IF
END IF

9
source/subs_functions/subs_functions.bas
View file

@ -241,6 +241,15 @@ id.callname = "sub__screenhide"
id.NoCloud = 1
regid
clearid
id.n = "_SCREENHIDE"
id.subfunc = 1
id.callname = "func__screenhide"
id.ret = LONGTYPE - ISPOINTER
id.NoCloud = 1
regid
clearid
id.n = "_CONSOLE"
id.subfunc = 1