QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

Fixes #172.

Browse source
This commit is contained in:
FellippeHeitor 2021-07-15 02:32:03 -03:00
parent b9d96a62bc
commit 68eb0b649c
2 changed files with 57 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
setup_devbuild.bat Normal file
View file

@ -0,0 +1,42 @@
@echo off
setlocal
echo QB64 Working Tree Setup
echo.
del /q /s qb64dev.exe >nul 2>nul
del /q /s internal\temp\*.* >nul 2>nul
if exist internal\c\c_compiler\bin\c++.exe goto skipccompsetup
cd internal\c
reg Query "HKLM\Hardware\Description\System\CentralProcessor\0" | find /i "x86" > NUL && set MINGW=mingw32 || set MINGW=mingw64
echo Using %MINGW% as C++ Compiler
ren %MINGW% c_compiler
cd ../..
:skipccompsetup
echo Building 'QB64', dev build...
qb64 -z source\qb64.bas
copy source\qb64.ico internal\temp\ >nul
copy source\icon.rc internal\temp\ >nul
cd internal\c
c_compiler\bin\windres.exe -i ..\temp\icon.rc -o ..\temp\icon.o
c_compiler\bin\g++ -mconsole -s -Wfatal-errors -w -Wall qbx.cpp libqb\os\win\libqb_setup.o ..\temp\icon.o -D DEPENDENCY_LOADFONT parts\video\font\ttf\os\win\src.o -D DEPENDENCY_SOCKETS -D DEPENDENCY_NO_PRINTER -D DEPENDENCY_ICON -D DEPENDENCY_NO_SCREENIMAGE parts\core\os\win\src.a -lopengl32 -lglu32 -mwindows -static-libgcc -static-libstdc++ -D GLEW_STATIC -D FREEGLUT_STATIC -lws2_32 -lwinmm -lgdi32 -o "..\..\qb64dev.exe"
cd ..\..
if exist qb64dev.exe goto success
color 4F
echo Compilation failed.
goto pauseit
:success
color 2F
echo.
echo Launching 'QB64', dev build...
qb64dev
goto done
:pauseit
echo.
pause
:done

17
source/ide/ide_methods.bas
View file

@ -10454,7 +10454,7 @@ FUNCTION idezchangepath$ (path$, newpath$)
END IF
'change drive
IF LEN(newpath$) = 2 AND RIGHT$(newpath$, 1) = ":" THEN
idezchangepath$ = newpath$
idezchangepath$ = newpath$ + "\"
EXIT FUNCTION
END IF
idezchangepath$ = path$ + "\" + newpath$
@ -13952,7 +13952,20 @@ SUB IdeMakeEditMenu
END SUB
SUB IdeAddRecent (f2$)
f$ = CRLF + f2$ + CRLF
f$ = f2$
x = INSTR(f$, "//")
DO WHILE x
f$ = LEFT$(f$, x - 1) + MID$(f$, x + 1)
x = INSTR(f$, "//")
LOOP
x = INSTR(f$, "\\")
DO WHILE x
f$ = LEFT$(f$, x - 1) + MID$(f$, x + 1)
x = INSTR(f$, "\\")
LOOP
f$ = CRLF + f$ + CRLF
fh = FREEFILE
OPEN ".\internal\temp\recent.bin" FOR BINARY AS #fh: a$ = SPACE$(LOF(fh)): GET #fh, , a$
x = INSTR(UCASE$(a$), UCASE$(f$))