30 lines
1.1 KiB
Scheme
30 lines
1.1 KiB
Scheme
(module bindings mzscheme
|
|
(require (lib "list.ss")
|
|
(lib "contract.ss"))
|
|
|
|
; extract-binding/single : sym (listof (cons str str)) -> str
|
|
(define (extract-binding/single name bindings)
|
|
(define lst (extract-bindings name bindings))
|
|
(cond
|
|
[(empty? lst)
|
|
(error 'extract-binding/single "~e not found in ~e" name bindings)]
|
|
[(empty? (rest lst))
|
|
(first lst)]
|
|
[else
|
|
(error 'extract-binding/single "~e occurs multiple times in ~e" name bindings)]))
|
|
|
|
; extract-bindings : sym (listof (cons str str)) -> (listof str)
|
|
(define (extract-bindings name bindings)
|
|
(map cdr (filter (lambda (x) (equal? name (car x))) bindings)))
|
|
|
|
; exists-binding? : sym (listof (cons sym str)) -> bool
|
|
; for checkboxes
|
|
(define (exists-binding? name bindings)
|
|
(if (assq name bindings)
|
|
#t
|
|
#f))
|
|
|
|
(provide/contract
|
|
[extract-binding/single (symbol? (listof (cons/c symbol? any/c)) . -> . any/c)]
|
|
[extract-bindings (symbol? (listof (cons/c symbol? any/c)) . -> . (listof any/c))]
|
|
[exists-binding? (symbol? (listof (cons/c symbol? any/c)) . -> . boolean?)])) |