Skip to content

Commit 99cee19

Browse files
Merge pull request #669 from QB64-Phoenix-Edition/build-fixes
Build fixes
2 parents c025edf + a4b8f60 commit 99cee19

12 files changed

Lines changed: 22 additions & 191 deletions

File tree

‎.ci/make-dist.sh‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -8,8 +8,8 @@ ARCHIVE_ROOT=qb64pe
88
DIST_ROOT=./dist/$ARCHIVE_ROOT
99

1010
# populate internal/help from static download and updates from Wiki
11-
curl --silent --retry 5 -o ./help.zip https://qb64phoenix.com/qb64_files/help.zip
12-
unzip -oqq ./help.zip -d ./internal >/dev/null 2>&1 || true
11+
curl --silent --retry 3 -o ./help.zip https://qb64phoenix.com/qb64_files/help.zip
12+
unzip -oqq ./help.zip -d ./internal
1313
./qb64pe -u
1414
# end internal/help
1515

‎source/ide/wiki/wiki_methods.bas‎

Lines changed: 19 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -1150,12 +1150,16 @@ FUNCTION wikiDLPage$ (url$, timeout#)
11501150
'--- set default result & avoid side effects ---
11511151
wikiDLPage$ = ""
11521152
wik$ = url$: tio# = timeout#
1153+
redirDev$ = "/dev/null": IF INSTR(_OS$, "WIN") > 0 THEN redirDev$ = "NUL"
11531154
'--- request wiki page ---
11541155
retry:
1155-
ch& = _OPENCLIENT(wik$)
1156+
FOR r% = 1 TO 3
1157+
ch& = _OPENCLIENT(wik$)
1158+
IF ch& = 0 THEN _DELAY 5: ELSE EXIT FOR
1159+
NEXT r%
11561160
IF Help_Recaching < 2 THEN 'avoid messages for 'qb64pe -u' (build time update)
11571161
IF ch& = 0 AND LCASE$(LEFT$(wik$, 8)) = "https://" THEN
1158-
IF _SHELLHIDE("curl --version >NUL") <> 0 THEN
1162+
IF _SHELLHIDE("curl --version >" + redirDev$) <> 0 THEN
11591163
'no external curl available (see notes below)
11601164
IF _MESSAGEBOX("QB64-PE Help", "Can't make secure connection (https:) to Wiki, shall the IDE use unsecure (http:) instead?", "yesno", "warning") = 1 THEN
11611165
IF _MESSAGEBOX("QB64-PE Help", "Do you wanna save your choice permanently for the future?", "yesno", "question") = 1 THEN
@@ -1198,17 +1202,19 @@ FUNCTION wikiDLPage$ (url$, timeout#)
11981202
'and instead only give that information to people who complain about
11991203
'not working Wiki downloads in the Forum/Discord.
12001204
'--- check for curl ---
1201-
IF _SHELLHIDE("curl --version >NUL") = 0 THEN
1202-
'--- 1st restore https: protocol, if changed above ---
1203-
IF LCASE$(LEFT$(wik$, 7)) = "http://" THEN wik$ = "https://" + MID$(wik$, 8)
1204-
'--- issue curl request ---
1205-
responseFile$ = Cache_Folder$ + "/curlResponse.txt"
1206-
SHELL _HIDE "curl --silent -o " + CHR$(34) + responseFile$ + CHR$(34) + " " + CHR$(34) + wik$ + CHR$(34)
1207-
'--- read the response ---
1208-
res$ = _READFILE$(responseFile$)
1209-
KILL responseFile$
1210-
'--- set result ---
1211-
wikiDLPage$ = res$
1205+
IF Help_Recaching < 2 THEN 'avoid using cUrl for 'qb64pe -u' (build time update)
1206+
IF _SHELLHIDE("curl --version >" + redirDev$) = 0 THEN
1207+
'--- 1st restore https: protocol, if changed above ---
1208+
IF LCASE$(LEFT$(wik$, 7)) = "http://" THEN wik$ = "https://" + MID$(wik$, 8)
1209+
'--- issue curl request ---
1210+
responseFile$ = Cache_Folder$ + "/curlResponse.txt"
1211+
SHELL _HIDE "curl --silent -o " + CHR$(34) + responseFile$ + CHR$(34) + " " + CHR$(34) + wik$ + CHR$(34)
1212+
'--- read the response ---
1213+
res$ = _READFILE$(responseFile$)
1214+
KILL responseFile$
1215+
'--- set result ---
1216+
wikiDLPage$ = res$
1217+
END IF
12121218
END IF
12131219
END FUNCTION
12141220

‎source/qb64pe.bas‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -13465,7 +13465,7 @@ FUNCTION ParseCMDLineArgs$ ()
1346513465
Help_Recaching = 2: Help_IgnoreCache = 1
1346613466
IF ideupdatehelpbox THEN
1346713467
_DEST _CONSOLE
13468-
PRINT "Update failed: Can't make connection to Wiki."
13468+
PRINT "Help update failed: Can't make connection to Wiki."
1346913469
SYSTEM 1
1347013470
END IF
1347113471
SYSTEM

‎tests/compile_tests/console_only/audio_out.bas‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,4 @@
11
$CONSOLE:ONLY
2-
_DEST _CONSOLE
32

43
PLAY "O3"
54
print "this is a test";

‎tests/compile_tests/console_only/devices.bas‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,4 @@
11
$CONSOLE:ONLY
2-
_DEST _CONSOLE
32

43
print _DEVICES > 1;
54
_DELAY 1

‎tests/compile_tests/console_only/libz.bas‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,4 @@
11
$CONSOLE:ONLY
2-
_DEST _CONSOLE
32

43
PRINT HexString$(_DEFLATE$("this is a test"))
54
SYSTEM

‎tests/compile_tests/console_only/midi.bas‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,4 @@
11
$CONSOLE:ONLY
2-
_DEST _CONSOLE
32
ON ERROR GOTO errorhand
43

54
CHDIR _STARTDIR$

‎tests/compile_tests/console_only/screenimage.bas‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,4 @@
11
$CONSOLE:ONLY
2-
_DEST _CONSOLE
32

43
$IF WIN THEN
54
$ELSE

‎tests/compile_tests/http/http_error.bas‎

Lines changed: 0 additions & 33 deletions
This file was deleted.

‎tests/compile_tests/http/http_error.output‎

Lines changed: 0 additions & 3 deletions
This file was deleted.

0 commit comments

Comments
 (0)