dimitri/bqn-curl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Create the slist when we open a session for the first time

Browse source
This commit is contained in:
Dimitri Lozeve 2023-10-02 16:35:55 +02:00
parent af2ac51e14
commit 29d6c7bc02
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
curl.bqn
View file

@ -58,7 +58,9 @@ OpenSession←{𝕊𝕩:
sessionPtr←EasyInit⟨⟩ sessionPtr←EasyInit⟨⟩
"setting user agent"Check EasySetoptStr⟨sessionPtr,curlOptions.useragent,"curl/bqn"∾@⟩ "setting user agent"Check EasySetoptStr⟨sessionPtr,curlOptions.useragent,"curl/bqn"∾@⟩
"setting redirect option"Check EasySetoptLong⟨sessionPtr,curlOptions.followlocation,1⟩ "setting redirect option"Check EasySetoptLong⟨sessionPtr,curlOptions.followlocation,1⟩
{sessionPtr⇐sessionPtr,headersSlist⇐8↑0} slist←SlistAppend⟨8↑0,""⟩
"creating slist" ! slist≢8↑0
{sessionPtr⇐sessionPtr,headersSlist⇐slist}
} }
# Reset a libcurl session to default parameters, as if just created by # Reset a libcurl session to default parameters, as if just created by
@ -68,7 +70,9 @@ ResetSession←{𝕊 session:
"resetting session"Check EasyReset session.sessionPtr "resetting session"Check EasyReset session.sessionPtr
"setting user agent"Check EasySetoptStr⟨session.sessionPtr,curlOptions.useragent,"curl/bqn"∾@⟩ "setting user agent"Check EasySetoptStr⟨session.sessionPtr,curlOptions.useragent,"curl/bqn"∾@⟩
"setting redirect option"Check EasySetoptLong⟨session.sessionPtr,curlOptions.followlocation,1⟩ "setting redirect option"Check EasySetoptLong⟨session.sessionPtr,curlOptions.followlocation,1⟩
{sessionPtr⇐session.sessionPtr,headersSlist⇐8↑0} slist←SlistAppend⟨8↑0,""⟩
"creating slist" ! slist≢8↑0
{sessionPtr⇐session.sessionPtr,headersSlist⇐slist}
} }
# Close a libcurl session, freeing memory # Close a libcurl session, freeing memory
@ -88,7 +92,7 @@ SetURL←{url 𝕊 session:
SetHeaders←{headers 𝕊 session: SetHeaders←{headers 𝕊 session:
slist←session.headersSlist{SlistAppend⟨𝕩,𝕨∾@⟩}´headers slist←session.headersSlist{SlistAppend⟨𝕩,𝕨∾@⟩}´headers
"setting headers"Check rheaders←EasySetoptPtr⟨session.sessionPtr,curlOptions.httpHeader,slist⟩ "setting headers"Check rheaders←EasySetoptPtr⟨session.sessionPtr,curlOptions.httpHeader,slist⟩
{sessionPtr⇐session.sessionPtr,headersSlist⇐slist} session
} }
# Set the next request as verbose (logging to standard output) # Set the next request as verbose (logging to standard output)