/*--------------------------------------------------------------*/ /* Project Allen Number (1994 ) */ /* ----------------------------------- */ /* */ /* Author : Marie-Noelle Aimar */ /* Medical Computer Laboratory */ /* University of Bordeaux II */ /* */ /* */ /* */ /* File : file.c */ /* */ /*--------------------------------------------------------------*/ #include #include "generic.h" #include "list.h" #include "parser_gen.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 save_in_file(FILE* file, char *expression) { /* -- Require : only one output file is opened in the same time. */ fprintf(file,expression); } void new_file(FILE* newinput) { list_of_families = create_genlist(); read_file(newinput,error_in_parsing_file); close_file(newinput); } void new_file_gen(FILE* newinput) { read_file_gen(newinput,error_in_parsing_file); close_file(newinput); } void compute() { int cpt; new_result(); apply_to_all(list_of_families,init_residus); for (cpt=1; cpt <= nb_gen; cpt++) { printf("changement de gene %d \n",cpt); apply_to_all(list_of_families,next_gen); apply_to_all(list_of_families,compute_statistic); print_result(); } }