Byzantine Askemos Language Layer

:: pdf :: context view

inbound links:

Recent Changes

/A26b5619be8d5e3348cca356acfc8efea text/xml (grove-root (current-node)) Message Editor

Message Editor

text/xml (grove-root (current-node)) (literal (xml-format (guard (exception (else (literal exception))) ((eval `(lambda (current-node ancestors grove-root fetch here) ,(read (data ((sxpath '(expression)) (xsl-variable "state")))))) (lambda () (xsl-variable "body")) ancestors grove-root fetch me)))) access denied

I'm sorry to inform you, that you are not allowed to access this place.

(root (let* ((this-root (document-element (if (member (data (xsl-variable "write-component")) '("" "None")) (xsl-variable "body") (children (form-field 'input (current-node)))))) (state (and (equal? (data (form-field 'edit-state (current-node))) "yes") (children (form-field 'state (current-node))))) (component (and (equal? (data (form-field 'action (current-node))) "accept") (data ((sxpath '(component)) (xsl-variable "state"))))) (new (node-list-map (lambda (node) (cond ((and state (match-element? 'state node)) state) ((and component (equal? component (attribute-string 'name node) )) (make element gi: (gi node) ns: (ns node) attributes: (map (lambda (att) (if (eq? (cadr att) 'match) `(,(car att) match ,(attribute-string 'match node)) att )) (copy-attributes node)) (children (xsl-variable "body")))) (else node))) ;; The children of the root of the style sheet. (children this-root)))) (make element gi: (gi this-root) ns: (ns this-root) attributes: (copy-attributes this-root) (if (equal? (data (form-field 'action (current-node))) "insert") (node-list new (make element gi: (data (form-field 'gi (current-node))) ns: 'http://www.w3.org/1999/XSL/Transform attributes: `((name ,(data (form-field 'name (current-node))))))) new)))) <d:copy-of select=" (data ((sxpath '(title)) (grove-root (current-node)))) "></d:copy-of>
-- dbg



Edit the parsed version or embedded in the full document.. First save! You may use HTTP-PUT (behind the save or publish publish button of you browser/editor) to commit your changes there.

places
Name Select OID Delete
None
components
Name Select . Delete
None
.
body none-text content

expression

Result:

                 
                

Sorry, no edit mode for content type (node-list (literal "\"" (data ((sxpath '(content-type)) (xsl-variable "state"))) "\" please use ") (make element gi: 'a attributes: `((href ,(read-locator (msg 'location-format) (list "index.html" (me 'get 'id))))) (literal "external editor")) (literal "."))

(let ((default (lambda (node) (let ((ff (form-field (gi node) (current-node)))) (cond ((eq? (gi node) 'view) (make element gi: 'view (if (equal? (data (form-field 'open (current-node))) "close") (empty-node-list) (node-list (form-field 'open (current-node)) (children node))))) ((node-list-empty? ff) node) ((eq? (gi node) 'body) (make element gi: (gi node) attributes: (copy-attributes node) (children ff))) ((eq? (gi node) 'to) (make element gi: 'to (data (node-list-first (filter (lambda (x) (not (member (data x) '("" "None")))) ff))))) (else ff)))))) (node-list-map (cond ;; Direct write of the message body at "index.html". ((equal? (let ((dst (msg 'destination))) 2 (and (not (null? dst)) (car dst))) "index.html") (lambda (n) (if (eq? (gi n) 'body) (make element gi: (gi n) ns: (ns n) attributes: '() (literal (msg 'mind-body))) n))) ;; set-value ((equal? (data (form-field 'action (current-node))) "set-value") (lambda (n) (if (eq? (gi n) 'body) (make element gi: (gi n) ns: (ns n) attributes: '() (xsl-variable "evaluated")) n))) ;; The file upload box. ((and (node-list-empty? (form-field 'content-type (current-node))) (not (node-list-empty? (form-field 'body (current-node))))) (let* ((body (form-field 'body (current-node))) (ct (and (match-element? 'output (document-element (children body))) (attribute-string 'media-type (document-element (children body))) ))) (lambda (n) (case (gi n) ((body) body) ((content-type) (if ct (make element gi: (gi n) (literal ct)) n)) (else n))))) ;; crude approach to "load" ((equal? (data (form-field 'action (current-node))) "load") (let* ((from (data (xsl-variable "write-component"))) (wp (data (xsl-variable "write-cursor"))) (input (document-element (if (me wp) (fetch wp) (grove-root (current-node))))) (component ((sxpath `((* (@ (equal? (name ,from)))))) input)) (node (if (or (node-list-empty? component) (not ((pcre "components") ((sxpath '(view)) (xsl-variable "state")))) ) input component)) (ct (or (attribute-string 'media-type node) "text/xml"))) (lambda (n) (case (gi n) ((body) (make element gi: (gi n) attributes: (copy-attributes n) (if ((pcre "xml") ct) (xml-format (make element gi: (gi node) ns: (ns node) attributes: (if (eq? component node) (append (copy-attributes node) (copy-attributes (grove-root (current-node))) ) (copy-attributes node)) (children node))) ((or (mime-cast ct "text/xml") (lambda (x) x)) (children node))))) ((content-type) (if ct (make element gi: (gi n) (literal ct)) n)) (else (default n)))))) ;; All form fields (else default)) (let ((state ((sxpath '(state)) (grove-root (current-node))))) (node-list-map (lambda (schema) (let ((old ((sxpath (list (gi schema))) state))) (if (node-list-empty? old) schema old))) (xsl-variable "state-schema"))))) (root (let* ((this-root (document-element (grove-root (current-node)))) (new (node-list-map (lambda (node) (cond ((match-element? 'state node) (xsl-variable "state")) ((and (equal? (data (form-field 'action (current-node))) "accept") (equal? (data ((sxpath '(component)) (xsl-variable "state"))) (attribute-string 'name node) )) (make element gi: (gi node) ns: (ns node) attributes: (map (lambda (att) (if (eq? (cadr att) 'match) `(,(car att) match ,(attribute-string 'match node)) att )) (copy-attributes node)) (children (xsl-variable "body")))) (else node))) ;; The children of the root of the style sheet. (children this-root)))) (make element gi: (gi this-root) ns: (ns this-root) attributes: (copy-attributes this-root) (if (equal? (data (form-field 'action (current-node))) "insert") (node-list new (make element gi: (data (form-field 'gi (current-node))) ns: 'http://www.w3.org/1999/XSL/Transform attributes: `((name ,(data (form-field 'name (current-node))))))) new))))
DevelopmentNetwork /A26b5619be8d5e3348cca356acfc8efea/DevelopmentNetwork Thu, 20 Feb 2014 12:52:38 +0100 IntroRequestExample /A26b5619be8d5e3348cca356acfc8efea/IntroRequestExample Sun, 21 Jul 2013 10:08:46 +0200 InstallResources /A26b5619be8d5e3348cca356acfc8efea/InstallResources Thu, 20 Jun 2013 22:57:18 +0200 InstallSysReq /A26b5619be8d5e3348cca356acfc8efea/InstallSysReq Thu, 20 Jun 2013 22:34:41 +0200 RequestsAndReports /A26b5619be8d5e3348cca356acfc8efea/RequestsAndReports Wed, 21 Nov 2012 12:26:55 +0100 DSSSL /A26b5619be8d5e3348cca356acfc8efea/DSSSL Sat, 16 Apr 2011 14:12:09 +0200 /A26b5619be8d5e3348cca356acfc8efea/ Thu, 24 Mar 2011 15:27:33 +0100 ApplicationExamples /A26b5619be8d5e3348cca356acfc8efea/ApplicationExamples Tue, 25 Jan 2011 18:29:19 +0100 HoistAbout /A26b5619be8d5e3348cca356acfc8efea/HoistAbout Tue, 25 Jan 2011 18:23:15 +0100 BALLTopMenu /A26b5619be8d5e3348cca356acfc8efea/BALLTopMenu Sat, 15 Jan 2011 16:36:12 +0100 WikiWiki /A26b5619be8d5e3348cca356acfc8efea/WikiWiki Tue, 28 Dec 2010 15:17:30 +0100 ManIndex /A26b5619be8d5e3348cca356acfc8efea/ManIndex Mon, 27 Dec 2010 18:03:55 +0100 ABHistory /A26b5619be8d5e3348cca356acfc8efea/ABHistory Fri, 24 Dec 2010 17:24:01 +0100 NEWS /A26b5619be8d5e3348cca356acfc8efea/NEWS Thu, 23 Dec 2010 19:09:01 +0100 InstallStableVersion /A26b5619be8d5e3348cca356acfc8efea/InstallStableVersion Thu, 23 Dec 2010 17:37:01 +0100 ApplicationPrograming /A26b5619be8d5e3348cca356acfc8efea/ApplicationPrograming Sun, 19 Dec 2010 20:36:48 +0100 SetupNetX509WOT /A26b5619be8d5e3348cca356acfc8efea/SetupNetX509WOT Sun, 19 Dec 2010 20:22:47 +0100 InstallBALLSource /A26b5619be8d5e3348cca356acfc8efea/InstallBALLSource Sun, 19 Dec 2010 19:39:56 +0100 SetupNetCA /A26b5619be8d5e3348cca356acfc8efea/SetupNetCA Sun, 19 Dec 2010 19:09:29 +0100 TPF /A26b5619be8d5e3348cca356acfc8efea/TPF Tue, 14 Dec 2010 19:10:29 +0100 TPFSchemeChicken /A26b5619be8d5e3348cca356acfc8efea/TPFSchemeChicken Sun, 12 Dec 2010 20:13:58 +0100 SQL /A26b5619be8d5e3348cca356acfc8efea/SQL Sun, 12 Dec 2010 19:30:46 +0100 BALLFeatures /A26b5619be8d5e3348cca356acfc8efea/BALLFeatures Sun, 12 Dec 2010 16:31:52 +0100 template /A26b5619be8d5e3348cca356acfc8efea/template Sun, 12 Dec 2010 15:08:53 +0100 BALL /A26b5619be8d5e3348cca356acfc8efea/BALL Sun, 12 Dec 2010 15:04:56 +0100 XML /A26b5619be8d5e3348cca356acfc8efea/XML Sat, 11 Dec 2010 23:31:48 +0100 metasystems /A26b5619be8d5e3348cca356acfc8efea/metasystems Sat, 11 Dec 2010 23:05:30 +0100

Last modification:

Author(s):

Document number A26b5619be8d5e3348cca356acfc8efea delivered to public at Mon, 20 May 2019 00:41:45 +0100

short comments

add comment