From 77e0a369afbd1690c49799c3bcc2e6826dc12ad0 Mon Sep 17 00:00:00 2001 From: Matthew Kilgore Date: Wed, 2 Nov 2022 20:00:26 -0400 Subject: [PATCH] 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. --- source/qb64pe.bas | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/source/qb64pe.bas b/source/qb64pe.bas index 58f29cbf8..bcc849c04 100644 --- a/source/qb64pe.bas +++ b/source/qb64pe.bas @@ -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)