9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
;; PURPOSE.
;;======================================================================
(use trace)
(define (debug:calc-verbosity vstr)
(cond
((string-match "^\\s*$" vstr) #f)
(vstr (let ((debugvals (string-split vstr ",")))
(cond
((> (length debugvals) 1)(map string->number debugvals))
((> (length debugvals) 0)(string->number (car debugvals)))
(else #f))))
((args:get-arg "-v") 2)
((args:get-arg "-q") 0)
(else 1)))
|
>
|
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
;; PURPOSE.
;;======================================================================
(use trace)
(define (debug:calc-verbosity vstr)
(cond
((not vstr) #f)
((string-match "^\\s*$" vstr) #f)
(vstr (let ((debugvals (string-split vstr ",")))
(cond
((> (length debugvals) 1)(map string->number debugvals))
((> (length debugvals) 0)(string->number (car debugvals)))
(else #f))))
((args:get-arg "-v") 2)
((args:get-arg "-q") 0)
(else 1)))
|