From: hades Date: Wed, 28 Mar 2001 11:53:52 +0000 (+0000) Subject: *** empty log message *** X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=989e2d99b006e215f897d885d046f9a5936b63a2;p=daqdata.git *** empty log message *** --- diff --git a/allParam/test/blob/BLOB b/allParam/test/blob/BLOB deleted file mode 100644 index 357e873..0000000 --- a/allParam/test/blob/BLOB +++ /dev/null @@ -1,739 +0,0 @@ -E 199509L - -extern "C" { - #include -} - -#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 -} - -#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 -} - -#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 -} - -#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 463ee69..ab1740d 100644 --- 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 428e0f3..146eeae 100644 --- 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