jadedctrl/ chicken-vcarded
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

More reliable splitting of properties

This commit is contained in:
Jaidyn Ann 2024-02-05 21:02:24 -06:00
parent 67f35806b8
commit 916ebdbea2
1 changed files with 29 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
vcarded.scm
View File

@ -13,12 +13,18 @@
;; You should have received a copy of the GNU General Public License ;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>. ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
(import (import
scheme scheme
(chicken io) (chicken io)
(chicken irregex) (chicken irregex)
(chicken string) srfi-1
srfi-1) srfi-130)
;; Splits a string into a list of CRLF’d lines.
(define (unlines lines)
(string-join lines "\r\n"))
;; Splits a string into a list of CRLF’d lines. ;; Splits a string into a list of CRLF’d lines.
@ -33,27 +39,41 @@
;; Splits a line into a list of key/value pairs. ;; Splits a line into a list of key/value pairs.
(define (split-vcard-line line) (define (split-vcard-line line)
(let ([split (irregex-split (regex-unescaped-char ":") line)]) (let [(split (irregex-split (regex-unescaped-char ":") line))]
(if (>= (length split) 2) (if (>= (length split) 2)
(cons (cons
(car split) (car split)
(reduce-right (lambda (a b) (conc a ":" b)) "" (cdr split))) (reduce-right
(lambda (a b) (string-concatenate (list a ":" b)))
"" (cdr split)))
#f))) #f)))
;; Splits a key or value-element into its (potentially multiple) parameters. ;; Splits a key or value-element into its (potentially multiple) parameters.
(define (split-vcard-element key-or-value) (define (split-vcard-element key-or-value)
(irregex-split (regex-unescaped-char ";") key-or-value)) (irregex-extract "(\\\\;|[^;])*" key-or-value))
(define (parse-vcard-element kv-pair)
(case (car kv-pair)
('VERSION
(append (list (car kv-pair) (string->number (second kv-pair)))
(cddr kv-pair)))
(else kv-pair)))
;; Parse a line of a vcard file into an alist-friendly format: ;; Parse a line of a vcard file into an alist-friendly format:
;; (KEY ("keyprop1=d" "keyprop2=b") "VALUE" ("valprop1=a" "valprop2=b")) ;; (KEY ("keyprop1=d" "keyprop2=b") "VALUE" ("valprop1=a" "valprop2=b"))
(define (parse-vcard-line line) (define (parse-vcard-line line)
(let* ([key-value-strings (split-vcard-line line)] (let* [(key-value-strings (split-vcard-line line))
[key-elements (split-vcard-element (car key-value-strings))] (key-elements (split-vcard-element (car key-value-strings)))
[value-elements (split-vcard-element (cdr key-value-strings))]) (value-elements (split-vcard-element (cdr key-value-strings)))]
(list (string->symbol (car key-elements)) (list (string->symbol (car key-elements))
(cdr key-elements)
(car value-elements) (car value-elements)
(cdr key-elements)
(cdr value-elements)))) (cdr value-elements))))
(define (vcard-string->alist string)
(map parse-vcard-line (lines string)))