#!/bin/env gxi


(import :std/net/request
	:std/format
	:std/xml
	:std/text/json)

#| Yahoo Finance Headers
headers: '( ("x-rapidapi-host" . "apidojo-yahoo-finance-v1.p.rapidapi.com")
            ("x-rapidapi-key" . "98c32048f8mshe6f4d8a686ddce9p18cc5ajsn8b8888e7e256") )
|#
; Declare the file from which we'll load our stockminder configuration
; Things like stock symbols, favourite functions, timing preferences, etc.
(define-values
   (stockminder-config stocklist output-file)
   (values
      (open-input-file "stocklist.conf")
; Initialize our stocklist so we can throw stuff in there after we parse
; the config file.
      `()
      (open-output-file "test.out") ) )
; The procedure we'll use to iterate through config values and add symbols
; to our stocklist
(define read-config (lambda (config-file)
   (let read-loop ((config-chomp (read config-file)))
      (if (eof-object? config-chomp)
         (close-input-port config-file)
         (and (set! stocklist (append stocklist `(,config-chomp)))
            (read-loop (read config-file)) ) ) ) ))
; Now the business end; parse the config file
(read-config stockminder-config)

(define-values
   (api-function api-url api-key)
   (values
      "TIME_SERIES_DAILY"
      "https://www.alphavantage.co/"
      "EC4C0NRKZAK1Q2UG" ) )
(let
   ((stock-symbols stocklist))
   (map (lambda (x) (display (string-append
         api-url "query?function=" api-function "&symbol=" (symbol->string x) "&apikey=" api-key "\n")))
      stock-symbols ) )
(let
   ((test-input-file (open-input-file "test.json"))
      (foo "bar") )
   (write-json (read-json test-input-file))
   (close-input-port test-input-file) )