m/grafX2
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

First upload of the code.

Browse Source 
git-svn-id: svn://pulkomandy.tk/GrafX2/trunk@2 416bcca6-2ee7-4201-b75f-2eb2f807beb1
This commit is contained in:
Adrien Destugues
2007-04-14 20:18:30 +00:00
parent 1af8c74f53
commit 306a004e36
99 changed files with 51201 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

539
files.c Normal file
View File

@@ -0,0 +1,539 @@
#include "const.h"
#include "struct.h"
#include "global.h"
#include "graph.h"
#include "divers.h"
#include <stdlib.h>
#include <fcntl.h>
#include <string.h>
#include <dirent.h>
#include <errno.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
#include "linux.h"
#define COULEUR_FICHIER_NORMAL CM_Clair // Couleur du texte pour une ligne de fichier non s‚lectionn‚
#define COULEUR_REPERTOIRE_NORMAL CM_Fonce // Couleur du texte pour une ligne de r‚pertoire non s‚lectionn‚
#define COULEUR_FOND_NORMAL CM_Noir // Couleur du fond pour une ligne non s‚lectionn‚e
#define COULEUR_FICHIER_SELECT CM_Blanc // Couleur du texte pour une ligne de fichier s‚lectionn‚e
#define COULEUR_REPERTOIRE_SELECT CM_Clair // Couleur du texte pour une ligne de rep‚rtoire s‚lectionn‚e
#define COULEUR_FOND_SELECT CM_Fonce // Couleur du fond pour une ligne s‚lectionn‚e
int Determiner_repertoire_courant(void)
// Modifie Principal_Repertoire_courant en y mettant sa nouvelle valeur (avec le nom du
// disque)
//
// Renvoie 1 s'il y a e–t une erreur d'accŠs
{
return (getcwd(Principal_Repertoire_courant,256)==NULL);
}
int Repertoire_existe(char * Repertoire)
// D‚termine si un r‚pertoire pass‚ en paramŠtre existe ou non dans le
// r‚pertoire courant.
{
DIR* Enreg; // Structure de lecture des ‚l‚ments
if (strcmp(Repertoire,"..")==0)
return 1;
else
{
// On va chercher si le r‚pertoire existe … l'aide d'un Opendir. S'il
// renvoie NULL c'est que le répertoire n'est pas accessible...
Enreg=opendir(Repertoire);
if (Enreg==NULL)
return 0;
else
{
closedir(Enreg);
return 1;
}
}
}
int Fichier_existe(char * Fichier)
// D‚termine si un fichier pass‚ en paramŠtre existe ou non dans le
// r‚pertoire courant.
{
struct stat* buf;
int Resultat;
Resultat=stat(Fichier,buf);
if (Resultat!=0)
return(errno!=ENOENT);
else
return 1;
}
// Conventions:
//
// * Le fileselect modifie le r‚pertoire courant. Ceci permet de n'avoir
// qu'un findfirst dans le r‚pertoire courant … faire:
// -- D‚struction de la liste chaŒn‚e ---------------------------------------
void Detruire_liste_du_fileselect(void)
// Cette proc‚dure d‚truit la chaine des fichiers. Elle doit ˆtre appel‚e
// avant de rappeler la fonction Lire_liste_des_fichiers, ainsi qu'en fin de
// programme.
{
// Pointeur temporaire de destruction
struct Element_de_liste_de_fileselect * Element_temporaire;
while (Liste_du_fileselect!=NULL)
{
// On m‚morise l'adresse du premier ‚l‚ment de la liste
Element_temporaire =Liste_du_fileselect;
// On fait avancer la tˆte de la liste
Liste_du_fileselect=Liste_du_fileselect->Suivant;
// Et on efface l'ancien premier ‚l‚ment de la liste
free(Element_temporaire);
}
}
// -- Formatage graphique des noms de fichier / r‚pertoire ------------------
char * Nom_formate(char * Nom)
{
static char Resultat[13];
int Curseur;
int Autre_curseur;
if (strcmp(Nom,"..")==0)
{
strcpy(Resultat,".. ");
}
else
{
strcpy(Resultat," . ");
// On commence par recopier la partie pr‚c‚dent le point:
for (Curseur=0;( (Nom[Curseur]!='.') && (Nom[Curseur]!='\0') );Curseur++)
Resultat[Curseur]=Nom[Curseur];
// Ensuite on recopie la partie qui suit le point (si n‚cessaire):
if (Nom[Curseur])
{
for (Curseur++,Autre_curseur=9;Nom[Curseur]!='\0';Curseur++,Autre_curseur++)
Resultat[Autre_curseur]=Nom[Curseur];
}
}
return Resultat;
}
// -- Rajouter … la liste des ‚l‚ments de la liste un ‚l‚ment ---------------
void Ajouter_element_a_la_liste(struct dirent* Enreg)
// Cette proc‚dure ajoute … la liste chain‚e un fichier pass‚ en argument.
{
// Pointeur temporaire d'insertion
struct Element_de_liste_de_fileselect * Element_temporaire;
// On alloue de la place pour un nouvel ‚l‚ment
Element_temporaire=(struct Element_de_liste_de_fileselect *)malloc(sizeof(struct Element_de_liste_de_fileselect));
// On met … jour le nouvel emplacement:
strcpy(Element_temporaire->Nom,Nom_formate(Enreg->d_name));
Element_temporaire->Type =(Enreg->d_type == DT_DIR);
Element_temporaire->Suivant =Liste_du_fileselect;
Element_temporaire->Precedent=NULL;
if (Liste_du_fileselect!=NULL)
Liste_du_fileselect->Precedent=Element_temporaire;
Liste_du_fileselect=Element_temporaire;
}
// -- Lecture d'une liste de fichiers ---------------------------------------
void Lire_liste_des_fichiers(byte Format_demande)
// Cette proc‚dure charge dans la liste chain‚e les fichiers dont l'extension
// correspond au format demand‚.
{
int Attribut; // Attribut des fichiers/r‚pertoires … lire
DIR* Repertoire_Courant; //Répertoire courant
struct dirent* Enreg; // Structure de lecture des ‚l‚ments
char Filtre[6]="*."; // Place pour ‚crire "*.XXX" et un '\0'
char Chaine[20];
// Tout d'abord, on d‚duit du format demand‚ un filtre … utiliser:
if (Format_demande) // Format (extension) sp‚cifique
strcat(Filtre,Format_Extension[Format_demande-1]);
else // *.*
strcat(Filtre,"*");
// Ensuite, on vide la liste actuelle:
Detruire_liste_du_fileselect();
// AprŠs effacement, il ne reste ni fichier ni r‚pertoire dans la liste
Liste_Nb_fichiers=0;
Liste_Nb_repertoires=0;
// On lit tous les r‚pertoires:
Repertoire_Courant=opendir(getcwd(NULL,0));
/*
Ceci est à revoir... pas tout à fait géré pareil sous linux...
Attribut=(_A_NORMAL|_A_SUBDIR|//_A_RDONLY|_A_ARCH|
(_A_HIDDEN & Config.Lire_les_repertoires_caches)|
(_A_SYSTEM & Config.Lire_les_repertoires_systemes));
*/
Enreg=readdir(Repertoire_Courant);
while (Enreg)
{
// Si l'‚l‚ment n'est pas le r‚pertoire courant
if ( (strcmp(Enreg->d_name,".")!=0) &&
// et que l'‚l‚ment trouv‚ est r‚ellement un r‚pertoire
(Enreg->d_type == DT_DIR) )
{
// On rajoute le r‚pertore … la liste
Ajouter_element_a_la_liste(Enreg);
Liste_Nb_repertoires++;
}
// On cherche l'‚l‚ment suivant
Enreg=readdir(Repertoire_Courant);
}
// Enfin, on lit les fichiers du format demand‚:
/*
Ici aussi, à revoir...
Attribut=(_A_NORMAL|_A_SYSTEM|//_A_RDONLY|_A_ARCH|
(_A_HIDDEN & Config.Lire_les_fichiers_caches));
*/
rewinddir(Repertoire_Courant);
Enreg=readdir(Repertoire_Courant);
while (Enreg)
{
if (Enreg->d_type==DT_REG) //Il s'agit bien d'un fichier
{
// On rajoute le fichier … la liste
Ajouter_element_a_la_liste(Enreg);
Liste_Nb_fichiers++;
}
// On cherche l'‚l‚ment suivant
Enreg=readdir(Repertoire_Courant);
}
closedir(Repertoire_Courant);
Liste_Nb_elements=Liste_Nb_repertoires+Liste_Nb_fichiers;
}
// -- Tri de la liste des fichiers et r‚pertoires ---------------------------
void Trier_la_liste_des_fichiers(void)
// Tri la liste chain‚e existante dans l'ordre suivant:
//
// * Les r‚pertoires d'abord, dans l'ordre alphab‚tique de leur nom
// * Les fichiers ensuite, dans l'ordre alphab‚tique de leur nom
{
byte La_liste_est_triee; // Bool‚en "La liste est tri‚e"
byte Inversion; // Bool‚en "Il faut inverser les ‚l‚ments"
struct Element_de_liste_de_fileselect * Element_precedent;
struct Element_de_liste_de_fileselect * Element_courant;
struct Element_de_liste_de_fileselect * Element_suivant;
struct Element_de_liste_de_fileselect * Element_suivant_le_suivant;
// Avant de trier quoi que ce soit, on v‚rifie qu'il y ait suffisamment
// d'‚l‚ments pour qu'il soit possibles qu'ils soient en d‚sordre:
if (Liste_Nb_elements>1)
{
do
{
// Par d‚faut, on considŠre que la liste est tri‚e
La_liste_est_triee=1;
Element_courant=Liste_du_fileselect;
Element_suivant=Element_courant->Suivant;
while ( (Element_courant!=NULL) && (Element_suivant!=NULL) )
{
// On commence par supposer qu'il n'y pas pas besoin d'inversion
Inversion=0;
// Ensuite, on v‚rifie si les deux ‚l‚ments sont bien dans l'ordre ou
// non:
// Si l'‚l‚ment courant est un fichier est que le suivant est
// un r‚pertoire -> Inversion
if ( (Element_courant->Type==0) && (Element_suivant->Type==1) )
Inversion=1;
// Si les deux ‚l‚ments sont de mˆme type et que le nom du suivant
// est plus petit que celui du courant -> Inversion
else if ( (Element_courant->Type==Element_suivant->Type) &&
(strcmp(Element_courant->Nom,Element_suivant->Nom)>0) )
Inversion=1;
if (Inversion)
{
// Si les deux ‚l‚ments n‚cessitent d'ˆtre invers‚:
// On les inverses:
// On note avant tout les ‚l‚ments qui encapsulent nos deux amis
Element_precedent =Element_courant->Precedent;
Element_suivant_le_suivant=Element_suivant->Suivant;
// On permute le chaŒnage des deux ‚l‚ments entree eux
Element_courant->Suivant =Element_suivant_le_suivant;
Element_courant->Precedent=Element_suivant;
Element_suivant->Suivant =Element_courant;
Element_suivant->Precedent=Element_precedent;
// On tente un chaŒnage des ‚l‚ments encapsulant les compŠres:
if (Element_precedent!=NULL)
Element_precedent->Suivant=Element_suivant;
if (Element_suivant_le_suivant!=NULL)
Element_suivant_le_suivant->Precedent=Element_courant;
// On fait bien attention … modifier la tˆte de liste en cas de besoin
if (Element_courant==Liste_du_fileselect)
Liste_du_fileselect=Element_suivant;
// Ensuite, on se pr‚pare … ‚tudier les ‚l‚ments pr‚c‚dents:
Element_courant=Element_precedent;
// Et on constate que la liste n'‚tait pas encore g‚nialement tri‚e
La_liste_est_triee=0;
}
else
{
// Si les deux ‚l‚ments sont dans l'ordre:
// On passe aux suivants
Element_courant=Element_courant->Suivant;
Element_suivant=Element_suivant->Suivant;
}
}
}
while (!La_liste_est_triee);
}
}
// -- Affichage des ‚l‚ments de la liste de fichier / r‚pertoire ------------
void Afficher_la_liste_des_fichiers(short Decalage_premier,short Decalage_select)
//
// Decalage_premier = D‚calage entre le premier fichier visible dans le
// s‚lecteur et le premier fichier de la liste
//
// Decalage_select = D‚calage entre le premier fichier visible dans le
// s‚lecteur et le fichier s‚lectionn‚ dans la liste
//
{
struct Element_de_liste_de_fileselect * Element_courant;
byte Indice; // Indice du fichier qu'on affiche (0 -> 9)
byte Couleur_texte;
byte Couleur_fond;
// On v‚rifie s'il y a au moins 1 fichier dans la liste:
if (Liste_Nb_elements>0)
{
// On commence par chercher … pointer sur le premier fichier visible:
Element_courant=Liste_du_fileselect;
for (;Decalage_premier>0;Decalage_premier--)
Element_courant=Element_courant->Suivant;
// Pour chacun des 10 ‚l‚ments inscriptibles … l'‚cran
for (Indice=0;Indice<10;Indice++)
{
// S'il est s‚lectionn‚:
if (!Decalage_select)
{
// Si c'est un fichier
if (Element_courant->Type==0)
Couleur_texte=COULEUR_FICHIER_SELECT;
else
Couleur_texte=COULEUR_REPERTOIRE_SELECT;
Couleur_fond=COULEUR_FOND_SELECT;
}
else
{
// Si c'est un fichier
if (Element_courant->Type==0)
Couleur_texte=COULEUR_FICHIER_NORMAL;
else
Couleur_texte=COULEUR_REPERTOIRE_NORMAL;
Couleur_fond=COULEUR_FOND_NORMAL;
}
// On affiche l'‚l‚ment
Print_dans_fenetre(9,90+(Indice<<3),Element_courant->Nom,Couleur_texte,Couleur_fond);
// On passe … la ligne suivante
Decalage_select--;
Element_courant=Element_courant->Suivant;
if (!Element_courant)
break;
} // Fin de la boucle d'affichage
} // Fin du test d'existence de fichiers
}
// -- R‚cup‚rer le libell‚ d'un ‚l‚ment de la liste -------------------------
void Determiner_element_de_la_liste(short Decalage_premier,short Decalage_select,char * Libelle)
//
// Decalage_premier = D‚calage entre le premier fichier visible dans le
// s‚lecteur et le premier fichier de la liste
//
// Decalage_select = D‚calage entre le premier fichier visible dans le
// s‚lecteur et le fichier … r‚cup‚rer
//
// Libelle = Chaine de r‚ception du libell‚ de l'‚l‚ment
//
{
struct Element_de_liste_de_fileselect * Element_courant;
char * Curseur;
// On v‚rifie s'il y a au moins 1 fichier dans la liste:
if (Liste_Nb_elements>0)
{
// On commence par chercher … pointer sur le premier fichier visible:
Element_courant=Liste_du_fileselect;
for (;Decalage_premier>0;Decalage_premier--)
Element_courant=Element_courant->Suivant;
// Ensuite, on saute autant d'‚l‚ments que le d‚calage demand‚:
for (;Decalage_select>0;Decalage_select--)
Element_courant=Element_courant->Suivant;
// On recopie la chaŒne en la d‚formatant (i.e. tous les chars sauf ' ')
for (Curseur=Element_courant->Nom;*Curseur!='\0';Curseur++)
if (*Curseur!=' ')
*(Libelle++)=*Curseur;
*Libelle='\0';
} // Fin du test d'existence de fichiers
}
// ----------------- D‚placements dans la liste de fichiers -----------------
void Select_Scroll_Down(short * Decalage_premier,short * Decalage_select)
// Fait scroller vers le bas le s‚lecteur de fichier... (si possible)
{
if ( ((*Decalage_select)<9)
&& ( (*Decalage_select)+1 < Liste_Nb_elements ) )
// Si la s‚lection peut descendre
Afficher_la_liste_des_fichiers(*Decalage_premier,++(*Decalage_select));
else // Sinon, descendre la fenˆtre (si possible)
if ((*Decalage_premier)+10<Liste_Nb_elements)
Afficher_la_liste_des_fichiers(++(*Decalage_premier),*Decalage_select);
}
void Select_Scroll_Up(short * Decalage_premier,short * Decalage_select)
// Fait scroller vers le haut le s‚lecteur de fichier... (si possible)
{
if ((*Decalage_select)>0)
// Si la s‚lection peut monter
Afficher_la_liste_des_fichiers(*Decalage_premier,--(*Decalage_select));
else // Sinon, monter la fenˆtre (si possible)
if ((*Decalage_premier)>0)
Afficher_la_liste_des_fichiers(--(*Decalage_premier),*Decalage_select);
}
void Select_Page_Down(short * Decalage_premier,short * Decalage_select)
{
if (Liste_Nb_elements-1>*Decalage_premier+*Decalage_select)
{
if (*Decalage_select<9)
{
if (Liste_Nb_elements<10)
{
*Decalage_premier=0;
*Decalage_select=Liste_Nb_elements-1;
}
else *Decalage_select=9;
}
else
{
if (Liste_Nb_elements>*Decalage_premier+18)
*Decalage_premier+=9;
else
{
*Decalage_premier=Liste_Nb_elements-10;
*Decalage_select=9;
}
}
}
Afficher_la_liste_des_fichiers(*Decalage_premier,*Decalage_select);
}
void Select_Page_Up(short * Decalage_premier,short * Decalage_select)
{
if (*Decalage_premier+*Decalage_select>0)
{
if (*Decalage_select>0)
*Decalage_select=0;
else
{
if (*Decalage_premier>9)
*Decalage_premier-=9;
else
*Decalage_premier=0;
}
}
Afficher_la_liste_des_fichiers(*Decalage_premier,*Decalage_select);
}
void Select_End(short * Decalage_premier,short * Decalage_select)
{
if (Liste_Nb_elements<10)
{
*Decalage_premier=0;
*Decalage_select=Liste_Nb_elements-1;
}
else
{
*Decalage_premier=Liste_Nb_elements-10;
*Decalage_select=9;
}
Afficher_la_liste_des_fichiers(*Decalage_premier,*Decalage_select);
}
void Select_Home(short * Decalage_premier,short * Decalage_select)
{
Afficher_la_liste_des_fichiers((*Decalage_premier)=0,(*Decalage_select)=0);
}
short Calculer_decalage_click_dans_fileselector(void)
/*
Renvoie le d‚calage dans le s‚lecteur de fichier sur lequel on a click‚.
Renvoie le d‚calage du dernier fichier si on a click‚ au del….
Renvoie -1 si le s‚lecteur est vide.
*/
{
short Decalage_calcule;
Decalage_calcule=(((Mouse_Y-Fenetre_Pos_Y)/Menu_Facteur_Y)-90)>>3;
if (Decalage_calcule>=Liste_Nb_elements)
Decalage_calcule=Liste_Nb_elements-1;
return Decalage_calcule;
}