projects
/
rrq
/
hourglass.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
debugging galore
[rrq/hourglass.git]
/
siteconfig.lsp
diff --git
a/siteconfig.lsp
b/siteconfig.lsp
index 1050918a475f7621b20948b04c1273eef41398ab..69f0fbb7ded19803550524b536dafd838e56bf0a 100644
(file)
--- a/
siteconfig.lsp
+++ b/
siteconfig.lsp
@@
-3,16
+3,17
@@
(define (set-int K V) (set K (int V 0 10)))
(define (set-ints K V)
(define (set-int K V) (set K (int V 0 10)))
(define (set-ints K V)
- (
map (curry set-int K) (clean empty? (parse V "\\s*,?\\s*" 0
))))
+ (
set K (map int (clean empty? (parse V "(\\s+|\\s*,\\s*)" 0)
))))
(define (set-list K V)
(define (set-list K V)
- (
map (curry set K) (clean empty? (parse V "\\s*,?\\s*
" 0))))
+ (
set K (clean empty? (parse V "(\\s+|\\s*,\\s*)
" 0))))
(constant
'FILE "hourglass.conf"
'KEYS '(
("listener.ports" set-ints)
(constant
'FILE "hourglass.conf"
'KEYS '(
("listener.ports" set-ints)
- ("listener.ip" set)
+ ("listener.net" set)
+ ("listener.log.ip" set)
("listener.activity.dir" set)
("listener.tap" set)
("listener.activity.dir" set)
("listener.tap" set)
@@
-37,9
+38,12
@@
)
(define (setting LINE)
)
(define (setting LINE)
- (when (regex "^\\s([^;#][^=]*)=(.*)" LINE 0)
+ (when (regex "^\\s
*
([^;#][^=]*)=(.*)" LINE 0)
(let ((KV (map trim (list $1 $2))))
(let ((KV (map trim (list $1 $2))))
- (if (lookup (KV 0) KEYS) (apply $it (list (sym (KV 0)) (KV 1)))))))
+ (if (lookup (KV 0) KEYS)
+ (let ((SET $it) (K (sym (KV 0))) (V (KV 1)))
+ ;(write-line 2 (string (list K V)))
+ (apply SET (list K V)))))))
(map setting (parse (or (read-file FILE) "") "\n"))
(map setting (parse (or (read-file FILE) "") "\n"))