Added a private flag

2026-08-09 14:16:18 +02:00
parent a9f1f9b7b6
commit f8349e9a11
5 changed files with 52 additions and 9 deletions
@@ -15,7 +15,7 @@

 (define ini%
  (class object%
-    (init-field [file #f] [fail #f])
+    (init-field [file #f] [fail #f] [private? #f])
    
    (define content #f)

@@ -33,6 +33,13 @@
    (define/public (get-fail)
      fail)

+    (define/public (get-private?)
+      private?)
+
+    (define/public (set-private! p)
+      (i-set! private? p)
+      this)
+
    (define/public (get-contents)
      content)

@@ -53,7 +60,7 @@
        (if (eq? file #f)
            (when fail
                (error "ini: No filename set, cannot write ini after set!"))
-            (ini->file content file))
+            (ini->file content file #:private? private?))
        this))

    (define/public (get section key . default-value)