mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-09 14:15:12 +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;
|
screen_hide=1;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
int32 func__screenhide(){return -screen_hide;}
|
||||||
|
|
||||||
void sub__consoletitle(qbs* s){
|
void sub__consoletitle(qbs* s){
|
||||||
if (new_error) return;
|
if (new_error) return;
|
||||||
static qbs *sz=NULL; if (!sz) sz=qbs_new(0,0);
|
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__consoletitle(qbs*);
|
||||||
extern void sub__screenshow();
|
extern void sub__screenshow();
|
||||||
extern void sub__screenhide();
|
extern void sub__screenhide();
|
||||||
|
extern int32 func__screenhide();
|
||||||
extern void sub__console(int32);
|
extern void sub__console(int32);
|
||||||
extern int32 func__console();
|
extern int32 func__console();
|
||||||
extern void sub__controlchr(int32);
|
extern void sub__controlchr(int32);
|
||||||
|
|
|
@ -9012,16 +9012,15 @@ DO
|
||||||
GOTO redosemi
|
GOTO redosemi
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
'Values before Quote check will go here once my brain stops smoking from sorting out the other half
|
IF temp1$ <> "USING" THEN
|
||||||
'This will fix things like PRINT 123"xyz" to make it PRINT 123; xyz once it's implemented.
|
IF LEFT$(LTRIM$(nextchar$), 1) = CHR$(34) THEN
|
||||||
'Brain smoke clear; let's finish this up!
|
IF temp1$ <> ";" AND temp1$ <> "," AND temp1$ <> "+" AND temp1$ <> "(" THEN
|
||||||
IF LEFT$(LTRIM$(nextchar$), 1) = CHR$(34) THEN
|
insertelements a$, i, ";"
|
||||||
IF temp1$ <> ";" AND temp1$ <> "," AND temp1$ <> "+" AND temp1$ <> "(" THEN
|
insertelements ca$, i, ";"
|
||||||
insertelements a$, i, ";"
|
n = n + 1
|
||||||
insertelements ca$, i, ";"
|
elementon = i + 2 'just a easy way to reduce redundant calls to the routine
|
||||||
n = n + 1
|
GOTO redosemi
|
||||||
elementon = i + 2 'just a easy way to reduce redundant calls to the routine
|
END IF
|
||||||
GOTO redosemi
|
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
|
@ -241,6 +241,15 @@ id.callname = "sub__screenhide"
|
||||||
id.NoCloud = 1
|
id.NoCloud = 1
|
||||||
regid
|
regid
|
||||||
|
|
||||||
|
clearid
|
||||||
|
id.n = "_SCREENHIDE"
|
||||||
|
id.subfunc = 1
|
||||||
|
id.callname = "func__screenhide"
|
||||||
|
id.ret = LONGTYPE - ISPOINTER
|
||||||
|
id.NoCloud = 1
|
||||||
|
regid
|
||||||
|
|
||||||
|
|
||||||
clearid
|
clearid
|
||||||
id.n = "_CONSOLE"
|
id.n = "_CONSOLE"
|
||||||
id.subfunc = 1
|
id.subfunc = 1
|
||||||
|
|
Loading…
Reference in a new issue