rpl/src/rpl.h - diff

Return to rpl.h CVS log

Up to [local] / rpl / src

Diff for /rpl/src/rpl.h between versions 1.188 and 1.210

version 1.188, 2012/12/18 10:20:24	version 1.210, 2013/03/18 10:35:50
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.11	RPL/2 (R) version 4.1.13
Copyright (C) 1989-2012 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 65	Line 65

#include <stdio.h>	#include <stdio.h>
#include <stdlib.h>	#include <stdlib.h>
	#include <stdint.h>
#include <math.h>	#include <math.h>
#include <string.h>	#include <string.h>
#include <strings.h>	#include <strings.h>
Line 165	Line 166
# include "iconv.h"	# include "iconv.h"

# include "openssl/evp.h"	# include "openssl/evp.h"
	# ifndef OPENSSL_NO_MD2
	# include "openssl/md2.h"
	# endif
	# ifndef OPENSSL_NO_MD4
	# include "openssl/md4.h"
	# endif
	# ifndef OPENSSL_NO_MD5
	# include "openssl/md5.h"
	# endif
	# ifndef OPENSSL_NO_MDC2
	# include "openssl/mdc2.h"
	# endif
	# ifndef OPENSSL_NO_RIPEMD
	# include "openssl/ripemd.h"
	# endif
	# ifndef OPENSSL_NO_SHA
	# include "openssl/sha.h"
	# endif
	# ifndef OPENSSL_NO_WHIRLPOOL
	# include "openssl/whrlpool.h"
	# endif
	# ifndef OPENSSL_NO_AES
	# include "openssl/aes.h"
	# endif
	# ifndef OPENSSL_NO_CAMELLIA
	# include "openssl/camellia.h"
	# endif
	# ifndef OPENSSL_NO_RC2
	# include "openssl/rc2.h"
	# endif
	# ifndef OPENSSL_NO_IDEA
	# include "openssl/idea.h"
	# endif

# include "sqlite3.h"	# include "sqlite3.h"
# include "sigsegv.h"	# include "sigsegv.h"
# ifdef OS2	# ifdef OS2
Line 745 pid_t debug_fork();	Line 780 pid_t debug_fork();
Erreurs système	Erreurs système
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/
#define DEBUG_ERREURS
#ifdef DEBUG_ERREURS	#ifdef DEBUG_ERREURS
# ifdef MESSAGES	# ifdef MESSAGES
# define __erreur(i) i	# define __erreur(i) i
Line 929 pid_t debug_fork();	Line 964 pid_t debug_fork();
# define d_ex_mutex_acquis_autre_thread __erreur(86)	# define d_ex_mutex_acquis_autre_thread __erreur(86)
# define d_ex_expression_reguliere __erreur(87)	# define d_ex_expression_reguliere __erreur(87)
# define d_ex_instruction_indisponible __erreur(88)	# define d_ex_instruction_indisponible __erreur(88)
	# define d_ex_chiffrement __erreur(89)
	# define d_ex_chiffrement_indisponible __erreur(90)
	# define d_ex_longueur_clef_chiffrement __erreur(91)
	# define d_ex_taille_message __erreur(92)
#endif	#endif


Line 1227 typedef struct connecteur_sql	Line 1266 typedef struct connecteur_sql
# ifdef POSTGRESQL_SUPPORT	# ifdef POSTGRESQL_SUPPORT
PGconn *postgresql;	PGconn *postgresql;
# endif	# endif
	sqlite3 *sqlite;
} descripteur;	} descripteur;
} struct_connecteur_sql;	} struct_connecteur_sql;
#endif	#endif
Line 1240 typedef struct connecteur_sql	Line 1280 typedef struct connecteur_sql
"POSTGRESQL") == 0) \	"POSTGRESQL") == 0) \
postgresqlclose((((struct_connecteur_sql ) (*s_objet).objet)) \	postgresqlclose((((struct_connecteur_sql ) (*s_objet).objet)) \
.descripteur); \	.descripteur); \
	else if (strcmp((((struct_connecteur_sql ) (*s_objet).objet)).type, \
	"SQLITE") == 0) \
	sqlite3_close((((struct_connecteur_sql ) (*s_objet).objet)) \
	.descripteur.sqlite); \
else \	else \
BUG(1, uprintf("SQL type '%s' not allowed!", \	BUG(1, uprintf("SQL type '%s' not allowed!", \
(((struct_connecteur_sql ) (*s_objet).objet)).type));	(((struct_connecteur_sql ) (*s_objet).objet)).type));
Line 1446 typedef struct liste_pile_systeme	Line 1490 typedef struct liste_pile_systeme
{	{
struct liste_pile_systeme *suivant;	struct liste_pile_systeme *suivant;

struct_liste_chainee *pointeur_objet_retour;

struct_objet *indice_boucle;	struct_objet *indice_boucle;
struct_objet *limite_indice_boucle;	struct_objet *limite_indice_boucle;
struct_objet *objet_de_test;	struct_objet *objet_de_test;
Line 1503 typedef struct liste_pile_systeme	Line 1545 typedef struct liste_pile_systeme

unsigned long adresse_retour;	unsigned long adresse_retour;
unsigned long niveau_courant;	unsigned long niveau_courant;
struct_objet *pointeur_adresse_retour;	struct_liste_chainee *pointeur_objet_retour;
} struct_liste_pile_systeme;	} struct_liste_pile_systeme;
#endif	#endif

Line 2290 typedef struct processus	Line 2332 typedef struct processus
unsigned long taille_pile_objets;	unsigned long taille_pile_objets;
struct_objet *pile_objets;	struct_objet *pile_objets;

# define TAILLE_CACHE 16384	# define TAILLE_CACHE 1024

unsigned long *objets_adr[TAILLE_CACHE];	unsigned long *objets_adr[TAILLE_CACHE];
int pointeur_adr;	int pointeur_adr;
Line 2419 void instruction_ceil(struct_processus *	Line 2461 void instruction_ceil(struct_processus *
void instruction_centr(struct_processus *s_etat_processus);	void instruction_centr(struct_processus *s_etat_processus);
void instruction_cf(struct_processus *s_etat_processus);	void instruction_cf(struct_processus *s_etat_processus);
void instruction_chr(struct_processus *s_etat_processus);	void instruction_chr(struct_processus *s_etat_processus);
	void instruction_cipher(struct_processus *s_etat_processus);
void instruction_clear(struct_processus *s_etat_processus);	void instruction_clear(struct_processus *s_etat_processus);
void instruction_cllcd(struct_processus *s_etat_processus);	void instruction_cllcd(struct_processus *s_etat_processus);
void instruction_clmf(struct_processus *s_etat_processus);	void instruction_clmf(struct_processus *s_etat_processus);
Line 2479 void instruction_detach(struct_processus	Line 2522 void instruction_detach(struct_processus
void instruction_dft(struct_processus *s_etat_processus);	void instruction_dft(struct_processus *s_etat_processus);
void instruction_dgtiz(struct_processus *s_etat_processus);	void instruction_dgtiz(struct_processus *s_etat_processus);
void instruction_diag_fleche(struct_processus *s_etat_processus);	void instruction_diag_fleche(struct_processus *s_etat_processus);
	void instruction_digest(struct_processus *s_etat_processus);
void instruction_disp(struct_processus *s_etat_processus);	void instruction_disp(struct_processus *s_etat_processus);
void instruction_division(struct_processus *s_etat_processus);	void instruction_division(struct_processus *s_etat_processus);
void instruction_do(struct_processus *s_etat_processus);	void instruction_do(struct_processus *s_etat_processus);
Line 3174 unsigned char *analyse_algebrique(struct	Line 3218 unsigned char *analyse_algebrique(struct
unsigned char chaine_algebrique, struct_liste_chainee *l_base_liste);	unsigned char chaine_algebrique, struct_liste_chainee *l_base_liste);
unsigned char analyse_flux(struct_processus s_etat_processus,	unsigned char analyse_flux(struct_processus s_etat_processus,
unsigned char *flux, long longueur);	unsigned char *flux, long longueur);
unsigned char *recherche_chemin_fichiers_temporaires(struct_processus	unsigned char chiffrement(const EVP_CIPHER type_chiffrement,
*s_etat_processus);	logical1 encodage, unsigned char *message, unsigned int
	longueur_message, unsigned char *clef, unsigned int longueur_clef,
	unsigned char *vecteur_initialisation,
	unsigned int *longueur_message_chiffre);
unsigned char compactage(unsigned char chaine);	unsigned char compactage(unsigned char chaine);
unsigned char conversion_majuscule(unsigned char chaine);	unsigned char conversion_majuscule(unsigned char chaine);
unsigned char creation_nom_fichier(struct_processus s_etat_processus,	unsigned char creation_nom_fichier(struct_processus s_etat_processus,
Line 3188 unsigned char *formateur(struct_processu	Line 3235 unsigned char *formateur(struct_processu
unsigned char formateur_fichier(struct_processus s_etat_processus,	unsigned char formateur_fichier(struct_processus s_etat_processus,
struct_objet s_objet, struct_objet s_format,	struct_objet s_objet, struct_objet s_format,
long longueur, long longueur_champ, unsigned char format,	long longueur, long longueur_champ, unsigned char format,
unsigned char type, long longueur_effective, long recursivite);	unsigned char type, long longueur_effective, long recursivite,
	logical1 export_fichier);
unsigned char formateur_flux(struct_processus s_etat_processus,	unsigned char formateur_flux(struct_processus s_etat_processus,
unsigned char donnees, long longueur);	unsigned char donnees, long longueur);
unsigned char formateur_fichier_nombre(struct_processus s_etat_processus,	unsigned char formateur_fichier_nombre(struct_processus s_etat_processus,
void *valeur_numerique, unsigned char type,	void *valeur_numerique, unsigned char type,
long longueur, long longueur_champ, unsigned char format);	long longueur, long longueur_champ, unsigned char format);
unsigned char *formateur_fichier_binaire_nombre(struct_processus	unsigned char *formateur_fichier_binaire_nombre(struct_processus
s_etat_processus, void valeur_numerique, unsigned char type,	s_etat_processus, void valeur_numerique, unsigned char type_entree,
long longueur, long *longueur_conversion);	unsigned char type, long longueur, long *longueur_conversion);
unsigned char formateur_fichier_reel(struct_processus s_etat_processus,	unsigned char formateur_fichier_reel(struct_processus s_etat_processus,
void *valeur_numerique, unsigned char type,	void *valeur_numerique, unsigned char type,
long longueur, long longueur_champ, unsigned char format);	long longueur, long longueur_champ, unsigned char format);
Line 3208 unsigned char *messages(struct_processus	Line 3256 unsigned char *messages(struct_processus
unsigned char pointeur_ieme_caractere(struct_processus s_etat_processus,	unsigned char pointeur_ieme_caractere(struct_processus s_etat_processus,
unsigned char *chaine, integer8 position);	unsigned char *chaine, integer8 position);
unsigned char purification_chaine(unsigned char chaine);	unsigned char purification_chaine(unsigned char chaine);
	unsigned char *recherche_chemin_fichiers_temporaires(struct_processus
	*s_etat_processus);
unsigned char reencodage(struct_processus s_etat_processus,	unsigned char reencodage(struct_processus s_etat_processus,
unsigned char chaine_entree, unsigned char codage_entree,	unsigned char chaine_entree, unsigned char codage_entree,
unsigned char *codage_sortie);	unsigned char *codage_sortie);
Line 3281 logical1 sequenceur_optimise(struct_proc	Line 3331 logical1 sequenceur_optimise(struct_proc
logical1 depassement_addition(integer8 a, integer8 b, integer8 *resultat);	logical1 depassement_addition(integer8 a, integer8 b, integer8 *resultat);
logical1 depassement_multiplication(integer8 a, integer8 b,	logical1 depassement_multiplication(integer8 a, integer8 b,
integer8 *resultat);	integer8 *resultat);
	logical1 depassement_soustraction(integer8 a, integer8 b, integer8 *resultat);
logical1 depassement_puissance(integer8 a, integer8 b, integer8 *resultat);	logical1 depassement_puissance(integer8 a, integer8 b, integer8 *resultat);

#ifndef RPLARGS	#ifndef RPLARGS
Line 3413 struct_objet *allocation(struct_processu	Line 3464 struct_objet *allocation(struct_processu
#ifndef RPLARGS	#ifndef RPLARGS
struct_objet formateur_date(struct_processus s_etat_processus,	struct_objet formateur_date(struct_processus s_etat_processus,
struct timeval *temps);	struct timeval *temps);
	struct_objet lecture_fichier_non_formate(struct_processus s_etat_processus,
	void *argument, integer8 longueur_buffer, logical1 recursivite);
struct_objet lecture_pipe(struct_processus s_etat_processus, int pipe);	struct_objet lecture_pipe(struct_processus s_etat_processus, int pipe);
struct_objet parametres_sql(struct_processus s_etat_processus,	struct_objet parametres_sql(struct_processus s_etat_processus,
struct_objet *s_parametres);	struct_objet *s_parametres);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.188
changed lines
	Added in v.1.210