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

Refactor error handling

Browse source
This commit is contained in:
Dimitri Lozeve 2023-10-01 18:38:45 +02:00
parent 5b22260f28
commit d37b15ab2b
1 changed files with 19 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

46
curl.bqn
View file

@ -19,6 +19,11 @@
⟩←•Import"ffi.bqn" ⟩←•Import"ffi.bqn"
⟨RandID⟩←•Import"utils.bqn" ⟨RandID⟩←•Import"utils.bqn"
Check←{
msg←"Curl: "∾𝕨∾" ("∾(•Fmt 𝕩)∾")"
msg ! 𝕩=0
}
PrepareRequest←{session 𝕊 url‿headers: PrepareRequest←{session 𝕊 url‿headers:
id←RandID 32 id←RandID 32
filename←"/tmp/bqncurl."∾id filename←"/tmp/bqncurl."∾id
@ -26,22 +31,14 @@ PrepareRequest←{session 𝕊 url‿headers:
headerFilename←"/tmp/bqncurl.header."∾id headerFilename←"/tmp/bqncurl.header."∾id
headerFilePtr←Fopen⟨headerFilename∾@,"w+"⟩ headerFilePtr←Fopen⟨headerFilename∾@,"w+"⟩
ruseragent←EasySetoptStr⟨session,curlOptions.useragent,"curl/bqn"∾@⟩ "setting user agent"Check EasySetoptStr⟨session,curlOptions.useragent,"curl/bqn"∾@⟩
("Error setting user agent: "∾•Fmt ruseragent)!ruseragent=0 "setting URL"Check EasySetoptStr⟨session,curlOptions.url,url∾@⟩
rurl←EasySetoptStr⟨session,curlOptions.url,url∾@⟩ "setting file target"Check EasySetoptPtr⟨session,curlOptions.writedata,filePtr⟩
("Error setting URL: "∾•Fmt rurl)!rurl=0 "setting header file target"Check EasySetoptPtr⟨session,curlOptions.headerdata,headerFilePtr⟩
rfile←EasySetoptPtr⟨session,curlOptions.writedata,filePtr⟩ "setting redirect option"Check EasySetoptLong⟨session,curlOptions.followlocation,1⟩
("Error setting file target: "∾•Fmt rfile)!rfile=0 # "setting verbosity"Check EasySetoptLong⟨session,curlOptions.verbose,1⟩
rheaderfile←EasySetoptPtr⟨session,curlOptions.headerdata,headerFilePtr⟩
("Error setting header file target: "∾•Fmt rheaderfile)!rheaderfile=0
rredirect←EasySetoptLong⟨session,curlOptions.followlocation,1⟩
("Error setting redirect option: "∾•Fmt rredirect)!rredirect=0
# EasySetoptLong⟨session,curlOptions.header,1⟩
# EasySetoptLong⟨session,curlOptions.verbose,1⟩
slist←(8↑0){SlistAppend⟨𝕩,𝕨∾@⟩}´headers slist←(8↑0){SlistAppend⟨𝕩,𝕨∾@⟩}´headers
rheaders←EasySetoptPtr⟨session,curlOptions.httpHeader,slist⟩ "setting headers"Check rheaders←EasySetoptPtr⟨session,curlOptions.httpHeader,slist⟩
("Error setting headers: "∾•Fmt rheaders)!rheaders=0
slist‿filename‿filePtr‿headerFilename‿headerFilePtr slist‿filename‿filePtr‿headerFilename‿headerFilePtr
} }
@ -50,9 +47,9 @@ ReadResponse←{session 𝕊 slist‿filename‿filePtr‿headerFilename‿heade
SlistFreeAll slist SlistFreeAll slist
rcode‿⟨code⟩←EasyGetinfoLong⟨session,curlInfo.responseCode,⟨0⟩⟩ rcode‿⟨code⟩←EasyGetinfoLong⟨session,curlInfo.responseCode,⟨0⟩⟩
("Error retrieving response code: "∾•Fmt rcode)!rcode=0 "retrieving response code"Check rcode
rtime‿⟨time⟩←EasyGetinfoDouble⟨session,curlInfo.totalTime,⟨0.0⟩⟩ rtime‿⟨time⟩←EasyGetinfoDouble⟨session,curlInfo.totalTime,⟨0.0⟩⟩
("Error retrieving request time: "∾•Fmt rtime)!rtime=0 "retrieving request time"Check rtime
Fclose filePtr Fclose filePtr
Fclose headerFilePtr Fclose headerFilePtr
@ -77,8 +74,7 @@ headers 𝕊 url:
session←EasyInit⟨⟩ session←EasyInit⟨⟩
d←session PrepareRequest url‿headers d←session PrepareRequest url‿headers
rperform←EasyPerform⟨session⟩ "performing request"Check EasyPerform⟨session⟩
("Error performing request: "∾•Fmt rperform)!rperform=0
response←session ReadResponse d response←session ReadResponse d
EasyCleanup session EasyCleanup session
@ -90,15 +86,11 @@ Post←{
headers 𝕊 url‿data: headers 𝕊 url‿data:
session←EasyInit⟨⟩ session←EasyInit⟨⟩
d←session PrepareRequest url‿headers d←session PrepareRequest url‿headers
rpost←EasySetoptLong⟨session,curlOptions.post,1⟩ "setting up POST request"Check EasySetoptLong⟨session,curlOptions.post,1⟩
("Error setting up POST request: "∾•Fmt rpost)!rpost=0 "setting POST data"Check EasySetoptStr⟨session,curlOptions.postfields,data⟩
rpostfields←EasySetoptStr⟨session,curlOptions.postfields,data⟩ "setting POST data size"Check EasySetoptLong⟨session,curlOptions.postfieldsize,≠data⟩
("Error setting POST data: "∾•Fmt rpostfields)!rpostfields=0
rpostfieldsize←EasySetoptLong⟨session,curlOptions.postfieldsize,≠data⟩
("Error setting POST data size: "∾•Fmt rpostfieldsize)!rpostfieldsize=0
rperform←EasyPerform⟨session⟩ "performing request"Check EasyPerform⟨session⟩
("Error performing request: "∾•Fmt rperform)!rperform=0
response←session ReadResponse d response←session ReadResponse d
EasyCleanup session EasyCleanup session