Class implementation of simple-ini.

2025-08-25 01:26:19 +02:00
parent c13fb6e6cb
commit f1a6f2256d
4 changed files with 185 additions and 16 deletions
--- a/class.rkt
+++ b/class.rkt
@@ -0,0 +1,92 @@
+#lang racket/base
+
+(require racket/class)
+(require "main.rkt")
+
+(provide ini%
+         (all-from-out racket/class))
+
+(define-syntax i-set!
+  (syntax-rules ()
+    ((_ a b)
+     (set! a b))))
+
+
+
+(define ini%
+  (class object%
+    (init-field [file #f] [fail #f])
+    
+    (define content #f)
+
+    (define/public (get-file)
+      file)
+
+    (define/public (set-file! f)
+      (i-set! file (get-ini-file f))
+      this)
+
+    (define/public (set-fail! f)
+      (i-set! fail f)
+      this)
+
+    (define/public (get-fail)
+      fail)
+
+    (define/public (get-contents)
+      content)
+
+    (define/public (contents)
+      content)
+
+    (define/public (reload)
+      (i-set! content (if (eq? file #f)
+                        (make-ini)
+                        (if (file-exists? file)
+                            (file->ini file)
+                            (make-ini))))
+      this)
+
+    (define/public (set! section key value)
+      (begin
+        (ini-set! content section key value)
+        (if (eq? file #f)
+            (when fail
+                (error "ini: No filename set, cannot write ini after set!"))
+            (ini->file content file))
+        this))
+
+    (define/public (get section key . default-value)
+      (let* ((rnd (string->symbol (format "@@no-value-~a-@@" (random 400000000))))
+             (def-val (if (null? default-value) rnd (car (default-value)))))
+        (let ((r (ini-get content section key def-val)))
+          (when fail
+            (when (eq? r rnd)
+              (error (string-append
+                       "ini: No default value set and no value found for section '"
+                       (symbol->string section)
+                       "' and key '"
+                       (symbol->string key)
+                       "'"))
+              )
+            )
+          (if (eq? r rnd)
+              #f
+              r))))
+
+    (super-new)
+    
+    (begin
+      (if (eq? file #f)
+          (i-set! content (make-ini))
+          (begin
+            (i-set! file (get-ini-file file))
+            (if (file-exists? file)
+                (i-set! content (file->ini file))
+                (i-set! content (make-ini)))))
+      )
+
+    )
+  )
+              
+