Changeset 774 for trunk/AGRIF/LIB/UtilCharacter.c
- Timestamp:
- 2007-12-18T17:45:53+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/AGRIF/LIB/UtilCharacter.c
r663 r774 31 31 /* knowledge of the CeCILL-C license and that you accept its terms. */ 32 32 /******************************************************************************/ 33 /* version 1. 6*/33 /* version 1.7 */ 34 34 /******************************************************************************/ 35 35 #include <stdio.h> … … 51 51 /* */ 52 52 /******************************************************************************/ 53 void FindAndChangeNameToTabvars(char name[LONG NOM],char toprint[LONGNOM],54 listvar * listtosee, int whichone)53 void FindAndChangeNameToTabvars(char name[LONG_C],char toprint[LONG_4C], 54 listvar * listtosee, int whichone) 55 55 { 56 56 listvar *newvar; … … 65 65 if ( !strcasecmp(newvar->var->v_nomvar,name) ) 66 66 { 67 out = 1; 68 strcat(toprint,vargridcurgridtabvars(newvar->var,whichone)); 67 if ( LookingForVariableInListName( 68 List_SubroutineArgument_Var,name) == 0 ) 69 { 70 out = 1; 71 strcat(toprint,vargridcurgridtabvars(newvar->var,whichone)); 72 } 73 else newvar=newvar->suiv; 69 74 } 70 75 else newvar=newvar->suiv; … … 72 77 if ( out == 0 ) strcat(toprint,name); 73 78 } 79 Save_Length(toprint,44); 74 80 } 75 81 … … 87 93 int whichone) 88 94 { 89 char toprinttmp[LONG NOM];95 char toprinttmp[LONG_4C]; 90 96 int i; 91 97 char chartmp[2]; … … 99 105 if ( nom[i] == '+' ) 100 106 { 101 107 FindAndChangeNameToTabvars(toprinttmp,toprintglob,listtoread,whichone); 102 108 strcpy(toprinttmp,""); 103 109 strcat(toprintglob,"+"); … … 156 162 strcpy(toprinttmp,""); 157 163 164 Save_Length(toprinttmp,44); 165 Save_Length(toprintglob,39); 158 166 /* */ 159 167 return toprintglob; … … 289 297 listnom *DecomposeTheNameinlistnom(char *nom, listnom * listout) 290 298 { 291 char toprinttmp[LONG NOM];299 char toprinttmp[LONG_4C]; 292 300 int i; 293 301 char chartmp[2]; … … 327 335 } 328 336 strcpy(toprinttmp,""); 337 Save_Length(toprinttmp,44); 329 338 330 339 return listout; … … 343 352 void DecomposeTheName(char *nom) 344 353 { 345 char toprinttmp[LONG NOM];354 char toprinttmp[LONG_4C]; 346 355 int i; 347 356 char chartmp[2]; … … 378 387 i=i+1; 379 388 } 389 Save_Length(toprinttmp,44); 380 390 if (strcasecmp(toprinttmp,"") && ( toprinttmp[0] >= 'A' ) ) 381 391 { … … 404 414 } 405 415 } 416 417 int convert2int(char *name) 418 { 419 int i; 420 int caractere; 421 int value; 422 int value_tmp; 423 int longueur; 424 425 value = 0; 426 427 longueur = strlen(name) - 1; 428 for (i=0;i<=longueur;i++) 429 { 430 caractere=name[i]; 431 value_tmp = caractere -'0'; 432 if ( value_tmp > 9 ) return 0; 433 if ( longueur+1-i == 6 ) value = value + value_tmp *100000; 434 else if ( longueur+1-i == 5 ) value = value + value_tmp *10000; 435 else if ( longueur+1-i == 4 ) value = value + value_tmp *1000; 436 else if ( longueur+1-i == 3 ) value = value + value_tmp *100; 437 else if ( longueur+1-i == 2 ) value = value + value_tmp *10; 438 else if ( longueur+1-i == 1 ) value = value + value_tmp *1; 439 } 440 return value; 441 }
Note: See TracChangeset
for help on using the changeset viewer.