--- rpl/src/instructions_r4.c	2016/03/01 22:12:33	1.98
+++ rpl/src/instructions_r4.c	2020/04/06 13:06:16	1.113
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.25
-  Copyright (C) 1989-2016 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2020 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -869,6 +869,7 @@ instruction_read(struct_processus *s_eta
 
 	logical1						device;
 	logical1						format_degenere;
+	logical1						format_oriente_ligne;
 	logical1						indicateur_48;
 	logical1						presence_chaine;
 	logical1						presence_indicateur;
@@ -2072,42 +2073,29 @@ instruction_read(struct_processus *s_eta
 						return;
 					}
 
-					if (strncmp("LENGTH*(", format_chaine, 8) != 0)
+					if (strcmp("LINE*(*)", format_chaine) == 0)
 					{
-						liberation(s_etat_processus, s_objet_argument_1);
-						liberation(s_etat_processus, s_objet_resultat);
-						free(format_chaine);
-
-						(*s_etat_processus).erreur_execution =
-								d_ex_erreur_format_fichier;
-						return;
+						format_degenere = d_vrai;
+						format_oriente_ligne = d_vrai;
 					}
-
-					longueur = (integer8) strlen(format_chaine);
-
-					if (format_chaine[longueur - 1] != ')')
+					else
 					{
-						liberation(s_etat_processus, s_objet_argument_1);
-						liberation(s_etat_processus, s_objet_resultat);
-						free(format_chaine);
+						format_oriente_ligne = d_faux;
 
-						(*s_etat_processus).erreur_execution =
-								d_ex_erreur_format_fichier;
-						return;
-					}
+						if (strncmp("LENGTH*(", format_chaine, 8) != 0)
+						{
+							liberation(s_etat_processus, s_objet_argument_1);
+							liberation(s_etat_processus, s_objet_resultat);
+							free(format_chaine);
 
-					format_chaine[longueur] = d_code_fin_chaine;
+							(*s_etat_processus).erreur_execution =
+									d_ex_erreur_format_fichier;
+							return;
+						}
 
-					if (format_chaine[8] == '*')
-					{
-						format_degenere = d_vrai;
-					}
-					else
-					{
-						// Détermination de la longueur
-						format_degenere = d_faux;
+						longueur = (integer8) strlen(format_chaine);
 
-						if (sscanf(&(format_chaine[8]), "%lld", &longueur) != 1)
+						if (format_chaine[longueur - 1] != ')')
 						{
 							liberation(s_etat_processus, s_objet_argument_1);
 							liberation(s_etat_processus, s_objet_resultat);
@@ -2117,6 +2105,31 @@ instruction_read(struct_processus *s_eta
 									d_ex_erreur_format_fichier;
 							return;
 						}
+
+						format_chaine[longueur] = d_code_fin_chaine;
+
+						if (format_chaine[8] == '*')
+						{
+							format_degenere = d_vrai;
+						}
+						else
+						{
+							// Détermination de la longueur
+							format_degenere = d_faux;
+
+							if (sscanf(&(format_chaine[8]), "%lld", &longueur)
+									!= 1)
+							{
+								liberation(s_etat_processus,
+										s_objet_argument_1);
+								liberation(s_etat_processus, s_objet_resultat);
+								free(format_chaine);
+
+								(*s_etat_processus).erreur_execution =
+										d_ex_erreur_format_fichier;
+								return;
+							}
+						}
 					}
 
 					free(format_chaine);
@@ -2163,6 +2176,13 @@ instruction_read(struct_processus *s_eta
 								}
 							}
 						}
+						else
+						{
+							// Évite un warning de gcc.
+							longueur_questure = 0;
+							index = 0;
+							timeout = 0;
+						}
 
 						do
 						{
@@ -2194,6 +2214,14 @@ instruction_read(struct_processus *s_eta
 
 								tampon3[index++] = (unsigned char) c;
 							}
+
+							if (format_oriente_ligne == d_vrai)
+							{
+								if (c == '\n')
+								{
+									break;
+								}
+							}
 						} while(c != EOF);
 
 						if (device == d_faux)
@@ -3515,13 +3543,12 @@ instruction_read(struct_processus *s_eta
 		}
 		else
 		{ // FLOW
-#if 0
 			longueur_questure = 256;
 
 			do
 			{
-				if ((tampon_lecture = malloc((longueur_questure + 1) *
-						sizeof(unsigned char))) == NULL)
+				if ((tampon_lecture = malloc((((size_t) longueur_questure) + 1)
+						* sizeof(unsigned char))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -3549,7 +3576,8 @@ instruction_read(struct_processus *s_eta
 						longueur_adresse = sizeof(adresse_unix);
 						longueur_effective = recvfrom((*((struct_socket *)
 								(*s_objet_argument_1).objet)).socket,
-								tampon_lecture, longueur_questure,
+								tampon_lecture, (long unsigned int)
+								longueur_questure,
 								MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
 								&adresse_unix, &longueur_adresse);
 					}
@@ -3559,7 +3587,8 @@ instruction_read(struct_processus *s_eta
 						longueur_adresse = sizeof(adresse_ipv4);
 						longueur_effective = recvfrom((*((struct_socket *)
 								(*s_objet_argument_1).objet)).socket,
-								tampon_lecture, longueur_questure,
+								tampon_lecture, (long unsigned int)
+								longueur_questure,
 								MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
 								&adresse_ipv4, &longueur_adresse);
 					}
@@ -3570,7 +3599,8 @@ instruction_read(struct_processus *s_eta
 						longueur_adresse = sizeof(adresse_ipv6);
 						longueur_effective = recvfrom((*((struct_socket *)
 								(*s_objet_argument_1).objet)).socket,
-								tampon_lecture, longueur_questure,
+								tampon_lecture, (long unsigned int)
+								longueur_questure,
 								MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
 								&adresse_ipv6, &longueur_adresse);
 #						else
@@ -3698,8 +3728,8 @@ instruction_read(struct_processus *s_eta
 				return;
 			}
 
-			if (((*s_objet_type).objet = malloc(longueur_enregistrement *
-					sizeof(unsigned char))) == NULL)
+			if (((*s_objet_type).objet = malloc((size_t) longueur_enregistrement
+					* sizeof(unsigned char))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -3782,7 +3812,7 @@ instruction_read(struct_processus *s_eta
 				longueur_adresse = 0;
 				recvfrom((*((struct_socket *)
 						(*s_objet_argument_1).objet)).socket, tampon_lecture,
-						position_finale, MSG_DONTWAIT,
+						(long unsigned int) longueur_effective, MSG_DONTWAIT,
 						NULL, &longueur_adresse);
 
 				(*s_objet_adresse).objet = NULL;
@@ -3793,7 +3823,7 @@ instruction_read(struct_processus *s_eta
 				longueur_adresse = sizeof(adresse_ipv4);
 				recvfrom((*((struct_socket *)
 						(*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);
 
 				if (((*s_objet_adresse).objet =
@@ -3873,7 +3903,7 @@ instruction_read(struct_processus *s_eta
 				longueur_adresse = sizeof(adresse_ipv6);
 				recvfrom((*((struct_socket *)
 						(*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);
 
 				if (((*s_objet_adresse).objet =
@@ -3954,7 +3984,7 @@ instruction_read(struct_processus *s_eta
 				longueur_adresse = 0;
 				recvfrom((*((struct_socket *)
 						(*s_objet_argument_1).objet)).socket, tampon_lecture,
-						position_finale, MSG_DONTWAIT,
+						(long unsigned int) longueur_effective, MSG_DONTWAIT,
 						NULL, &longueur_adresse);
 			}
 
@@ -3965,7 +3995,6 @@ instruction_read(struct_processus *s_eta
 			{
 				return;
 			}
-#endif
 		}
 	}
 	else