34 lines
1.9 KiB
Common Lisp
34 lines
1.9 KiB
Common Lisp
; (print (make-csv (divi-dates "2021-02-01")))
|
|
(defun divi-dates (date-str)
|
|
(do
|
|
(define curl_cmd (+ "curl -H \"Accept: application/json, text/plain, */*\" -H \"Origin: https://www.nasdaq.com/\" -H \"User-Agent: Mozilla/5.0 (Windows NT 10.0)\" https://api.nasdaq.com/api/calendar/dividends/?date=" date-str " 2>/dev/null"))
|
|
(define curl_out (system-cmd curl_cmd))
|
|
|
|
(define json_list (parse-json (last curl_out)))
|
|
|
|
(define data (first json_list))
|
|
(define calendar (index data 1))
|
|
(define calendar_data (index (index calendar 0) 1))
|
|
(define header (index (index calendar_data 0) 1))
|
|
(define rows (index (index calendar_data 1) 1))
|
|
|
|
; (define csv_list '())
|
|
(define csv_list '(("symbol" "ex-date" "pay-date" "div-rate")))
|
|
(if (!= rows '@)
|
|
(for e rows
|
|
; (("announcement_Date" "01/07/2021") ("companyName" "Itau Unibanco Banco Holding SA") ("dividend_Ex_Date" "02/01/2021") ("dividend_Rate" 0.003) ("indicated_Annual_Dividend" 0.033) ("payment_Date" "03/11/2021") ("record_Date" "02/02/2021") ("symbol" "ITUB"))
|
|
(define symbol (second (first (filter (lambda (x) (= (first x) "symbol")) e))))
|
|
(define divrate (second (first (filter (lambda (x) (= (first x) "dividend_Rate")) e))))
|
|
(define adate (second (first (filter (lambda (x) (= (first x) "announcement_Date")) e))))
|
|
(define name (second (first (filter (lambda (x) (= (first x) "companyName")) e))))
|
|
(define exdate (second (first (filter (lambda (x) (= (first x) "dividend_Ex_Date")) e))))
|
|
(define paydate (second (first (filter (lambda (x) (= (first x) "payment_Date")) e))))
|
|
(define rdate (second (first (filter (lambda (x) (= (first x) "record_Date")) e))))
|
|
|
|
(define csv_list (push csv_list (list symbol exdate paydate divrate))))
|
|
'())
|
|
|
|
csv_list
|
|
))
|
|
|