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
+9 -2
View File
@@ -3,6 +3,7 @@
(require racket/string) (require racket/string)
(require racket/file) (require racket/file)
(require racket/port) (require racket/port)
(require racket/serialize)
(provide file->ini (provide file->ini
ini->file ini->file
@@ -49,8 +50,8 @@
(set! last-is-newline #f) (set! last-is-newline #f)
(display (cadr line) out) (display (cadr line) out)
(display "=" out) (display "=" out)
(display"VALUE:" out) (display"SER:" out)
(write (caddr line) out) (write (serialize (caddr line)) out)
(newline out)) (newline out))
(error "Unknown line format"))))) (error "Unknown line format")))))
lines)))) lines))))
@@ -63,8 +64,11 @@
(define re-num #px"^([+]|[-])?([0-9]+([.]([0-9]+))?)$") (define re-num #px"^([+]|[-])?([0-9]+([.]([0-9]+))?)$")
(define re-bool #px"^(#f|#t|true|false)$") (define re-bool #px"^(#f|#t|true|false)$")
(define re-value #px"^VALUE:(.*)$") (define re-value #px"^VALUE:(.*)$")
(define re-serialize #px"^SER:(.*)$")
(define (interpret s) (define (interpret s)
(let ((sr (regexp-match re-serialize s)))
(if (eq? sr #f)
(let ((m (regexp-match re-value s))) (let ((m (regexp-match re-value s)))
(if (eq? m #f) (if (eq? m #f)
(let ((ss (string-downcase (string-trim s)))) (let ((ss (string-downcase (string-trim s))))
@@ -79,7 +83,10 @@
)) ))
(string->number (car m-num))))) (string->number (car m-num)))))
(let* ((content (cadr m))) (let* ((content (cadr m)))
(with-handlers ([exn? (λ (e) content)])
(with-input-from-string content read))))) (with-input-from-string content read)))))
(let ((content (cadr sr)))
(deserialize (with-input-from-string content read))))))
(define (file->ini file*) (define (file->ini file*)
(let* ((file (get-ini-file file*)) (let* ((file (get-ini-file file*))