From 125c73ac335558987923617c60456bd84e89c2ea Mon Sep 17 00:00:00 2001 From: VaclavT Date: Mon, 15 Feb 2021 00:07:35 +0100 Subject: [PATCH] api.nasdaq.com dividens parsing WIP --- debug.lisp | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/debug.lisp b/debug.lisp index 2acd882..01ae424 100644 --- a/debug.lisp +++ b/debug.lisp @@ -51,7 +51,18 @@ ;(print header) (define rows (index (index calendar_data 1) 1)) ;(print rows) -(for x rows - (print x)) +(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 edate (second (first (filter (lambda (x) (= (first x) "dividend_Ex_Date")) e)))) + (define pdate (second (first (filter (lambda (x) (= (first x) "payment_Date")) e)))) + (define rdate (second (first (filter (lambda (x) (= (first x) "record_Date")) e)))) + + (print symbol edate pdate divrate) + + ) (print "Debug ends")