mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-05 22:50:23 +00:00
Fix to PRINT text$; USING format$; values
Added _SCREENHIDE as a FUNCTION to return 0/-1 if the screen is hidden or not.
This commit is contained in:
parent
5f4363174f
commit
ea20dad4a9
|
@ -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);
|
||||
|
|
|
@ -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);
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue