You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@tuscany.apache.org by js...@apache.org on 2011/01/09 04:39:13 UTC
svn commit: r1056881 - in /tuscany/sca-cpp/trunk/modules:
edit/domains/travel/ edit/domains/travel/app.composite
edit/htdocs/edit/graph.js edit/htdocs/edit/index.html
edit/workspaces/joe@localhost js/htdocs/elemutil.js js/htdocs/util.js
Author: jsdelfino
Date: Sun Jan 9 03:39:13 2011
New Revision: 1056881
URL: http://svn.apache.org/viewvc?rev=1056881&view=rev
Log:
Add a composite similar to the travel tutorial app to the sample dashboard. Minor Javascript performance improvements to speed up the layout of big composites.
Added:
tuscany/sca-cpp/trunk/modules/edit/domains/travel/
tuscany/sca-cpp/trunk/modules/edit/domains/travel/app.composite
Modified:
tuscany/sca-cpp/trunk/modules/edit/htdocs/edit/graph.js
tuscany/sca-cpp/trunk/modules/edit/htdocs/edit/index.html
tuscany/sca-cpp/trunk/modules/edit/workspaces/joe@localhost
tuscany/sca-cpp/trunk/modules/js/htdocs/elemutil.js
tuscany/sca-cpp/trunk/modules/js/htdocs/util.js
Added: tuscany/sca-cpp/trunk/modules/edit/domains/travel/app.composite
URL: http://svn.apache.org/viewvc/tuscany/sca-cpp/trunk/modules/edit/domains/travel/app.composite?rev=1056881&view=auto
==============================================================================
--- tuscany/sca-cpp/trunk/modules/edit/domains/travel/app.composite (added)
+++ tuscany/sca-cpp/trunk/modules/edit/domains/travel/app.composite Sun Jan 9 03:39:13 2011
@@ -0,0 +1,240 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!--
+ * 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.
+-->
+<composite xmlns="http://docs.oasis-open.org/ns/opencsa/sca/200912"
+ xmlns:t="http://tuscany.apache.org/xmlns/sca/1.1"
+ targetNamespace="http://tuscanyscatours.com/"
+ name="travel">
+
+ <service name="SCAToursUserInterface" promote="SCAToursUserInterface"/>
+
+ <component name="SCAToursUserInterface" t:color="green">
+ <t:implementation.widget location="scatours.html"/>
+ <service name="Widget">
+ <t:binding.http uri="/scatours"/>
+ </service>
+ <reference name="scaToursCatalog" target="SCATours/SCAToursSearch" t:align="bottom">
+ <t:binding.jsonrpc/>
+ </reference>
+ <!-- Comment out multiple references wired to the same target -->
+ <!--
+ <reference name="scaToursBooking" target="SCATours/SCAToursBooking">
+ <t:binding.jsonrpc/>
+ </reference>
+ <reference name="scaToursCart" target="SCATours/SCAToursCart">
+ <t:binding.jsonrpc/>
+ </reference>
+ -->
+ </component>
+
+ <component name="SCATours">
+ <implementation.java class="com.tuscanyscatours.impl.SCAToursImpl"/>
+ <service name="SCAToursSearch" t:align="top">
+ <t:binding.jsonrpc/>
+ </service>
+ <!-- Comment out multiple services -->
+ <!--
+ <service name="SCAToursBooking">
+ <t:binding.jsonrpc/>
+ </service>
+ <service name="SCAToursCart">
+ <t:binding.jsonrpc/>
+ </service>
+ -->
+ <reference name="travelCatalogSearch" target="TravelCatalog/TravelCatalogSearch"/>
+ <reference name="tripBooking" target="TripBooking"/>
+ <!-- Comment out multiple references wired to the same target -->
+ <!--
+ <reference name="cartInitialize" target="ShoppingCart/CartInitialize"/>
+ -->
+ <reference name="cartCheckout" target="ShoppingCart/CartCheckout"/>
+ </component>
+
+ <component name="CreditCardPayment">
+ <implementation.java class="com.tuscanyscatours.payment.creditcard.impl.CreditCardPaymentImpl" />
+ <service name="CreditCardPayment">
+ <interface.wsdl interface="http://www.tuscanyscatours.com/CreditCardPayment/#wsdl.interface(CreditCardPayment)" />
+ <binding.ws uri="http://localhost:8082/CreditCardPayment" requires="authentication"/>
+ <binding.sca/>
+ </service>
+ </component>
+
+ <component name="CurrencyConverter">
+ <implementation.java class="com.tuscanyscatours.currencyconverter.impl.CurrencyConverterImpl" />
+ <service name="CurrencyConverter"/>
+ </component>
+
+ <component name="HotelPartner" t:color="orange">
+ <implementation.java class="com.tuscanyscatours.hotel.impl.HotelImpl"/>
+ <service name="Search">
+ <binding.ws name="searchws" uri="http://localhost:8086/Hotel/Search"/>
+ <!-- t:binding.jsonrpc name="searchjsonrpc"/-->
+ <callback>
+ <binding.ws/>
+ </callback>
+ </service>
+ <service name="Book"/>
+ </component>
+
+ <component name="FlightPartner" t:color="orange">
+ <implementation.java class="com.tuscanyscatours.flight.impl.FlightImpl"/>
+ <service name="Search">
+ <interface.java interface="com.tuscanyscatours.common.Search"
+ callbackInterface="com.tuscanyscatours.common.SearchCallback"/>
+ <binding.ws name="searchws" uri="http://localhost:8086/Flight/Search"/>
+ <t:binding.jsonrpc name="searchjsonrpc"/>
+ <callback>
+ <binding.ws/>
+ </callback>
+ </service>
+ <service name="Book"/>
+ </component>
+
+ <component name="CarPartner" t:color="orange">
+ <implementation.java class="com.tuscanyscatours.car.impl.CarImpl"/>
+ <service name="Search">
+ <binding.ws name="searchws" uri="http://localhost:8086/Car/Search"/>
+ <t:binding.jsonrpc name="searchjsonrpc"/>
+ <callback>
+ <binding.ws/>
+ </callback>
+ </service>
+ <service name="Book"/>
+ </component>
+
+ <component name="TravelCatalog">
+ <implementation.java class="com.tuscanyscatours.travelcatalog.impl.TravelCatalogImpl"/>
+ <service name="TravelCatalogSearch"/>
+ <!-- Wire to placeholder component representing external endpoint -->
+ <reference name="hotelSearch" target="HotelSearch">
+ <binding.ws uri="http://localhost:8086/Hotel/Search"/>
+ <callback>
+ <binding.ws name="callback"
+ uri="http://localhost:8084/Hotel/SearchCallback"/>
+ </callback>
+ </reference>
+ <!-- Wire to placeholder component representing external endpoint -->
+ <reference name="flightSearch" target="FlightSearch">
+ <interface.java interface="com.tuscanyscatours.common.Search"
+ callbackInterface="com.tuscanyscatours.common.SearchCallback"/>
+ <binding.ws uri="http://localhost:8086/Flight/Search"/>
+ <callback>
+ <binding.ws name="callback"
+ uri="http://localhost:8084/Flight/SearchCallback"/>
+ </callback>
+ </reference>
+ <!-- Wire to placeholder component representing external endpoint -->
+ <reference name="carSearch" target="CarSearch">
+ <binding.ws uri="http://localhost:8086/Car/Search"/>
+ <callback>
+ <binding.ws name="callback"
+ uri="http://localhost:8084/Car/SearchCallback"/>
+ </callback>
+ </reference>
+ <!-- Wire to placeholder component representing external endpoint -->
+ <reference name="tripSearch" target="TripSearch">
+ <binding.ws uri="http://localhost:8085/Trip/Search"/>
+ <callback>
+ <binding.ws name="callback"
+ uri="http://localhost:8084/Trip/SearchCallback"/>
+ </callback>
+ </reference>
+ <reference name="currencyConverter" target="CurrencyConverter">
+ </reference>
+ <property name="quoteCurrencyCode">GBP</property>
+ </component>
+
+ <component name="TripBooking">
+ <implementation.java class="com.tuscanyscatours.tripbooking.impl.TripBookingImpl"/>
+ <service name="TripBooking"/>
+ <reference name="hotelBook" target="HotelPartner/Book"/>
+ <reference name="flightBook" target="FlightPartner/Book"/>
+ <reference name="carBook" target="CarPartner/Book"/>
+ <reference name="tripBook" target="TripPartner/Book"/>
+ <reference name="cartUpdates" target="ShoppingCart/CartUpdates"/>
+ </component>
+
+ <component name="TripPartner" t:color="orange">
+ <implementation.java class="com.tuscanyscatours.trip.impl.TripImpl"/>
+ <service name="Search">
+ <binding.ws name="searchws" uri="http://localhost:8085/Trip/Search"/>
+ <t:binding.jsonrpc name="searchjsonrpc"/>
+ <callback>
+ <binding.ws/>
+ </callback>
+ </service>
+ <service name="Book"/>
+ </component>
+
+ <component name="ShoppingCart">
+ <implementation.java class="com.tuscanyscatours.shoppingcart.impl.ShoppingCartImpl"/>
+ <reference name="cartStore" target="CartStore" t:align="bottom"/>
+ <!-- Wire to placeholder component representing external endpoint -->
+ <reference name="payment" target="Payment">
+ <binding.ws uri="http://localhost:8081/Payment" />
+ </reference>
+ </component>
+
+ <component name="CartStore" t:color="yellow">
+ <!-- Add service element to specify alignment -->
+ <service name="CartStore" t:align="top"/>
+ <implementation.java class="com.tuscanyscatours.shoppingcart.impl.CartStoreImpl"/>
+ </component>
+
+ <component name="Payment">
+ <implementation.spring location="Payment-context.xml"/>
+ <service name="Payment">
+ <binding.ws uri="http://localhost:8081/Payment"/>
+ </service>
+ <!-- Wire to placeholder component representing external endpoint -->
+ <reference name="creditCardPaymentReference" target="CreditCardPayment">
+ <binding.ws uri="http://localhost:8082/CreditCardPayment" requires="authentication"/>
+ </reference>
+ <reference name="emailGateway" target="EmailGateway"/>
+ <reference name="customerRegistry" target="CustomerRegistry"/>
+ <property name="transactionFee">1.23</property>
+ </component>
+
+ <component name="CustomerRegistry">
+ <implementation.java class="com.tuscanyscatours.customer.impl.CustomerRegistryImpl" />
+ </component>
+
+ <component name="EmailGateway">
+ <implementation.java class="com.tuscanyscatours.emailgateway.impl.EmailGatewayImpl" />
+ </component>
+
+ <!-- Add placeholder components representing external endpoints -->
+ <component name="HotelSearch" t:color="red">
+ <service name="HotelSearch"/>
+ <implementation.java class="com.tuscanyscatours.PlaceHolderImpl" />
+ </component>
+ <component name="FlightSearch" t:color="red">
+ <service name="FlightSearch"/>
+ <implementation.java class="com.tuscanyscatours.PlaceHolderImpl" />
+ </component>
+ <component name="CarSearch" t:color="red">
+ <service name="CarSearch"/>
+ <implementation.java class="com.tuscanyscatours.PlaceHolderImpl" />
+ </component>
+ <component name="TripSearch" t:color="red">
+ <service name="TripSearch"/>
+ <implementation.java class="com.tuscanyscatours.PlaceHolderImpl" />
+ </component>
+
+</composite>
Modified: tuscany/sca-cpp/trunk/modules/edit/htdocs/edit/graph.js
URL: http://svn.apache.org/viewvc/tuscany/sca-cpp/trunk/modules/edit/htdocs/edit/graph.js?rev=1056881&r1=1056880&r2=1056881&view=diff
==============================================================================
--- tuscany/sca-cpp/trunk/modules/edit/htdocs/edit/graph.js (original)
+++ tuscany/sca-cpp/trunk/modules/edit/htdocs/edit/graph.js Sun Jan 9 03:39:13 2011
@@ -120,9 +120,9 @@ if (graph.supportsVML()) {
document.body.appendChild(div);
var vmlg = document.createElement('v:group');
- vmlg.style.width = 500;
- vmlg.style.height = 500;
- vmlg.coordsize = '500,500';
+ vmlg.style.width = 2000;
+ vmlg.style.height = 2000;
+ vmlg.coordsize = '2000,2000';
div.appendChild(vmlg);
graph.dragging = null;
@@ -278,17 +278,17 @@ if (graph.supportsVML()) {
var d = graph.comppath(comp, cassoc).str();
var shape = document.createElement('v:shape');
- shape.style.width = 500;
- shape.style.height = 500;
- shape.coordsize = '500,500';
+ shape.style.width = 2000;
+ shape.style.height = 2000;
+ shape.coordsize = '2000,2000';
shape.path = d;
shape.fillcolor = graph.color(comp);
shape.stroked = 'false';
var contour = document.createElement('v:shape');
- contour.style.width = 500;
- contour.style.height = 500;
- contour.coordsize = '500,500';
+ contour.style.width = 2000;
+ contour.style.height = 2000;
+ contour.coordsize = '2000,2000';
contour.setAttribute('path', d);
contour.filled = 'false';
contour.strokecolor = graph.colors.gray;
@@ -301,9 +301,9 @@ if (graph.supportsVML()) {
var g = document.createElement('v:group');
g.id = scdl.name(comp);
- g.style.width = 500;
- g.style.height = 500;
- g.coordsize = '500,500';
+ g.style.width = 2000;
+ g.style.height = 2000;
+ g.coordsize = '2000,2000';
g.style.left = pos.xpos();
g.style.top = pos.ypos();
g.appendChild(shape);
@@ -514,41 +514,61 @@ if (graph.supportsSVG()) {
* Return the services and references of a component.
*/
graph.tsvcs = function(comp) {
- return filter(function(s) { return scdl.align(s) == 'top'; }, scdl.services(comp));
+ return memo(comp, 'tsvcs', function() {
+ var svcs = scdl.services(comp);
+ var l = filter(function(s) { return scdl.align(s) == 'top'; }, svcs);
+ if (isNil(l))
+ return mklist();
+ return mklist(car(l));
+ });
};
graph.lsvcs = function(comp) {
- var svcs = scdl.services(comp);
- if (isNil(svcs))
- return mklist("'element","'service","'attribute","'name",scdl.name(comp));
- var l = filter(function(s) { var a = scdl.align(s); return a == null || a == 'left'; }, scdl.services(comp));
- return l;
+ return memo(comp, 'lsvcs', function() {
+ var svcs = scdl.services(comp);
+ if (isNil(svcs))
+ return mklist(mklist("'element","'service","'attribute","'name",scdl.name(comp)));
+ var l = filter(function(s) { var a = scdl.align(s); return a == null || a == 'left'; }, svcs);
+ if (isNil(l))
+ return mklist();
+ if (!isNil(graph.tsvcs(comp)))
+ return mklist();
+ return mklist(car(l));
+ });
};
graph.brefs = function(comp) {
- return filter(function(r) { return scdl.align(r) == 'bottom'; }, scdl.references(comp));
+ return memo(comp, 'brefs', function() {
+ return filter(function(r) { return scdl.align(r) == 'bottom'; }, scdl.references(comp));
+ });
};
graph.rrefs = function(comp) {
- return filter(function(r) { var a = scdl.align(r); return a == null || a == 'right'; }, scdl.references(comp));
+ return memo(comp, 'rrefs', function() {
+ return filter(function(r) { var a = scdl.align(r); return a == null || a == 'right'; }, scdl.references(comp));
+ });
};
/**
* Return the color of a component.
*/
graph.color = function(comp) {
- var c = scdl.color(comp);
- return c == null? graph.colors.blue : graph.colors[c];
+ return memo(comp, 'color', function() {
+ var c = scdl.color(comp);
+ return c == null? graph.colors.blue : graph.colors[c];
+ });
};
/**
* Return the height of a reference on the right side of a component.
*/
graph.rrefheight = function(ref, cassoc) {
- var target = assoc(scdl.target(ref), cassoc);
- if (isNil(target))
- return 60;
- return graph.compclosureheight(cadr(target), cassoc);
+ return memo(ref, 'height', function() {
+ var target = assoc(scdl.target(ref), cassoc);
+ if (isNil(target))
+ return 60;
+ return graph.compclosureheight(cadr(target), cassoc);
+ });
};
/**
@@ -573,31 +593,37 @@ graph.brefsheight = function(refs, casso
* Return the height of a component.
*/
graph.compheight = function(comp, cassoc) {
- var lsvcs = graph.lsvcs(comp);
- var lsvcsh = Math.max(1, length(lsvcs)) * 60 + 20;
- var rrefs = graph.rrefs(comp);
- var rrefsh = graph.rrefsheight(rrefs, cassoc) + 20;
- var height = Math.max(lsvcsh, rrefsh);
- return height;
+ return memo(comp, 'height', function() {
+ var lsvcs = graph.lsvcs(comp);
+ var lsvcsh = Math.max(1, length(lsvcs)) * 60 + 20;
+ var rrefs = graph.rrefs(comp);
+ var rrefsh = graph.rrefsheight(rrefs, cassoc) + 20;
+ var height = Math.max(lsvcsh, rrefsh);
+ return height;
+ });
};
/**
* Return the height of a component and the components wired to its bottom side.
*/
graph.compclosureheight = function(comp, cassoc) {
- var brefs = graph.brefs(comp);
- var height = graph.compheight(comp, cassoc) + graph.brefsheight(brefs, cassoc);
- return height;
+ return memo(comp, 'closureheight', function() {
+ var brefs = graph.brefs(comp);
+ var height = graph.compheight(comp, cassoc) + graph.brefsheight(brefs, cassoc);
+ return height;
+ });
};
/**
* Return the width of a reference on the bottom side of a component.
*/
graph.brefwidth = function(ref, cassoc) {
- var target = assoc(scdl.target(ref), cassoc);
- if (isNil(target))
- return 60;
- return graph.compwidth(cadr(target), cassoc);
+ return memo(ref, 'width', function() {
+ var target = assoc(scdl.target(ref), cassoc);
+ if (isNil(target))
+ return 60;
+ return graph.compclosurewidth(cadr(target), cassoc);
+ });
};
/**
@@ -622,22 +648,26 @@ graph.rrefswidth = function(refs, cassoc
* Return the width of a component.
*/
graph.compwidth = function(comp, cassoc) {
- var twidth = graph.comptitlewidth(comp) + 20;
- var tsvcs = graph.tsvcs(comp);
- var tsvcsw = Math.max(1, length(tsvcs)) * 60 + 20;
- var brefs = graph.brefs(comp);
- var brefsw = graph.brefswidth(brefs, cassoc) + 20;
- var width = Math.max(twidth, Math.max(tsvcsw, brefsw));
- return width;
+ return memo(comp, 'width', function() {
+ var twidth = graph.comptitlewidth(comp) + 20;
+ var tsvcs = graph.tsvcs(comp);
+ var tsvcsw = Math.max(1, length(tsvcs)) * 60 + 20;
+ var brefs = graph.brefs(comp);
+ var brefsw = graph.brefswidth(brefs, cassoc) + 20;
+ var width = Math.max(twidth, Math.max(tsvcsw, brefsw));
+ return width;
+ });
};
/**
* Return the width of a component and all the components wired to its right side.
*/
graph.compclosurewidth = function(comp, cassoc) {
- var rrefs = graph.rrefs(comp);
- var width = graph.compwidth(comp, cassoc) + graph.rrefswidth(rrefs, cassoc);
- return height;
+ return memo(comp, 'closurewidth', function() {
+ var rrefs = graph.rrefs(comp);
+ var width = graph.compwidth(comp, cassoc) + graph.rrefswidth(rrefs, cassoc);
+ return width;
+ });
};
/**
@@ -759,7 +789,7 @@ graph.composite = function(compos) {
if (isNil(refs))
return mklist();
- return append(renderbref(car(refs), cassoc, pos), renderbrefs(cdr(refs), cassoc, pos));
+ return append(renderbref(car(refs), cassoc, pos), renderbrefs(cdr(refs), cassoc, rendermove(car(refs), cassoc, pos)));
}
var gcomp = graph.compshape(comp, cassoc, pos);
Modified: tuscany/sca-cpp/trunk/modules/edit/htdocs/edit/index.html
URL: http://svn.apache.org/viewvc/tuscany/sca-cpp/trunk/modules/edit/htdocs/edit/index.html?rev=1056881&r1=1056880&r2=1056881&view=diff
==============================================================================
--- tuscany/sca-cpp/trunk/modules/edit/htdocs/edit/index.html (original)
+++ tuscany/sca-cpp/trunk/modules/edit/htdocs/edit/index.html Sun Jan 9 03:39:13 2011
@@ -50,7 +50,7 @@ function editapp(name) {
return;
$('titleDiv').innerHTML = 'Editing: ' + name;
$('editDiv').innerHTML =
- '<iframe id="editFrame" style="visibility: visible; height: 100%; width: 100%; border: 0px;" scrolling="no" frameborder="0" src="edit.html?' +
+ '<iframe id="editFrame" style="visibility: visible; height: 5000px; width: 100%; border: 0px;" scrolling="no" frameborder="0" src="edit.html?' +
'app=' + name +
'"></iframe>';
}
Modified: tuscany/sca-cpp/trunk/modules/edit/workspaces/joe@localhost
URL: http://svn.apache.org/viewvc/tuscany/sca-cpp/trunk/modules/edit/workspaces/joe%40localhost?rev=1056881&r1=1056880&r2=1056881&view=diff
==============================================================================
--- tuscany/sca-cpp/trunk/modules/edit/workspaces/joe@localhost (original)
+++ tuscany/sca-cpp/trunk/modules/edit/workspaces/joe@localhost Sun Jan 9 03:39:13 2011
@@ -1 +1 @@
-(("Sample Online Store App" "store" ()) ("Layout Variation of the Online Store App" "store2" ()) ("Another Variation of the Online Store App" "store3" ()) ("Sample HTTP Relay App" "relay" ()))
+(("Sample Online Store App" "store" ()) ("Layout Variation of the Online Store App" "store2" ()) ("Another Variation of the Online Store App" "store3" ()) ("Sample HTTP Relay App" "relay" ()) ("Travel Tutorial App" "travel" ()))
Modified: tuscany/sca-cpp/trunk/modules/js/htdocs/elemutil.js
URL: http://svn.apache.org/viewvc/tuscany/sca-cpp/trunk/modules/js/htdocs/elemutil.js?rev=1056881&r1=1056880&r2=1056881&view=diff
==============================================================================
--- tuscany/sca-cpp/trunk/modules/js/htdocs/elemutil.js (original)
+++ tuscany/sca-cpp/trunk/modules/js/htdocs/elemutil.js Sun Jan 9 03:39:13 2011
@@ -206,17 +206,21 @@ function selector(s) {
* Return the value of the attribute with the given name.
*/
function namedAttributeValue(name, l) {
- var f = filter(function(v) { return isAttribute(v) && attributeName(v) == name; }, l);
- if (isNil(f))
- return null;
- return caddr(car(f));
+ return memo(l, name, function() {
+ var f = filter(function(v) { return isAttribute(v) && attributeName(v) == name; }, l);
+ if (isNil(f))
+ return null;
+ return caddr(car(f));
+ });
}
/**
* Return child elements with the given name.
*/
function namedElementChildren(name, l) {
- return filter(function(v) { return isElement(v) && elementName(v) == name; }, l);
+ return memo(l, name, function() {
+ return filter(function(v) { return isElement(v) && elementName(v) == name; }, l);
+ });
}
/**
Modified: tuscany/sca-cpp/trunk/modules/js/htdocs/util.js
URL: http://svn.apache.org/viewvc/tuscany/sca-cpp/trunk/modules/js/htdocs/util.js?rev=1056881&r1=1056880&r2=1056881&view=diff
==============================================================================
--- tuscany/sca-cpp/trunk/modules/js/htdocs/util.js (original)
+++ tuscany/sca-cpp/trunk/modules/js/htdocs/util.js Sun Jan 9 03:39:13 2011
@@ -65,14 +65,8 @@ function reverse(l) {
}
function isNil(v) {
- if (v == null)
+ if (v == null || typeof v == 'undefined' || (v.constructor == Array && v.length == 0))
return true;
- if ('' + v == 'undefined')
- return true;
- try {
- if (isList(v) && v.length == 0)
- return true;
- } catch (e) {}
return false;
}
@@ -89,10 +83,8 @@ function isString(v) {
}
function isList(v) {
- try {
- if (v.constructor == Array)
- return true;
- } catch (e) {}
+ if (v != null && typeof v != 'undefined' && v.constructor == Array)
+ return true;
return false;
}
@@ -102,7 +94,11 @@ function isTaggedList(v, t) {
return false;
}
+var emptylist = new Array();
+
function mklist() {
+ if (arguments.length == 0)
+ return emptylist;
var a = new Array();
for (i = 0; i < arguments.length; i++)
a[i] = arguments[i];
@@ -206,3 +202,12 @@ function writeValue(v) {
return '(' + writeValue(car(v)) + writeList(cdr(v)) + ')';
}
+/**
+ * Apply a function and memoize its result.
+ */
+function memo(obj, key, f) {
+ if (obj[key])
+ return obj[key];
+ return obj[key] = f();
+}
+