#use"entree.ml";; #use"sortie.ml";; #use"traitement.ml";; #use"programme.ml";; module Prog1 = (((Programme (Entree_a_la_main)) (Plus_longue_chaine_commune_sans_gap))( Sortie_affichage)) module Prog2 = (((Programme (Entree_a_la_main)) (Traitement_S_W)) (Sortie_fichier));; module Prog3 = (((Programme (Entree_swiss)) (Traitement_S_W)) (Sortie_affichage));; module Prog4 = (((Programme (Entree_swiss)) (Traitement_S_W)) (Sortie_fichier));; let principal= Printf.printf("quelle est la chaine que vous voulez comparer ?"); let query=read_line() in Printf.printf("type d'entree:\n"); Printf.printf("a la main->1\n"); Printf.printf("type swiss_prot->2\n"); let t_entree=read_line() in Printf.printf("type de sortie\n"); Printf.printf("a l'ecran->1\n"); Printf.printf("dans un fichier->2\n"); let t_sortie=read_line() in if (compare t_entree "2" == 0) then begin Printf.printf("nom du fichier en entree:"); let f_e=open_in (read_line()) in () end else let f_e=open_in "bidon" in if (compare t_sortie "2" == 0) then begin Printf.printf("nom du fichier en sortie:"); let f_s=open_out (read_line()) in () end else let f_s=open_out "bidon2" in if (compare t_entree "1" == 0) then begin if (compare t_sortie "1" == 0) then Prog1.prog f_e f_s query; if (compare t_sortie "2" == 0) then Prog2.prog f_e f_s query; end else if (compare t_entree "2" == 0) then begin if (compare t_sortie "1" == 0) then Prog3.prog f_e f_s query; if (compare t_sortie "2" == 0) then Prog4.prog f_e f_s query; end else Printf.printf("les valeurs entrees sont fausses."); close_in f_e; close_out f_s;;