(Tcl) Bitfinex v2 REST Tickers

The tickers endpoint provides a high level overview of the state of the market. It shows the current best bid and ask, the last traded price, as well as information on the daily volume and price movement over the last day. The endpoint can retrieve multiple tickers with a single query.

For more information, see https://docs.bitfinex.com/reference#rest-public-tickers

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set http [new_CkHttp]

# Implements the following CURL command:

# curl https://api-pub.bitfinex.com/v2/tickers?symbols=tBTCUSD,tLTCUSD,fUSD

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

set sbResponseBody [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http "https://api-pub.bitfinex.com/v2/tickers?symbols=tBTCUSD,tLTCUSD,fUSD" $sbResponseBody]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    exit
}

set jarrResp [new_CkJsonArray]

CkJsonArray_LoadSb $jarrResp $sbResponseBody
CkJsonArray_put_EmitCompact $jarrResp 0

puts "Response Body:"
puts [CkJsonArray_emit $jarrResp]

set respStatusCode [CkHttp_get_LastStatus $http]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttp_lastHeader $http]
    puts "Failed."
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonArray $jarrResp
    exit
}

# Sample JSON response:
# (Sample code for parsing the JSON response is shown below)

# [
#   [
#     "tBTCUSD",
#     9318.6,
#     21.53815472,
#     9318.7,
#     5.30463105,
#     223.5,
#     0.0246,
#     9318.7,
#     4125.21689058,
#     9370.998872,
#     9075.80199233
#   ],
#   [
#     "tLTCUSD",
#     44.008,
#     1807.8617840300003,
#     44.019,
#     2394.7625575100005,
#     2.359,
#     0.0566,
#     44.019,
#     27051.34115724,
#     44.16,
#     41.559
#   ],
#   [
#     "fUSD",
#     0.00022955068493150685,
#     0.000199,
#     30,
#     871597.2359141599,
#     0.0001962,
#     2,
#     67926.11558407999,
#     -0.00001146,
#     -0.0523,
#     0.00020757,
#     167542924.22214913,
#     0.00024,
#     0.00000299,
#     null,
#     null,
#     82649109.90968154
#   ]
# ]

# Sample code for parsing the JSON response...
# Use the following online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON

# jarr_1 is a CkJsonArray

set i 0
set count_i [CkJsonArray_get_Size $jarrResp]
while {$i < $count_i} {
    set jarr_1 [CkJsonArray_ArrayAt $jarrResp $i]
    set j 0
    set count_j [CkJsonArray_get_Size $jarr_1]
    while {$j < $count_j} {
        set strVal [CkJsonArray_stringAt $jarr_1 $j]
        set j [expr $j + 1]
    }
    delete_CkJsonArray $jarr_1

    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkStringBuilder $sbResponseBody
delete_CkJsonArray $jarrResp