blob: 5550a889569dc9db5a510cd824e666c3c261c798 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(use-modules (ibkr api) (ibkr types) (ice-9 format))
(define base "http://localhost:5000")
(format #t "auth-status=~a\n" (auth-status base))
(define accts (accounts base))
(format #t "accounts=~a\n" accts)
(define acct-id (account-id (car accts)))
(format #t "positions=~a\n" (positions base acct-id))
(format #t "ledger=~a\n" (ledger base acct-id "USD"))
(format #t "stocks-by-symbol(IBKR)=~a\n" (stocks-by-symbol base "IBKR"))
(define ibkr-id (contract-id (contract-for-stock-ticker base "IBKR" "NASDAQ")))
(format #t "contract-id(IBKR)=~a\n" ibkr-id)
(format #t "last-trade=~a\n" (contract-snapshot base ibkr-id 'last-trade))
(define order (make-order acct-id ibkr-id "MARKET" "BUY" "IOC" 100.0))
(format #t "order=~a\n" order)
(format #t "order-json=\"[~a]\"\n" (order->json order))
(format #t "order-preview=~a\n" (order-preview base acct-id order))
|
