[BACK]Return to rplexternals.h CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/rplexternals.h between versions 1.100 and 1.101

version 1.100, 2023/08/07 17:43:00 version 1.101, 2023/11/27 08:48:46
Line 592 Line 592
         else \          else \
         { \          { \
             __type = 0; \              __type = 0; \
             if (strstr(#__VA_ARGS__, "integer") != NULL) \              if (strstr(#__VA_ARGS__, "integerVector") != NULL) { \
                 if ((*rpl_object).type == INT) __type = 1; \                  if ((*rpl_object).type == VIN) __type = 1; } \
             if (strstr(#__VA_ARGS__, "real") != NULL) \              else if (strstr(#__VA_ARGS__, "realVector") != NULL) { \
                 if ((*rpl_object).type == REL) __type = 1; \                  if ((*rpl_object).type == VRL) __type = 1; } \
             if (strstr(#__VA_ARGS__, "complex") != NULL) \              else if (strstr(#__VA_ARGS__, "complexVector") != NULL) { \
                 if ((*rpl_object).type == CPL) __type = 1; \                  if ((*rpl_object).type == VCX) __type = 1; } \
             if (strstr(#__VA_ARGS__, "string") != NULL) \              else if (strstr(#__VA_ARGS__, "integer") != NULL) { \
                 if ((*rpl_object).type == CHN) __type = 1; \                  if ((*rpl_object).type == INT) __type = 1; } \
             if (strstr(#__VA_ARGS__, "list") != NULL) \              else if (strstr(#__VA_ARGS__, "real") != NULL) { \
                 if ((*rpl_object).type == LST) __type = 1; \                  if ((*rpl_object).type == REL) __type = 1; } \
             if (strstr(#__VA_ARGS__, "external") != NULL) \              else if (strstr(#__VA_ARGS__, "complex") != NULL) { \
                   if ((*rpl_object).type == CPL) __type = 1; } \
               else if (strstr(#__VA_ARGS__, "string") != NULL) { \
                   if ((*rpl_object).type == CHN) __type = 1; } \
               else if (strstr(#__VA_ARGS__, "list") != NULL) { \
                   if ((*rpl_object).type == LST) __type = 1; } \
               else if (strstr(#__VA_ARGS__, "external") != NULL) { \
                 if ((*rpl_object).type == EXT) { \                  if ((*rpl_object).type == EXT) { \
                     if ((*rpl_object).descripteur_bibliotheque == \                      if ((*rpl_object).descripteur_bibliotheque == \
                             __static_library_descriptor) __type = 1; }\                              __static_library_descriptor) __type = 1; } }\
             if (strstr(#__VA_ARGS__, "unknown") != NULL) \              else if (strstr(#__VA_ARGS__, "unknown") != NULL) { \
                 __type = 1; \                  __type = 1; } \
             if (__type == 0) \              if (__type == 0) \
             { \              { \
                 executionError("Type not allowed"); \                  executionError("Type not allowed"); \
Line 878 Line 884
         } \          } \
     } } while(0)      } } while(0)
   
   #define vectorSize(rpl_object) \
       ({ if ((*rpl_object).type == VIN) \
               (*((integer8 *) (*rpl_object).objet)).taille; \
       else if ((*rpl_object).type == VRL) \
               (*((real8 *) (*rpl_object).objet)).taille; \
       else if ((*rpl_object).type == VCX)) \
               (*((complex16 *) (*rpl_object).objet)).taille; \
       else { executionError("Type mistmatch error"); 0; } })
   
 // Integer vector  // Integer vector
   
 #define setIntegerIntoVector(rpl_object, value, position) do { \  #define setIntegerIntoVector(rpl_object, value, position) do { \
Removed from v.1.100  
changed lines
  Added in v.1.101

CVSweb interface <joel.bertrand@systella.fr>