diff options
Diffstat (limited to 'sca-java-2.x/trunk/modules/node-manager/src/test/resources/ui/atomutil.js')
-rw-r--r-- | sca-java-2.x/trunk/modules/node-manager/src/test/resources/ui/atomutil.js | 165 |
1 files changed, 0 insertions, 165 deletions
diff --git a/sca-java-2.x/trunk/modules/node-manager/src/test/resources/ui/atomutil.js b/sca-java-2.x/trunk/modules/node-manager/src/test/resources/ui/atomutil.js deleted file mode 100644 index 182b698596..0000000000 --- a/sca-java-2.x/trunk/modules/node-manager/src/test/resources/ui/atomutil.js +++ /dev/null @@ -1,165 +0,0 @@ -/* - * Licensed to the Apache Software Foundation (ASF) under one - * or more contributor license agreements. See the NOTICE file - * distributed with this work for additional information - * regarding copyright ownership. The ASF licenses this file - * to you under the Apache License, Version 2.0 (the - * "License"); you may not use this file except in compliance - * with the License. You may obtain a copy of the License at - * - * http://www.apache.org/licenses/LICENSE-2.0 - * - * Unless required by applicable law or agreed to in writing, - * software distributed under the License is distributed on an - * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY - * KIND, either express or implied. See the License for the - * specific language governing permissions and limitations - * under the License. - */ - -/** - * ATOM data conversion functions. - */ -var atom = {}; - -/** - * Convert a list of elements to a list of values representing an ATOM entry. - */ -atom.entryElementValues = function(e) { - var lt = filter(selector(mklist(element, "'title")), e); - var t = isNil(lt)? '' : elementValue(car(lt)); - var li = filter(selector(mklist(element, "'id")), e); - var i = isNil(li)? '' : elementValue(car(li)); - var lc = filter(selector(mklist(element, "'content")), e); - return append(mklist(element, "'entry", mklist(element, "'title", t), mklist(element, "'id", i)), - isNil(lc)? mklist() : mklist(mklist(element, "'content", elementValue(car(lc))))) -}; - -/** - * Convert a list of elements to a list of values representing ATOM entries. - */ -atom.entriesElementValues = function(e) { - if (isNil(e)) - return e; - return cons(atom.entryElementValues(car(e)), atom.entriesElementValues(cdr(e))); -}; - -/** - * Return true if a list of strings represents an ATOM entry. - */ -atom.isATOMEntry = function(l) { - if (!isXML(l)) - return false; - return car(l).match('<entry') != null && car(l).match('<feed') == null && car(l).match('="http://www.w3.org/2005/Atom"') != null; -}; - -/** - * Convert a DOM Document to a list of values representing an ATOM entry. - */ -atom.readATOMEntryDocument = function(doc) { - var e = readXMLDocument(doc); - if (isNil(e)) - return mklist(); - return mklist(atom.entryElementValues(car(e))); -}; - -/** - * Convert a list of strings to a list of values representing an ATOM entry. - */ -atom.readATOMEntry = function(l) { - return atom.readATOMEntryDocument(parseXML(l)); -}; - -/** - * Return true if a list of strings represents an ATOM feed. - */ -atom.isATOMFeed = function(l) { - if (!isXML(l)) - return false; - return car(l).match('<feed') != null && car(l).match('="http://www.w3.org/2005/Atom"') != null; -}; - -/** - * Convert a DOM document to a list of values representing an ATOM feed. - */ -atom.readATOMFeedDocument = function(doc) { - var f = readXMLDocument(doc); - if (isNil(f)) - return mklist(); - var t = filter(selector(mklist(element, "'title")), car(f)); - var i = filter(selector(mklist(element, "'id")), car(f)); - var e = filter(selector(mklist(element, "'entry")), car(f)); - return mklist(append( - mklist(element, "'feed", mklist(element, "'title", elementValue(car(t))), mklist(element, "'id", elementValue(car(i)))), - atom.entriesElementValues(e))); -}; - -/** - * Convert a list of strings to a list of values representing an ATOM feed. - */ -atom.readATOMFeed = function(l) { - return atom.readATOMFeedDocument(parseXML(l)); -}; - -/** - * Convert a list of values representy an ATOM entry to a list of elements. - */ -atom.entryElement = function(l) { - var title = elementValue(namedElementChild("'title", l)); - var id = elementValue(namedElementChild("'id", l)); - var content = namedElementChild("'content", l); - var text = isNil(content)? false : elementHasValue(content); - return append(append( - mklist(element, "'entry", mklist(attribute, "'xmlns", "http://www.w3.org/2005/Atom"), - mklist(element, "'title", mklist(attribute, "'type", "text"), title), mklist(element, "'id", id)), - isNil(content)? mklist() : - append(mklist(element, "'content", mklist(attribute, "'type", text? "text" : "application/xml")), text? mklist(elementValue(content)) : elementChildren(content))), - mklist(element, "'link", mklist(attribute, "'href", id))); -}; - -/** - * Convert a list of values representing ATOM entries to a list of elements. - */ -atom.entriesElements = function(l) { - if (isNil(l)) - return l; - return cons(atom.entryElement(car(l)), atom.entriesElements(cdr(l))); -}; - -/** - * Convert a list of values representing an ATOM entry to an ATOM entry. - */ -atom.writeATOMEntry = function(ll) { - var l = isNil(ll)? ll : car(ll); - return writeXML(mklist(atom.entryElement(l)), true); -}; - -/** - * Convert a list of values representing an ATOM feed to an ATOM feed. - */ -atom.writeATOMFeed = function(ll) { - var l = isNil(ll)? ll : car(ll); - var lt = filter(selector(mklist(element, "'title")), l); - var t = isNil(lt)? '' : elementValue(car(lt)); - var li = filter(selector(mklist(element, "'id")), l); - var i = isNil(li)? '' : elementValue(car(li)); - var f = mklist(element, "'feed", mklist(attribute, "'xmlns", "http://www.w3.org/2005/Atom"), - mklist(element, "'title", mklist(attribute, "'type", "text"), car(l)), - mklist(element, "'id", cadr(l))); - - // Write ATOM entries - var le = filter(selector(mklist(element, "'entry")), l); - if (isNil(le)) - return writeXML(mklist(f), true); - - // Write a single ATOM entry element with a list of values - if (!isNil(le) && !isNil(car(le)) && isList(car(caddr(car(le))))) { - var fe = append(f, atom.entriesElements(caddr(car(le)))); - return writeXML(mklist(fe), true); - } - - // Write separate ATOM entry elements - var fe = append(f, atom.entriesElements(le)); - return writeXML(mklist(fe), true); -}; - |