--- rpl/src/rpl.h	2018/05/30 16:50:13	1.319
+++ rpl/src/rpl.h	2018/12/21 10:56:23	1.320
@@ -775,7 +775,8 @@ pid_t debug_fork();
 #define d_SPH					"Semaphore $n 'name'"
 #define d_TAB					"<[ table ]>"
 #define d_MTX					"Mutex $n"
-#define d_REC					"Record /'name_1', ..., 'name_n'/"
+#define d_REC					"|[ <[ 'name_1' ... 'name_n' ]> " \
+										"<[ data_1 ... data_n ]> ]|"
 
 /*
 --------------------------------------------------------------------------------
@@ -1137,6 +1138,8 @@ enum t_type		{ ADR = 0, ALG, BIN, CHN, C
 	PRC : processus (struct_processus_fils *)
 			Sans objet.
 
+	REC : enregistrement (struct_record *)
+
 	REL : reel sur 64 bits (real*8, real8 *)
 			Sans objet.
 
@@ -1762,6 +1765,18 @@ typedef struct tableau
 
 /*
 --------------------------------------------------------------------------------
+  Structure enregistrement
+--------------------------------------------------------------------------------
+*/
+
+typedef struct record
+{
+	struct_objet		*noms;
+	struct_objet		*donnees;
+} struct_record;
+
+/*
+--------------------------------------------------------------------------------
   Structure arbre
 --------------------------------------------------------------------------------
 */
@@ -1828,7 +1843,10 @@ typedef struct rpl_arguments
 	unsigned char				test_instruction;
 
 	integer8					nombre_arguments;
-	// Nombre d'arguments de la fonction, positif ou nul.
+	// Nombre d'arguments de la fonction
+	// 0       : instruction infixe
+	// positif : nombre d'arguments (notation algébrique possible)
+	// -1      : notation algrébrique non autorisée
 
 	void						*s_etat_processus;
 } struct_rpl_arguments;
@@ -2478,6 +2496,7 @@ typedef struct processus
 	CACHE(integer8, int)
 	CACHE(struct_matrice, mat)
 	CACHE(struct_nom, nom)
+	CACHE(struct_record, rec)
 	CACHE(real8, rel)
 	CACHE(struct_tableau, tab)
 	CACHE(struct_vecteur, vec)
@@ -2893,6 +2912,7 @@ void instruction_rdz(struct_processus *s
 void instruction_re(struct_processus *s_etat_processus);
 void instruction_read(struct_processus *s_etat_processus);
 void instruction_recode(struct_processus *s_etat_processus);
+void instruction_record(struct_processus *s_etat_processus);
 void instruction_recv(struct_processus *s_etat_processus);
 void instruction_redraw(struct_processus *s_etat_processus);
 void instruction_regex(struct_processus *s_etat_processus);