version 1.98, 2016/03/01 22:12:33
|
version 1.102, 2017/06/20 15:17:02
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.25 |
RPL/2 (R) version 4.1.26 |
Copyright (C) 1989-2016 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 2163 instruction_read(struct_processus *s_eta
|
Line 2163 instruction_read(struct_processus *s_eta
|
} |
} |
} |
} |
} |
} |
|
else |
|
{ |
|
// Évite un warning de gcc. |
|
longueur_questure = 0; |
|
index = 0; |
|
timeout = 0; |
|
} |
|
|
do |
do |
{ |
{ |
Line 3515 instruction_read(struct_processus *s_eta
|
Line 3522 instruction_read(struct_processus *s_eta
|
} |
} |
else |
else |
{ // FLOW |
{ // FLOW |
#if 0 |
|
longueur_questure = 256; |
longueur_questure = 256; |
|
|
do |
do |
{ |
{ |
if ((tampon_lecture = malloc((longueur_questure + 1) * |
if ((tampon_lecture = malloc((((long long unsigned int) |
|
longueur_questure) + 1) * |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = |
(*s_etat_processus).erreur_systeme = |
Line 3549 instruction_read(struct_processus *s_eta
|
Line 3556 instruction_read(struct_processus *s_eta
|
longueur_adresse = sizeof(adresse_unix); |
longueur_adresse = sizeof(adresse_unix); |
longueur_effective = recvfrom((*((struct_socket *) |
longueur_effective = recvfrom((*((struct_socket *) |
(*s_objet_argument_1).objet)).socket, |
(*s_objet_argument_1).objet)).socket, |
tampon_lecture, longueur_questure, |
tampon_lecture, (long unsigned int) |
|
longueur_questure, |
MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *) |
MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *) |
&adresse_unix, &longueur_adresse); |
&adresse_unix, &longueur_adresse); |
} |
} |
Line 3559 instruction_read(struct_processus *s_eta
|
Line 3567 instruction_read(struct_processus *s_eta
|
longueur_adresse = sizeof(adresse_ipv4); |
longueur_adresse = sizeof(adresse_ipv4); |
longueur_effective = recvfrom((*((struct_socket *) |
longueur_effective = recvfrom((*((struct_socket *) |
(*s_objet_argument_1).objet)).socket, |
(*s_objet_argument_1).objet)).socket, |
tampon_lecture, longueur_questure, |
tampon_lecture, (long unsigned int) |
|
longueur_questure, |
MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *) |
MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *) |
&adresse_ipv4, &longueur_adresse); |
&adresse_ipv4, &longueur_adresse); |
} |
} |
Line 3570 instruction_read(struct_processus *s_eta
|
Line 3579 instruction_read(struct_processus *s_eta
|
longueur_adresse = sizeof(adresse_ipv6); |
longueur_adresse = sizeof(adresse_ipv6); |
longueur_effective = recvfrom((*((struct_socket *) |
longueur_effective = recvfrom((*((struct_socket *) |
(*s_objet_argument_1).objet)).socket, |
(*s_objet_argument_1).objet)).socket, |
tampon_lecture, longueur_questure, |
tampon_lecture, (long unsigned int) |
|
longueur_questure, |
MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *) |
MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *) |
&adresse_ipv6, &longueur_adresse); |
&adresse_ipv6, &longueur_adresse); |
# else |
# else |
Line 3698 instruction_read(struct_processus *s_eta
|
Line 3708 instruction_read(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if (((*s_objet_type).objet = malloc(longueur_enregistrement * |
if (((*s_objet_type).objet = malloc((long long unsigned int) |
|
longueur_enregistrement * |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 3782 instruction_read(struct_processus *s_eta
|
Line 3793 instruction_read(struct_processus *s_eta
|
longueur_adresse = 0; |
longueur_adresse = 0; |
recvfrom((*((struct_socket *) |
recvfrom((*((struct_socket *) |
(*s_objet_argument_1).objet)).socket, tampon_lecture, |
(*s_objet_argument_1).objet)).socket, tampon_lecture, |
position_finale, MSG_DONTWAIT, |
(long unsigned int) longueur_effective, MSG_DONTWAIT, |
NULL, &longueur_adresse); |
NULL, &longueur_adresse); |
|
|
(*s_objet_adresse).objet = NULL; |
(*s_objet_adresse).objet = NULL; |
Line 3793 instruction_read(struct_processus *s_eta
|
Line 3804 instruction_read(struct_processus *s_eta
|
longueur_adresse = sizeof(adresse_ipv4); |
longueur_adresse = sizeof(adresse_ipv4); |
recvfrom((*((struct_socket *) |
recvfrom((*((struct_socket *) |
(*s_objet_argument_1).objet)).socket, tampon_lecture, |
(*s_objet_argument_1).objet)).socket, tampon_lecture, |
position_finale, MSG_DONTWAIT, |
(long unsigned int) longueur_effective, MSG_DONTWAIT, |
(struct sockaddr *) &adresse_ipv4, &longueur_adresse); |
(struct sockaddr *) &adresse_ipv4, &longueur_adresse); |
|
|
if (((*s_objet_adresse).objet = |
if (((*s_objet_adresse).objet = |
Line 3873 instruction_read(struct_processus *s_eta
|
Line 3884 instruction_read(struct_processus *s_eta
|
longueur_adresse = sizeof(adresse_ipv6); |
longueur_adresse = sizeof(adresse_ipv6); |
recvfrom((*((struct_socket *) |
recvfrom((*((struct_socket *) |
(*s_objet_argument_1).objet)).socket, tampon_lecture, |
(*s_objet_argument_1).objet)).socket, tampon_lecture, |
position_finale, MSG_DONTWAIT, |
(long unsigned int) longueur_effective, MSG_DONTWAIT, |
(struct sockaddr *) &adresse_ipv6, &longueur_adresse); |
(struct sockaddr *) &adresse_ipv6, &longueur_adresse); |
|
|
if (((*s_objet_adresse).objet = |
if (((*s_objet_adresse).objet = |
Line 3954 instruction_read(struct_processus *s_eta
|
Line 3965 instruction_read(struct_processus *s_eta
|
longueur_adresse = 0; |
longueur_adresse = 0; |
recvfrom((*((struct_socket *) |
recvfrom((*((struct_socket *) |
(*s_objet_argument_1).objet)).socket, tampon_lecture, |
(*s_objet_argument_1).objet)).socket, tampon_lecture, |
position_finale, MSG_DONTWAIT, |
(long unsigned int) longueur_effective, MSG_DONTWAIT, |
NULL, &longueur_adresse); |
NULL, &longueur_adresse); |
} |
} |
|
|
Line 3965 instruction_read(struct_processus *s_eta
|
Line 3976 instruction_read(struct_processus *s_eta
|
{ |
{ |
return; |
return; |
} |
} |
#endif |
|
} |
} |
} |
} |
else |
else |