brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Faster Fio parsing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-31 09:55:05 +02:00
parent 9435659140
commit 8fb302f682
2 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
bank-fio.scm
View file

@ -33,7 +33,7 @@
(import scheme (import scheme
(chicken base) (chicken base)
(chicken irregex) (chicken string)
bank-account bank-account
csv-simple csv-simple
progress) progress)
@ -44,9 +44,13 @@
(let ((id (string->number (car row))) (let ((id (string->number (car row)))
(date (cadr row)) (date (cadr row))
(amount (string->number (amount (string->number
(irregex-replace (irregex "," 'u) (let* ((astr (caddr row))
(caddr row) (ci (substring-index "," astr)))
"."))) (if ci
(string-append (substring astr 0 ci)
"."
(substring astr (add1 ci)))
astr))))
(currency (string->symbol (cadddr row))) (currency (string->symbol (cadddr row)))
(varsym (list-ref row 9)) (varsym (list-ref row 9))
(message (list-ref row 12))) (message (list-ref row 12)))

2
members-payments.scm
View file

@ -55,7 +55,7 @@
(let* ((msg (bank-transaction-message transaction)) (let* ((msg (bank-transaction-message transaction))
(ci (substring-index "," msg)) (ci (substring-index "," msg))
(vs (if ci (vs (if ci
(substring msg ci) (substring msg 0 ci)
msg))) msg)))
(string->number vs))))) (string->number vs)))))
varsym-id)) varsym-id))