84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
;; utility to get all vars as hash table
(define (s:session-get-sessionvars)
(sdat-get-sessionvars s:session))
;; inputs
;;
(define (s:get-input key)
(session:get-input s:session key))
(define (s:get-input-keys)
(session:get-input-keys s:session))
(define (s:load-model model)
(session:load-model s:session model))
|
>
>
>
>
>
>
|
|
|
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
;; utility to get all vars as hash table
(define (s:session-get-sessionvars)
(sdat-get-sessionvars s:session))
;; inputs
;;
;; param: (dtype [tag1 tag2 ...])
;; dtype:
;; 'raw : do no conversion
;; 'number : convert to number, return #f if fails
;; 'escaped : use html-escape to protect the input
;;
(define (s:get-input key . params)
(session:get-input s:session key params))
(define (s:get-input-keys)
(session:get-input-keys s:session))
(define (s:load-model model)
(session:load-model s:session model))
|