Discussion :

[nicolas829]

Bonjour,

J'essaie de créer un programme dans lequel j'ai besoin de manipuler des fichiers. Or j'aimerais que le programmer caml et les fichiers en questions puissent êtres déplacés. J'aimerais donc pouvoir dire à caml de lire le fichier "fichier.txt" et faire en sorte qu'il choisisse celui situé dans le dossier contenant "programme.ml" (le programme exécuté)
J'ai essayé cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

let abc = open_in_bin "fichier.txt"

mais le programme recherche un fichier dans le dossier de wincaml (que j'utilise pour programmer) et non pas le même que celui du programme.

Je voulais donc savoir s'il existait une fonction permettant d'obtenir le chemin du dossier contenant le programme que caml exécute (par exemple pour c:\\mon dossier\\divers\\programme.ml, qui renverrait la chaine "c:\\mon dossier\\divers\\") ou bien sinon, un fonction pour que caml tente directement d'ouvrir le fichier trouvé dans le même dossier que le fichier .ml que l'on exécute.

Je vous remercie d'avance pour vos réponses.

[adtunum]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

let dir = (Filename.dirname (Sys.executable_name))

et ensuite tu utilises la fonciton Filename.concat pour concaténer le répertoire et le nom du fichier de manière portable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(Filename.concat dir filename)

PS: malgré tout cela ne fonctionnera pas si tu exécutes ton programme en mode interprété (comme "ocaml programme.ml") car Sys.executable_name retourne alors le nom de l'interpréteur, auquel cas tu peux utiliser Sys.argv.(0) à la place

[nicolas829]

oui, mais ça ne fonctionne pas.

La première commande renvoie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
# Sys.executable_name;;
- : string = "C:\\Program Files\\Objective Caml\\bin\\ocaml.exe"

Et pour la deuxième :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
# Sys.argv.(0);;
- : string = "C:\\Program Files\\Objective Caml\\bin\\ocaml"

Et non pas le répertoire contenant le fichier ml que j'envoie à caml.
Est-t-on obligé de compiler le fichier ml avant de pouvoir ouvrir un fichier contenu dans le même répertoire ?

[adtunum]

sous linux Sys.argv.(0) me renvoie le fichier .ml et non l'interpréteur, il s'agit donc d'une différence entre linux et ce que tu utillises

le mieux se serait sans doute que tu donnes le chemin complet vers tes fichiers, ou bien que tu gères une liste de répertoire où ton programme cherchera les fichiers

[adtunum]

oops en fait non, le code que tu nous donnes là est sous l'interpréteur interactif,
dans ce cas là c'est normal que Sys.argv.(0) renvoie l'exécutable de l'interpréteur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 $ ocaml
        Objective Caml version 3.11.1
 
# Sys.argv.(0) ;;
- : string = "/usr/bin/ocaml"

[nicolas829]

OK, personnellement je suis sous Windows xp.

Donc une fois que j'aurais compilé le programme, la commande me renverra ce qu'il faut ?
Si c'est le cas alors ça fera l'affaire. Pendant la programmation je définirais le chemin que j'utilise puis je remplacerais par Sys.executable_name juste avant de compiler.

[Cacophrene]

Bonjour,

Si c'est le cas alors ça fera l'affaire. Pendant la programmation je définirais le chemin que j'utilise puis je remplacerais par Sys.executable_name juste avant de compiler

Pour ne pas t'embêter tu as Sys.interactive qui peut t'être utile.

Cordialement,
Cacophrène

[nicolas829]

Pour ne pas t'embêter tu as Sys.interactive qui peut t'être utile.

Elle sert à quoi au juste cette commande ? Elle me renvoie un truc bizarre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sys.interactive;;
 
- : bool ref = {contents = true}

[Cacophrene]

Bonjour,

Merci de lire le manuel :

This reference is initially set to false in standalone programs and to true if the code is being executed under the interactive toplevel system ocaml.

La valeur est initialement false si tu es en mode compilé (ocamlc ou ocamlopt), et true si tu es en mode interactif (toplevel ocaml).

Cordialement,
Eddy

[nicolas829]

D'accord, ça sera parfait.
Je vous remercie tous les deux.