QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 08:51:22 +00:00
Code Releases Wiki Activity

Changed QB64.bas to use BINARY for LINE INPUT files fot the performance increase.

Browse source 
Added new _SCREENEXISTS command to see if a screen has been made yet for the user.
Fixed the string < comparison bug.
This commit is contained in:
SMcNeill 2014-07-28 08:34:00 -04:00
parent d3a9052604
commit 33f652e0cc
5 changed files with 31 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
internal/c/User Mods/Steve Stuff/screeninfo.cpp
View file

@ -12,4 +12,8 @@ void sub_screenicon () {
while (!window_exists){Sleep(100);}
glutIconifyWindow;
return;
}
int32 func_windowexists () {
return window_exists;
}

1
internal/c/User Mods/steve_mods.h
View file

@ -16,3 +16,4 @@ extern double func_grad2rad(double degree);
extern double func_pi();
extern int32 func_screenwidth();
extern int32 func_screenheight();
int32 func_windowexists ();

4
internal/c/libqb.cpp
View file

@ -8414,11 +8414,11 @@ int32 qbs_lessthan(qbs *str1,qbs *str2){
static int32 i;
if (str1->len<=str2->len){
if (!str1->len) if (str2->len) return -1; else return 0;
i=memcmp(str1->chr,str2->chr,str1->len);
i=memcmp(str1->chr,str2->chr,str2->len);
if (i<0) return -1;
return 0;
}else{
i=memcmp(str1->chr,str2->chr,str2->len);
i=memcmp(str1->chr,str2->chr,str1->len);
if (i>=0) return 0;
return -1;
}

34
source/qb64.bas
View file

@ -34,7 +34,7 @@ DIM SHARED Refactor_Source AS STRING
DIM SHARED Refactor_Dest AS STRING
IF _FILEEXISTS("refactor.txt") THEN
fh = FREEFILE
OPEN "refactor.txt" FOR INPUT AS #fh
OPEN "refactor.txt" FOR BINARY AS #fh
LINE INPUT #fh, Refactor_Source
LINE INPUT #fh, Refactor_Dest
CLOSE fh
@ -216,7 +216,7 @@ tempfolderindex = i
IF i > 1 THEN
'create modified version of qbx.cpp
OPEN ".\internal\c\qbx" + str2$(i) + ".cpp" FOR OUTPUT AS #2
OPEN ".\internal\c\qbx.cpp" FOR INPUT AS #1
OPEN ".\internal\c\qbx.cpp" FOR BINARY AS #1
DO UNTIL EOF(1)
LINE INPUT #1, a$
x = INSTR(a$, "..\\temp\\"): IF x THEN a$ = LEFT$(a$, x - 1) + "..\\temp" + str2$(i) + "\\" + RIGHT$(a$, LEN(a$) - (x + 9))
@ -2488,7 +2488,7 @@ DO
IF try = 2 THEN f$ = a$
IF _FILEEXISTS(f$) THEN
qberrorhappened = -3
'We're using the faster LINE INPUT, which requires a BINARY open.
'We're using the faster LINE INPUT, which requires a BINARY open.
OPEN f$ FOR BINARY AS #fh
'And another line below edited
qberrorhappened3:
@ -9802,7 +9802,7 @@ DO
IF try = 2 THEN f$ = a$
IF _FILEEXISTS(f$) THEN
qberrorhappened = -2 '***
OPEN f$ FOR INPUT AS #fh
OPEN f$ FOR BINARY AS #fh
qberrorhappened2: '***
IF qberrorhappened = -2 THEN EXIT FOR '***
END IF
@ -10897,7 +10897,7 @@ IF os$ = "WIN" THEN
SHELL _HIDE "internal\c\c_compiler\bin\nm.exe " + CHR$(34) + ResolveStaticFunction_File(x) + CHR$(34) + " --demangle -g >internal\temp\nm_output.txt"
fh = FREEFILE
s$ = " " + ResolveStaticFunction_Name(x) + "("
OPEN "internal\temp\nm_output.txt" FOR INPUT AS #fh
OPEN "internal\temp\nm_output.txt" FOR BINARY AS #fh
DO UNTIL EOF(fh)
LINE INPUT #fh, a$
IF LEN(a$) THEN
@ -10922,7 +10922,7 @@ IF os$ = "WIN" THEN
IF n = 0 THEN 'attempt to locate simple function name without brackets
fh = FREEFILE
s$ = " " + ResolveStaticFunction_Name(x)
OPEN "internal\temp\nm_output.txt" FOR INPUT AS #fh
OPEN "internal\temp\nm_output.txt" FOR BINARY AS #fh
DO UNTIL EOF(fh)
LINE INPUT #fh, a$
IF LEN(a$) THEN
@ -10952,7 +10952,7 @@ IF os$ = "WIN" THEN
SHELL _HIDE "internal\c\c_compiler\bin\nm " + CHR$(34) + ResolveStaticFunction_File(x) + CHR$(34) + " -D --demangle -g >.\internal\temp\nm_output_dynamic.txt"
fh = FREEFILE
s$ = " " + ResolveStaticFunction_Name(x) + "("
OPEN "internal\temp\nm_output_dynamic.txt" FOR INPUT AS #fh
OPEN "internal\temp\nm_output_dynamic.txt" FOR BINARY AS #fh
DO UNTIL EOF(fh)
LINE INPUT #fh, a$
IF LEN(a$) THEN
@ -10978,7 +10978,7 @@ IF os$ = "WIN" THEN
IF n = 0 THEN 'a C dynamic object library?
fh = FREEFILE
s$ = " " + ResolveStaticFunction_Name(x)
OPEN "internal\temp\nm_output_dynamic.txt" FOR INPUT AS #fh
OPEN "internal\temp\nm_output_dynamic.txt" FOR BINARY AS #fh
DO UNTIL EOF(fh)
LINE INPUT #fh, a$
IF LEN(a$) THEN
@ -11010,7 +11010,7 @@ IF os$ = "WIN" THEN
IF inline_DATA = 0 THEN
IF DataOffset THEN
OPEN ".\internal\c\makedat_win.txt" FOR INPUT AS #150: LINE INPUT #150, a$: CLOSE #150
OPEN ".\internal\c\makedat_win.txt" FOR BINARY AS #150: LINE INPUT #150, a$: CLOSE #150
a$ = a$ + " " + tmpdir2$ + "data.bin " + tmpdir2$ + "data.o"
CHDIR ".\internal\c"
SHELL _HIDE a$
@ -11021,7 +11021,7 @@ IF os$ = "WIN" THEN
OPEN ".\internal\c\makeline_win.txt" FOR INPUT AS #150
OPEN ".\internal\c\makeline_win.txt" FOR BINARY AS #150
LINE INPUT #150, a$: a$ = GDB_Fix(a$)
CLOSE #150
IF RIGHT$(a$, 7) = " ..\..\" THEN a$ = LEFT$(a$, LEN(a$) - 6) 'makeline.txt patch (line will become unrequired in later versions)
@ -11126,7 +11126,7 @@ IF os$ = "LNX" THEN
IF MacOSX = 0 THEN 'C++ name demangling not supported in MacOSX
fh = FREEFILE
s$ = " " + ResolveStaticFunction_Name(x) + "("
OPEN "internal\temp\nm_output.txt" FOR INPUT AS #fh
OPEN "internal\temp\nm_output.txt" FOR BINARY AS #fh
DO UNTIL EOF(fh)
LINE INPUT #fh, a$
IF LEN(a$) THEN
@ -11153,7 +11153,7 @@ IF os$ = "LNX" THEN
fh = FREEFILE
s$ = " " + ResolveStaticFunction_Name(x): s2$ = s$
IF MacOSX THEN s$ = " _" + ResolveStaticFunction_Name(x) 'search for C mangled name
OPEN "internal\temp\nm_output.txt" FOR INPUT AS #fh
OPEN "internal\temp\nm_output.txt" FOR BINARY AS #fh
DO UNTIL EOF(fh)
LINE INPUT #fh, a$
IF LEN(a$) THEN
@ -11184,7 +11184,7 @@ IF os$ = "LNX" THEN
SHELL _HIDE "nm " + CHR$(34) + ResolveStaticFunction_File(x) + CHR$(34) + " -D --demangle -g >./internal/temp/nm_output_dynamic.txt 2>./internal/temp/nm_error.txt"
fh = FREEFILE
s$ = " " + ResolveStaticFunction_Name(x) + "("
OPEN "internal\temp\nm_output_dynamic.txt" FOR INPUT AS #fh
OPEN "internal\temp\nm_output_dynamic.txt" FOR BINARY AS #fh
DO UNTIL EOF(fh)
LINE INPUT #fh, a$
IF LEN(a$) THEN
@ -11210,7 +11210,7 @@ IF os$ = "LNX" THEN
IF n = 0 THEN 'a C dynamic object library?
fh = FREEFILE
s$ = " " + ResolveStaticFunction_Name(x)
OPEN "internal\temp\nm_output_dynamic.txt" FOR INPUT AS #fh
OPEN "internal\temp\nm_output_dynamic.txt" FOR BINARY AS #fh
DO UNTIL EOF(fh)
LINE INPUT #fh, a$
IF LEN(a$) THEN
@ -11244,7 +11244,7 @@ IF os$ = "LNX" THEN
IF inline_DATA = 0 THEN
IF DataOffset THEN
IF INSTR(_OS$, "[32BIT]") THEN b$ = "32" ELSE b$ = "64"
OPEN ".\internal\c\makedat_lnx" + b$ + ".txt" FOR INPUT AS #150: LINE INPUT #150, a$: CLOSE #150
OPEN ".\internal\c\makedat_lnx" + b$ + ".txt" FOR BINARY AS #150: LINE INPUT #150, a$: CLOSE #150
a$ = a$ + " " + tmpdir2$ + "data.bin " + tmpdir2$ + "data.o"
CHDIR ".\internal\c"
SHELL _HIDE a$
@ -21913,7 +21913,7 @@ CHDIR path$
bfh = FREEFILE
OPEN "build" + BATCHFILE_EXTENSION FOR INPUT AS #bfh
OPEN "build" + BATCHFILE_EXTENSION FOR BINARY AS #bfh
DO UNTIL EOF(bfh)
LINE INPUT #bfh, c$
use = 0
@ -22765,7 +22765,7 @@ IF UCASE$(LEFT$(t$, 4)) = "RUN:" THEN
CLOSE #f
SHELL _HIDE "QB64.exe -c " + tempfile$ + ".txt"
SHELL _HIDE tempfile$ + ".exe"
OPEN tempfile$ + ".txt" FOR INPUT AS #f
OPEN tempfile$ + ".txt" FOR BINARY AS #f
LINE INPUT #f, e$
CLOSE #f
IF _FILEEXISTS(tempfile$ + ".txt") THEN KILL tempfile$ + ".txt"

7
source/subs_functions/extensions/Steve Stuff-ID_Includes.bas
View file

@ -180,3 +180,10 @@ id.n = "_SCREENICON" 'name change to from _ICONIFYWINDOW to _SCREENICON to m
id.subfunc = 2
id.callname = "sub_screenicon"
regid
clearid
id.n = "_SCREENEXISTS"
id.subfunc = 1
id.callname = "func_windowexists"
regid