scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* New packages SURFLETS/INTERNAL-INPUT-FIELDS provides bindings used to 

define INPUT-FIELD-RULE in surflet-input-fields.scm.
* Change imports of SURFLETS/SURFLET-SXML (don't need pre-post-order
anymore).
This commit is contained in:
interp 2003-07-11 11:38:28 +00:00
parent 7a7fd39f0c
commit 7e76eac6c8
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
scheme/httpd/surflets/packages.scm
View File

@ -286,8 +286,7 @@
(define-interface surflets/my-input-fields-interface (define-interface surflets/my-input-fields-interface
(compound-interface (compound-interface
surflets/input-field-value-interface surflets/input-field-value-interface
(export *input-field-trigger* (export generate-input-field-name
generate-input-field-name
make-input-field make-input-field
make-multi-input-field make-multi-input-field
input-field-name input-field-name
@ -300,6 +299,12 @@
set-input-field-attributes! set-input-field-attributes!
touch-input-field!))) touch-input-field!)))
;; For internal use: special exports to create
;; SXL-rules for input-fields
(define-interface surflets/internal-input-fields-interface
(export *input-field-trigger*
make-sxml-input-field))
(define-interface surflets/surflet-input-fields-interface (define-interface surflets/surflet-input-fields-interface
(compound-interface (compound-interface
surflets/input-field-value-interface surflets/input-field-value-interface
@ -555,7 +560,8 @@
;; Input fields as Scheme objects ;; Input fields as Scheme objects
(define-structures (define-structures
((surflets/input-field-value surflets/input-field-value-interface) ((surflets/input-field-value surflets/input-field-value-interface)
(surflets/my-input-fields surflets/my-input-fields-interface)) (surflets/my-input-fields surflets/my-input-fields-interface)
(surflets/internal-input-fields surflets/internal-input-fields-interface))
(open scheme-with-scsh ;error, format (open scheme-with-scsh ;error, format
(subset let-opt (:optional)) (subset let-opt (:optional))
handle-fatal-error handle-fatal-error
@ -585,10 +591,13 @@
;; Extensions to SXML for surflets ;; Extensions to SXML for surflets
(define-structure surflets/surflet-sxml surflets/surflet-sxml-interface (define-structure surflets/surflet-sxml surflets/surflet-sxml-interface
(open scheme-with-scsh ;error,receive (open scheme-with-scsh ;error,receive
(subset surflets/my-input-fields (subset surflets/my-input-fields (input-field-html-tree))
(*input-field-trigger* input-field-html-tree)) (subset surflets/internal-input-fields
surflets/sxml (*input-field-trigger*
(subset sxml-tree-trans (pre-post-order))) make-sxml-input-field))
surflets/utilities
(subset srfi-1 (make-list))
surflets/sxml)
(files surflet-sxml)) (files surflet-sxml))