--- rpl/src/instructions_o1.c 2010/03/05 11:20:08 1.5 +++ rpl/src/instructions_o1.c 2012/02/23 13:05:08 1.45 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.12 - Copyright (C) 1989-2010 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.6 + Copyright (C) 1989-2012 Dr. BERTRAND Joël This file is part of RPL/2. @@ -20,7 +20,7 @@ */ -#include "rpl.conv.h" +#include "rpl-conv.h" /* @@ -897,6 +897,8 @@ instruction_open(struct_processus *s_eta * Format : * FORMATTED : fichier texte ; * UNFORMATTED : fichier binaire. + * FLOW : chaîne de caractères sans format (en tant qu'objet + * binaire comme "\x00avz\xFD") */ file *descripteur; @@ -915,12 +917,13 @@ instruction_open(struct_processus *s_eta integer8 port; integer8 position_clef; - logical1 autorisation_liberation_nom; logical1 erreur; logical1 existence; logical1 ouverture; logical1 presence_port; + sqlite3 *sqlite; + struct_liste_chainee *l_element_courant; struct_liste_chainee *l_element_courant_sous_objet; @@ -933,10 +936,15 @@ instruction_open(struct_processus *s_eta struct sockaddr_un socket_unix; struct sockaddr_in socket_ipv4; +# ifdef IPV6 struct sockaddr_in6 socket_ipv6; +# endif struct_objet *s_objet_argument; struct_objet *s_objet_resultat; + struct_objet *s_parametres_tty; + + struct termios tc; uint32_t adresse_ipv4; @@ -1014,8 +1022,12 @@ instruction_open(struct_processus *s_eta printf(" { \"filetype\" \"access\" \"format\" { \"name\" " "\"file name\" } \"protection\" } OPEN\n"); + printf(" { \"filetype\" \"access\" \"format\" { \"name\" " + "\"file name\" } \n" + " { \"stty\" { \"stty parameters\" ... } } } OPEN\n"); printf(" { \"sockettype\" { \"name\" \"local name\" } } OPEN\n"); printf(" { \"sockettype\" \"socketdomain\" \"protection\" } OPEN\n"); + printf(" \"/semaphore\" OPEN\n"); printf(" File type : NEW/OLD/REPLACE/UNKNOWN/SCRATCH\n"); printf(" File access : SEQUENTIAL/DIRECT/KEYED\n"); @@ -1025,6 +1037,14 @@ instruction_open(struct_processus *s_eta printf(" Socket protocol : IPV4/IPV6/UNIX\n"); printf(" Format : FORMATTED/UNFORMATTED/FLOW\n"); printf(" Protection : READONLY/WRITEONLY/READWRITE\n\n"); + printf(" Stty parameters : can be prefixed by 'NO'\n"); + printf(" IGNBRK, BRKINT, IGNPAR, PARMRK, INPCK, ISTRIP\n"); + printf(" INLCR, IGNCR, ICRNL, IXON, IXANY, IXOFF,\n"); + printf(" IMAXBEL, OPOST, ONLCR, OCRNL, ONOCR, ONLRET,\n"); + printf(" OFILL, HUPCL, CLOCAL, CRTSCTS, ISIG, ICANON,\n"); + printf(" ECHO, ECHOE, ECHOK, ECHONL, NOFLSH, TOSTOP,\n"); + printf(" IEXTEN, VEOF, VEOL, VERASE, VINTR, VKILL,\n"); + printf(" VQUIT, VSTART, VSTOP, VSUSP\n"); printf(" Address : { \"ADDRESS\" [ 127 0 0 1 ] }\n"); printf(" { \"HOST\" \"hostname\" }\n"); @@ -1055,6 +1075,8 @@ instruction_open(struct_processus *s_eta printf(" { \"STREAM\" \"READWRITE\" } OPEN\n"); printf(" { \"FOREIGN\" \"DATAGRAM\" } OPEN\n"); printf(" { \"LOCAL\" { \"NAME\" \"socket.sock\" } } OPEN\n"); + printf(" { \"/dev/ttyS1\" { \"STTY\" { \"9600,8,N,1\" " + "\"NO ICANON\" \"IGNBRK\" } }\n"); return; } @@ -1115,6 +1137,7 @@ instruction_open(struct_processus *s_eta timeout_emission = 0; timeout_reception = 0; drapeau = -1; + s_parametres_tty = NULL; for(i = 0; i < 12; options[i++] = 'N'); @@ -1186,6 +1209,34 @@ instruction_open(struct_processus *s_eta type_ouverture = 'R'; } + else if (strcmp(argument_majuscule, "OLD") == 0) + { + if (type_ouverture != ' ') + { + liberation(s_etat_processus, s_objet_argument); + free(argument_majuscule); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_parametre_fichier; + return; + } + + if (type_arguments == ' ') + { + type_arguments = 'F'; + } + else if (type_arguments == 'S') + { + liberation(s_etat_processus, s_objet_argument); + free(argument_majuscule); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_parametre_fichier; + return; + } + + type_ouverture = 'O'; + } else if (strcmp(argument_majuscule, "UNKNOWN") == 0) { if (type_ouverture != ' ') @@ -1938,6 +1989,15 @@ instruction_open(struct_processus *s_eta protocole_socket = (unsigned char *) (*(*l_element_courant_sous_objet) .donnee).objet; + + for(i = 0; i < strlen(protocole_socket); i++) + { + if ((protocole_socket[i] >= 'a') && + (protocole_socket[i] <= 'z')) + { + protocole_socket[i] -= 'a' - 'A'; + } + } } else { @@ -2206,6 +2266,30 @@ instruction_open(struct_processus *s_eta } } } + else if (strcmp(argument_majuscule, "STTY") == 0) + { + if ((*(*l_element_courant_sous_objet) + .donnee).type == LST) + { + if (type_arguments == ' ') + { + type_arguments = 'F'; + } + else if (type_arguments == 'S') + { + liberation(s_etat_processus, + s_objet_argument); + free(argument_majuscule); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_parametre_fichier; + return; + } + + s_parametres_tty = + (*l_element_courant_sous_objet).donnee; + } + } else { liberation(s_etat_processus, s_objet_argument); @@ -2648,7 +2732,9 @@ instruction_open(struct_processus *s_eta } if (((type_acces != 'I') && (position_clef != 0)) || - ((type_acces == 'I') && (position_clef == 0))) + ((type_acces == 'I') && (position_clef == 0) && + ((type_ouverture == 'N') || (type_ouverture == 'R') || + (type_ouverture == 'S')))) { liberation(s_etat_processus, s_objet_argument); @@ -2684,12 +2770,16 @@ instruction_open(struct_processus *s_eta sprintf(nom, "%s.rpl", nom_temporaire); free(nom_temporaire); - - autorisation_liberation_nom = d_vrai; } else { - autorisation_liberation_nom = d_faux; + if ((nom = transliteration(s_etat_processus, nom, + d_locale, "UTF-8")) == NULL) + { + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + return; + } } /* @@ -2712,6 +2802,8 @@ instruction_open(struct_processus *s_eta if (((*((struct_fichier *) (*s_objet_resultat).objet)).format = allocation(s_etat_processus, LST)) == NULL) { + free(nom); + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } @@ -2719,6 +2811,8 @@ instruction_open(struct_processus *s_eta (*(*((struct_fichier *) (*s_objet_resultat).objet)) .format).objet = NULL; + descripteur = NULL; + switch(type_ouverture) { case 'N' : @@ -2728,6 +2822,8 @@ instruction_open(struct_processus *s_eta if ((erreur != 0) || (unite != 0)) { + free(nom); + liberation(s_etat_processus, s_objet_argument); liberation(s_etat_processus, s_objet_resultat); @@ -2736,14 +2832,111 @@ instruction_open(struct_processus *s_eta return; } - if ((descripteur = fopen(nom, "w+")) == NULL) + if (type_acces == 'S') { - liberation(s_etat_processus, s_objet_argument); - liberation(s_etat_processus, s_objet_resultat); + if ((descripteur = fopen(nom, "w+")) == NULL) + { + free(nom); - (*s_etat_processus).erreur_execution = - d_ex_erreur_acces_fichier; - return; + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + } + else + { + // Si le fichier existe, on le supprime. + + if (unlink(nom) != 0) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + + sqlite = NULL; + + if (sqlite3_open_v2(nom, &sqlite, + SQLITE_OPEN_READWRITE | SQLITE_OPEN_CREATE, + NULL) != SQLITE_OK) + { + if (sqlite != NULL) + { + sqlite3_close(sqlite); + } + + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + + if ((descripteur = fopen(nom, "a+")) == NULL) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + + if (type_acces == 'D') + { + if (initialisation_fichier_acces_direct( + s_etat_processus, sqlite, + (format == 'N') ? d_faux : d_vrai) + != d_absence_erreur) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + return; + } + } + else + { + if (position_clef == 0) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_parametre_fichier; + return; + } + + if (initialisation_fichier_acces_indexe( + s_etat_processus, sqlite, position_clef, + (format == 'N') ? d_faux : d_vrai) + != d_absence_erreur) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + return; + } + } } break; @@ -2751,11 +2944,13 @@ instruction_open(struct_processus *s_eta case 'O' : { - erreur = caracteristiques_fichier(s_etat_processus, - nom, &existence, &ouverture, &unite); + erreur = caracteristiques_fichier(s_etat_processus, nom, + &existence, &ouverture, &unite); if ((erreur != d_absence_erreur) || (existence == d_faux)) { + free(nom); + liberation(s_etat_processus, s_objet_argument); liberation(s_etat_processus, s_objet_resultat); @@ -2764,14 +2959,54 @@ instruction_open(struct_processus *s_eta return; } - if ((descripteur = fopen(nom, "r+")) == NULL) + if (type_acces == 'S') { - liberation(s_etat_processus, s_objet_argument); - liberation(s_etat_processus, s_objet_resultat); + if ((descripteur = fopen(nom, "r+")) == NULL) + { + free(nom); - (*s_etat_processus).erreur_execution = - d_ex_erreur_acces_fichier; - return; + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + } + else + { + sqlite = NULL; + + if (sqlite3_open_v2(nom, &sqlite, + SQLITE_OPEN_READWRITE, + NULL) != SQLITE_OK) + { + if (sqlite != NULL) + { + sqlite3_close(sqlite); + } + + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + + if ((descripteur = fopen(nom, "a+")) == NULL) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } } break; @@ -2784,6 +3019,8 @@ instruction_open(struct_processus *s_eta if ((erreur != d_absence_erreur) || (existence == d_faux)) { + free(nom); + liberation(s_etat_processus, s_objet_argument); liberation(s_etat_processus, s_objet_resultat); @@ -2796,6 +3033,8 @@ instruction_open(struct_processus *s_eta if ((descripteur = fopen(nom, "r")) == NULL) { + free(nom); + liberation(s_etat_processus, s_objet_argument); liberation(s_etat_processus, s_objet_resultat); @@ -2812,8 +3051,11 @@ instruction_open(struct_processus *s_eta if (fcntl(fileno(descripteur), F_GETLK, &lock) == -1) { + free(nom); + if (fclose(descripteur) != 0) { + liberation(s_etat_processus, s_objet_argument); liberation(s_etat_processus, s_objet_resultat); (*s_etat_processus).erreur_systeme = @@ -2821,6 +3063,7 @@ instruction_open(struct_processus *s_eta return; } + liberation(s_etat_processus, s_objet_argument); liberation(s_etat_processus, s_objet_resultat); (*s_etat_processus).erreur_systeme = @@ -2828,25 +3071,136 @@ instruction_open(struct_processus *s_eta return; } - if (fclose(descripteur) != 0) + if (lock.l_type != F_UNLCK) { + free(nom); + + if (fclose(descripteur) != 0) + { + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + return; + } + + liberation(s_etat_processus, s_objet_argument); liberation(s_etat_processus, s_objet_resultat); - (*s_etat_processus).erreur_systeme = - d_es_erreur_fichier; + (*s_etat_processus).erreur_execution = + d_ex_fichier_verrouille; return; } - if ((descripteur = fopen(nom, "w+")) == NULL) + if (fclose(descripteur) != 0) { + free(nom); + liberation(s_etat_processus, s_objet_argument); liberation(s_etat_processus, s_objet_resultat); - (*s_etat_processus).erreur_execution = - d_ex_erreur_acces_fichier; + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; return; } + if (type_acces == 'S') + { + if ((descripteur = fopen(nom, "w+")) == NULL) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + } + else + { + sqlite = NULL; + + if (sqlite3_open_v2(nom, &sqlite, + SQLITE_OPEN_READWRITE | SQLITE_OPEN_CREATE, + NULL) != SQLITE_OK) + { + if (sqlite != NULL) + { + sqlite3_close(sqlite); + } + + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + + // Ouverture du fichier pour pouvoir gérer les + // verrous à la façon des fichiers séquentiels. + + if ((descripteur = fopen(nom, "a+")) == NULL) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + + if (type_acces == 'D') + { + if (initialisation_fichier_acces_direct( + s_etat_processus, sqlite, + (format == 'N') ? d_faux : d_vrai) + != d_absence_erreur) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + return; + } + } + else + { + if (position_clef == 0) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_parametre_fichier; + return; + } + + if (initialisation_fichier_acces_indexe( + s_etat_processus, sqlite, position_clef, + (format == 'N') ? d_faux : d_vrai) + != d_absence_erreur) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + return; + } + } + } + break; } @@ -2857,6 +3211,8 @@ instruction_open(struct_processus *s_eta if (erreur == d_erreur) { + free(nom); + liberation(s_etat_processus, s_objet_argument); liberation(s_etat_processus, s_objet_resultat); @@ -2867,26 +3223,155 @@ instruction_open(struct_processus *s_eta if (existence == d_faux) { - if ((descripteur = fopen(nom, "w+")) == NULL) + if (type_acces == 'S') { - liberation(s_etat_processus, s_objet_argument); - liberation(s_etat_processus, s_objet_resultat); + if ((descripteur = fopen(nom, "w+")) == NULL) + { + free(nom); - (*s_etat_processus).erreur_execution = - d_ex_erreur_acces_fichier; - return; + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + } + else + { + sqlite = NULL; + + if (sqlite3_open_v2(nom, &sqlite, + SQLITE_OPEN_READWRITE | SQLITE_OPEN_CREATE, + NULL) != SQLITE_OK) + { + if (sqlite != NULL) + { + sqlite3_close(sqlite); + } + + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + + if ((descripteur = fopen(nom, "a+")) == NULL) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + + if (type_acces == 'D') + { + if (initialisation_fichier_acces_direct( + s_etat_processus, sqlite, + (format == 'N') ? d_faux : d_vrai) + != d_absence_erreur) + { + free(nom); + + liberation(s_etat_processus, + s_objet_argument); + liberation(s_etat_processus, + s_objet_resultat); + + return; + } + } + else + { + if (position_clef == 0) + { + free(nom); + + liberation(s_etat_processus, + s_objet_argument); + liberation(s_etat_processus, + s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_parametre_fichier; + return; + } + + if (initialisation_fichier_acces_indexe( + s_etat_processus, sqlite, position_clef, + (format == 'N') ? d_faux : d_vrai) + != d_absence_erreur) + { + free(nom); + + liberation(s_etat_processus, + s_objet_argument); + liberation(s_etat_processus, + s_objet_resultat); + + return; + } + } } } else { - if ((descripteur = fopen(nom, "r+")) == NULL) + if (type_acces == 'S') { - liberation(s_etat_processus, s_objet_argument); - liberation(s_etat_processus, s_objet_resultat); + if ((descripteur = fopen(nom, "r+")) == NULL) + { + free(nom); - (*s_etat_processus).erreur_execution = - d_ex_erreur_acces_fichier; - return; + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + } + else + { + sqlite = NULL; + + if (sqlite3_open_v2(nom, &sqlite, + SQLITE_OPEN_READWRITE, + NULL) != SQLITE_OK) + { + if (sqlite != NULL) + { + sqlite3_close(sqlite); + } + + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + + if ((descripteur = fopen(nom, "a+")) == NULL) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } } } @@ -2900,6 +3385,8 @@ instruction_open(struct_processus *s_eta if ((erreur != d_absence_erreur) || (existence != d_faux)) { + free(nom); + liberation(s_etat_processus, s_objet_argument); liberation(s_etat_processus, s_objet_resultat); @@ -2908,14 +3395,111 @@ instruction_open(struct_processus *s_eta return; } - if ((descripteur = fopen(nom, "w+")) == NULL) + if (type_acces == 'S') { - liberation(s_etat_processus, s_objet_argument); - liberation(s_etat_processus, s_objet_resultat); + if ((descripteur = fopen(nom, "w+")) == NULL) + { + free(nom); - (*s_etat_processus).erreur_execution = - d_ex_erreur_acces_fichier; - return; + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + } + else + { + // Si le fichier existe, on le supprime. + + if (unlink(nom) != 0) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + + sqlite = NULL; + + if (sqlite3_open_v2(nom, &sqlite, + SQLITE_OPEN_READWRITE | SQLITE_OPEN_CREATE, + NULL) != SQLITE_OK) + { + if (sqlite != NULL) + { + sqlite3_close(sqlite); + } + + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + + if ((descripteur = fopen(nom, "a+")) == NULL) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + + if (type_acces == 'D') + { + if (initialisation_fichier_acces_direct( + s_etat_processus, sqlite, + (format == 'N') ? d_faux : d_vrai) + != d_absence_erreur) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + return; + } + } + else + { + if (position_clef == 0) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_parametre_fichier; + return; + } + + if (initialisation_fichier_acces_indexe( + s_etat_processus, sqlite, position_clef, + (format == 'N') ? d_faux : d_vrai) + != d_absence_erreur) + { + free(nom); + + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + return; + } + } } break; @@ -2936,6 +3520,21 @@ instruction_open(struct_processus *s_eta return; } + if (s_parametres_tty != NULL) + { + // Affectation des paramètres du port série. + + if (tcgetattr(fileno(descripteur), &tc) != 0) + { + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_systeme = + d_ex_erreur_fichier; + return; + } + } + strcpy((*((struct_fichier *) (*s_objet_resultat).objet)).nom, nom); liberation(s_etat_processus, s_objet_argument); @@ -2944,11 +3543,6 @@ instruction_open(struct_processus *s_eta (*((struct_fichier *) (*s_objet_resultat).objet)).position_clef = position_clef; - if (autorisation_liberation_nom == d_vrai) - { - free(nom); - } - rewind(descripteur); lock.l_type = F_WRLCK; @@ -2963,7 +3557,8 @@ instruction_open(struct_processus *s_eta { liberation(s_etat_processus, s_objet_resultat); - (*s_etat_processus).erreur_systeme = d_es_erreur_fichier; + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; return; } @@ -2998,7 +3593,8 @@ instruction_open(struct_processus *s_eta liberation(s_etat_processus, s_objet_resultat); - (*s_etat_processus).erreur_systeme = d_es_erreur_fichier; + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; return; } } @@ -3010,6 +3606,8 @@ instruction_open(struct_processus *s_eta if ((lock.l_type == F_RDLCK) && (protection != 'R')) { + free(nom); + if (fclose(descripteur) != 0) { liberation(s_etat_processus, s_objet_resultat); @@ -3027,6 +3625,8 @@ instruction_open(struct_processus *s_eta } else if ((lock.l_type == F_WRLCK) && (protection != 'W')) { + free(nom); + if (fclose(descripteur) != 0) { liberation(s_etat_processus, s_objet_resultat); @@ -3044,6 +3644,17 @@ instruction_open(struct_processus *s_eta } else { + free(nom); + + if (fclose(descripteur) != 0) + { + liberation(s_etat_processus, s_objet_resultat); + + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + return; + } + liberation(s_etat_processus, s_objet_resultat); (*s_etat_processus).erreur_execution = @@ -3087,8 +3698,8 @@ instruction_open(struct_processus *s_eta * Recherche du premier descripteur libre */ - if ((chaine_descripteurs = malloc( - ds_nombre_maximum_fichiers_ouverts + 1)) == NULL) + if ((chaine_descripteurs = malloc(sizeof(unsigned char) * + (ds_nombre_maximum_fichiers_ouverts + 1))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -3166,8 +3777,24 @@ instruction_open(struct_processus *s_eta = prochain_descripteur; (*((struct_descripteur_fichier *) (*l_element_courant).donnee)) .identifiant = prochain_descripteur; - (*((struct_descripteur_fichier *) (*l_element_courant).donnee)) - .descripteur = descripteur; + + if (type_acces == 'S') + { + (*((struct_descripteur_fichier *) (*l_element_courant).donnee)) + .type = 'C'; + (*((struct_descripteur_fichier *) (*l_element_courant).donnee)) + .descripteur_c = descripteur; + } + else + { + (*((struct_descripteur_fichier *) (*l_element_courant).donnee)) + .type = 'S'; + (*((struct_descripteur_fichier *) (*l_element_courant).donnee)) + .descripteur_c = descripteur; + (*((struct_descripteur_fichier *) (*l_element_courant).donnee)) + .descripteur_sqlite = sqlite; + } + (*((struct_descripteur_fichier *) (*l_element_courant).donnee)) .pid = getpid(); (*((struct_descripteur_fichier *) (*l_element_courant).donnee)) @@ -3175,18 +3802,8 @@ instruction_open(struct_processus *s_eta (*((struct_descripteur_fichier *) (*l_element_courant).donnee)) .effacement = (type_ouverture == 'S') ? 'Y' : 'N'; - if (((*((struct_descripteur_fichier *) (*l_element_courant) - .donnee)).nom = malloc((strlen((*((struct_fichier *) - (*s_objet_resultat).objet)).nom) + 1) * - sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } - - strcpy((*((struct_descripteur_fichier *) (*l_element_courant) - .donnee)).nom, (*((struct_fichier *) (*s_objet_resultat) - .objet)).nom); + (*((struct_descripteur_fichier *) (*l_element_courant) + .donnee)).nom = nom; } else if (type_arguments == 'S') { @@ -3496,6 +4113,28 @@ instruction_open(struct_processus *s_eta return; } + if ((type_adresse == ' ') && (type_domaine == 'L')) + { + if (strcmp(protocole, "IPV4") == 0) + { + for(i = 0; i < 4; adresse[i++] = 0); + type_adresse = '4'; + } + else if (strcmp(protocole, "IPV6") == 0) + { + for(i = 0; i < 16; adresse[i++] = 0); + type_adresse = '6'; + } + else + { + liberation(s_etat_processus, s_objet_argument); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_parametre_fichier; + return; + } + } + if (((strcmp(protocole, "IPV4") == 0) && (type_adresse == '6')) || ((strcmp(protocole, "IPV6") == 0) && (type_adresse == '4'))) { @@ -3527,16 +4166,7 @@ instruction_open(struct_processus *s_eta } else { - for(i = 0; i < strlen(protocole_socket); i++) - { - if ((protocole_socket[i] >= 'A') && - (protocole_socket[i] <= 'Z')) - { - protocole_socket[i] += 'a' - 'A'; - } - } - - if (strcmp(protocole_socket, "ipv4") == 0) + if (strcmp(protocole_socket, "IPV4") == 0) { protocole_socket[2] = d_code_fin_chaine; } @@ -3604,6 +4234,10 @@ instruction_open(struct_processus *s_eta strcpy((*((struct_socket *) (*s_objet_resultat).objet)). type, "ROBUST DATAGRAM"); break; + + default : + BUG(1, printf("type_socket=%c\n", type_socket)); + break; } if ((protection != 'N') && ((type_socket != 'S') && @@ -3633,16 +4267,13 @@ instruction_open(struct_processus *s_eta else { if (((*((struct_socket *) (*s_objet_resultat).objet)).adresse = - malloc((strlen(nom) + 1) * sizeof(unsigned char))) - == NULL) + transliteration(s_etat_processus, nom, + d_locale, "UTF-8")) == NULL) { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; + liberation(s_etat_processus, s_objet_argument); + liberation(s_etat_processus, s_objet_resultat); return; } - - strcpy((*((struct_socket *) (*s_objet_resultat).objet)).adresse, - nom); } if (((*((struct_socket *) (*s_objet_resultat).objet)) @@ -3704,8 +4335,8 @@ instruction_open(struct_processus *s_eta pointeur++; } - strncpy(socket_unix.sun_path, pointeur, 108); - socket_unix.sun_path[108 - 1] = d_code_fin_chaine; + strncpy(socket_unix.sun_path, pointeur, UNIX_PATH_MAX); + socket_unix.sun_path[UNIX_PATH_MAX - 1] = d_code_fin_chaine; if (options_socket() == d_erreur) { @@ -3860,6 +4491,7 @@ instruction_open(struct_processus *s_eta } else { // Accès en IPv6 +# ifdef IPV6 resolution_courante = resolution; while(resolution_courante != NULL) @@ -3957,6 +4589,18 @@ instruction_open(struct_processus *s_eta (*resolution_courante).ai_addr)) .sin6_addr.s6_addr[i]); } +# else + if ((*s_etat_processus).langue == 'F') + { + printf("+++Attention : Support du protocole" + " IPv6 indisponible\n"); + } + else + { + printf("+++Warning : IPv6 support " + "unavailable\n"); + } +# endif } freeaddrinfo(resolution); @@ -4044,6 +4688,7 @@ instruction_open(struct_processus *s_eta } else { // Accès en IPv6 +# ifdef IPV6 if (((*((struct_socket *) (*s_objet_resultat) .objet)).adresse = malloc(55 * sizeof(unsigned char))) == NULL) @@ -4114,6 +4759,18 @@ instruction_open(struct_processus *s_eta d_ex_erreur_acces_fichier; return; } +# else + if ((*s_etat_processus).langue == 'F') + { + printf("+++Attention : Support du protocole" + " IPv6 indisponible\n"); + } + else + { + printf("+++Warning : IPv6 support " + "unavailable\n"); + } +# endif } } @@ -4217,8 +4874,8 @@ instruction_open(struct_processus *s_eta socket_unix.sun_family = AF_UNIX; strncpy(socket_unix.sun_path, (*((struct_socket *) - (*s_objet_resultat).objet)).adresse, 108); - socket_unix.sun_path[108 - 1] = d_code_fin_chaine; + (*s_objet_resultat).objet)).adresse, UNIX_PATH_MAX); + socket_unix.sun_path[UNIX_PATH_MAX - 1] = d_code_fin_chaine; if ((type_socket == 'S') || (type_socket == 'Q')) { @@ -4372,6 +5029,7 @@ instruction_open(struct_processus *s_eta } else { // Accès en IPv6 +# ifdef IPV6 resolution_courante = resolution; while(resolution_courante != NULL) @@ -4471,6 +5129,18 @@ instruction_open(struct_processus *s_eta (*resolution_courante).ai_addr)) .sin6_addr.s6_addr[i]); } +# else + if ((*s_etat_processus).langue == 'F') + { + printf("+++Attention : Support du protocole" + " IPv6 indisponible\n"); + } + else + { + printf("+++Warning : IPv6 support " + "unavailable\n"); + } +# endif } freeaddrinfo(resolution); @@ -4579,6 +5249,7 @@ instruction_open(struct_processus *s_eta } else if (strcmp(protocole, "IPV6") == 0) { // Accès en IPv6 +# ifdef IPV6 if (type_adresse == '6') { if (((*((struct_socket *) (*s_objet_resultat) @@ -4670,6 +5341,18 @@ instruction_open(struct_processus *s_eta (*((struct_socket *) (*s_objet_resultat).objet)) .socket_en_ecoute = 'N'; } +# else + if ((*s_etat_processus).langue == 'F') + { + printf("+++Attention : Support du protocole" + " IPv6 indisponible\n"); + } + else + { + printf("+++Warning : IPv6 support " + "unavailable\n"); + } +# endif } else { // Socket UNIX @@ -4786,6 +5469,8 @@ instruction_open(struct_processus *s_eta (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } + + liberation(s_etat_processus, s_objet_argument); } else {