hans/simple-ini
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Using racket serialization instead of simple reading of s-expressions.

Browse Source
This commit is contained in:
Hans Dijkema
2026-07-06 10:33:32 +02:00
parent c6cf128a1f
commit e2c56e8b82
1 changed files with 24 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
main.rkt
+24 -17
View File
@@ -3,6 +3,7 @@
(require racket/string)
(require racket/file)
(require racket/port)
(require racket/serialize)
(provide file->ini
ini->file
@@ -49,8 +50,8 @@
(set! last-is-newline #f)
(display (cadr line) out)
(display "=" out)
(display"VALUE:" out)
(write (caddr line) out)
(display"SER:" out)
(write (serialize (caddr line)) out)
(newline out))
(error "Unknown line format")))))
lines))))
@@ -63,23 +64,29 @@
(define re-num #px"^([+]|[-])?([0-9]+([.]([0-9]+))?)$")
(define re-bool #px"^(#f|#t|true|false)$")
(define re-value #px"^VALUE:(.*)$")
(define re-serialize #px"^SER:(.*)$")
(define (interpret s)
(let ((m (regexp-match re-value s)))
(if (eq? m #f)
(let ((ss (string-downcase (string-trim s))))
(let ((m-num (regexp-match re-num ss)))
(if (eq? m-num #f)
(let ((m-b (regexp-match re-bool ss)))
(if (eq? m-b #f)
s
(if (or (string=? ss "#t") (string=? ss "true"))
#t
#f)
))
(string->number (car m-num)))))
(let* ((content (cadr m)))
(with-input-from-string content read)))))
(let ((sr (regexp-match re-serialize s)))
(if (eq? sr #f)
(let ((m (regexp-match re-value s)))
(if (eq? m #f)
(let ((ss (string-downcase (string-trim s))))
(let ((m-num (regexp-match re-num ss)))
(if (eq? m-num #f)
(let ((m-b (regexp-match re-bool ss)))
(if (eq? m-b #f)
s
(if (or (string=? ss "#t") (string=? ss "true"))
#t
#f)
))
(string->number (car m-num)))))
(let* ((content (cadr m)))
(with-handlers ([exn? (λ (e) content)])
(with-input-from-string content read)))))
(let ((content (cadr sr)))
(deserialize (with-input-from-string content read))))))
(define (file->ini file*)
(let* ((file (get-ini-file file*))