mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-16 16:44:05 +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:
parent
ffdf9db390
commit
77e0a369af
1 changed files with 13 additions and 2 deletions
|
@ -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
|
' 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_MIDI AS LONG
|
||||||
|
DIM UNSTABLE_HTTP AS LONG
|
||||||
|
|
||||||
UNSTABLE_MIDI = 1
|
UNSTABLE_MIDI = 1
|
||||||
|
UNSTABLE_HTTP = 2
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
@ -1626,7 +1628,7 @@ udtenext(i3) = i2
|
||||||
udtenext(i2) = 0
|
udtenext(i2) = 0
|
||||||
|
|
||||||
' Reset all unstable flags
|
' 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
|
' Indicates if a MIDI sound font was selected
|
||||||
'
|
'
|
||||||
|
@ -1929,6 +1931,9 @@ DO
|
||||||
|
|
||||||
unstableFlags(UNSTABLE_MIDI) = -1
|
unstableFlags(UNSTABLE_MIDI) = -1
|
||||||
|
|
||||||
|
CASE "HTTP"
|
||||||
|
unstableFlags(UNSTABLE_HTTP) = -1
|
||||||
|
|
||||||
CASE ELSE
|
CASE ELSE
|
||||||
a$ = "Unrecognized unstable flag " + AddQuotes$(token$)
|
a$ = "Unrecognized unstable flag " + AddQuotes$(token$)
|
||||||
GOTO errmes
|
GOTO errmes
|
||||||
|
@ -3454,6 +3459,8 @@ DO
|
||||||
SELECT CASE token$
|
SELECT CASE token$
|
||||||
CASE "MIDI"
|
CASE "MIDI"
|
||||||
layout$ = layout$ + SCase$("Midi")
|
layout$ = layout$ + SCase$("Midi")
|
||||||
|
CASE "HTTP"
|
||||||
|
layout$ = layout$ + SCase$("Http")
|
||||||
END SELECT
|
END SELECT
|
||||||
|
|
||||||
GOTO finishednonexec
|
GOTO finishednonexec
|
||||||
|
@ -12525,6 +12532,10 @@ ELSE
|
||||||
END IF
|
END IF
|
||||||
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 MidiSoundFontSet THEN makedeps$ = makedeps$ + " DEP_AUDIO_DECODE_MIDI=y"
|
||||||
|
|
||||||
IF tempfolderindex > 1 THEN makedeps$ = makedeps$ + " TEMP_ID=" + str2$(tempfolderindex)
|
IF tempfolderindex > 1 THEN makedeps$ = makedeps$ + " TEMP_ID=" + str2$(tempfolderindex)
|
||||||
|
|
Loading…
Reference in a new issue