Changeset 122 for trunk/test

Timestamp:

Nov 3, 2005, 10:00:17 PM (19 years ago)

Author:

dkearney

Message:

added initial version of octave language bindings.
1) no claiming language bindings work, but will happily take credit if they do.
2) bindings are untested
3) bindings happen to work with mystery example that happens to be located in examples/app-fermi/matlab/fermi_rp.m and happens to be invokable with examples/app-fermi/matlab/tool_rp.xml
4) bindings need octave2.1-headers installed (in debian: apt-get install octave2.1-headers) to get the mkoctfile program
5) binding function names might be changing to be more discriptive and more tightly bound to either the lib or units module.
6) adjusted Makefile to add octave bindings compilation.

Location:

trunk/test/src

Files:

• RpUnitsF_test.f (modified) (2 diffs)
• RpUnits_test.cc (modified) (2 diffs)

trunk/test/src/RpUnitsF_test.f

@@ -14 +14 @@
         IMPLICIT NONE
 
-        integer rp_units_convert_str, rp_units_add_presets
+        integer rp_units_convert_str
         integer rp_units_convert_dbl
 
@@ -21 +21 @@
         integer retVal
 
-        retVal = rp_units_add_presets("all")
-
         retVal = rp_units_convert_str("72F","C",retStr)
         print *,"72F = ",retStr
+        print *,"correct retVal = 22.222C",retVal
         print *,"retVal = ",retVal
 
         retVal = rp_units_convert_dbl("72F","C",dblVal)
         print *,"72F = ",dblVal, " (no units)"
+        print *,"correct retVal = 22.222",retVal
         print *,"retVal = ",retVal
 

trunk/test/src/RpUnits_test.cc

@@ -26 +26 @@
     double value = 0.0;
     std::string strValue;
-    // int failTest = 0;
     int result = 0;
-    // std::list<double,RpUnits *> 
 
     //
@@ -41 +39 @@
     //
     printf ("=============== TEST 1 ===============\n");
-/*
-    std::string srch_str = std::string("cm");
-
-    RpUnits* meters2 = RpUnits::find("cm");
-    if (meters2) { 
-        std::cout << "meters2 exists" << std::endl;
-        std::cout << "meters2 = :" << meters2->getUnitsName() <<":"<< std::endl;
-    }
-
-    std::cout << "complete"<< std::endl;
-
-*/
-
-/*
-    const RpUnits* mobility = RpUnits::defineCmplx("cm2/Vs", NULL);
-    std::cout << "mobility = :" << mobility->getUnitsName() <<":"<< std::endl;
-
-    const RpUnits* mobility2 = RpUnits::find("cm2V-1s-1");
-    if (mobility2) { 
-        std::cout << "mobility2 exists" << std::endl;
-        std::cout << "mobility2 = :" << mobility2->getUnits() <<":"<< std::endl;
-        std::cout << "mobility2 = :" << mobility2->getUnitsName() <<":"<< std::endl;
-    }
-    else {
-        std::cout << "mobility2 dn exists" << std::endl;
-    }
-*/
 
     const RpUnits* meters = RpUnits::find("m");