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

Another SEPA parser.

Browse source
This commit is contained in:
Dominik Pantůček 2023-12-24 21:33:53 +01:00
parent 4f59fbc6cf
commit 5f03e0c251
1 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/members-payments.scm
View file

@ -90,12 +90,21 @@
(substring msg 0 ci2) (substring msg 0 ci2)
msg)) msg))
(ci3 (substring-index "NULL" msg)) (ci3 (substring-index "NULL" msg))
(vs3 (if ci3 (vs3 (if (and ci3
(>= (string-length msg) (+ ci3 8)))
(substring msg (+ ci3 4) (+ ci3 4 4)) (substring msg (+ ci3 4) (+ ci3 4 4))
msg))) msg))
(ci4 (substring-index "VS" msg))
(vs4 (if (and ci4
(>= (string-length msg) (+ ci4 6)))
(substring msg (+ ci4 2) (+ ci4 6))
msg))
)
(or (string->number vs1) (or (string->number vs1)
(string->number vs2) (string->number vs2)
(string->number vs3)))))) (string->number vs3)
(string->number vs4)
)))))
varsym-id))) varsym-id)))
;; Special comparator (originally with JendaSAP hack) ;; Special comparator (originally with JendaSAP hack)