svn commit: r821428 - in /tuscany/cpp/sca: modules/eval/eval-test modules/eval/primitive.hpp modules/eval/read.hpp test/store-script/store-script.scm

[jsdelfino]

Author: jsdelfino
Date: Sat Oct  3 21:50:47 2009
New Revision: 821428

URL: http://svn.apache.org/viewvc?rev=821428&view=rev
Log:
Added minimal support for comments. Removed build output from version control.

Removed:
    tuscany/cpp/sca/modules/eval/eval-test
Modified:
    tuscany/cpp/sca/modules/eval/primitive.hpp
    tuscany/cpp/sca/modules/eval/read.hpp
    tuscany/cpp/sca/test/store-script/store-script.scm

Modified: tuscany/cpp/sca/modules/eval/primitive.hpp
URL: 
http://svn.apache.org/viewvc/tuscany/cpp/sca/modules/eval/primitive.hpp?rev=821428&r1=821427&r2=821428&view=diff
==============================================================================
--- tuscany/cpp/sca/modules/eval/primitive.hpp (original)
+++ tuscany/cpp/sca/modules/eval/primitive.hpp Sat Oct  3 21:50:47 2009
@@ -94,6 +94,11 @@
     return true;
 }
 
+const value valueComment(list<value>& args) {
+    *evalOut << "# " << car(args);
+    return true;
+}
+
 const value valueError(list<value>& args) {
     std::cerr << (std::string)car(args);
     return true;
@@ -143,6 +148,7 @@
     l = cons<value>("/", l);
     l = cons<value>("equal?", l);
     l = cons<value>("display", l);
+    l = cons<value>(";", l);
     return l;
 }
 
@@ -159,6 +165,7 @@
     l = cons(primitiveProcedure(valueDiv), l);
     l = cons(primitiveProcedure(valueEqual), l);
     l = cons(primitiveProcedure(valueDisplay), l);
+    l = cons(primitiveProcedure(valueComment), l);
     return l;
 }
 

Modified: tuscany/cpp/sca/modules/eval/read.hpp
URL: 
http://svn.apache.org/viewvc/tuscany/cpp/sca/modules/eval/read.hpp?rev=821428&r1=821427&r2=821428&view=diff
==============================================================================
--- tuscany/cpp/sca/modules/eval/read.hpp (original)
+++ tuscany/cpp/sca/modules/eval/read.hpp Sat Oct  3 21:50:47 2009
@@ -40,6 +40,7 @@
 
 const value rightParenthesis(makeList<value>(")"));
 const value leftParenthesis(makeList<value>("("));
+const value comment(makeList<value>(";"));
 
 const double stringToNumber(const std::string& str) {
     double d;

Modified: tuscany/cpp/sca/test/store-script/store-script.scm
URL: 
http://svn.apache.org/viewvc/tuscany/cpp/sca/test/store-script/store-script.scm?rev=821428&r1=821427&r2=821428&view=diff
==============================================================================
--- tuscany/cpp/sca/test/store-script/store-script.scm (original)
+++ tuscany/cpp/sca/test/store-script/store-script.scm Sat Oct  3 21:50:47 2009
@@ -1,5 +1,5 @@
 
-(display "Currency implementation")
+(; "Currency implementation")
 
 (define (currency_convert from to amount) 
   (if (equal? to "EUR") (* amount 0.70) amount)
@@ -16,11 +16,11 @@
   )
 )
 
-(display "Currency composite")
+(; "Currency composite")
 
 (define (currency_service op . args) (currency_impl op args))
 
-(display "Catalog implementation")
+(; "Catalog implementation")
 
 (define (catalog_get converter)
   (define (convert price) (converter "convert" "USD" "USD" price))
@@ -40,11 +40,11 @@
   )
 )
 
-(display "Catalog composite")
+(; "Catalog composite")
 
 (define (catalog_service op . args) (catalog_impl currency_service op args))
 
-(display "Cart implementation")
+(; "Cart implementation")
 
 (define (cart_post content item)
   (cons item content)
@@ -61,7 +61,7 @@
   )
 )
 
-(display "Store UI implementation")
+(; "Store UI implementation")
 
 (define (storeui_post cart content item)
   (cart "post" content item)
@@ -83,13 +83,13 @@
   )
 )
 
-(display "Store UI composite")
+(; "Store UI composite")
 
 (define (cart_service op . args) (cart_impl op args))
 
 (define (storeui_service op . args) (storeui_impl cart_service catalog_service 
op args))
 
-(display "Store UI test case")
+(; "Store UI test case")
 
 (define catalog (storeui_service "getcatalog"))
 (define empty (list))