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

Diff for /rpl/src/instructions_o1.c between versions 1.89 and 1.106

version 1.89, 2017/01/18 15:44:21 version 1.106, 2022/09/07 13:40:37
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.26    RPL/2 (R) version 4.1.34
   Copyright (C) 1989-2017 Dr. BERTRAND Joël    Copyright (C) 1989-2021 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 114  instruction_over(struct_processus *s_eta Line 114  instruction_over(struct_processus *s_eta
                 "       %s, %s, %s, %s, %s,\n"                  "       %s, %s, %s, %s, %s,\n"
                 "       %s, %s, %s, %s, %s,\n"                  "       %s, %s, %s, %s, %s,\n"
                 "       %s, %s, %s, %s,\n"                  "       %s, %s, %s, %s,\n"
                 "       %s, %s\n",                  "       %s, %s, %s\n",
                 d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,                  d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
                 d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,                  d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
                 d_SQL, d_SLB, d_PRC, d_MTX);                  d_SQL, d_SLB, d_PRC, d_MTX, d_REC);
         printf("    1: %s, %s, %s, %s, %s, %s,\n"          printf("    1: %s, %s, %s, %s, %s, %s,\n"
                 "       %s, %s, %s, %s, %s,\n"                  "       %s, %s, %s, %s, %s,\n"
                 "       %s, %s, %s, %s, %s,\n"                  "       %s, %s, %s, %s, %s,\n"
                 "       %s, %s, %s, %s,\n"                  "       %s, %s, %s, %s,\n"
                 "       %s, %s\n",                  "       %s, %s, %s\n",
                 d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,                  d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
                 d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,                  d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
                 d_SQL, d_SLB, d_PRC, d_MTX);                  d_SQL, d_SLB, d_PRC, d_MTX, d_REC);
         printf("->  3: %s, %s, %s, %s, %s, %s,\n"          printf("->  3: %s, %s, %s, %s, %s, %s,\n"
                 "       %s, %s, %s, %s, %s,\n"                  "       %s, %s, %s, %s, %s,\n"
                 "       %s, %s, %s, %s, %s,\n"                  "       %s, %s, %s, %s, %s,\n"
                 "       %s, %s, %s, %s,\n"                  "       %s, %s, %s, %s,\n"
                 "       %s, %s\n",                  "       %s, %s, %s\n",
                 d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,                  d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
                 d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,                  d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
                 d_SQL, d_SLB, d_PRC, d_MTX);                  d_SQL, d_SLB, d_PRC, d_MTX, d_REC);
         printf("    ...\n");          printf("    ...\n");
         printf("    1: %s, %s, %s, %s, %s, %s,\n"          printf("    1: %s, %s, %s, %s, %s, %s,\n"
                 "       %s, %s, %s, %s, %s,\n"                  "       %s, %s, %s, %s, %s,\n"
                 "       %s, %s, %s, %s, %s,\n"                  "       %s, %s, %s, %s, %s,\n"
                 "       %s, %s, %s, %s,\n"                  "       %s, %s, %s, %s,\n"
                 "       %s, %s\n",                  "       %s, %s, %s\n",
                 d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,                  d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
                 d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,                  d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
                 d_SQL, d_SLB, d_PRC, d_MTX);                  d_SQL, d_SLB, d_PRC, d_MTX, d_REC);
   
         return;          return;
     }      }
Line 1265  instruction_open(struct_processus *s_eta Line 1265  instruction_open(struct_processus *s_eta
         printf("            IMAXBEL, OPOST, ONLCR, OCRNL, ONOCR, ONLRET,\n");          printf("            IMAXBEL, OPOST, ONLCR, OCRNL, ONOCR, ONLRET,\n");
         printf("            OFILL, HUPCL, CLOCAL, CRTSCTS, ISIG, ICANON,\n");          printf("            OFILL, HUPCL, CLOCAL, CRTSCTS, ISIG, ICANON,\n");
         printf("            ECHO, ECHOE, ECHOK, ECHONL, NOFLSH, TOSTOP,\n");          printf("            ECHO, ECHOE, ECHOK, ECHONL, NOFLSH, TOSTOP,\n");
         printf("            IEXTEN\n");          printf("            IEXTEN, RAW\n");
   
         printf("    Address         : { \"ADDRESS\" [ 127 0 0 1 ] }\n");          printf("    Address         : { \"ADDRESS\" [ 127 0 0 1 ] }\n");
         printf("                      { \"HOST\" \"hostname\" }\n");          printf("                      { \"HOST\" \"hostname\" }\n");
Line 2361  instruction_open(struct_processus *s_eta Line 2361  instruction_open(struct_processus *s_eta
                                 {                                  {
                                     type_arguments = 'S';                                      type_arguments = 'S';
                                 }                                  }
                                   else if (type_arguments == 'F')
                                 {                                  {
                                     liberation(s_etat_processus,                                      liberation(s_etat_processus,
                                             s_objet_argument);                                              s_objet_argument);
Line 3889  instruction_open(struct_processus *s_eta Line 3890  instruction_open(struct_processus *s_eta
 #ifdef B230400  #ifdef B230400
                         "230400",                          "230400",
 #endif  #endif
   #ifdef B460800
                           "460800",
   #endif
   #ifdef B500000
                           "500000",
   #endif
   #ifdef B576000
                           "576000",
   #endif
   #ifdef B921600
                           "921600",
   #endif
   #ifdef B1000000
                           "1000000",
   #endif
   #ifdef B1152000
                           "1152000",
   #endif
                         NULL };                          NULL };
                 tcflag_t        vitesses_constantes[] =                  tcflag_t        vitesses_constantes[] =
                         { B50, B75, B110, B134, B150, B200, B300, B600,                          { B50, B75, B110, B134, B150, B200, B300, B600,
Line 3902  instruction_open(struct_processus *s_eta Line 3921  instruction_open(struct_processus *s_eta
 #ifdef B230400  #ifdef B230400
                         B230400,                          B230400,
 #endif  #endif
   #ifdef B460800
                           B460800,
   #endif
   #ifdef B500000
                           B500000,
   #endif
   #ifdef B576000
                           B576000,
   #endif
   #ifdef B921600
                           B921600,
   #endif
   #ifdef B1000000
                           B1000000,
   #endif
   #ifdef B1152000
                           B1152000,
   #endif
                         0 };                          0 };
                 unsigned int    vitesse_courante;                  unsigned int    vitesse_courante;
   
Line 4172  instruction_open(struct_processus *s_eta Line 4209  instruction_open(struct_processus *s_eta
 #ifdef IXANY  #ifdef IXANY
                             "IXANY",                              "IXANY",
 #endif  #endif
                             "IXOFF", "OPOST",                              "IXOFF",
                             "ONLCR", "OCRNL", "ONOCR", "ONLRET",                              "OPOST", "ONLCR", "OCRNL", "ONOCR", "ONLRET",
 #ifdef OFILL  #ifdef OFILL
                             "OFILL",                              "OFILL",
 #endif  #endif
Line 4182  instruction_open(struct_processus *s_eta Line 4219  instruction_open(struct_processus *s_eta
                             "CRTSCTS",                              "CRTSCTS",
 #endif  #endif
                             "ISIG", "ICANON", "ECHO", "ECHOE", "ECHOK",                              "ISIG", "ICANON", "ECHO", "ECHOE", "ECHOK",
                             "ECHONL", "NOFLSH", "TOSTOP", "IEXTEN", NULL };                              "ECHONL", "NOFLSH", "TOSTOP", "IEXTEN",
   
                               "RAW",
                               
                               NULL };
                     tcflag_t        fonctions_constantes[] =                      tcflag_t        fonctions_constantes[] =
                             { /* c_iflag */                              { /* c_iflag */
                             1, IGNBRK, 1, BRKINT, 1, IGNPAR, 1, PARMRK,                              1, IGNBRK, 1, BRKINT, 1, IGNPAR, 1, PARMRK,
Line 4203  instruction_open(struct_processus *s_eta Line 4244  instruction_open(struct_processus *s_eta
 #ifdef CRTSCTS  #ifdef CRTSCTS
                             3, CRTSCTS,                              3, CRTSCTS,
 #endif  #endif
                             /* c_lfkag */                              /* c_lflag */
                             4, ISIG, 4, ICANON, 4, ECHO, 4, ECHOE, 4, ECHOK,                              4, ISIG, 4, ICANON, 4, ECHO, 4, ECHOE, 4, ECHOK,
                             4, ECHONL, 4, NOFLSH, 4, TOSTOP, 4, IEXTEN };                              4, ECHONL, 4, NOFLSH, 4, TOSTOP, 4, IEXTEN,
                              
                               /* RAW */
                               5, 0 };
                     unsigned int    fonction_courante;                      unsigned int    fonction_courante;
   
                     // On vient de trouver quelque chose à interpréter.                      // On vient de trouver quelque chose à interpréter.
Line 4255  instruction_open(struct_processus *s_eta Line 4299  instruction_open(struct_processus *s_eta
                                                 [(fonction_courante * 2) + 1];                                                  [(fonction_courante * 2) + 1];
                                         break;                                          break;
                                     }                                      }
   
                                       case 5:
                                       {
                                           // RAW ne peut être négatif
                                           break;
                                       }
                                 }                                  }
                             }                              }
                             else                              else
Line 4289  instruction_open(struct_processus *s_eta Line 4339  instruction_open(struct_processus *s_eta
                                                 [(fonction_courante * 2) + 1];                                                  [(fonction_courante * 2) + 1];
                                         break;                                          break;
                                     }                                      }
   
                                       case 5:
                                       {
                                           // no ignbrk
                                           tc.c_iflag &= ~(tcflag_t) IGNBRK;
                                           // no brkint
                                           tc.c_iflag &= ~(tcflag_t) BRKINT;
                                           // no ignpar
                                           tc.c_iflag &= ~(tcflag_t) IGNPAR;
                                           // no parmrk
                                           tc.c_iflag &= ~(tcflag_t) PARMRK;
                                           // no inpck
                                           tc.c_iflag &= ~(tcflag_t) INPCK;
                                           // no istrip
                                           tc.c_iflag &= ~(tcflag_t) ISTRIP;
                                           // no inlcr
                                           tc.c_iflag &= ~(tcflag_t) INLCR;
                                           // no icrnl
                                           tc.c_iflag &= ~(tcflag_t) ICRNL;
                                           // no ixon
                                           tc.c_iflag &= ~(tcflag_t) IXON;
                                           // no ixoff
                                           tc.c_iflag &= ~(tcflag_t) IXOFF;
   #ifdef IXANY
                                           // no ixany
                                           tc.c_iflag &= ~(tcflag_t) IXANY;
   #endif
                                           // no opost
                                           tc.c_oflag &= ~(tcflag_t) OPOST;
                                           // no isig
                                           tc.c_lflag &= ~(tcflag_t) ISIG;
                                           // no icanon
                                           tc.c_lflag &= ~(tcflag_t) ICANON;
                                           // no echo
                                           tc.c_lflag &= ~(tcflag_t) ECHO;
                                           // no echoe
                                           tc.c_lflag &= ~(tcflag_t) ECHOE;
                                           // no echok
                                           tc.c_lflag &= ~(tcflag_t) ECHOK;
                                       }
                                 }                                  }
                             }                              }
   
                             break;                              // On sort si on a trouvé un paramètre
                               // correct et donc différent de "NO RAW".
                           
                               if (!((negation == d_vrai) &&
                                       (fonctions_constantes[fonction_courante * 2]
                                        == 5)))
                               {
                                   break;
                               }
                         }                          }
                     }                      }
   
                     if (fonctions[fonction_courante] == NULL)                      if (fonctions[fonction_courante] == NULL)
                     {                      {
                           // Paramètre inconnu
                         free(parametre_courant_majuscule);                          free(parametre_courant_majuscule);
                         liberation(s_etat_processus, s_objet_argument);                          liberation(s_etat_processus, s_objet_argument);
                         liberation(s_etat_processus, s_objet_resultat);                          liberation(s_etat_processus, s_objet_resultat);
Line 5054  instruction_open(struct_processus *s_eta Line 5153  instruction_open(struct_processus *s_eta
                                     .objet)).adresse);                                      .objet)).adresse);
   
                             if (((*((struct_socket *) (*s_objet_resultat)                              if (((*((struct_socket *) (*s_objet_resultat)
                                     .objet)).adresse = malloc(22 *                                      .objet)).adresse = malloc(23 *
                                     sizeof(unsigned char))) == NULL)                                      sizeof(unsigned char))) == NULL)
                             {                              {
                                 (*s_etat_processus).erreur_systeme =                                  (*s_etat_processus).erreur_systeme =
Line 5063  instruction_open(struct_processus *s_eta Line 5162  instruction_open(struct_processus *s_eta
                             }                              }
   
                             sprintf((*((struct_socket *) (*s_objet_resultat)                              sprintf((*((struct_socket *) (*s_objet_resultat)
                                     .objet)).adresse, "%d.%d.%d.%d",                                      .objet)).adresse, "%d.%d.%d.%d(%u)",
                                     (ntohl((*((struct sockaddr_in *)                                      (ntohl((*((struct sockaddr_in *)
                                     (*resolution_courante).ai_addr)).sin_addr                                      (*resolution_courante).ai_addr)).sin_addr
                                     .s_addr) >> 24) & 0xFF,                                      .s_addr) >> 24) & 0xFF,
Line 5075  instruction_open(struct_processus *s_eta Line 5174  instruction_open(struct_processus *s_eta
                                     .s_addr) >> 8) & 0xFF,                                      .s_addr) >> 8) & 0xFF,
                                     ntohl((*((struct sockaddr_in *)                                      ntohl((*((struct sockaddr_in *)
                                     (*resolution_courante).ai_addr)).sin_addr                                      (*resolution_courante).ai_addr)).sin_addr
                                     .s_addr) & 0xFF);                                      .s_addr) & 0xFF,
                                       (unsigned int) port);
                         }                          }
                         else                          else
                         { // Accès en IPv6                          { // Accès en IPv6
Line 5165  instruction_open(struct_processus *s_eta Line 5265  instruction_open(struct_processus *s_eta
                             free((*((struct_socket *) (*s_objet_resultat)                              free((*((struct_socket *) (*s_objet_resultat)
                                     .objet)).adresse);                                      .objet)).adresse);
   
                               /*
                                * Longueur de la chaîne :
                                * Adresse IPv6 : 16 octets soit 128 bits.
                                * => 32 chiffres en hexadécimal
                                * Par groupe de 4, 8 groupes
                                * => 7 ":"
                                * Port : (%u)
                                * => 7
                                * ==> 32 + 7 + 7 + 1 = 47
                                */
   
                             if (((*((struct_socket *) (*s_objet_resultat)                              if (((*((struct_socket *) (*s_objet_resultat)
                                     .objet)).adresse = malloc(55 *                                      .objet)).adresse = malloc(47 *
                                     sizeof(unsigned char))) == NULL)                                      sizeof(unsigned char))) == NULL)
                             {                              {
                                 (*s_etat_processus).erreur_systeme =                                  (*s_etat_processus).erreur_systeme =
Line 5174  instruction_open(struct_processus *s_eta Line 5285  instruction_open(struct_processus *s_eta
                                 return;                                  return;
                             }                              }
   
                             for(i = 0; i < 16; i++)                              sprintf((*((struct_socket *) (*s_objet_resultat)
                             {                                      .objet)).adresse,
                                 sprintf((*((struct_socket *) (*s_objet_resultat)                                      "%02X%02X:%02X%02X:%02X%02X:%02X%02X:"
                                         .objet)).adresse,                                      "%02X%02X:%02X%02X:%02X%02X:%02X%02X(%u)",
                                         (i == 0) ? "%s%X" : "%s:%X",                                      (*((struct sockaddr_in6 *)
                                         (*((struct_socket *) (*s_objet_resultat)                                      (*resolution_courante).ai_addr)).sin6_addr
                                         .objet)).adresse,                                      .s6_addr[0],
                                         (*((struct sockaddr_in6 *)                                      (*((struct sockaddr_in6 *)
                                         (*resolution_courante).ai_addr))                                      (*resolution_courante).ai_addr)).sin6_addr
                                         .sin6_addr.s6_addr[i]);                                      .s6_addr[1],
                             }                                      (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[2],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[3],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[4],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[5],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[6],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[7],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[8],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[9],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[10],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[11],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[12],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[13],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[14],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[15],
                                       (unsigned int) port);
 #                           else  #                           else
                             if ((*s_etat_processus).langue == 'F')                              if ((*s_etat_processus).langue == 'F')
                             {                              {
Line 5209  instruction_open(struct_processus *s_eta Line 5362  instruction_open(struct_processus *s_eta
                         }                          }
   
                         freeaddrinfo(resolution);                          freeaddrinfo(resolution);
   
                         sprintf((*((struct_socket *) (*s_objet_resultat)  
                                 .objet)).adresse, "%s(%u)",  
                                 (*((struct_socket *) (*s_objet_resultat)  
                                 .objet)).adresse, (unsigned int) port);  
                     }                      }
                     else                      else
                     { // Hôte défini par une adresse                      { // Hôte défini par une adresse
Line 5223  instruction_open(struct_processus *s_eta Line 5371  instruction_open(struct_processus *s_eta
                                     .objet)).adresse);                                      .objet)).adresse);
   
                             if (((*((struct_socket *) (*s_objet_resultat)                              if (((*((struct_socket *) (*s_objet_resultat)
                                     .objet)).adresse = malloc(22 *                                      .objet)).adresse = malloc(23 *
                                     sizeof(unsigned char))) == NULL)                                      sizeof(unsigned char))) == NULL)
                             {                              {
                                 (*s_etat_processus).erreur_systeme =                                  (*s_etat_processus).erreur_systeme =
Line 5231  instruction_open(struct_processus *s_eta Line 5379  instruction_open(struct_processus *s_eta
                                 return;                                  return;
                             }                              }
   
                             (*((struct_socket *) (*s_objet_resultat).objet))  
                                     .adresse[0] = d_code_fin_chaine;  
   
                             for(i = 0; i < 4; i++)  
                             {  
                                 sprintf((*((struct_socket *) (*s_objet_resultat)  
                                         .objet)).adresse,  
                                         (i == 0) ? "%s%d" : "%s.%d",  
                                         (*((struct_socket *) (*s_objet_resultat)  
                                         .objet)).adresse, (int) adresse[i]);  
                             }  
   
                             sprintf((*((struct_socket *) (*s_objet_resultat)                              sprintf((*((struct_socket *) (*s_objet_resultat)
                                     .objet)).adresse, "%s(%u)",                                      .objet)).adresse, "%d.%d.%d.%d(%u)",
                                     (*((struct_socket *) (*s_objet_resultat)                                      (int) adresse[0], (int) adresse[1],
                                     .objet)).adresse, (unsigned int) port);                                      (int) adresse[2], (int) adresse[3],
                                       (unsigned int) port);
   
                             if (((*((struct_socket *)                              if (((*((struct_socket *)
                                     (*s_objet_resultat).objet))                                      (*s_objet_resultat).objet))
Line 5307  instruction_open(struct_processus *s_eta Line 5444  instruction_open(struct_processus *s_eta
                                     .objet)).adresse);                                      .objet)).adresse);
   
                             if (((*((struct_socket *) (*s_objet_resultat)                              if (((*((struct_socket *) (*s_objet_resultat)
                                     .objet)).adresse = malloc(55 *                                      .objet)).adresse = malloc(47 *
                                     sizeof(unsigned char))) == NULL)                                      sizeof(unsigned char))) == NULL)
                             {                              {
                                 (*s_etat_processus).erreur_systeme =                                  (*s_etat_processus).erreur_systeme =
Line 5315  instruction_open(struct_processus *s_eta Line 5452  instruction_open(struct_processus *s_eta
                                 return;                                  return;
                             }                              }
   
                             (*((struct_socket *) (*s_objet_resultat).objet))  
                                     .adresse[0] = d_code_fin_chaine;  
   
                             for(i = 0; i < 16; i++)  
                             {  
                                 sprintf((*((struct_socket *) (*s_objet_resultat)  
                                         .objet)).adresse,  
                                         (i == 0) ? "%s%X" : "%s:%X",  
                                         (*((struct_socket *) (*s_objet_resultat)  
                                         .objet)).adresse, (unsigned int)  
                                         adresse[i]);  
                             }  
   
                             sprintf((*((struct_socket *) (*s_objet_resultat)                              sprintf((*((struct_socket *) (*s_objet_resultat)
                                     .objet)).adresse, "%s(%u)",                                      .objet)).adresse,
                                     (*((struct_socket *) (*s_objet_resultat)                                      "%02X%02X:%02X%02X:%02X%02X:%02X%02X:"
                                     .objet)).adresse, (unsigned int) port);                                      "%02X%02X:%02X%02X:%02X%02X:%02X%02X(%u)",
                                       (unsigned int) adresse[0],
                                       (unsigned int) adresse[1],
                                       (unsigned int) adresse[2],
                                       (unsigned int) adresse[3],
                                       (unsigned int) adresse[4],
                                       (unsigned int) adresse[5],
                                       (unsigned int) adresse[6],
                                       (unsigned int) adresse[7],
                                       (unsigned int) adresse[8],
                                       (unsigned int) adresse[9],
                                       (unsigned int) adresse[10],
                                       (unsigned int) adresse[11],
                                       (unsigned int) adresse[12],
                                       (unsigned int) adresse[13],
                                       (unsigned int) adresse[14],
                                       (unsigned int) adresse[15],
                                       (unsigned int) port);
   
                             if (((*((struct_socket *)                              if (((*((struct_socket *)
                                     (*s_objet_resultat).objet))                                      (*s_objet_resultat).objet))
Line 5636  instruction_open(struct_processus *s_eta Line 5777  instruction_open(struct_processus *s_eta
                                     .objet)).adresse);                                      .objet)).adresse);
   
                             if (((*((struct_socket *) (*s_objet_resultat)                              if (((*((struct_socket *) (*s_objet_resultat)
                                     .objet)).adresse = malloc(22 *                                      .objet)).adresse = malloc(23 *
                                     sizeof(unsigned char))) == NULL)                                      sizeof(unsigned char))) == NULL)
                             {                              {
                                 (*s_etat_processus).erreur_systeme =                                  (*s_etat_processus).erreur_systeme =
Line 5645  instruction_open(struct_processus *s_eta Line 5786  instruction_open(struct_processus *s_eta
                             }                              }
   
                             sprintf((*((struct_socket *) (*s_objet_resultat)                              sprintf((*((struct_socket *) (*s_objet_resultat)
                                     .objet)).adresse, "%d.%d.%d.%d",                                      .objet)).adresse, "%d.%d.%d.%d(%u)",
                                     (ntohl((*((struct sockaddr_in *)                                      (ntohl((*((struct sockaddr_in *)
                                     (*resolution_courante).ai_addr)).sin_addr                                      (*resolution_courante).ai_addr)).sin_addr
                                     .s_addr) >> 24) & 0xFF,                                      .s_addr) >> 24) & 0xFF,
Line 5657  instruction_open(struct_processus *s_eta Line 5798  instruction_open(struct_processus *s_eta
                                     .s_addr) >> 8) & 0xFF,                                      .s_addr) >> 8) & 0xFF,
                                     ntohl((*((struct sockaddr_in *)                                      ntohl((*((struct sockaddr_in *)
                                     (*resolution_courante).ai_addr)).sin_addr                                      (*resolution_courante).ai_addr)).sin_addr
                                     .s_addr) & 0xFF);                                      .s_addr) & 0xFF,
                                       (unsigned int) port);
                         }                          }
                         else                          else
                         { // Accès en IPv6                          { // Accès en IPv6
Line 5745  instruction_open(struct_processus *s_eta Line 5887  instruction_open(struct_processus *s_eta
                                     .objet)).adresse);                                      .objet)).adresse);
   
                             if (((*((struct_socket *) (*s_objet_resultat)                              if (((*((struct_socket *) (*s_objet_resultat)
                                     .objet)).adresse = malloc(55 *                                      .objet)).adresse = malloc(47 *
                                     sizeof(unsigned char))) == NULL)                                      sizeof(unsigned char))) == NULL)
                             {                              {
                                 (*s_etat_processus).erreur_systeme =                                  (*s_etat_processus).erreur_systeme =
Line 5753  instruction_open(struct_processus *s_eta Line 5895  instruction_open(struct_processus *s_eta
                                 return;                                  return;
                             }                              }
   
                             for(i = 0; i < 16; i++)                              sprintf((*((struct_socket *) (*s_objet_resultat)
                             {                                      .objet)).adresse,
                                 sprintf((*((struct_socket *) (*s_objet_resultat)                                      "%02X%02X:%02X%02X:%02X%02X:%02X%02X:"
                                         .objet)).adresse,                                      "%02X%02X:%02X%02X:%02X%02X:%02X%02X(%u)",
                                         (i == 0) ? "%s%X" : "%s:%X",                                      (*((struct sockaddr_in6 *)
                                         (*((struct_socket *) (*s_objet_resultat)                                      (*resolution_courante).ai_addr)).sin6_addr
                                         .objet)).adresse,                                      .s6_addr[0],
                                         (*((struct sockaddr_in6 *)                                      (*((struct sockaddr_in6 *)
                                         (*resolution_courante).ai_addr))                                      (*resolution_courante).ai_addr)).sin6_addr
                                         .sin6_addr.s6_addr[i]);                                      .s6_addr[1],
                             }                                      (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[2],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[3],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[4],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[5],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[6],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[7],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[8],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[9],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[10],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[11],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[12],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[13],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[14],
                                       (*((struct sockaddr_in6 *)
                                       (*resolution_courante).ai_addr)).sin6_addr
                                       .s6_addr[15],
                                       (unsigned int) port);
 #                           else  #                           else
                             if ((*s_etat_processus).langue == 'F')                              if ((*s_etat_processus).langue == 'F')
                             {                              {
Line 5788  instruction_open(struct_processus *s_eta Line 5972  instruction_open(struct_processus *s_eta
                         }                          }
   
                         freeaddrinfo(resolution);                          freeaddrinfo(resolution);
   
                         sprintf((*((struct_socket *) (*s_objet_resultat)  
                                 .objet)).adresse, "%s(%u)",  
                                 (*((struct_socket *) (*s_objet_resultat)  
                                 .objet)).adresse, (unsigned int) port);  
                     }                      }
                     else                      else
                     { // Hôte défini par une adresse                      { // Hôte défini par une adresse
Line 5804  instruction_open(struct_processus *s_eta Line 5983  instruction_open(struct_processus *s_eta
                                         .objet)).adresse);                                          .objet)).adresse);
   
                                 if (((*((struct_socket *) (*s_objet_resultat)                                  if (((*((struct_socket *) (*s_objet_resultat)
                                         .objet)).adresse = malloc(22 *                                          .objet)).adresse = malloc(23 *
                                         sizeof(unsigned char))) == NULL)                                          sizeof(unsigned char))) == NULL)
                                 {                                  {
                                     (*s_etat_processus).erreur_systeme =                                      (*s_etat_processus).erreur_systeme =
Line 5812  instruction_open(struct_processus *s_eta Line 5991  instruction_open(struct_processus *s_eta
                                     return;                                      return;
                                 }                                  }
   
                                 (*((struct_socket *) (*s_objet_resultat).objet))  
                                         .adresse[0] = d_code_fin_chaine;  
   
                                 for(i = 0; i < 4; i++)  
                                 {  
                                     sprintf((*((struct_socket *)  
                                             (*s_objet_resultat).objet)).adresse,  
                                             (i == 0) ? "%s%d" : "%s.%d",  
                                             (*((struct_socket *)  
                                             (*s_objet_resultat)  
                                             .objet)).adresse, (int) adresse[i]);  
                                 }  
   
                                 sprintf((*((struct_socket *) (*s_objet_resultat)                                  sprintf((*((struct_socket *) (*s_objet_resultat)
                                         .objet)).adresse, "%s(%u)",                                          .objet)).adresse, "%d.%d.%d.%d(%u)",
                                         (*((struct_socket *) (*s_objet_resultat)                                          (int) adresse[0], (int) adresse[1],
                                         .objet)).adresse, (unsigned int) port);                                          (int) adresse[2], (int) adresse[3],
                                           (unsigned int) port);
                             }                              }
                             else                              else
                             {                              {
Line 5907  instruction_open(struct_processus *s_eta Line 6074  instruction_open(struct_processus *s_eta
                                         .objet)).adresse);                                          .objet)).adresse);
   
                                 if (((*((struct_socket *) (*s_objet_resultat)                                  if (((*((struct_socket *) (*s_objet_resultat)
                                         .objet)).adresse = malloc(55 *                                          .objet)).adresse = malloc(47 *
                                         sizeof(unsigned char))) == NULL)                                          sizeof(unsigned char))) == NULL)
                                 {                                  {
                                     (*s_etat_processus).erreur_systeme =                                      (*s_etat_processus).erreur_systeme =
Line 5915  instruction_open(struct_processus *s_eta Line 6082  instruction_open(struct_processus *s_eta
                                     return;                                      return;
                                 }                                  }
   
                                 (*((struct_socket *) (*s_objet_resultat).objet))  
                                         .adresse[0] = d_code_fin_chaine;  
   
                                 for(i = 0; i < 16; i++)  
                                 {  
                                     sprintf((*((struct_socket *)  
                                             (*s_objet_resultat).objet)).adresse,  
                                             (i == 0) ? "%s%X" : "%s:%X",  
                                             (*((struct_socket *)  
                                             (*s_objet_resultat)  
                                             .objet)).adresse, (unsigned int)  
                                             adresse[i]);  
                                 }  
   
                                 sprintf((*((struct_socket *) (*s_objet_resultat)                                  sprintf((*((struct_socket *) (*s_objet_resultat)
                                         .objet)).adresse, "%s(%u)",                                          .objet)).adresse,
                                         (*((struct_socket *) (*s_objet_resultat)                                          "%02X%02X:%02X%02X:%02X%02X:%02X%02X:"
                                         .objet)).adresse, (unsigned int) port);                                          "%02X%02X:%02X%02X:%02X%02X:%02X%02X"
                                           "(%u)",
                                           (unsigned int) adresse[0],
                                           (unsigned int) adresse[1],
                                           (unsigned int) adresse[2],
                                           (unsigned int) adresse[3],
                                           (unsigned int) adresse[4],
                                           (unsigned int) adresse[5],
                                           (unsigned int) adresse[6],
                                           (unsigned int) adresse[7],
                                           (unsigned int) adresse[8],
                                           (unsigned int) adresse[9],
                                           (unsigned int) adresse[10],
                                           (unsigned int) adresse[11],
                                           (unsigned int) adresse[12],
                                           (unsigned int) adresse[13],
                                           (unsigned int) adresse[14],
                                           (unsigned int) adresse[15],
                                           (unsigned int) port);
                             }                              }
                             else                              else
                             {                              {
Removed from v.1.89  
changed lines
  Added in v.1.106

CVSweb interface <joel.bertrand@systella.fr>