(Tcl) Bitfinex v2 REST Public Trades

The trades endpoint allows the retrieval of past public trades and includes details such as price, size, and time. Optional parameters can be used to limit the number of results; you can specify a start and end timestamp, a limit, and a sorting method.

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

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/trades/tBTCUSD/hist?limit=5

# 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/trades/tBTCUSD/hist?limit=5" $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)

# on trading pairs (ex. tBTCUSD)
# [
#   [
#     ID,
#     MTS,
#     AMOUNT,
#     PRICE
#   ]
# ]

# [
#   [
#     472164271,
#     1594077725121,
#     -0.15101673,
#     9370
#   ],
#   [
#     472164270,
#     1594077723860,
#     -0.015,
#     9370
#   ],
#   [
#     472164269,
#     1594077720208,
#     -0.015,
#     9370
#   ],
#   [
#     472164267,
#     1594077718125,
#     -0.005,
#     9370
#   ],
#   [
#     472164251,
#     1594077697587,
#     -0.015,
#     9370
#   ]
# ]

# 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_trade is a CkJsonArray

set i 0
set count_i [CkJsonArray_get_Size $jarrResp]
while {$i < $count_i} {
    set jarr_trade [CkJsonArray_ArrayAt $jarrResp $i]

    set trade_id [CkJsonArray_stringAt $jarr_trade 0]
    set mts [CkJsonArray_stringAt $jarr_trade 1]
    set amount [CkJsonArray_stringAt $jarr_trade 2]
    set price [CkJsonArray_stringAt $jarr_trade 3]

    delete_CkJsonArray $jarr_trade

    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkStringBuilder $sbResponseBody
delete_CkJsonArray $jarrResp