ini
This commit is contained in:
2
info.rkt
2
info.rkt
@@ -1,7 +1,7 @@
|
|||||||
#lang info
|
#lang info
|
||||||
|
|
||||||
(define pkg-authors '(hnmdijkema))
|
(define pkg-authors '(hnmdijkema))
|
||||||
(define version "0.20")
|
(define version "0.21")
|
||||||
(define license 'Apache-2.0)
|
(define license 'Apache-2.0)
|
||||||
;(define collection "simple-ini")
|
;(define collection "simple-ini")
|
||||||
(define pkg-desc "A Simple .ini file reader/writer for racket")
|
(define pkg-desc "A Simple .ini file reader/writer for racket")
|
||||||
|
|||||||
1
main.rkt
1
main.rkt
@@ -8,6 +8,7 @@
|
|||||||
ini-get
|
ini-get
|
||||||
ini-set!
|
ini-set!
|
||||||
make-ini
|
make-ini
|
||||||
|
get-ini-file
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
2
roos.rkt
2
roos.rkt
@@ -12,7 +12,7 @@
|
|||||||
(set! a b))))
|
(set! a b))))
|
||||||
|
|
||||||
(def-roos (ini . _file) this (supers)
|
(def-roos (ini . _file) this (supers)
|
||||||
(file* (if (null? _file) #f (car _file)))
|
(file* (if (null? _file) #f (get-ini-file (car _file))))
|
||||||
(content (if (not (eq? file* #f))
|
(content (if (not (eq? file* #f))
|
||||||
(if (file-exists? file*)
|
(if (file-exists? file*)
|
||||||
(file->ini file*)
|
(file->ini file*)
|
||||||
|
|||||||
Reference in New Issue
Block a user