Discussion :

[cladsam]

Bonjour, mon soucis est de lire des images à partir de fichiers PPM et les afficher.
Oublions d'abord que je ne sais pas comment manipuler / afficher une image, que j'ignore coment ouvrir et lire un fichier et disons que j'essaye quand meme et voici un premier problème (merci de pas trop rire) :

j'essaye dans un premier temps de lire les lignes d'un fichier :

Ceci fonctionne :

Code caml :

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

1
2
3
 let flux = open_in "C:\ocaml\machin.txt";;
 print_string read_line flux;;
 close_in flux;;

mais pas ceci :

Code caml :

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

1
2
3
let flux = open_in "c:\ocaml\machin.txt" in
 print_string read_line flux;;
close_in flux;;

Pourriez-vous m'expliquer pourquoi ?

[Jedai]

mais pas ceci :

Code caml :

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

1
2
3
let flux = open_in "c:\ocaml\machin.txt" in
 print_string read_line flux;;
close_in flux;;

Pourriez-vous m'expliquer pourquoi ?

Si je rajoute des parenthèses tu verras peut-être mieux :

Code ocaml :

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

1
2
3
4
5
(
let flux = open_in "c:\ocaml\machin.txt" 
    in print_string read_line flux;;
)
close_in flux;;

flux n'est pas défini dans la dernière ligne...
Ce que tu veux c'est plutôt cela :

Code caml :

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

1
2
3
4
5
let flux = open_in "c:\\ocaml\\machin.txt" 
in begin
 print_string (input_line flux);
 close_in flux;
end

J'en profite pour corriger un certain nombre d'autres erreurs (peut-être due au copier coller, si ta première tentative marchait).

--
Jedaï

[cladsam]

Merci beaucoup, la je crois avoir gagné le boulet d'or 2007
par contre je me permets encore 3 petites questions parcequ'elle vont bien dans un post sur la lecture de fichiers et que cela m'intrigue :
- n'existe t'il pas en Ocaml de fonctions pour ouvrir un Fil Explorer pour choisir le nom de fichier ?
- Pourquoi faut-il mettre des \\ au lieu des \ que du reste il accepte mes a coup de Warning ... je trouve cela contraignant, dotant plus si l'utilisateur doit saisir la localisation du fichier
- Au cas ou la reponse a la première question est Non, existe t'il des moyens de connaitre le contenu d'un repertoire ? tester l'existence d'un fichier etc ...
J'ai bien vu un module Filename mais il parlent de commdandes Unix et je suis sous Windows

[Jedai]

Merci beaucoup, la je crois avoir gagné le boulet d'or 2007
par contre je me permets encore 3 petites questions parcequ'elle vont bien dans un post sur la lecture de fichiers et que cela m'intrigue :
- n'existe t'il pas en Ocaml de fonctions pour ouvrir un Fil Explorer pour choisir le nom de fichier ?
- Pourquoi faut-il mettre des \\ au lieu des \ que du reste il accepte mes a coup de Warning ... je trouve cela contraignant, dotant plus si l'utilisateur doit saisir la localisation du fichier
- Au cas ou la reponse a la première question est Non, existe t'il des moyens de connaitre le contenu d'un repertoire ? tester l'existence d'un fichier etc ...
J'ai bien vu un module Filename mais il parlent de commdandes Unix et je suis sous Windows

La prochaine fois numérote tes questions, c'est plus facile pour répondre.

1. Tk.getOpenFile ou Tk.getSaveFile fait ça apparemment
2. les \\ sont parce que les chaînes de caractères littérales en OCaml te permettent comme dans les 4/5èmes des langages d'utiliser des suites de symboles spéciales pour écrire des caractères de contrôle (exemple : \n pour une nouvelle ligne). Donc lorsqu'il y a un \ dans une chaîne, avec un caractère qui ne fait pas partie de ceux pour lesquels la séquence a un sens, il y a une ambiguïté : s'agit-il d'une faute de frappe, ou veux-tu réellement un \ dans ta chaîne ? Normalement si tu veux un \, il faut que tu écrive \\, de façon que \\n ne soit pas mal interprété. Ne t'inquiète pas, ceci ne vaut que pour les chaînes écrites en toute lettre dans le code source, les chaînes récupérées à partir de l'extérieur ne sont pas soumis à une telle interprétation, et si quelqu'un écrit \n sur l'entrée standard, cela reste \n dans la chaîne.
3. Les commandes "Unix" sont en réalité plutôt des commandes POSIX, c'est à dire un standard pour les OS, un ensemble de fonctions que tout OS devrait fournir... Malheureusement Microsoft n'a jamais fait grand cas des standards, et les windows ne sont donc guère compatible POSIX (la situation s'améliore). Néanmoins la plupart des appels POSIX peuvent être plus ou moins émulés sous Windows, ce qui fait que la plupart des commandes de ce module fonctionnera probablement, sinon ce sera spécifié dans la doc.

--
Jedaï

[gasche]

Plutôt qu'Unix, utilise Sys (et Filename pour les manipulations des noms des répertoires/fichiers, effectivement).

[InOCamlWeTrust]

Exact : il vaut miex qure les débutants ne touchent pas aux fonctions de la librairie Unix... d'ailleurs, ça m'étonnerait qu'ils comprennent !

Toute la librairie Unix fonctionne sous Windows, à l'exception notable près de la primitive fork et des quelques autres listées dans la documentation.

Pour ce qui est de POSIX / Windows, il faut noter qu'heureusement depuis quelques années Windows implante une partie de POSIX (en fait, depuis Windows NT)... mais je continue tout de même de penser que Windows = caca...

Pour ce qui est des fonctions Tk.getOpenFile et Tk.getSaveFile, il faut dire que leur utilisation se fait avec labltk, dont l'utilisation n'est pas vraiment conseillée aux débutants, et encore plus aux personnes ne connaissent rien à Tcl/Tk.

[InOCamlWeTrust]

- existe t'il des moyens de connaitre le contenu d'un repertoire ? tester l'existence d'un fichier etc ...

J'ai pas envie de lancer de polémique, et je te crois, mais ce genre de commentaire (et d'autres) me paraît troublant pour quelqu'un qui dit ne pas avoir de soucis en programmation système.

[cladsam]

je vais le répéter ... je parle en Ocaml, langage qui m'est imposé et auquel je n'ai jamais touché au préalable, ensuite que tu me crois ou non je pense pas vraiment avoir à me justifier de quoi que soit

[gorgonite]

stop, on ne se dispute pas...

contenu d'un repertoire

Sys.readdir : string -> string array

tester l'existence d'un fichier

Sys.file_exists : string -> bool


plus de détails : http://caml.inria.fr/pub/docs/manual...ibref/Sys.html