version 1.187, 2012/12/17 21:22:44
|
version 1.208, 2013/03/16 20:11:29
|
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 443 union semun
|
Line 478 union semun
|
|
|
__EXTERN__ pthread_mutex_t mutex_liste_threads |
__EXTERN__ pthread_mutex_t mutex_liste_threads |
__STATIC_MUTEX_INITIALIZATION__; |
__STATIC_MUTEX_INITIALIZATION__; |
__EXTERN__ pthread_mutex_t mutex_liste_variables_partagees |
|
__STATIC_MUTEX_INITIALIZATION__; |
|
__EXTERN__ pthread_mutex_t mutex_gestionnaires_signaux_atomique |
__EXTERN__ pthread_mutex_t mutex_gestionnaires_signaux_atomique |
__STATIC_MUTEX_INITIALIZATION__; |
__STATIC_MUTEX_INITIALIZATION__; |
|
__EXTERN__ pthread_mutex_t mutex_creation_variable_partagee |
|
__STATIC_MUTEX_INITIALIZATION__; |
__EXTERN__ pthread_mutex_t mutex_sections_critiques; |
__EXTERN__ pthread_mutex_t mutex_sections_critiques; |
|
__EXTERN__ pthread_mutex_t mutex_liste_variables_partagees; |
|
|
__EXTERN__ sem_t __PTR__ semaphore_gestionnaires_signaux; |
__EXTERN__ sem_t __PTR__ semaphore_gestionnaires_signaux; |
|
|
Line 928 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 1226 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 1239 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 1445 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 1502 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 2418 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 2478 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 3173 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 3187 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 3207 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 3280 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 3412 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); |