*** empty log message ***

diff --git a/allParam/test/blob/BLOB b/allParam/test/blob/BLOB
deleted file mode 100644 (file)
index 357e873..0000000
--- a/allParam/test/blob/BLOB
+++ /dev/null
@@ -1,739 +0,0 @@
-E 199509L
-
-extern "C" {
-  #include <string.h>
-}
-
-#include "paramStringRecord.h"
-
-ParamStringRecord::ParamStringRecord(caServer& cas, const Param *p, const char *rn, const char *u) :
-  ParamRecord(cas, p, rn, u)
-{
-       int rows;
-       char *tmp[PARAM_MAX_ARRAY_LEN];
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               tmp[i] = new char[PARAM_MAX_VALUE_LEN];
-       }
-       if(Param_getStringArray(param, name, idx, PARAM_MAX_ARRAY_LEN, &rows, tmp) == 0) {
-               index = rows == 0 ? 1 : (unsigned int) rows;
-       } else {
-               index = 1;
-       }
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               delete [] tmp[i];
-       }
-
-       funcTable.installReadFunc("units", &Record::readUnits);
-       funcTable.installReadFunc("status", &Record::readStatus);
-       funcTable.installReadFunc("severity", &Record::readSeverity);
-
-       funcTable.installReadFunc("controlLow", &ParamRecord::readLowCtrl);
-       funcTable.installReadFunc("controlHigh", &ParamRecord::readHighCtrl);
-       funcTable.installReadFunc("graphicLow", &ParamRecord::readLopr);
-       funcTable.installReadFunc("graphicHigh", &ParamRecord::readHopr);
-       funcTable.installReadFunc("precision", &ParamRecord::readPrecision);
-
-       funcTable.installReadFunc("value", &ParamStringRecord::readValue);
-}
-
-ParamStringRecord::~ParamStringRecord()
-{
-       for(unsigned int k = 0 ; k < index ; k++) {
-               delete ourValue[k];
-       }
-}
-
-epicsShareFunc aitEnum ParamStringRecord::bestExternalType() const
-{
-       return aitEnumString;
-}
-
-epicsShareFunc unsigned ParamStringRecord::maxDimension() const
-{
-       return 1u;
-}
-
-epicsShareFunc aitIndex ParamStringRecord::maxBound(unsigned dimension) const
-{
-       aitIndex retVal;
-       if(dimension == 0) {
-               retVal = index;
-       } else {
-               retVal = 1u;
-       }
-       return retVal;
-}
-
-gddAppFuncTableStatus ParamStringRecord::readValue(gdd &value)
-{
-       gddAppFuncTableStatus retVal;
-       int pretVal;
-       int rows;
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               ourValue[i] = new char[PARAM_MAX_VALUE_LEN];
-       }
-
-       pretVal = Param_getStringArray(param, name, idx, PARAM_MAX_ARRAY_LEN, &rows, ourValue);
-       if((pretVal != 0) || ((index = (unsigned int) rows ) == 0)) {
-               index = 1;
-               retVal = S_cas_noRead; 
-       } else if(index == 1) {
-               aitString stringValue = ourValue[0];
-
-               value.putConvert(stringValue);
-               retVal = S_casApp_success;
-       } else {
-               aitString *stringValue;
-               stringValue = new aitString[index];
-               for (unsigned int k = 0 ; k < index ; k++) {
-                       stringValue[k] = ourValue[k];
-               }
-
-               value.putRef(stringValue);
-               retVal = S_casApp_success;
-       }
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               delete [] ourValue[i];
-       }
-
-       return retVal;
-}
-
-caStatus ParamStringRecord::scan()
-{
-       caStatus retVal;
-       caServer *pCAS = this->getCAS();
-       int pretVal;
-       int rows;
-       ArrayDestructor *pDest = new ArrayDestructor;
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               ourValue[i] = new char[PARAM_MAX_VALUE_LEN];
-       }
-
-       pretVal = Param_getStringArray(param, name, idx, PARAM_MAX_ARRAY_LEN, &rows, ourValue);
-       if((pretVal != 0) || ((index = (unsigned int) rows ) == 0)) {
-               index = 1;
-               retVal = S_cas_noRead; 
-       } else if(index == 1) {
-               aitString stringValue = ourValue[0];
-
-               val = new gddScalar(gddAppType_value, aitEnumString);
-               val->putConvert(stringValue);
-               retVal = S_casApp_success;
-       } else {
-               aitString *stringValue;
-               stringValue = new aitString[index];
-               for (unsigned int k = 0 ; k < index ; k++) {
-                       stringValue[k] = ourValue[k];
-               }
-
-               val = new gddAtomic(gddAppType_value, aitEnumString, 1, index);
-
-               val->putRef(stringValue, pDest);
-               retVal = S_casApp_success;
-       }
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               delete [] ourValue[i];
-       }
-
-       val->setStat(epicsAlarmNone);
-       val->setSevr(epicsSevNone);
-
-       if (this->interest == aitTrue && pCAS != NULL) {
-               casEventMask select(pCAS->valueEventMask|pCAS->logEventMask|pCAS->alarmEventMask);
-               this->postEvent (select, *val);
-       }
-
-       delete pDest;
-
-       return retVal;
-}
-
-caStatus ParamStringRecord::read(const casCtx &ctx, gdd &prototype)
-{
-       return ((scan() == S_cas_success) && funcTable.read(*this, prototype));
-}
-
-caStatus ParamStringRecord::write(const casCtx &ctx, gdd &value)
-{
-       aitString stringValue;
-
-       value.getConvert(stringValue);
-#if 0
-       char ourScalarValue[PARAM_MAX_VALUE_LEN];
-       strcpy(ourScalarValue, (const char *) stringValue);
-       Param_storeString(param, name, idx, ourScalarValue);
-#endif
-       Param_storeString(param, name, idx, (const char *) stringValue);
-
-       return S_cas_success;
-}
-
-#define _POSIX_C_SOURCE 199509L
-
-extern "C" {
-  #include <string.h>
-}
-
-#include "paramFilenameRecord.h"
-
-ParamFilenameRecord::ParamFilenameRecord(caServer& cas, const Param *p, const char *rn, const char *u) :
-  ParamRecord(cas, p, rn, u)
-{
-       int rows;
-       char *tmp[PARAM_MAX_ARRAY_LEN];
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               tmp[i] = new char[PARAM_MAX_VALUE_LEN];
-       }
-       if(Param_getFilenameArray(param, name, idx, PARAM_MAX_ARRAY_LEN, &rows, tmp) == 0) {
-               index = (unsigned int) rows;
-       } else {
-               index = 0;
-       }
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               delete [] tmp[i];
-       }
-
-       funcTable.installReadFunc("units", &Record::readUnits);
-       funcTable.installReadFunc("status", &Record::readStatus);
-       funcTable.installReadFunc("severity", &Record::readSeverity);
-
-       funcTable.installReadFunc("controlLow", &ParamRecord::readLowCtrl);
-       funcTable.installReadFunc("controlHigh", &ParamRecord::readHighCtrl);
-       funcTable.installReadFunc("graphicLow", &ParamRecord::readLopr);
-       funcTable.installReadFunc("graphicHigh", &ParamRecord::readHopr);
-       funcTable.installReadFunc("precision", &ParamRecord::readPrecision);
-
-       funcTable.installReadFunc("value", &ParamFilenameRecord::readValue);
-}
-
-ParamFilenameRecord::~ParamFilenameRecord()
-{
-       for(unsigned int k = 0 ; k < index ; k++) {
-               delete ourValue[k];
-       }
-}
-
-epicsShareFunc aitEnum ParamFilenameRecord::bestExternalType() const
-{
-       return aitEnumString;
-}
-
-epicsShareFunc unsigned ParamFilenameRecord::maxDimension() const
-{
-       return 1u;
-}
-
-epicsShareFunc aitIndex ParamFilenameRecord::maxBound(unsigned dimension) const
-{
-       aitIndex retVal;
-       if(dimension == 0) {
-               retVal = index;
-       } else {
-               retVal = 1u;
-       }
-       return retVal;
-}
-
-gddAppFuncTableStatus ParamFilenameRecord::readValue(gdd &value)
-{
-       gddAppFuncTableStatus retVal;
-       int pretVal;
-       int rows;
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               ourValue[i] = new char[PARAM_MAX_VALUE_LEN];
-       }
-
-       pretVal = Param_getFilenameArray(param, name, idx, PARAM_MAX_ARRAY_LEN, &rows, ourValue);
-       if((pretVal != 0) || ((index = (unsigned int) rows ) == 0)) {
-               retVal = S_cas_noRead; 
-       } else if(index == 1) {
-               aitString stringValue = ourValue[0];
-
-               value.putConvert(stringValue);
-               retVal = S_casApp_success;
-       } else {
-               aitString *stringValue;
-               stringValue = new aitString[index];
-               for (unsigned int k = 0 ; k < index ; k++) {
-                       stringValue[k] = ourValue[k];
-               }
-
-               value.putRef(stringValue);
-               retVal = S_casApp_success;
-       }
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               delete [] ourValue[i];
-       }
-
-       return retVal;
-}
-
-caStatus ParamFilenameRecord::scan()
-{
-       caStatus retVal;
-       caServer *pCAS = this->getCAS();
-       int pretVal;
-       int rows;
-       ArrayDestructor *pDest = new ArrayDestructor;
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               ourValue[i] = new char[PARAM_MAX_VALUE_LEN];
-       }
-
-       pretVal = Param_getFilenameArray(param, name, idx, PARAM_MAX_ARRAY_LEN, &rows, ourValue);
-       if((pretVal != 0) || ((index = (unsigned int) rows ) == 0)) {
-               retVal = S_cas_noRead; 
-       } else if(index == 1) {
-               aitString stringValue = ourValue[0];
-
-               val = new gddScalar(gddAppType_value, aitEnumString);
-               val->putConvert(stringValue);
-               retVal = S_casApp_success;
-       } else {
-               aitString *stringValue;
-               stringValue = new aitString[index];
-               for (unsigned int k = 0 ; k < index ; k++) {
-                       stringValue[k] = ourValue[k];
-               }
-
-               val = new gddAtomic(gddAppType_value, aitEnumString, 1, index);
-
-               val->putRef(stringValue, pDest);
-               retVal = S_casApp_success;
-       }
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               delete [] ourValue[i];
-       }
-
-       val->setStat(epicsAlarmNone);
-       val->setSevr(epicsSevNone);
-
-       if (this->interest == aitTrue && pCAS != NULL) {
-               casEventMask select(pCAS->valueEventMask|pCAS->logEventMask|pCAS->alarmEventMask);
-               this->postEvent (select, *val);
-       }
-
-       delete pDest;
-
-       return retVal;
-}
-
-caStatus ParamFilenameRecord::read(const casCtx &ctx, gdd &prototype)
-{
-       return ((scan() == S_cas_success) && funcTable.read(*this, prototype));
-}
-
-caStatus ParamFilenameRecord::write(const casCtx &ctx, gdd &value)
-{
-       return S_cas_noWrite;
-}
-
-#define _POSIX_C_SOURCE 199509L
-
-extern "C" {
-  #include <string.h>
-}
-
-#include "paramFilenameRecord.h"
-
-ParamFilenameRecord::ParamFilenameRecord(caServer& cas, const Param *p, const char *rn, const char *u) :
-  ParamRecord(cas, p, rn, u)
-{
-       int rows;
-       char *tmp[PARAM_MAX_ARRAY_LEN];
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               tmp[i] = new char[PARAM_MAX_VALUE_LEN];
-       }
-       if(Param_getFilenameArray(param, name, idx, PARAM_MAX_ARRAY_LEN, &rows, tmp) == 0) {
-               index = (unsigned int) rows;
-       } else {
-               index = 0;
-       }
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               delete [] tmp[i];
-       }
-
-       funcTable.installReadFunc("units", &Record::readUnits);
-       funcTable.installReadFunc("status", &Record::readStatus);
-       funcTable.installReadFunc("severity", &Record::readSeverity);
-
-       funcTable.installReadFunc("controlLow", &ParamRecord::readLowCtrl);
-       funcTable.installReadFunc("controlHigh", &ParamRecord::readHighCtrl);
-       funcTable.installReadFunc("graphicLow", &ParamRecord::readLopr);
-       funcTable.installReadFunc("graphicHigh", &ParamRecord::readHopr);
-       funcTable.installReadFunc("precision", &ParamRecord::readPrecision);
-
-       funcTable.installReadFunc("value", &ParamFilenameRecord::readValue);
-}
-
-ParamFilenameRecord::~ParamFilenameRecord()
-{
-       for(unsigned int k = 0 ; k < index ; k++) {
-               delete ourValue[k];
-       }
-}
-
-epicsShareFunc aitEnum ParamFilenameRecord::bestExternalType() const
-{
-       return aitEnumString;
-}
-
-epicsShareFunc unsigned ParamFilenameRecord::maxDimension() const
-{
-       return 1u;
-}
-
-epicsShareFunc aitIndex ParamFilenameRecord::maxBound(unsigned dimension) const
-{
-       aitIndex retVal;
-       if(dimension == 0) {
-               retVal = index;
-       } else {
-               retVal = 1u;
-       }
-       return retVal;
-}
-
-gddAppFuncTableStatus ParamFilenameRecord::readValue(gdd &value)
-{
-       gddAppFuncTableStatus retVal;
-       int pretVal;
-       int rows;
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               ourValue[i] = new char[PARAM_MAX_VALUE_LEN];
-       }
-
-       pretVal = Param_getFilenameArray(param, name, idx, PARAM_MAX_ARRAY_LEN, &rows, ourValue);
-       if((pretVal != 0) || ((index = (unsigned int) rows ) == 0)) {
-               retVal = S_cas_noRead; 
-       } else if(index == 1) {
-               aitString stringValue = ourValue[0];
-
-               value.putConvert(stringValue);
-               retVal = S_casApp_success;
-       } else {
-               aitString *stringValue;
-               stringValue = new aitString[index];
-               for (unsigned int k = 0 ; k < index ; k++) {
-                       stringValue[k] = ourValue[k];
-               }
-
-               value.putRef(stringValue);
-               retVal = S_casApp_success;
-       }
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               delete [] ourValue[i];
-       }
-
-       return retVal;
-}
-
-caStatus ParamFilenameRecord::scan()
-{
-       caStatus retVal;
-       caServer *pCAS = this->getCAS();
-       int pretVal;
-       int rows;
-       ArrayDestructor *pDest = new ArrayDestructor;
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               ourValue[i] = new char[PARAM_MAX_VALUE_LEN];
-       }
-
-       pretVal = Param_getFilenameArray(param, name, idx, PARAM_MAX_ARRAY_LEN, &rows, ourValue);
-       if((pretVal != 0) || ((index = (unsigned int) rows ) == 0)) {
-               retVal = S_cas_noRead; 
-       } else if(index == 1) {
-               aitString stringValue = ourValue[0];
-
-               val = new gddScalar(gddAppType_value, aitEnumString);
-               val->putConvert(stringValue);
-               retVal = S_casApp_success;
-       } else {
-               aitString *stringValue;
-               stringValue = new aitString[index];
-               for (unsigned int k = 0 ; k < index ; k++) {
-                       stringValue[k] = ourValue[k];
-               }
-
-               val = new gddAtomic(gddAppType_value, aitEnumString, 1, index);
-
-               val->putRef(stringValue, pDest);
-               retVal = S_casApp_success;
-       }
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               delete [] ourValue[i];
-       }
-
-       val->setStat(epicsAlarmNone);
-       val->setSevr(epicsSevNone);
-
-       if (this->interest == aitTrue && pCAS != NULL) {
-               casEventMask select(pCAS->valueEventMask|pCAS->logEventMask|pCAS->alarmEventMask);
-               this->postEvent (select, *val);
-       }
-
-       delete pDest;
-
-       return retVal;
-}
-
-caStatus ParamFilenameRecord::read(const casCtx &ctx, gdd &prototype)
-{
-       return ((scan() == S_cas_success) && funcTable.read(*this, prototype));
-}
-
-caStatus ParamFilenameRecord::write(const casCtx &ctx, gdd &value)
-{
-       return S_cas_noWrite;
-}
-
-#define _POSIX_C_SOURCE 199509L
-
-extern "C" {
-  #include <string.h>
-}
-
-#include "paramFilenameRecord.h"
-
-ParamFilenameRecord::ParamFilenameRecord(caServer& cas, const Param *p, const char *rn, const char *u) :
-  ParamRecord(cas, p, rn, u)
-{
-       int rows;
-       char *tmp[PARAM_MAX_ARRAY_LEN];
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               tmp[i] = new char[PARAM_MAX_VALUE_LEN];
-       }
-       if(Param_getFilenameArray(param, name, idx, PARAM_MAX_ARRAY_LEN, &rows, tmp) == 0) {
-               index = (unsigned int) rows;
-       } else {
-               index = 0;
-       }
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               delete [] tmp[i];
-       }
-
-       funcTable.installReadFunc("units", &Record::readUnits);
-       funcTable.installReadFunc("status", &Record::readStatus);
-       funcTable.installReadFunc("severity", &Record::readSeverity);
-
-       funcTable.installReadFunc("controlLow", &ParamRecord::readLowCtrl);
-       funcTable.installReadFunc("controlHigh", &ParamRecord::readHighCtrl);
-       funcTable.installReadFunc("graphicLow", &ParamRecord::readLopr);
-       funcTable.installReadFunc("graphicHigh", &ParamRecord::readHopr);
-       funcTable.installReadFunc("precision", &ParamRecord::readPrecision);
-
-       funcTable.installReadFunc("value", &ParamFilenameRecord::readValue);
-}
-
-ParamFilenameRecord::~ParamFilenameRecord()
-{
-       for(unsigned int k = 0 ; k < index ; k++) {
-               delete ourValue[k];
-       }
-}
-
-epicsShareFunc aitEnum ParamFilenameRecord::bestExternalType() const
-{
-       return aitEnumString;
-}
-
-epicsShareFunc unsigned ParamFilenameRecord::maxDimension() const
-{
-       return 1u;
-}
-
-epicsShareFunc aitIndex ParamFilenameRecord::maxBound(unsigned dimension) const
-{
-       aitIndex retVal;
-       if(dimension == 0) {
-               retVal = index;
-       } else {
-               retVal = 1u;
-       }
-       return retVal;
-}
-
-gddAppFuncTableStatus ParamFilenameRecord::readValue(gdd &value)
-{
-       gddAppFuncTableStatus retVal;
-       int pretVal;
-       int rows;
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               ourValue[i] = new char[PARAM_MAX_VALUE_LEN];
-       }
-
-       pretVal = Param_getFilenameArray(param, name, idx, PARAM_MAX_ARRAY_LEN, &rows, ourValue);
-       if((pretVal != 0) || ((index = (unsigned int) rows ) == 0)) {
-               retVal = S_cas_noRead; 
-       } else if(index == 1) {
-               aitString stringValue = ourValue[0];
-
-               value.putConvert(stringValue);
-               retVal = S_casApp_success;
-       } else {
-               aitString *stringValue;
-               stringValue = new aitString[index];
-               for (unsigned int k = 0 ; k < index ; k++) {
-                       stringValue[k] = ourValue[k];
-               }
-
-               value.putRef(stringValue);
-               retVal = S_casApp_success;
-       }
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               delete [] ourValue[i];
-       }
-
-       return retVal;
-}
-
-caStatus ParamFilenameRecord::scan()
-{
-       caStatus retVal;
-       caServer *pCAS = this->getCAS();
-       int pretVal;
-       int rows;
-       ArrayDestructor *pDest = new ArrayDestructor;
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               ourValue[i] = new char[PARAM_MAX_VALUE_LEN];
-       }
-
-       pretVal = Param_getFilenameArray(param, name, idx, PARAM_MAX_ARRAY_LEN, &rows, ourValue);
-       if((pretVal != 0) || ((index = (unsigned int) rows ) == 0)) {
-               retVal = S_cas_noRead; 
-       } else if(index == 1) {
-               aitString stringValue = ourValue[0];
-
-               val = new gddScalar(gddAppType_value, aitEnumString);
-               val->putConvert(stringValue);
-               retVal = S_casApp_success;
-       } else {
-               aitString *stringValue;
-               stringValue = new aitString[index];
-               for (unsigned int k = 0 ; k < index ; k++) {
-                       stringValue[k] = ourValue[k];
-               }
-
-               val = new gddAtomic(gddAppType_value, aitEnumString, 1, index);
-
-               val->putRef(stringValue, pDest);
-               retVal = S_casApp_success;
-       }
-
-       for (int i = 0 ; i < PARAM_MAX_ARRAY_LEN ; i++) {
-               delete [] ourValue[i];
-       }
-
-       val->setStat(epicsAlarmNone);
-} xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx
-xxx

diff --git a/allParam/test/param.tcl b/allParam/test/param.tcl
index 463ee697357d3ab1efd3f049379d5ce13051c15b..ab1740da7ae0fc8f91dc3a4979232e92adb3d6c0 100644 (file)
--- a/allParam/test/param.tcl
+++ b/allParam/test/param.tcl
@@ -1,3 +1,18 @@
+set glob(basedir) blob
+
+set file(rname) test.blob
+set file(aname) /test.blob
+
+set file(namea0) test1.blob
+set file(namea1) /test0.blob
+set file(namea2) test3.blob
+set file(namea3) /test2.blob
+set file(namea4) test5.blob
+set file(namea5) /test4.blob
+set file(namea6) test7.blob
+set file(namea7) /test6.blob
+set file(namea9) test10.blob
+
 set tname(tstring) test100
 
 set tname(tint) 100

diff --git a/allParam/test/test_p.tcl b/allParam/test/test_p.tcl
index 428e0f32c9df3342be891cd90fd229b987db5b89..146eeaeade32f8f4fa00a8f6777c517a001c0112 100644 (file)
--- a/allParam/test/test_p.tcl
+++ b/allParam/test/test_p.tcl
@@ -1,50 +1,60 @@
-set glob(basedir) /home/bsailer/hades/devel/allParam
+set file(rname) test.blob
+set file(aname) /test.blob
 
-set tname(tstring) test100
+set file(namea0) test1.blob
+set file(namea1) /test0.blob
+set file(namea2) test3.blob
+set file(namea3) /test2.blob
+set file(namea4) test5.blob
+set file(namea5) /test4.blob
+set file(namea6) test7.blob
+set file(namea7) /test6.blob
+set file(namea9) test10.blob
 
-set tname(tint) 100
+set tname(tstring) test1000
 
-set tname(tstringa0) test1
-set tname(tstringa1) test0
-set tname(tstringa2) test3
-set tname(tstringa3) test2
-set tname(tstringa4) test5
-set tname(tstringa5) test4
-set tname(tstringa6) test7
-set tname(tstringa7) test6
-set tname(tstringa9) test10
+set tname(tint) 1000
 
-set tname(tinta0) 1
-set tname(tinta1) 0
-set tname(tinta2) 3
-set tname(tinta3) 2
-set tname(tinta4) 5
-set tname(tinta5) 4
-set tname(tinta6) 7
-set tname(tinta7) 6
-set tname(tinta8) 9
-set tname(tinta9) 8
-set tname(tinta10) 11
-set tname(tinta11) 10
-set tname(tinta12) 13
-set tname(tinta13) 12
-set tname(tinta14) 15
-set tname(tinta15) 14
-set tname(tinta16) 17
-set tname(tinta17) 16
-set tname(tinta18) 19
-set tname(tinta19) 18
-set tname(tinta20) 21
-set tname(tinta21) 20
-set tname(tinta22) 23
-set tname(tinta23) 22
-set tname(tinta24) 25
-set tname(tinta25) 24
-set tname(tinta26) 27
-set tname(tinta27) 26
-set tname(tinta28) 29
-set tname(tinta29) 28
-set tname(tinta30) 31
-set tname(tinta31) 30
+set tname(tstringa0) test10
+set tname(tstringa1) test00
+set tname(tstringa2) test30
+set tname(tstringa3) test20
+set tname(tstringa4) test50
+set tname(tstringa5) test40
+set tname(tstringa6) test70
+set tname(tstringa7) test60
+set tname(tstringa9) test100
+
+set tname(tinta0) 10
+set tname(tinta1) 00
+set tname(tinta2) 30
+set tname(tinta3) 20
+set tname(tinta4) 50
+set tname(tinta5) 40
+set tname(tinta6) 70
+set tname(tinta7) 60
+set tname(tinta8) 90
+set tname(tinta9) 80
+set tname(tinta10) 110
+set tname(tinta11) 100
+set tname(tinta12) 130
+set tname(tinta13) 120
+set tname(tinta14) 150
+set tname(tinta15) 140
+set tname(tinta16) 170
+set tname(tinta17) 160
+set tname(tinta18) 190
+set tname(tinta19) 180
+set tname(tinta20) 210
+set tname(tinta21) 200
+set tname(tinta22) 230
+set tname(tinta23) 220
+set tname(tinta24) 250
+set tname(tinta25) 240
+set tname(tinta26) 270
+set tname(tinta27) 260
+set tname(tinta28) 290
+set tname(tinta29) 280
+set tname(tinta30) 310
+set tname(tinta31) 300
 
-set file(name) ca/server/xx