#include <stdio.h>
#include <string.h>
#include <stddef.h>
#include <stdlib.h>
#define MAXS1 30
#define MAXS2 50
typedef struct {
int codice;
char nome[MAXS2];
char categoria[MAXS1];
char provenienza[MAXS1];
int scorta;
float costo;
} TPprodotto;
typedef struct TPprodtemp{
int codice;
char nome[MAXS2];
char categoria[MAXS1];
char provenienza[MAXS1];
int scorta;
float costo;
struct TPprodtemp *next;
} TPprodmag;
FILE *fp;
TPprodmag *magazzino, *IT, *ITprev;
void lettura(FILE *fp);
void inserimento(FILE *fp);
void stampa(TPprodmag *magazzino);
void eliminazione(FILE *fp);
void memorizzazione(FILE *fp);
void errore();
void libera_memoria(TPprodmag *magazzino);
int main(int argc, char *argv[]){
lettura(fp);
puts("fun 1");
inserimento(fp);
puts("fun 2");
stampa(magazzino);
puts("fun 3");
eliminazione(fp);
puts("fun 4");
stampa(magazzino);
puts("fun 5");
memorizzazione(fp);
puts("fun 6");
errore();
puts("fun 7");
}
void lettura(FILE *fp){
TPprodotto prodotto;
int n=1;
if((fp=fopen("magazzino.dat", "rb+"))==NULL){
puts(" Impossibile aprire il file");
errore();
}
while(n==1){
//allocazione della memoria per ogni prodotto
if((IT=malloc(sizeof(TPprodmag)))==NULL){
puts(" Impossibile allocare memoria");
errore();
}
memset(IT, 0, sizeof(TPprodmag));
//lettura dei prodotti dal file
n=fread(&prodotto, sizeof(TPprodotto), 1,fp);
//stampa dei prodotti caricati
printf(" Codice:\t\t\t%d\n", prodotto.codice);
printf(" Nome:\t\t\t\t%s\n", prodotto.nome);
printf(" Categoria:\t\t\t%s\n", prodotto.categoria);
printf(" Provenienza:\t\t\t%s\n", prodotto.provenienza);
printf(" Scorta:\t\t\t%d\n", prodotto.scorta);
printf(" Costo:\t\t\t\t%.2f\n\n", prodotto.costo);
//se IT è a NULL non ho elementi nella lista quindi
//lo prendo come testa(*magazzino) della lista
if(IT==NULL){
magazzino=IT;
}
//copia dei prodotti nella struttura dinamica
IT->codice=prodotto.codice;
strcpy(IT->nome, prodotto.nome);
strcpy(IT->categoria, prodotto.categoria);
strcpy(IT->provenienza, prodotto.provenienza);
IT->scorta=prodotto.scorta;
IT->costo=prodotto.costo;
//inserimento in coda
ITprev->next=IT;
ITprev=IT;
}
fclose(fp);
}
void inserimento(FILE *fp){
TPprodotto prodotto;
int n=1;
memset(IT, 0, sizeof(TPprodmag));
memset(ITprev, 0, sizeof(TPprodmag));
//lettura da file dei nuovi prodotti
if((fp=fopen("articoliex.dat", "rb"))==NULL){
puts(" Impossibile aprire il file");
errore();
}
while(n==1){
n=fread(&prodotto.codice, sizeof(int), 1, fp);
if(n!=1){
puts(" Errore di lettura 1");
errore();
}
IT=magazzino;
//finchè non si trova un codice uguale o non si è arrivati
//a fondo lista
while(prodotto.codice!=IT->codice || IT!=NULL){
ITprev=IT;
IT=IT->next;
}
//aggiornamento prodotto
if(IT!=NULL){
n=fread(&prodotto.scorta, sizeof(int), 1, fp);
if(n!=1){
puts(" Errore di lettura 5");
errore();
}
IT->scorta=prodotto.scorta;
}
//nuovo prodotto
else{
n=fread(&prodotto, sizeof(TPprodotto), 1, fp);
IT->codice=prodotto.codice;
strcpy(IT->nome, prodotto.nome);
strcpy(IT->categoria, prodotto.categoria);
strcpy(IT->provenienza, prodotto.provenienza);
IT->scorta=prodotto.scorta;
IT->costo=prodotto.costo;
//inserimento in coda
ITprev->next=IT;
}
}
fclose(fp);
}
void stampa(TPprodmag *magazzino){
memset(IT, 0, sizeof(TPprodmag));
memset(ITprev, 0, sizeof(TPprodmag));
//stampa dei prodotti a magazzino
IT=magazzino;
while(IT!=NULL){
printf(" Codice:\t\t\t%d\n", IT->codice);
printf(" Nome:\t\t\t%s\n", IT->nome);
printf(" Categoria:\t\t\t%s\n", IT->categoria);
printf(" Provenienza:\t\t\t%s\n", IT->provenienza);
printf(" Scorta:\t\t\t%d\n", IT->scorta);
printf(" Costo:\t\t\t%.2f\n", IT->costo);
printf("\n\n");
ITprev=IT;
IT=IT->next;
}
}
void eliminazione(FILE *fp){
memset(IT, 0, sizeof(TPprodmag));
memset(ITprev, 0, sizeof(TPprodmag));
if((fp=fopen("magazzino.dat", "rb+"))==NULL){
puts(" Impossibile aprire il file");
errore();
}
IT=magazzino;
while(IT!=NULL || IT->codice!=985){
ITprev=IT;
IT=IT->next;
}
ITprev->next=IT->next;
free(IT);
IT=magazzino;
while(IT!=NULL || IT->codice!=1015){
ITprev=IT;
IT=IT->next;
}
ITprev->next=IT->next;
free(IT);
IT=magazzino;
while(IT!=NULL || IT->codice!=1150){
ITprev=IT;
IT=IT->next;
}
ITprev->next=IT->next;
free(IT);
fclose(fp);
}
void memorizzazione(FILE *fp){
TPprodotto prodotto;
int n=1;
memset(IT, 0, sizeof(TPprodmag));
if((fp=fopen("magazzino_aggiornato.dat", "wb"))==NULL){
puts(" Impossibile allocare memoria");
errore();
}
IT=magazzino;
while(n!=0){
prodotto.codice=IT->codice;
n=fwrite(&prodotto.codice, sizeof(int), 1, fp);
if(n!=1){
puts(" Errore di scrittura 1");
errore();
}
strcpy(prodotto.nome, IT->nome);
n=fwrite(prodotto.nome, sizeof(char)*MAXS2, 1, fp);
if(n!=1){
puts(" Errore di scrittura 2");
errore();
}
strcpy(prodotto.categoria, IT->categoria);
n=fwrite(prodotto.categoria, sizeof(char)*MAXS1, 1, fp);
if(n!=1){
puts(" Errore di scrittura 3");
errore();
}
strcpy(prodotto.provenienza, IT->provenienza);
n=fwrite(prodotto.provenienza, sizeof(char)*MAXS1, 1, fp);
if(n!=1){
puts(" Errore di scrittura 4");
errore();
}
prodotto.scorta=IT->scorta;
n=fwrite(&prodotto.scorta, sizeof(int), 1, fp);
if(n!=1){
puts(" Errore di scrittura 5");
errore();
}
prodotto.costo=IT->costo;
n=fwrite(&prodotto.costo, sizeof(float), 1, fp);
if(n!=1){
puts(" Errore di scrittura 6");
errore();
}
IT=IT->next;
}
fclose(fp);
}
void libera_memoria(TPprodmag *magazzino){
memset(IT, 0, sizeof(TPprodmag));
memset(ITprev, 0, sizeof(TPprodmag));
IT=magazzino;
while(IT!=NULL){
ITprev=IT;
IT=IT->next;
free(ITprev);
}
}
void errore(){
puts("ERROR 1");
libera_memoria(magazzino);
puts("ERROR 2");
fclose(fp);
puts("ERROR 3");
exit;
}
