module Sys Sys.command

Version imprimable

11/01/2009, 00h13
camlienne

module Sys Sys.command

bonjour,

j'ai un petit problème lorsque je fais

Code:

Sys.command "Fichier"

dans un fichier prog.ml

normalement je devrais pouvoir exécuter "Fichier"
que j'ai produit auparavant par ocamlc -o Fichier 1.cmo 2.cmo ......

mais là j'ai le message d'erreur:
"Fichier" n'est pas reconnu en tant que commande interne ou externe, un programme exécutable ou un fichier de commandes.
lorsque j'exécute ./prog Fichier

Quelqu'un pourrait-il m'aider? merci.
11/01/2009, 00h16
gasche

Au hasard t'as tenté Sys.command "./Fichier" ?

(Pas très portable ni très propre tout ça, entre nous)
11/01/2009, 00h21
camlienne

oui j'ai testé j'ai d'ailleurs commencé par là et j'ai reçu en retour "." n'est pas reconnu...
idem avec "/Fichier"
11/01/2009, 00h23
camlienne

en fait tout ce que je voulais c'est créer un exécutable qui prend en argument la partie du projet à exécuter "Partie1" ou "Partie2"
11/01/2009, 00h52
gasche

Pourquoi ne pas tout simplement faire deux exécutables, ou utiliser une autre méthode ?
11/01/2009, 01h57
alex_pi

Citation:

Envoyé par camlienne

en fait tout ce que je voulais c'est créer un exécutable qui prend en argument la partie du projet à exécuter "Partie1" ou "Partie2"

Tu fais un module Partie1 avec une fonction main ou run, idem pour le module Partie2, tout deux compilés avec "ocamlc -c", et tu lances l'un ou l'autre suivant le cas, non ?
11/01/2009, 12h35
camlienne

j'ai bien deux exécutables Partie1 et Partie2
et ce sera en effet plus simple de faire directement ./Partie1 et ./Partie2

seulement c'est un projet et dans l'énoncé on me demande
"un exécutable avec des arguments, permettant de choisir notamment quelle version du programme doit être exécutée"

je n'ai pas trouvé d'autre moyen que Sys.command mais il ne reconnait pas mes parties comme exécutables.
11/01/2009, 12h38
gasche

Compile les deux dans un même exécutable, avec pour chaque une fonction main() que tu appelles pour le lancer, et une fonction globale qui prend le choix en argument, l'inspecte et lance la fonction main() adaptée.
11/01/2009, 12h50
camlienne

hum euh t'aurais un exemple ?
parce que là je vois pas trop

Code:

1
2
(* Partie1.ml *)
let main1 () = (* ... *)

Code:

1
2
(* Partie2.ml *)
let main2 () = (* ... *)

Code:

1
2
3
4
5
6
(* On charge les modules Partie1 et Partie2 *)
 
let main choix = if (* choix vaut "Partie1", par exemple *)
                                then main1()
                                else (* on teste si ça vaut Partie2", si oui main2() *)
                                      (* sinon, on affiche l'aide, par exemple *)

Quelque chose de ce genre je suppose.

11/01/2009, 13h27
camlienne
ok merci j'ai bien fait
Code:

1 2 if v = "Partie1" then main1 else if v = "Collisions2" then main2
sauf que maintenant si je fais ./prog Partie1 il me fait main1 suivi de main2
comment ça se fait ?

voici le contenu exact de prog:

Code:

1
2
3
4
5
6
7
8
9
10
11
12

	Code:
	
123456789 open Partie1;;
open Collisions2;;
 
let main=
	let v =  Sys.argv.(1)
	in
	print_string "usage: ./projet [Partie1 | Collisions2]";
	if v = "Partie1" then main1
	else if v = "Collisions2" then main2

en fin de compte je viens de remarquer que quel que soit l'argument il me fait main1 suivi de main2

11/01/2009, 13h36
camlienne

ah et il me fait pas non plus mon print_string c bizarre
11/01/2009, 14h17
alex_pi

Il faut que main1 et main2 soient des fonction ! Là ce sont des valeurs, elles sont donc évaluées au chargement des modules Partie1 et Partie2.

dans Partie1.ml :

Code:

1
2
3
4
5
6
7
8
9
 
open Graphics
...
let main1 ()=
	open_graph " 800x600";
	clear_graph();
	set_window_title "Lapins";
	affiche_zones zones;
	anime_jeu (ensemble_initial ())

voici prog.ml:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open Graphics;;
open Partie1;;
open Collisions2;;
 
let choix s = 
	if s = "Partie1" then main1()
	else if s = "Collisions2" then main2()
	else print_string "usage: ./projet [Partie1 | Collisions2]"
;;
 
let choix=
	let v =  Sys.argv.(1)
	in choix v
;;
 
choix;;

la compilation se passe bien, mais à présent:
Fatal error: exception Graphics.Graphics_failure <"create_image : cannot create bitmap">