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

Diff for /rpl/src/rplexternals.h between versions 1.74 and 1.77

version 1.74, 2017/06/29 12:33:34 version 1.77, 2017/07/02 22:28:20
Line 80 Line 80
 // new, dup, drop, disp, parse  // new, dup, drop, disp, parse
 // __type_new(struct_rpl_arguments *rpl_arguments)  // __type_new(struct_rpl_arguments *rpl_arguments)
 #define declareTypeExtension(fct) \  #define declareTypeExtension(fct) \
         int __type_##fct(struct_processus *s_etat_processus) { \          int __type_##fct(struct_processus *s_etat_processus, void **arg) { \
             unsigned char *rptr, *ptr; \              char *rptr, *ptr, *iptr; \
             rptr = (*s_etat_processus).definitions_chainees + \              rptr = (char *) ((*s_etat_processus).definitions_chainees + \
                     (*s_etat_processus).position_courante; \                      (*s_etat_processus).position_courante); \
             ptr = rptr; \              ptr = rptr; \
             if (ptr != rptr) goto __parse_error;              iptr = (char *) (*s_etat_processus).instruction_courante; \
               if ((ptr != rptr) && (iptr)) goto __parse_error;
 #define parseError  { goto __parse_error; } while(0)  #define parseError  { goto __parse_error; } while(0)
   #define typeError { return(0); } while(0)
   #define typeSystemError { (*s_etat_processus).erreur_systeme = \
           d_es_execution_bibliotheque; return(0); } while(0)
   #define typeSuccess { return(1); } while(0)
   #define typeFound(a) { return(a); } while(0)
 #define endTypeExtension __parse_error: return(0); }  #define endTypeExtension __parse_error: return(0); }
 #define sizeOfParse (rptr - ptr)  #define sizeOfParse (rptr - ptr)
   #define searchType(...) { recherche_type(s_etat_processus); \
               if (((*s_etat_processus).erreur_execution != d_ex) || \
                       ((*s_etat_processus).erreur_systeme != d_es)) \
                   { __VA_ARGS__; return(0); } } while(0)
   #define integerFormat(a) formateur_nombre(s_etat_processus, a, 'I')
   
 /*  /*
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
Line 343 Line 354
         do { syslog(LOG_NOTICE, __VA_ARGS__); } while(0)           do { syslog(LOG_NOTICE, __VA_ARGS__); } while(0) 
   
 #define exportExternalFunctions(...) \  #define exportExternalFunctions(...) \
     char **__external_symbols(struct_rpl_arguments *rpl_arguments, \      char **___external_symbols(struct_rpl_arguments *rpl_arguments, \
             integer8 *nb_symbols, \              integer8 *nb_symbols, \
             const char *version) { \              const char *version) { \
         char arguments[] = #__VA_ARGS__; \          char arguments[] = #__VA_ARGS__; \
Removed from v.1.74  
changed lines
  Added in v.1.77

CVSweb interface <joel.bertrand@systella.fr>