a bit better call stack

debug.lsp

@@ -1,14 +1,63 @@
-(define a 20)
-(cond 
-	((> a 30) (print "a > 30"))
-	((> a 20) (print "a > 20"))
-	(1 (print "a je" a)))
 
-(define a 25)
-(cond 
-	((> a 30) (print "a > 30"))
-	((> a 20) (print "a > 20"))
-	(1 (print "a je" a)))
+(defun find-with-val-sublist (lst name)
+  (do 
+	; (print "list:" lst " name:" name)	
+	(define found_val nil)
+	(define i 0)
+
+	(while (and (>= i 0) (< i (len lst)))
+		(define e (index lst i))
+		; (print "testing element:" e " first e:" (first e))
+		(if  (= (type (first e)) "list")
+		  (do 
+		  	(set! found_val (find-with-val-sublist (first e) name))
+			(if (!= found_val nil) (set! i -1))
+		  )
+		  ; else
+		  (do
+			;(print "compare" (first e) " with " name)
+			(if (= name (first e)) 
+				(do 
+				  ; (print "found" name)
+				  (set! found_val (second e)) (set! i -1)
+				)
+				; else
+				(if (= (type (second e)) "list")
+		  		    (do (set! found_val (find-with-val-sublist (second e) name)) 
+			  		(if (!= found_val nil) 
+					  (set! i -1)
+					)
+				    )
+				    (define i (inc i))
+				)
+		  	)
+		  )
+		)
+	)
+	found_val
+  ))
+    
+
+
+
+(define str "{\"date_from\":\"2021-10-05\",\"date_to\":\"2021-10-05\",\"earnings\":{\"2021-10-05\":{\"stocks\":[{\"importance\":5,\"symbol\":\"PEP\",\"date\":\"2021-10-05\",\"time\":\"06:00:00\",\"title\":\"PepsiCo\"},{\"importance\":0,\"symbol\":\"SAR\",\"date\":\"2021-10-05\",\"time\":\"16:00:00\",\"title\":\"Saratoga Investment\"}],\"day\":\"Today\",\"month\":\"October\",\"year\":\"2021\",\"date_number\":\"05\",\"selected_copy\":\"PEP and SAR reporting Today\",\"deselected_copy\":\"PEP and SAR reporting Today\"}}}")
+(define parsed_json (parse-json str))
+;(print parsed_json "\n")
+
+(define stocks (find-with-val-sublist parsed_json "stocks"))
+(print stocks)
+(for s stocks
+     (print s)
+     (print  (find-with-val-sublist parsed_json "date"))
+)
+
+
+
+;; (define a 25)
+;; (cond 
+;; 	((> a 30) (print "a > 30"))
+;; 	((> a 20) (print "a > 20"))
+;; 	(1 (print "a je" a)))
 
 ;; (define csv_date (str-to-date "01/01/2021" "%m/%d/%Y"))
 ;; (date-to-str 3141583200 "%m/%d/%Y")