Comment servir des pintes de Guinness "over Internet" ;) Reprise/Fork d'un très ancien code d'un pilier de f.m.b.l : http://tnemeth.free.fr/projets/guinness-server.html
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

187 lines
4.1 KiB

/*
* lists
* architecture clients/serveur guinness
* Thomas Nemeth -- le 15 juin 2001
*
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <strings.h>
#include "defines.h"
#include "xmem.h"
#include "lists.h"
void add_elt (Elt **elt, const char *nom) {
Elt *e;
if (*elt == NULL) {
*elt = xmalloc ((1) * sizeof (Elt));
(*elt)->nom = xstrdup (nom);
(*elt)->next = NULL;
} else {
e = *elt;
while (e->next != NULL) e = e->next;
e->next = xmalloc ((1) * sizeof (Elt));
e = e->next;
e->nom = xstrdup (nom);
e->next = NULL;
}
}
void remove_elt (Elt **elt, const char *nom) {
Elt *e = *elt, *p = NULL;
int res = FALSE;
char *rt, *text ;
do {
if (e != NULL) {
if ((rt = strstr (e->nom, SEP)) != NULL) {
text = xmalloc (rt - e->nom + 2);
memset (text, 0, rt - e->nom + 2);
strncpy (text, e->nom, rt - e->nom);
#ifdef DEBUG
printf ("Comparaison (l) de [%s] avec [%s]\n", text, nom);
#endif
res = (strcmp (text, nom) == 0);
free (text);
} else {
#ifdef DEBUG
printf ("Comparaison (c) de [%s] avec [%s]\n", e->nom, nom);
#endif
res = (strcmp (e->nom, nom) == 0);
}
if (res == FALSE) {
p = e;
e = e->next;
}
}
} while ( (e != NULL) && (res != TRUE) );
if (e == NULL) return;
if (e == *elt) *elt = e->next;
if (p) p->next = e->next;
free (e->nom);
free (e);
}
void remove_elt_n (Elt **elt, int i) {
Elt *e = *elt, *p = NULL;
int n = 0;
while ( (e != NULL) && (n != i) ) {
n++;
e = e->next;
}
if (e == NULL) return;
if (e == *elt) *elt = e->next;
if (p) p->next = e->next;
free (e->nom);
free (e);
}
int get_nb_elts (Elt *elt) {
Elt *e = elt;
int n = 0;
while (e != NULL) {
n++;
e = e->next;
}
return n;
}
char *elt_number (Elt *elt, int i) {
Elt *e = elt;
int n = 0;
while ( (e != NULL) && (n != i) ) {
n++;
e = e->next;
}
if (e == NULL) return NULL;
return e->nom;
}
int exist_elt (Elt *elt, const char *nom) {
Elt *e = elt;
int res = FALSE;
char *rt, *text ;
do {
if (e != NULL) {
if ((rt = strstr (e->nom, SEP)) != NULL) {
text = xmalloc (rt - e->nom + 2);
memset (text, 0, rt - e->nom + 2);
strncpy (text, e->nom, rt - e->nom);
#ifdef DEBUG
printf ("Comparaison (l) de [%s] avec [%s]\n", text, nom);
#endif
res = (strcmp (text, nom) == 0);
free (text);
} else {
#ifdef DEBUG
printf ("Comparaison (c) de [%s] avec [%s]\n", e->nom, nom);
#endif
res = (strcmp (e->nom, nom) == 0);
}
e = e->next;
}
} while ( (e != NULL) && (res != TRUE) );
return res;
}
char *get_elt (Elt *elt, const char *nom) {
Elt *e = elt;
int res = FALSE;
char *rt, *text ;
do {
if (e != NULL) {
if ((rt = strstr (e->nom, SEP)) != NULL) {
text = xmalloc (rt - e->nom + 2);
memset (text, 0, rt - e->nom + 2);
strncpy (text, e->nom, rt - e->nom);
#ifdef DEBUG
printf ("Comparaison (l) de [%s] avec [%s]\n", text, nom);
#endif
res = (strcmp (text, nom) == 0);
free (text);
} else {
#ifdef DEBUG
printf ("Comparaison (c) de [%s] avec [%s]\n", e->nom, nom);
#endif
res = (strcmp (e->nom, nom) == 0);
}
if (res == FALSE) e = e->next;
}
} while ( (e != NULL) && (res != TRUE) );
if (e == NULL) return NULL;
return e->nom;
}
void free_list (Elt **elt) {
Elt *e = *elt, *p;
while (e != NULL) {
p = e;
e = e->next;
free (p->nom);
free (p);
}
*elt = NULL;
}