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

Diff for /rpl/src/rpl.h between versions 1.58 and 1.78

version 1.58, 2010/08/17 14:15:20 version 1.78, 2011/04/11 12:10:12
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.18    RPL/2 (R) version 4.1.0.prerelease.0
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2011 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 98 Line 98
 #       include <sys/shm.h>  #       include <sys/shm.h>
 #   endif  #   endif
   
 #   ifndef SEMAPHORES_SYSV  #   ifndef IPCS_SYSV
 #       include <semaphore.h>  #       include <semaphore.h>
 #   else  #   else
   #       include <sys/ipc.h>
   #       include <sys/sem.h>
   
 #       ifdef OS2  #       ifdef OS2
 #           define INCL_DOSSEMAPHORES  #           define INCL_DOSSEMAPHORES
 #           define INCL_DOSMEMMGR  #           define INCL_DOSMEMMGR
Line 117 Line 120
                 ULONG   allocated;                  ULONG   allocated;
             } sem_t;              } sem_t;
 #       else  #       else
 #           include <sys/ipc.h>              typedef struct
 #           include <sys/sem.h>              {
             typedef int sem_t;                  int             sem;
                   unsigned char   *path;
                   pid_t           pid;
               } sem_t;
 #       endif  #       endif
   
 #       define SEM_FAILED   NULL  #       define SEM_FAILED   NULL
Line 187 Line 193
   
 #include "librplprototypes.h"  #include "librplprototypes.h"
   
 #ifndef UNIX_PATH_MAX  #ifndef RPLARGS
     struct sockaddr_un sizecheck;  #   ifndef UNIX_PATH_MAX
 #   define UNIX_PATH_MAX sizeof(sizecheck.sun_path)          struct sockaddr_un sizecheck;
   #       define UNIX_PATH_MAX sizeof(sizecheck.sun_path)
   #   endif
 #endif  #endif
   
   /*
   ================================================================================
     Bugs spécifiques
   ================================================================================
   */
   
 #ifdef _BROKEN_SIGINFO  #ifdef _BROKEN_SIGINFO
 #   define SIGHANDLER_ARGS  int signal  #   define SIGHANDLER_ARGS  int signal
 #   ifdef SA_SIGINFO  #   ifdef SA_SIGINFO
Line 199 Line 213
 #   endif  #   endif
 #   define SA_SIGINFO   0  #   define SA_SIGINFO   0
   
 #   define kill(pid, signal)            rpl_kill(pid, signal)  #   ifndef __BROKEN_SIGINFO_ROUTINES__
 #   define pthread_kill(tid, signal)    rpl_pthread_kill(tid, signal)  
     int rpl_kill(pid_t pid, int signal);  // pthread_kill() est une macro sous OS/2.
     int rpl_pthread_kill(pthread_t tid, int signal);  #       ifdef pthread_kill
   #           undef pthread_kill
   #       endif
   
   #       define kill(a, b)           kill_broken_siginfo(a, b)
   #       define pthread_kill(a, b)   pthread_kill_broken_siginfo(a, b)
   #   endif
   
       int kill_broken_siginfo(pid_t pid, int signal);
       int pthread_kill_broken_siginfo(pthread_t tid, int signal);
       pid_t origine_signal(int signal);
       int queue_in(pid_t pid, int signal);
 #else  #else
 #   define SIGHANDLER_ARGS  int signal, siginfo_t *siginfo, void *context  #   define SIGHANDLER_ARGS  int signal, siginfo_t *siginfo, void *context
 #endif  #endif
   
 #define ftok(path, proj) \  #ifdef OpenBSD
     ({ \  #   ifdef PTHREAD_SCOPE_SYSTEM
         key_t           key; \  #       undef PTHREAD_SCOPE_SYSTEM
         struct stat     s; \  #   endif
         while(stat(path, &s) != 0); \  #   define PTHREAD_SCOPE_SYSTEM 0
         errno = 0; \  #endif
         key = ftok(path, proj); \  
         if (key != -1) \  #ifdef OS2
             key |= ((((key_t) s.st_dev) & 0xFF) << 8) | \  #   define readline(s) readline_wrapper(s)
                     ((((key_t) s.st_ino) & 0xFFFF) << 16); \      unsigned char *readline_wrapper(unsigned char *s);
         key; \  #endif
     })  
   #if ! defined(UNION_SEMUN) && defined(IPCS_SYSV)
   union semun
   {
       int                 val;
       struct semid_ds     *buf;
       unsigned short      *array;
       struct seminfo      *__buf;
   };
   #endif
   
   
 /*  /*
 ================================================================================  ================================================================================
Line 226 Line 261
 ================================================================================  ================================================================================
 */  */
   
 #ifdef SEMAPHORES_SYSV  #ifdef IPCS_SYSV
 #   define sem_init(a, b, c)    sem_init_SysV(a, b, c)  #   define sem_init(a, b, c)    sem_init_SysV(a, b, c)
 #   define sem_destroy(a)       sem_destroy_SysV(a)  #   define sem_destroy(a)       sem_destroy_SysV(a)
 #   define sem_wait(a)          sem_wait_SysV(a)  #   define sem_wait(a)          sem_wait_SysV(a)
Line 467  int sem_getvalue2(sem_t *semaphore, int Line 502  int sem_getvalue2(sem_t *semaphore, int
 #   define fopen(...) ({ FILE *desc; \  #   define fopen(...) ({ FILE *desc; \
             while((desc = fopen(__VA_ARGS__)) == NULL) \              while((desc = fopen(__VA_ARGS__)) == NULL) \
             { if ((errno != EINTR) && (errno != 0)) break; } desc; })              { if ((errno != EINTR) && (errno != 0)) break; } desc; })
   #   define freopen(...) ({ FILE *desc; \
               while((desc = freopen(__VA_ARGS__)) == NULL) \
               { if ((errno != EINTR) && (errno != 0)) break; } desc; })
 #   define fclose(...) ({ int ios; \  #   define fclose(...) ({ int ios; \
             while((ios = fclose(__VA_ARGS__)) != 0) \              while((ios = fclose(__VA_ARGS__)) != 0) \
             { if ((errno != EINTR) && (errno != 0)) break; } ios; })              { if ((errno != EINTR) && (errno != 0)) break; } ios; })
Line 711  pid_t debug_fork(); Line 749  pid_t debug_fork();
 #ifdef DEBUG_ERREURS  #ifdef DEBUG_ERREURS
 #   ifdef MESSAGES  #   ifdef MESSAGES
 #       define __erreur(i)  i  #       define __erreur(i)  i
   #       define __erreur_(i) i
 #   else  #   else
   #       undef _ERREURS_VARIABLES
   #       ifdef _ERREURS_VARIABLES
   #           define __erreur_(i) __erreur(i)
   #       else
   #           define __erreur_(i) i
   #       endif
 #       define __erreur(i)  ({ if (strstr(__FUNCTION__, "recherche_variable") \  #       define __erreur(i)  ({ if (strstr(__FUNCTION__, "recherche_variable") \
                 == NULL) ufprintf(stderr, "ERROR %d AT %s() LINE %d\n", \                  == NULL) ufprintf(stderr, \
                 i, __FUNCTION__, __LINE__); i; })                  "ERROR %d AT %s() FROM %s LINE %d\n", \
                   i, __FUNCTION__, __FILE__, __LINE__); i; })
 #   endif  #   endif
 #else  #else
 #   define __erreur(i)  i  #   define __erreur(i)  i
   #   define __erreur_(i) i
 #endif  #endif
   
   
Line 725  pid_t debug_fork(); Line 772  pid_t debug_fork();
 #ifndef RPLARGS  #ifndef RPLARGS
 #   define d_es                                 2000  #   define d_es                                 2000
 #   define d_es_allocation_memoire              __erreur(2001)  #   define d_es_allocation_memoire              __erreur(2001)
 #   define d_es_variable_introuvable            __erreur(2002)  #   define d_es_variable_introuvable            __erreur_(2002)
 #   define d_es_pile_vide                       __erreur(2003)  #   define d_es_pile_vide                       __erreur(2003)
 #   define d_es_end_incoherent                  __erreur(2004)  #   define d_es_end_incoherent                  __erreur(2004)
 #   define d_es_peripherique_stdin              __erreur(2005)  #   define d_es_peripherique_stdin              __erreur(2005)
Line 738  pid_t debug_fork(); Line 785  pid_t debug_fork();
 #   define d_es_interruption_invalide           __erreur(2012)  #   define d_es_interruption_invalide           __erreur(2012)
 #   define d_es_contexte                        __erreur(2013)  #   define d_es_contexte                        __erreur(2013)
 #   define d_es_somme_controle                  __erreur(2014)  #   define d_es_somme_controle                  __erreur(2014)
   #   define d_es_semaphore                       __erreur(2015)
 #endif  #endif
   
 /*  /*
Line 803  pid_t debug_fork(); Line 851  pid_t debug_fork();
 #   define d_ex_absence_graphique_courant       __erreur(9)  #   define d_ex_absence_graphique_courant       __erreur(9)
 #   define d_ex_erreur_traitement_condition     __erreur(10)  #   define d_ex_erreur_traitement_condition     __erreur(10)
 #   define d_ex_erreur_traitement_boucle        __erreur(11)  #   define d_ex_erreur_traitement_boucle        __erreur(11)
 #   define d_ex_variable_non_definie            __erreur(12)  #   define d_ex_variable_non_definie            __erreur_(12)
 #   define d_ex_drapeau_inexistant              __erreur(13)  #   define d_ex_drapeau_inexistant              __erreur(13)
 #   define d_ex_nom_invalide                    __erreur(14)  #   define d_ex_nom_invalide                    __erreur(14)
 #   define d_ex_element_inexistant              __erreur(15)  #   define d_ex_element_inexistant              __erreur(15)
Line 897  pid_t debug_fork(); Line 945  pid_t debug_fork();
 #   undef MAX  #   undef MAX
 #endif  #endif
   
 #define ADR __RPL_ADR  #define ADR __RPL_ADR
 #define ALG __RPL_ALG  #define ALG __RPL_ALG
 #define BIN __RPL_BIN  #define BIN __RPL_BIN
 #define CHN __RPL_CHN  #define CHN __RPL_CHN
 #define CPL __RPL_CPL  #define CPL __RPL_CPL
Line 917  pid_t debug_fork(); Line 965  pid_t debug_fork();
 #define RPN __RPL_RPN  #define RPN __RPL_RPN
 #define SCK __RPL_SCK  #define SCK __RPL_SCK
 #define SLB __RPL_SLB  #define SLB __RPL_SLB
 #define SPH __RPL_SPH  #define SPH __RPL_SPH
 #define SQL __RPL_SQL  #define SQL __RPL_SQL
 #define TBL __RPL_TBL  #define TBL __RPL_TBL
 #define VCX __RPL_VCX  #define VCX __RPL_VCX
 #define VIN __RPL_VIN  #define VIN __RPL_VIN
 #define VRL __RPL_VRL  #define VRL __RPL_VRL
Line 1311  typedef struct descripteur_thread Line 1359  typedef struct descripteur_thread
     pthread_t                   thread_pere;      pthread_t                   thread_pere;
   
     pthread_mutex_t             mutex;      pthread_mutex_t             mutex;
       pthread_mutex_t             mutex_nombre_references;
   
     volatile logical1           thread_actif;      volatile logical1           thread_actif;
   
Line 1658  typedef struct processus Line 1707  typedef struct processus
     unsigned char               mode_interactif;                    /*Y/N*/      unsigned char               mode_interactif;                    /*Y/N*/
     unsigned char               mode_evaluation_expression;         /*Y/N*/      unsigned char               mode_evaluation_expression;         /*Y/N*/
     unsigned char               traitement_cycle_exit;              /*N/E/C*/      unsigned char               traitement_cycle_exit;              /*N/E/C*/
       unsigned char               recherche_type;                     /*Y/N*/
   
     unsigned long               position_courante;      unsigned long               position_courante;
     unsigned long               longueur_definitions_chainees;      unsigned long               longueur_definitions_chainees;
Line 1711  typedef struct processus Line 1761  typedef struct processus
   
 #   if !defined(Cygwin)  #   if !defined(Cygwin)
 #       if !(OpenBSD)  #       if !(OpenBSD)
     stack_t                     pile_signal;              stack_t             pile_signal;
 #       else  #       else
 #           ifdef SA_ONSTACK  #           ifdef SA_ONSTACK
 #               undef SA_ONSTACK  #               undef SA_ONSTACK
Line 1719  typedef struct processus Line 1769  typedef struct processus
 #           define SA_ONSTACK   0  #           define SA_ONSTACK   0
 #       endif  #       endif
 #   else  #   else
 #   define SA_ONSTACK           0  #       define SA_ONSTACK       0
 #   define RTLD_LOCAL           0  #       define RTLD_LOCAL       0
 #   endif  #   endif
   
 /* Contextes                                            */  /* Contextes                                            */
Line 1994  typedef struct processus Line 2044  typedef struct processus
     volatile sig_atomic_t       var_volatile_traitement_retarde_stop;      volatile sig_atomic_t       var_volatile_traitement_retarde_stop;
     volatile sig_atomic_t       var_volatile_traitement_sigint;      volatile sig_atomic_t       var_volatile_traitement_sigint;
   
       volatile sig_atomic_t       var_volatile_processus_racine;
     volatile sig_atomic_t       var_volatile_processus_pere;      volatile sig_atomic_t       var_volatile_processus_pere;
     volatile sig_atomic_t       var_volatile_recursivite;      volatile sig_atomic_t       var_volatile_recursivite;
   
Line 2393  void instruction_lq(struct_processus *s_ Line 2444  void instruction_lq(struct_processus *s_
 void instruction_lsq(struct_processus *s_etat_processus);  void instruction_lsq(struct_processus *s_etat_processus);
 void instruction_lt(struct_processus *s_etat_processus);  void instruction_lt(struct_processus *s_etat_processus);
 void instruction_lu(struct_processus *s_etat_processus);  void instruction_lu(struct_processus *s_etat_processus);
   void instruction_l_vers_t(struct_processus *s_etat_processus);
   
 void instruction_mant(struct_processus *s_etat_processus);  void instruction_mant(struct_processus *s_etat_processus);
 void instruction_mark(struct_processus *s_etat_processus);  void instruction_mark(struct_processus *s_etat_processus);
Line 2628  void instruction_trn(struct_processus *s Line 2680  void instruction_trn(struct_processus *s
 void instruction_trnc(struct_processus *s_etat_processus);  void instruction_trnc(struct_processus *s_etat_processus);
 void instruction_true(struct_processus *s_etat_processus);  void instruction_true(struct_processus *s_etat_processus);
 void instruction_type(struct_processus *s_etat_processus);  void instruction_type(struct_processus *s_etat_processus);
   void instruction_t_vers_l(struct_processus *s_etat_processus);
   
 void instruction_ucase(struct_processus *s_etat_processus);  void instruction_ucase(struct_processus *s_etat_processus);
 void instruction_uchol(struct_processus *s_etat_processus);  void instruction_uchol(struct_processus *s_etat_processus);
Line 2929  unsigned char *formateur_fichier(struct_ Line 2982  unsigned char *formateur_fichier(struct_
         struct_objet *s_objet, struct_objet *s_format,          struct_objet *s_objet, struct_objet *s_format,
         long longueur, long longueur_champ, unsigned char format,          long longueur, long longueur_champ, unsigned char format,
         unsigned char type, long *longueur_effective, long *recursivite);          unsigned char type, long *longueur_effective, long *recursivite);
   unsigned char *formateur_flux(struct_processus *s_etat_processus,
           unsigned char *donnees, long *longueur);
 unsigned char *formateur_fichier_nombre(struct_processus *s_etat_processus,  unsigned char *formateur_fichier_nombre(struct_processus *s_etat_processus,
         void *valeur_numerique, unsigned char type,          void *valeur_numerique, unsigned char type,
         long longueur, long longueur_champ, unsigned char format);          long longueur, long longueur_champ, unsigned char format);
Removed from v.1.58  
changed lines
  Added in v.1.78

CVSweb interface <joel.bertrand@systella.fr>