You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
438 B
14 lines
438 B
;(import :std/db/dbi |
|
; :std/db/sqlite ) |
|
|
|
(load "database.scm") |
|
(load "holding.scm") |
|
|
|
(define portfolio |
|
(lambda (db-connection arguments) |
|
(exit) |
|
) ) |
|
;(vector->list (tscar (sql-query (sql-prepare db-connection |
|
;(cdr (assoc portfolio-action action-query)))))) ) ) ) ) |
|
;`((get-assets . "SELECT * FROM stocksymbols;") |
|
;(add-asset . "INSERT INTO stocksymbols (symbol, shares) VALUES ('~a', ~d);"))
|
|
|