Finish the loader.

bank-fio.scm

@@ -32,11 +32,35 @@
   )
 
  (import scheme
+	 (chicken base)
+	 (chicken irregex)
 	 bank-account
 	 csv-simple)
 
+ ;; Converts Fio account statement transaction row into standardized
+ ;; bank transaction structure.
+ (define (make-fio-transaction row)
+   (let ((id (string->number (car row)))
+	 (date (cadr row))
+	 (amount (string->number
+		  (irregex-replace (irregex "," 'u)
+				   (caddr row)
+				   ".")))
+	 (currency (cadddr row))
+	 (varsym (list-ref row 9)))
+     (make-bank-transaction id date amount currency varsym)))
+
+ ;; Loads Fio bank accound statement.
  (define (bank-fio-parse fn)
-   (let ((csv (csv-parse fn)))
-     #f))
+   (let* ((csv (csv-parse fn))
+	  (head+body (csv-split-header csv))
+	  (head (car head+body))
+	  (body (cadr head+body))
+	  (numrow (assoc "accountId" head))
+	  (num (if numrow (cadr numrow) "ERROR"))
+	  (bankrow (assoc "bankId" head))
+	  (bank (if bankrow (cadr bankrow) "ERROR")))
+     (make-bank-account num bank
+			(map make-fio-transaction body))))
 
  )