This sample creates a shared library
that incorporates Connect/C++

It provides an example of using .Call()
to access a Connect/C++ class


Steps to build and test this program:

 1. Change current directory to directory 
    containing this file

     cd <directory containing this file> 

 2. Create a chapter:

     Splus CHAPTER -sconnectlib *.cxx *.q

 3. Build the program:

     Splus make

 4. Run S-PLUS:

     Splus     

 5. Execute the following in S-PLUS:
 	
     # S version of euler
     sys.time({y<-euler("f", c(0,1), 0.0, 30*pi, 3000)})
 	
     # C++ version of euler
     sys.time({z<-.Call("euler", "f", c(0,1), 0.0, 30*pi, 3000)})

     # Should return T
     all.equal(y, z)                      
                  
