/* Wpc (1996) */ /* */ /* Author : Marie Aimar */ /* File : file.c */ #include #include "generic.h" #include "list.h" #include "parser.h" #include "family.h" #include "file.h" extern int nb_gen ; extern void crossing_family(t_family); t_genlist list_of_families; /*-------------------------*/ FILE* open_file(char *filename,char *option) { FILE* newfile; newfile = fopen(filename,option);/* if it does'nt exist newinput = NULL */ return newfile; } void close_file(FILE* file) { fclose(file); } void new_file(FILE* newinput) { list_of_families = create_genlist(); read_file(newinput); close_file(newinput); } void new_file_gen(FILE* newinput) { read_file_gen(newinput); close_file(newinput); } void compute(FILE *newoutput) { /*all treatment for one file of genotype */ int cpt; new_result(); apply_to_all(list_of_families,init_residus); for (cpt=1; cpt <= nb_gen; cpt++) { fprintf(newoutput,"changement de gene %d \n",cpt); apply_to_all(list_of_families,next_gen); apply_to_all(list_of_families,compute_statistic); print_result(newoutput); } }