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

Diff for /rpl/src/rplexternals.h between versions 1.94 and 1.106

version 1.94, 2019/01/01 09:03:15 version 1.106, 2025/04/15 10:17:57
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.30    RPL/2 (R) version 4.1.36
   Copyright (C) 1989-2019 Dr. BERTRAND Joël    Copyright (C) 1989-2025 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
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) \
       ({ integer8 __size = 0; if (((*rpl_object).type == VIN) || \
               ((*rpl_object).type == VRL) || \
               ((*rpl_object).type == VCX)) \
           __size = (*((struct_vecteur *) (*rpl_object).objet)).taille; \
       else executionError("Type mistmatch error"); __size; })
   
 // Integer vector  // Integer vector
   
 #define setIntegerIntoVector(rpl_object, value, position) do { \  #define setIntegerIntoVector(rpl_object, value, position) do { \
Removed from v.1.94  
changed lines
  Added in v.1.106

CVSweb interface <joel.bertrand@systella.fr>