src/io/fichier.cpp

Go to the documentation of this file.

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include "engine/thread_obj.h"
#include "tools/assert.h"
#include "tools/log.h"
#include "io/fichier.h"

#ifdef HAVE_BZLIB_H
#include <bzlib.h>
#endif //HAVE_BZLIB

const int buff_size=1024;

Fichier::Fichier()
{
        nom_fichier=NULL;
}

Fichier::~Fichier()
{
        if(nom_fichier!=NULL)
                delete []nom_fichier;
}

char* Fichier::GetLine()
{
        int buff_size = 16;
        char* buff = (char*)malloc(buff_size);
        int i = 0;
        while(1)
        {
                buff[i] = GetChar();
                if(buff[i] == EOF || buff[i] == '\n')
                {
                        buff[i] = '\0';
                        return buff;
                }
                i++;
                if(i == buff_size)
                        buff_size *= 2;
                buff = (char*)realloc(buff, buff_size);
                ASSERT(buff != NULL);
        }
        ASSERT(false);
        return NULL;
}

FichierClassique::FichierClassique()
{
        fichier=NULL;
}

FichierClassique::~FichierClassique()
{
        if(fichier!=NULL)
                Ferme();
}

bool FichierClassique::Ouvre(const char* nom_fich, const char* att)
{
        fichier=fopen(nom_fich,att);
        if(fichier==NULL)
        {
                log(LogWarning, "Cannot open file %s : %s", nom_fich, strerror(errno));
                return false;
        }
        nom_fichier=new char[strlen(nom_fich)+1];
        strcpy(nom_fichier,nom_fich);
        return true;
}

void FichierClassique::Ferme()
{
        fclose(fichier);
        fichier=NULL;
}

char FichierClassique::GetChar()
{
        last_char = fgetc(fichier);
        return last_char;
}

void FichierClassique::UnGetChar()
{
        ungetc(last_char, fichier);
}

int FichierClassique::GetNbrLignes()
{
        char car='\n';
        int nbr=0;
        while(1)
        {
                if(car=='\n')
                        nbr++;
                car=fgetc(fichier);
                if(car==EOF)
                        break;
        }
        rewind(fichier);
        return nbr;
}

char* FichierClassique::GetExtension()
{
        ASSERT(nom_fichier!=NULL);
        if(nom_fichier==NULL)
                return NULL;
        int i=strlen(nom_fichier)-1;
        while(i>0 && nom_fichier[i]!='.')
                i--;

        if(i==0)
                return NULL;

        char* ext=new char[strlen(&nom_fichier[i])+2];
        strcpy(ext,&nom_fichier[i]);
        return ext;
}

#ifdef HAVE_BZLIB_H
FichierBz2::FichierBz2()
{
        fichier=NULL;
        buff=new char[buff_size];
        memset(buff, 1, buff_size);
        attribut=new char[10];
}

FichierBz2::~FichierBz2()
{
        if(fichier!=NULL)
                Ferme();
        delete []buff;
        delete []attribut;
}

bool FichierBz2::Ouvre(const char* nom_fich, const char* att)
{
        fichier=BZ2_bzopen(nom_fich,att);
        if(fichier==NULL)
                return false;

        nom_fichier=new char[strlen(nom_fich)+1];
        strcpy(nom_fichier,nom_fich);
        strcpy(attribut,att);
        RemplitBuffer();
        offset=-1;

        return true;
}

void FichierBz2::Ferme()
{
        BZ2_bzclose(fichier);
        fichier=NULL;
}

void FichierBz2::RemplitBuffer()
{
        int lu=1;

        // Keep the last char read the last time we rebuffered
        // so we can do an ungetchar
        int i=0;
        while( i < buff_size )
        {
                if( buff[i] == EOF )
                        break;
                break;
        }
        if(i == buff_size) i--;
        buff[0] = buff[i];

        // Refill the buffer
        offset=1;
        while(lu!=0 && offset!=buff_size)
        {
                unsigned char octet;
                lu=BZ2_bzread(fichier,&octet,1);
                buff[offset]=octet;
                offset++;
        }
        if(lu==0)
                buff[offset-1]=EOF;
        offset = 1;
}

char FichierBz2::GetChar()
{
        offset++;
        if(offset==buff_size)
                RemplitBuffer();

        return buff[offset];
}

void FichierBz2::UnGetChar()
{
        offset--;
        ASSERT(offset >= 0);
}

int FichierBz2::GetNbrLignes()
{
        int car='\n';
        int nbr=0;
        do
        {
                if(car=='\n')
                        nbr++;
                car=GetChar();
        }
        while(car!=EOF);
        Rewind();
        return nbr;
}

void FichierBz2::Rewind()
{
        Ferme();
        fichier=BZ2_bzopen(nom_fichier,attribut);
        RemplitBuffer();
        offset=-1;
}

void FichierBz2::ErreurIci()
{
        log(LogWarning,"Erreur de syntaxe dans le fichier \"%s\"",nom_fichier);
}

char* FichierBz2::GetExtension()
{
        ASSERT(nom_fichier!=NULL);
        if(nom_fichier==NULL)
                return NULL;
        int i=strlen(nom_fichier)-5;
        while(i>0 && nom_fichier[i]!='.')
                i--;

        if(i==0)
                return NULL;

        char* ext=new char[strlen(&nom_fichier[i])-2];
        strncpy(ext,&nom_fichier[i],strlen(&nom_fichier[i])-4);
        ext[strlen(&nom_fichier[i])-4]='\0';
        return ext;
}

#endif //HAVE_BZLIB

Fichier* OuvreFichier(const char* nom_fich, const char* att)
{
        Fichier* fich;
        if(nom_fich == NULL || strlen(nom_fich)==0)
        {
                log(LogWarning,"No name given to open file");
                return NULL;
        }

#ifdef HAVE_BZLIB_H
        if(strlen(nom_fich)>4 && strcmp(&nom_fich[strlen(nom_fich)-4],".bz2")==0)
                fich=new FichierBz2;
        else
#endif
                fich=new FichierClassique;
        if(!fich->Ouvre(nom_fich,att))
        {
                delete fich;
                return NULL;
        }
        return fich;
}

void FichierClassique::ErreurIci()
{
        fpos_t pos_init;
        fgetpos(fichier,&pos_init);

        long pos=ftell(fichier);
        long dec=15;
        if(pos<15)
                dec=pos;
        dec=-dec;
        if(fseek(fichier,dec,SEEK_CUR)==-1)
        {
                log(LogWarning,"tite erreur...");
                return;
        }

        int aff=dec;
        char lu=fgetc(fichier);
        char ligne[4096];
        ligne[0] = '\0';

        while (aff!=15 && lu!='\n' && lu!=EOF)
        {
                strncat(ligne, &lu, 1);
                aff++;
                lu=fgetc(fichier);
        }
        log(LogWarning,"%s", ligne);

        ligne[0] = '\0';
        aff=dec+1;
        while (aff!=0)
        {
                strcat(ligne, " ");
                aff++;
        }
        strcat(ligne,"`--> ICI");
        log(LogWarning,"%s", ligne);

        fsetpos(fichier,&pos_init);
}

void erreur_ici(Fichier* fichier)
{
        fichier->ErreurIci();
}

---