00001
00002
00003
00004 #include "reGlobalsExtern.h"
00005 #include "conversion.h"
00006 #include "reVariableMap.gen.h"
00007 #include "reVariables.h"
00008 #include "rcMisc.h"
00009 #ifdef DEBUG
00010 #include "re.h"
00011 #endif
00012
00013 int getIntLeafValue(Res **varValue, int leaf, Region *r) {
00014 *varValue = newIntRes(r, leaf);
00015 return 0;
00016 }
00017 int getStrLeafValue(Res **varValue, char *leaf, Region *r) {
00018 *varValue = newStringRes(r, leaf);
00019 return 0;
00020 }
00021 int getLongLeafValue(Res **varValue, rodsLong_t leaf, Region *r) {
00022 *varValue = newDoubleRes(r, leaf);
00023 return 0;
00024 }
00025 int getPtrLeafValue(Res **varValue, void *leaf, bytesBuf_t *buf, char *irodsType, Region *r) {
00026 *varValue = newUninterpretedRes(r, irodsType, leaf, buf);
00027 return 0;
00028 }
00029 int setBufferPtrLeafValue(bytesBuf_t **leafPtr, Res *newVarValue) {
00030 *leafPtr = RES_UNINTER_BUFFER(newVarValue);
00031 return 0;
00032 }
00033 int setIntLeafValue(int *leafPtr, Res *newVarValue) {
00034 *leafPtr = RES_INT_VAL(newVarValue);
00035 return 0;
00036 }
00037 int setStrLeafValue(char *leafPtr, size_t len, Res *newVarValue) {
00038 rstrcpy(leafPtr, newVarValue->text, len);
00039 return 0;
00040 }
00041 int setStrDupLeafValue(char **leafPtr, Res *newVarValue) {
00042 if (*leafPtr != NULL) free(*leafPtr);
00043 *leafPtr = strdup(newVarValue->text);
00044 return 0;
00045 }
00046 int setLongLeafValue(rodsLong_t *leafPtr, Res *newVarValue) {
00047 *leafPtr = (long)RES_DOUBLE_VAL(newVarValue);
00048 return 0;
00049 }
00050 int setStructPtrLeafValue(void **leafPtr, Res *newVarValue) {
00051 *leafPtr = RES_UNINTER_STRUCT(newVarValue);
00052 return 0;
00053 }
00054 int
00055 mapExternalFuncToInternalProc( char *funcName)
00056 {
00057 int i;
00058
00059 for (i = 0; i < appRuleFuncMapDef.MaxNumOfFMaps; i++) {
00060 if (strstr(appRuleFuncMapDef.funcName[i],funcName ) != NULL) {
00061 strcpy(funcName, appRuleFuncMapDef.func2CMap[i]);
00062 return(1);
00063 }
00064 }
00065 for (i = 0; i < coreRuleFuncMapDef.MaxNumOfFMaps; i++) {
00066 if (strstr(coreRuleFuncMapDef.funcName[i],funcName ) != NULL) {
00067 strcpy(funcName, coreRuleFuncMapDef.func2CMap[i]);
00068 return(1);
00069 }
00070 }
00071 return(0);
00072 }
00073
00074 int
00075 getVarMap(char *action, char *inVarName, char **varMap, int index)
00076 {
00077 int i;
00078 char *varName;
00079
00080 if (inVarName[0] == '$')
00081 varName = inVarName + 1;
00082 else
00083 varName = inVarName;
00084 if (index < 1000) {
00085 for (i = index; i < appRuleVarDef.MaxNumOfDVars; i++) {
00086 if (!strcmp(appRuleVarDef.varName[i],varName )) {
00087 if (strlen(appRuleVarDef.action[i]) == 0 ||
00088 strstr(appRuleVarDef.action[i],action) != NULL ) {
00089 *varMap = strdup(appRuleVarDef.var2CMap[i]);
00090 return(i);
00091 }
00092 }
00093 }
00094 index = 1000;
00095 }
00096 i = index - 1000;
00097 for ( ; i < coreRuleVarDef.MaxNumOfDVars; i++) {
00098 if (!strcmp(coreRuleVarDef.varName[i],varName )) {
00099 if (strlen(coreRuleVarDef.action[i]) == 0 ||
00100 strstr(coreRuleVarDef.action[i],action) != NULL ) {
00101 *varMap = strdup(coreRuleVarDef.var2CMap[i]);
00102 return(i + 1000);
00103 }
00104 }
00105 }
00106 return(UNKNOWN_VARIABLE_MAP_ERR);
00107 }
00108
00109
00110
00111 int
00112 getVarNameFromVarMap(char *varMap, char *varName, char **varMapCPtr)
00113 {
00114
00115 char *p;
00116
00117 if ((p = strstr(varMap,"->")) == NULL) {
00118 rstrcpy(varName,varMap,NAME_LEN);
00119 *varMapCPtr=NULL;
00120 }
00121 else {
00122 *p = '\0';
00123 rstrcpy(varName,varMap,NAME_LEN);
00124 *p = '-';
00125 p++;
00126 p++;
00127 *varMapCPtr = p;
00128 }
00129 trimWS(varName);
00130 return(0);
00131
00132 }
00133
00134 ExprType *getVarType(char *varMap, Region *r) {
00135 char varName[NAME_LEN];
00136 char *varMapCPtr;
00137 int i;
00138
00139 i = getVarNameFromVarMap(varMap, varName, &varMapCPtr);
00140 if (i != 0)
00141 return newErrorRes(r, i);
00142
00143 if (strcmp(varName,"rei") == 0) {
00144 return getVarTypeFromRuleExecInfo(varMapCPtr, r);
00145 } else {
00146 return newErrorRes(r, UNDEFINED_VARIABLE_MAP_ERR);
00147 }
00148
00149 }
00150 int
00151 getVarValue(char *varMap, ruleExecInfo_t *rei, Res **varValue, Region *r)
00152 {
00153
00154 char varName[NAME_LEN];
00155 char *varMapCPtr;
00156 int i;
00157
00158 i = getVarNameFromVarMap(varMap, varName, &varMapCPtr);
00159 if (i != 0)
00160 return(i);
00161
00162 if (!strcmp(varName,"rei")) {
00163 i = getValFromRuleExecInfo(varMapCPtr, rei, varValue, r);
00164 return(i);
00165 }
00166 else
00167 return(UNDEFINED_VARIABLE_MAP_ERR);
00168 }
00169
00170 int
00171 setVarValue(char *varMap, ruleExecInfo_t *rei, Res *newVarValue)
00172 {
00173 char varName[NAME_LEN];
00174 char *varMapCPtr;
00175 void *varValue = NULL;
00176 int i;
00177
00178 i = getVarNameFromVarMap(varMap, varName, &varMapCPtr);
00179 if (i != 0)
00180 return(i);
00181 if (!strcmp(varName,"rei")) {
00182 i = setValFromRuleExecInfo(varMapCPtr, &rei, newVarValue);
00183 if (varValue != NULL) free (varValue);
00184 return(i);
00185 }
00186 else
00187 return(UNDEFINED_VARIABLE_MAP_ERR);
00188 }
00189
00190
00191
00192
00193
00194
00195
00196
00197
00198
00199
00200
00201
00202
00203
00204
00205
00206
00207
00208
00209
00210
00211
00212
00213
00214
00215
00216
00217
00218
00219
00220
00221
00222
00223
00224
00225
00226
00227
00228
00229
00230
00231
00232
00233
00234
00235
00236
00237
00238
00239
00240
00241
00242
00243
00244
00245
00246
00247
00248
00249
00250
00251
00252
00253
00254
00255
00256
00257
00258
00259
00260
00261
00262
00263
00264
00265
00266
00267
00268
00269
00270
00271
00272
00273
00274
00275
00276
00277
00278
00279
00280
00281
00282
00283
00284
00285
00286
00287
00288
00289
00290
00291
00292
00293
00294
00295
00296
00297
00298
00299
00300
00301
00302
00303
00304
00305
00306
00307
00308
00309
00310
00311
00312
00313
00314
00315
00316
00317
00318
00319
00320
00321
00322
00323
00324
00325
00326
00327
00328
00329
00330
00331
00332
00333
00334
00335
00336
00337
00338
00339
00340
00341
00342
00343
00344
00345
00346
00347
00348
00349
00350
00351
00352
00353
00354
00355
00356
00357
00358
00359
00360
00361
00362
00363
00364
00365
00366
00367
00368
00369
00370
00371
00372
00373
00374
00375
00376
00377 int
00378 getAllSessionVarValue (char *action, ruleExecInfo_t *rei,
00379 keyValPair_t *varKeyVal)
00380 {
00381 int i, status;
00382 char *varValue;
00383 char *lastVar = NULL;
00384
00385 if (varKeyVal == NULL || rei == NULL) {
00386 rodsLog (LOG_ERROR,
00387 "getAllSessionVarValue: input rei or varKeyVal is NULL");
00388 return SYS_INTERNAL_NULL_INPUT_ERR;
00389 }
00390
00391 for (i = 0; i < coreRuleVarDef.MaxNumOfDVars; i++) {
00392 if (lastVar == NULL || strcmp (lastVar, coreRuleVarDef.varName[i]) != 0) {
00393 status = getSessionVarValue ("", coreRuleVarDef.varName[i], rei,
00394 &varValue);
00395 if (status >= 0 && varValue != NULL) {
00396 lastVar = coreRuleVarDef.varName[i];
00397 addKeyVal (varKeyVal, lastVar, varValue);
00398 free (varValue);
00399 }
00400 }
00401 }
00402 return 0;
00403 }
00404
00405 int
00406 getSessionVarValue (char *action, char *varName, ruleExecInfo_t *rei,
00407 char **varValue)
00408 {
00409 char *varMap;
00410 int i, vinx;
00411 Res *res;
00412
00413 Region *r = make_region(0, NULL);
00414 vinx = getVarMap (action,varName, &varMap, 0);
00415 while (vinx >= 0) {
00416 i = getVarValue (varMap, rei, &res, r);
00417 if (i >= 0) {
00418 free(varMap);
00419 *varValue = convertResToString(res);
00420 region_free(r);
00421 return(i);
00422 } else if (i == NULL_VALUE_ERR) {
00423 free(varMap);
00424 vinx = getVarMap (action,varName, &varMap, vinx+1);
00425 } else {
00426 free(varMap);
00427 region_free(r);
00428 return(i);
00429 }
00430 }
00431 region_free(r);
00432 if (vinx < 0) {
00433 return(vinx);
00434 }
00435 return(i);
00436 }
00437
00438