1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-10 01:55:13 +00:00

Add $Unstable entry for Http

This effectively adds Http support to QB64-PE via adding $Unstable:Http
which will trigger building with DEP_HTTP, which enables Http support in
libqb.
This commit is contained in:
Matthew Kilgore 2022-11-02 20:00:26 -04:00
parent ffdf9db390
commit 77e0a369af

View file

@ -907,10 +907,12 @@ DIM SHARED controlref(1000) AS LONG 'the line number the control was created on
'
' Collection of flags indicating which unstable features should be used during compilation
'
REDIM SHARED unstableFlags(1) AS _BYTE
REDIM SHARED unstableFlags(1 TO 2) AS _BYTE
DIM UNSTABLE_MIDI AS LONG
DIM UNSTABLE_HTTP AS LONG
UNSTABLE_MIDI = 1
UNSTABLE_HTTP = 2
@ -1626,7 +1628,7 @@ udtenext(i3) = i2
udtenext(i2) = 0
' Reset all unstable flags
REDIM SHARED unstableFlags(1) AS _BYTE
FOR i = 1 TO UBOUND(unstableFlags): unstableFlags(i) = 0: NEXT
' Indicates if a MIDI sound font was selected
'
@ -1929,6 +1931,9 @@ DO
unstableFlags(UNSTABLE_MIDI) = -1
CASE "HTTP"
unstableFlags(UNSTABLE_HTTP) = -1
CASE ELSE
a$ = "Unrecognized unstable flag " + AddQuotes$(token$)
GOTO errmes
@ -3454,6 +3459,8 @@ DO
SELECT CASE token$
CASE "MIDI"
layout$ = layout$ + SCase$("Midi")
CASE "HTTP"
layout$ = layout$ + SCase$("Http")
END SELECT
GOTO finishednonexec
@ -12525,6 +12532,10 @@ ELSE
END IF
END IF
IF unstableFlags(UNSTABLE_HTTP) AND DEPENDENCY(DEPENDENCY_SOCKETS) <> 0 THEN
makedeps$ = makedeps$ + " DEP_HTTP=y"
END IF
IF MidiSoundFontSet THEN makedeps$ = makedeps$ + " DEP_AUDIO_DECODE_MIDI=y"
IF tempfolderindex > 1 THEN makedeps$ = makedeps$ + " TEMP_ID=" + str2$(tempfolderindex)