version 1.49, 2012/02/29 12:07:47
|
version 1.56, 2012/06/21 16:07:25
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.6 |
RPL/2 (R) version 4.1.9 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 1031 instruction_open(struct_processus *s_eta
|
Line 1031 instruction_open(struct_processus *s_eta
|
" { \"stty\" { \"stty parameters\" ... } } } OPEN\n"); |
" { \"stty\" { \"stty parameters\" ... } } } OPEN\n"); |
printf(" { \"sockettype\" { \"name\" \"local name\" } } OPEN\n"); |
printf(" { \"sockettype\" { \"name\" \"local name\" } } OPEN\n"); |
printf(" { \"sockettype\" \"socketdomain\" \"protection\" } OPEN\n"); |
printf(" { \"sockettype\" \"socketdomain\" \"protection\" } OPEN\n"); |
printf(" \"/semaphore\" OPEN\n"); |
printf(" \"/semaphore\" OPEN\n\n"); |
|
|
printf(" File type : NEW/OLD/REPLACE/UNKNOWN/SCRATCH\n"); |
printf(" File type : NEW/OLD/REPLACE/UNKNOWN/SCRATCH\n"); |
printf(" File access : SEQUENTIAL/DIRECT/KEYED\n"); |
printf(" File access : SEQUENTIAL/DIRECT/KEYED\n"); |
Line 1069 instruction_open(struct_processus *s_eta
|
Line 1069 instruction_open(struct_processus *s_eta
|
printf(" Port : { \"PORT\" port number }\n"); |
printf(" Port : { \"PORT\" port number }\n"); |
printf(" Protocol : { \"PROTOCOL\" \"protocol\" }\n\n"); |
printf(" Protocol : { \"PROTOCOL\" \"protocol\" }\n\n"); |
|
|
printf(" { { \"NAME\" \"filename\" } } OPEN\n"); |
printf(" { { \"NAME\" \"filename\" } \"SEQUENTIAL\" } OPEN\n"); |
printf(" { \"SCRATCH\" } OPEN\n"); |
printf(" { \"SCRATCH\" } OPEN\n"); |
printf(" { { \"NAME\" \"filename\" } \"UNKNOWN\" \"FORMATTED\" " |
printf(" { { \"NAME\" \"filename\" } \"UNKNOWN\" \"FORMATTED\" " |
"\"DIRECT\" } OPEN\n"); |
"\"DIRECT\" } OPEN\n"); |
Line 2731 instruction_open(struct_processus *s_eta
|
Line 2731 instruction_open(struct_processus *s_eta
|
l_element_courant = (*l_element_courant).suivant; |
l_element_courant = (*l_element_courant).suivant; |
} |
} |
|
|
|
// Si aucun paramètre n'est discriminant, l'instruction ouvre |
|
// par défaut un fichier. |
|
|
|
if (type_arguments == ' ') |
|
{ |
|
type_arguments = 'F'; |
|
} |
|
|
if (type_arguments == 'F') |
if (type_arguments == 'F') |
{ |
{ |
/* |
/* |
Line 4715 instruction_open(struct_processus *s_eta
|
Line 4723 instruction_open(struct_processus *s_eta
|
= protection; |
= protection; |
(*(*((struct_socket *) (*s_objet_resultat).objet)) |
(*(*((struct_socket *) (*s_objet_resultat).objet)) |
.format).objet = NULL; |
.format).objet = NULL; |
|
(*((struct_socket *) (*s_objet_resultat).objet)).adresse = NULL; |
|
|
switch(type_socket) |
switch(type_socket) |
{ |
{ |
Line 4978 instruction_open(struct_processus *s_eta
|
Line 4987 instruction_open(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
|
free((*((struct_socket *) (*s_objet_resultat) |
|
.objet)).adresse); |
|
|
if (((*((struct_socket *) (*s_objet_resultat) |
if (((*((struct_socket *) (*s_objet_resultat) |
.objet)).adresse = malloc(22 * |
.objet)).adresse = malloc(22 * |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
Line 5082 instruction_open(struct_processus *s_eta
|
Line 5094 instruction_open(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
|
free((*((struct_socket *) (*s_objet_resultat) |
|
.objet)).adresse); |
|
|
if (((*((struct_socket *) (*s_objet_resultat) |
if (((*((struct_socket *) (*s_objet_resultat) |
.objet)).adresse = malloc(55 * |
.objet)).adresse = malloc(55 * |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
Line 5113 instruction_open(struct_processus *s_eta
|
Line 5128 instruction_open(struct_processus *s_eta
|
printf("+++Warning : IPv6 support " |
printf("+++Warning : IPv6 support " |
"unavailable\n"); |
"unavailable\n"); |
} |
} |
|
|
|
liberation(s_etat_processus, s_objet_argument); |
|
liberation(s_etat_processus, s_objet_resultat); |
|
|
|
freeaddrinfo(resolution); |
|
|
|
(*s_etat_processus).erreur_execution = |
|
d_ex_instruction_indisponible; |
|
return; |
# endif |
# endif |
} |
} |
|
|
Line 5127 instruction_open(struct_processus *s_eta
|
Line 5151 instruction_open(struct_processus *s_eta
|
{ // Hôte défini par une adresse |
{ // Hôte défini par une adresse |
if (strcmp(protocole, "IPV4") == 0) |
if (strcmp(protocole, "IPV4") == 0) |
{ // Accès en IPv4 |
{ // Accès en IPv4 |
|
free((*((struct_socket *) (*s_objet_resultat) |
|
.objet)).adresse); |
|
|
if (((*((struct_socket *) (*s_objet_resultat) |
if (((*((struct_socket *) (*s_objet_resultat) |
.objet)).adresse = malloc(22 * |
.objet)).adresse = malloc(22 * |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
Line 5202 instruction_open(struct_processus *s_eta
|
Line 5229 instruction_open(struct_processus *s_eta
|
else |
else |
{ // Accès en IPv6 |
{ // Accès en IPv6 |
# ifdef IPV6 |
# ifdef IPV6 |
|
free((*((struct_socket *) (*s_objet_resultat) |
|
.objet)).adresse); |
|
|
if (((*((struct_socket *) (*s_objet_resultat) |
if (((*((struct_socket *) (*s_objet_resultat) |
.objet)).adresse = malloc(55 * |
.objet)).adresse = malloc(55 * |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
Line 5283 instruction_open(struct_processus *s_eta
|
Line 5313 instruction_open(struct_processus *s_eta
|
printf("+++Warning : IPv6 support " |
printf("+++Warning : IPv6 support " |
"unavailable\n"); |
"unavailable\n"); |
} |
} |
|
|
|
liberation(s_etat_processus, s_objet_argument); |
|
liberation(s_etat_processus, s_objet_resultat); |
|
|
|
(*s_etat_processus).erreur_execution = |
|
d_ex_instruction_indisponible; |
|
return; |
# endif |
# endif |
} |
} |
} |
} |
Line 5516 instruction_open(struct_processus *s_eta
|
Line 5553 instruction_open(struct_processus *s_eta
|
.socket_en_ecoute = 'N'; |
.socket_en_ecoute = 'N'; |
} |
} |
|
|
|
free((*((struct_socket *) (*s_objet_resultat) |
|
.objet)).adresse); |
|
|
if (((*((struct_socket *) (*s_objet_resultat) |
if (((*((struct_socket *) (*s_objet_resultat) |
.objet)).adresse = malloc(22 * |
.objet)).adresse = malloc(22 * |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
Line 5622 instruction_open(struct_processus *s_eta
|
Line 5662 instruction_open(struct_processus *s_eta
|
.socket_en_ecoute = 'N'; |
.socket_en_ecoute = 'N'; |
} |
} |
|
|
|
free((*((struct_socket *) (*s_objet_resultat) |
|
.objet)).adresse); |
|
|
if (((*((struct_socket *) (*s_objet_resultat) |
if (((*((struct_socket *) (*s_objet_resultat) |
.objet)).adresse = malloc(55 * |
.objet)).adresse = malloc(55 * |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
Line 5653 instruction_open(struct_processus *s_eta
|
Line 5696 instruction_open(struct_processus *s_eta
|
printf("+++Warning : IPv6 support " |
printf("+++Warning : IPv6 support " |
"unavailable\n"); |
"unavailable\n"); |
} |
} |
|
|
|
liberation(s_etat_processus, s_objet_argument); |
|
liberation(s_etat_processus, s_objet_resultat); |
|
|
|
freeaddrinfo(resolution); |
|
|
|
(*s_etat_processus).erreur_execution = |
|
d_ex_instruction_indisponible; |
|
return; |
# endif |
# endif |
} |
} |
|
|
Line 5669 instruction_open(struct_processus *s_eta
|
Line 5721 instruction_open(struct_processus *s_eta
|
{ // Accès en IPv4 |
{ // Accès en IPv4 |
if (type_adresse == '4') |
if (type_adresse == '4') |
{ |
{ |
|
free((*((struct_socket *) (*s_objet_resultat) |
|
.objet)).adresse); |
|
|
if (((*((struct_socket *) (*s_objet_resultat) |
if (((*((struct_socket *) (*s_objet_resultat) |
.objet)).adresse = malloc(22 * |
.objet)).adresse = malloc(22 * |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
Line 5698 instruction_open(struct_processus *s_eta
|
Line 5753 instruction_open(struct_processus *s_eta
|
} |
} |
else |
else |
{ |
{ |
|
free((*((struct_socket *) (*s_objet_resultat) |
|
.objet)).adresse); |
|
|
if (((*((struct_socket *) (*s_objet_resultat) |
if (((*((struct_socket *) (*s_objet_resultat) |
.objet)).adresse = malloc( |
.objet)).adresse = malloc( |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
Line 5765 instruction_open(struct_processus *s_eta
|
Line 5823 instruction_open(struct_processus *s_eta
|
# ifdef IPV6 |
# ifdef IPV6 |
if (type_adresse == '6') |
if (type_adresse == '6') |
{ |
{ |
|
free((*((struct_socket *) (*s_objet_resultat) |
|
.objet)).adresse); |
|
|
if (((*((struct_socket *) (*s_objet_resultat) |
if (((*((struct_socket *) (*s_objet_resultat) |
.objet)).adresse = malloc(55 * |
.objet)).adresse = malloc(55 * |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
Line 5795 instruction_open(struct_processus *s_eta
|
Line 5856 instruction_open(struct_processus *s_eta
|
} |
} |
else |
else |
{ |
{ |
|
free((*((struct_socket *) (*s_objet_resultat) |
|
.objet)).adresse); |
|
|
if (((*((struct_socket *) (*s_objet_resultat) |
if (((*((struct_socket *) (*s_objet_resultat) |
.objet)).adresse = malloc( |
.objet)).adresse = malloc( |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
Line 5865 instruction_open(struct_processus *s_eta
|
Line 5929 instruction_open(struct_processus *s_eta
|
printf("+++Warning : IPv6 support " |
printf("+++Warning : IPv6 support " |
"unavailable\n"); |
"unavailable\n"); |
} |
} |
|
|
|
liberation(s_etat_processus, s_objet_argument); |
|
liberation(s_etat_processus, s_objet_resultat); |
|
|
|
(*s_etat_processus).erreur_execution = |
|
d_ex_instruction_indisponible; |
|
return; |
# endif |
# endif |
} |
} |
else |
else |
{ // Socket UNIX |
{ // Socket UNIX |
|
free((*((struct_socket *) (*s_objet_resultat) |
|
.objet)).adresse); |
|
|
if (((*((struct_socket *) (*s_objet_resultat) |
if (((*((struct_socket *) (*s_objet_resultat) |
.objet)).adresse = malloc( |
.objet)).adresse = malloc( |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |