--- rpl/src/instructions_r4.c	2011/09/26 15:57:15	1.45
+++ rpl/src/instructions_r4.c	2011/11/15 07:01:37	1.46
@@ -852,22 +852,22 @@ instruction_read(struct_processus *s_eta
 	int								ios;
 
 	integer8						element;
+	integer8						i;
 	integer8						id;
 	integer8						position_clef;
+	integer8						longueur_effective;
+	integer8						longueur_enregistrement;
+	integer8						longueur_questure;
+	integer8						niveau;
+	integer8						pointeur;
+	integer8						position_finale;
+	integer8						position_initiale;
+
 
 	logical1						indicateur_48;
 	logical1						presence_chaine;
 	logical1						presence_indicateur;
 
-	long							i;
-	long							longueur_effective;
-	long							longueur_enregistrement;
-	long							longueur_questure;
-	long							niveau;
-	long							pointeur;
-	long							position_finale;
-	long							position_initiale;
-
 	socklen_t						longueur_adresse;
 
 	sqlite3_stmt					*ppStmt;
@@ -886,10 +886,12 @@ instruction_read(struct_processus *s_eta
 
 	struct_liste_chainee			*l_element_courant;
 	struct_liste_chainee			*l_element_inclus;
+	struct_liste_chainee			*l_element_suivant;
 
 	struct_objet					*s_objet_adresse;
 	struct_objet					*s_objet_argument_1;
 	struct_objet					*s_objet_argument_2;
+	struct_objet					*s_objet_element;
 	struct_objet					*s_objet_resultat;
 	struct_objet					*s_objet_type;
 
@@ -900,6 +902,7 @@ instruction_read(struct_processus *s_eta
 	unsigned char					*tampon_lecture;
 	unsigned char					*tampon;
 	unsigned char					*tampon2;
+	unsigned char					type_enregistrement;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -1857,6 +1860,174 @@ instruction_read(struct_processus *s_eta
 			/*
 			 * Fichiers non formatés
 			 */
+
+			if ((*((struct_fichier *) (*s_objet_argument_1).objet)).acces
+					== 'S')
+			{
+				/*
+				 * Fichiers séquentiels
+				 *
+				 * Les fichiers séquentiels non formatés contiennent comme
+				 * les fichiers séquentiels formatés leurs enregistrements
+				 * sous la forme de listes les unes derrières les autres.
+				 *
+				 * Le quartet de poids fort du premier octet à lire
+				 * doit donc être égal à 0100. Si ce n'est pas le cas,
+				 * il sera impossible de lire le fichier et on renvoie
+				 * immédiatement une erreur. Si on lit dans le fichier
+				 * la valeur attendue, on récupère la longueur en octet
+				 * de l'enregistrement puis on le lit.
+				 */
+
+				BUG(((*descripteur).type != 'C'), uprintf("Bad filtype !\n"));
+
+				if (fread(&type_enregistrement, (size_t) sizeof(unsigned char),
+						1, (*descripteur).descripteur_c) != 1)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+					return;
+				}
+
+				if ((type_enregistrement & 0xF0) != 0x40)
+				{
+					// L'enregistrement trouvé n'est pas une liste.
+					// Tout porte à croire que le fichier est corrompu.
+					(*s_etat_processus).erreur_execution =
+							d_ex_fichier_corrompu;
+					return;
+				}
+
+				switch(type_enregistrement)
+				{
+					unsigned char		taille_enregistrement[8];
+
+					case 0x48:
+					{
+						if (fread(taille_enregistrement,
+								(size_t) sizeof(unsigned char),
+								1, (*descripteur).descripteur_c) != 1)
+						{
+							(*s_etat_processus).erreur_systeme =
+									d_es_erreur_fichier;
+							return;
+						}
+
+						longueur_enregistrement = taille_enregistrement[0];
+						break;
+					}
+
+					case 0x49:
+					{
+						if (fread(taille_enregistrement,
+								(size_t) sizeof(unsigned char),
+								2, (*descripteur).descripteur_c) != 2)
+						{
+							(*s_etat_processus).erreur_systeme =
+									d_es_erreur_fichier;
+							return;
+						}
+
+// A FAIRE conversion de taille_enregistrement en longueur_enregistrement
+						break;
+					}
+
+					case 0x4A:
+					{
+						if (fread(taille_enregistrement,
+								(size_t) sizeof(unsigned char),
+								4, (*descripteur).descripteur_c) != 4)
+						{
+							(*s_etat_processus).erreur_systeme =
+									d_es_erreur_fichier;
+							return;
+						}
+
+// A FAIRE conversion de taille_enregistrement en longueur_enregistrement
+						break;
+					}
+
+					case 0x4B:
+					{
+						if (fread(taille_enregistrement,
+								(size_t) sizeof(unsigned char),
+								8, (*descripteur).descripteur_c) != 8)
+						{
+							(*s_etat_processus).erreur_systeme =
+									d_es_erreur_fichier;
+							return;
+						}
+
+// A FAIRE conversion de taille_enregistrement en longueur_enregistrement
+						break;
+					}
+
+					default:
+					{
+						longueur_enregistrement = type_enregistrement & 0x07;
+					}
+				}
+
+printf("L=%d\n", longueur_enregistrement);
+				// La variable longueur_enregistrement contient le nombre
+				// d'éléments à lire dans le fichier pour générer la liste
+				// contenant l'enregistrement.
+
+				if ((s_objet_resultat = allocation(s_etat_processus, LST))
+						== NULL)
+				{
+					(*s_etat_processus).erreur_systeme =
+							d_es_allocation_memoire;
+					return;
+				}
+
+				for(i = 0; i < longueur_enregistrement; i++)
+				{
+					/* A FAIRE
+					s_objet_element = decodage_enregistrement(s_etat_processus,
+							(*descripteur).descripteur_c);
+							*/
+					s_objet_element = NULL;
+
+					if (s_objet_element == NULL)
+					{
+						liberation(s_etat_processus, s_objet_resultat);
+						return;
+					}
+
+					if ((*s_objet_resultat).objet == NULL)
+					{
+						if (((*s_objet_resultat).objet = allocation_maillon(
+								s_etat_processus)) == NULL)
+						{
+							(*s_etat_processus).erreur_systeme =
+									d_es_allocation_memoire;
+							return;
+						}
+
+						(*((struct_liste_chainee *) (*s_objet_resultat).objet))
+								.donnee = s_objet_element;
+						l_element_courant = (*s_objet_resultat).objet;
+					}
+					else
+					{
+						if ((l_element_suivant = allocation_maillon(
+								s_etat_processus)) == NULL)
+						{
+							(*s_etat_processus).erreur_systeme =
+									d_es_allocation_memoire;
+							return;
+						}
+
+						(*l_element_courant).suivant = l_element_suivant;
+						(*l_element_suivant).donnee = s_objet_element;
+						l_element_courant = l_element_suivant;
+					}
+				}
+
+				// On saute les caractère des gestion de la commande
+				// BACKSPACE.
+				// A FAIRE
+			}
 		}
 		else
 		{