Factor out SESSION-DATA and make it available in SURFLETS
This commit is contained in:
parent
88e255d5de
commit
fe70289bc6
|
@ -95,6 +95,10 @@
|
|||
my-ids
|
||||
instance-session-id))
|
||||
|
||||
(define-interface surflets/session-data-interface
|
||||
(export get-session-data
|
||||
set-session-data!))
|
||||
|
||||
;; Use for advanced users: access to your sessions and continuations
|
||||
;; and continuations (currently you get access to all sessions; this
|
||||
;; should and will be restricted in the future)
|
||||
|
@ -102,12 +106,11 @@
|
|||
(compound-interface
|
||||
surflets/ids-interface
|
||||
surflets/continuations-interface
|
||||
surflets/session-data-interface
|
||||
(export get-session
|
||||
;; That would be too much:
|
||||
;; get-sessions
|
||||
delete-session!
|
||||
get-session-data
|
||||
set-session-data!
|
||||
instance-session-id
|
||||
session-adjust-timeout!
|
||||
adjust-timeout!
|
||||
|
@ -117,21 +120,21 @@
|
|||
options-cache-surflets?)))
|
||||
|
||||
(define-interface surflets/sessions-interface
|
||||
(export get-session
|
||||
get-sessions
|
||||
delete-session!
|
||||
get-session-data
|
||||
set-session-data!
|
||||
instance-session-id
|
||||
session-adjust-timeout!
|
||||
adjust-timeout!
|
||||
session-alive?
|
||||
session-surflet-name
|
||||
;; FIXME: This is too much and should be restricted:
|
||||
session-memo
|
||||
session-continuation-table
|
||||
session-continuation-table-lock
|
||||
session-continuation-counter))
|
||||
(compound-interface
|
||||
surflets/session-data-interface
|
||||
(export get-session
|
||||
get-sessions
|
||||
delete-session!
|
||||
instance-session-id
|
||||
session-adjust-timeout!
|
||||
adjust-timeout!
|
||||
session-alive?
|
||||
session-surflet-name
|
||||
;; FIXME: This is too much and should be restricted:
|
||||
session-memo
|
||||
session-continuation-table
|
||||
session-continuation-table-lock
|
||||
session-continuation-counter)))
|
||||
|
||||
(define-interface surflet-handler/surflets-interface
|
||||
(export get-loaded-surflets
|
||||
|
@ -338,7 +341,8 @@
|
|||
surflets/input-fields-interface
|
||||
surflets/addresses-interface
|
||||
surflets/returned-via-interface
|
||||
surflets/bindings-interface))
|
||||
surflets/bindings-interface
|
||||
surflets/session-data-interface))
|
||||
|
||||
;;; Structures
|
||||
;; structures from SUrflet Handler
|
||||
|
@ -352,7 +356,8 @@
|
|||
(surflet-handler/responses surflet-handler/responses-interface)
|
||||
(surflets/sessions surflets/sessions-interface)
|
||||
(surflets/continuations surflets/continuations-interface)
|
||||
(surflets/error surflets/error-interface))
|
||||
(surflets/error surflets/error-interface)
|
||||
(surflets/session-data surflets/session-data-interface))
|
||||
(open define-record-types ;DEFINE-RECORD-TYPE
|
||||
handle-fatal ;WITH-FATAL-ERROR-HANDLER* et al.
|
||||
handle-fatal-error
|
||||
|
@ -382,9 +387,10 @@
|
|||
|
||||
;; SUrflets library of helping functions
|
||||
(define-structure surflets surflets-interface
|
||||
(open surflets/send-html
|
||||
(open surflets/session-data
|
||||
surflets/send-html ;send-html/suspend...
|
||||
surflets/input-fields
|
||||
surflets/addresses
|
||||
surflets/addresses ;annotated-address...
|
||||
surflets/returned-via
|
||||
surflets/bindings))
|
||||
|
||||
|
@ -442,7 +448,7 @@
|
|||
;;; We have two names for the same thing to ease the use of structure
|
||||
;;; names: requests seem to be part of the surflet-handler, but are
|
||||
;;; actually seperate files. If you know everything about SUrflets,
|
||||
;;; you use `surlfet-requests'.
|
||||
;;; you use `surflet-requests'.
|
||||
(define-structures
|
||||
((surflet-handler/requests surflet-handler/requests-interface)
|
||||
(surflet-requests surflet-handler/requests-interface))
|
||||
|
|
|
@ -1,7 +1,6 @@
|
|||
(define-structure surflet surflet-interface
|
||||
(open scheme-with-scsh
|
||||
surflets
|
||||
surflets/sessions
|
||||
surflets/error
|
||||
profiling
|
||||
handle-fatal-error
|
||||
|
|
Loading…
Reference in New Issue