Discussion :

[ManusDei]

Bonjour,

je reprend un projet dans lequel j'ai ce genre de lignes :

Code :

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

let chan = Unix.out_channel_of_descr (Unix.openfile fName [Unix.O_WRONLY;Unix.O_TRUNC;Unix.O_CREAT] 0o644) in

sauf que je suis sous windows

Vers quel module je dois regarder ? Pervasives ? Et est-ce qu'il existe un équivalent au #ifdef __unix et #ifdef __win32 pour OCaml ?

Merci.

Edit : out_channel_of_descr est apparemment la seule méthode non portée de mon code.

[gasche]

Le module Unix marche aussi sous Windows, sauf certaines fonctions qui sont documentées dans le manuel:
documentation pour Unix

As-tu essayé ton code, et est-ce qu'il pose problème ?

Et sinon, pourquoi ne pas simplement utiliser open_out_bin et compagnie ?
documentation pour Pervasives

[SpiceGuid]

Ocaml 3.11.0 sous XP :

Code OCaml 3.11 :

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

1
2
3
4
 
# #load "Unix.cma";;
# Unix.out_channel_of_descr;;
- : Unix.file_descr -> out_channel = <fun>

La fonction existe sous Windows, alors quel est le problème, elle déclenche une exception ?

[ManusDei]

A la compilation, j'ai le message d'erreur suivant :

Code :

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

1
2
3
4
5
[ 89%] Linking OCaml executable orange
File "_none_", line 1, characters 0-1:
Error: Error while linking frontc.cma(Frontc):
Reference to undefined global `Unix'
mingw32-make[2]: *** [main/orange] Error 2

Donc pour l'instant impossible de tester.

[gasche]

Tu dois avoir un mauvais script de compilation. Tu as bien pensé à ajouter unix.cma ?
Que donne "ocamlfind ocamlc -package unix -o executable.exe -linkpkg ton_code.ml" ?

[ManusDei]

SpiceGuid : La fonction est indiquée comme pas portée dans la doc OCaml, mais effectivement elle marche.

Tu dois avoir un mauvais script de compilation. Tu as bien pensé à ajouter unix.cma ?
Que donne "ocamlfind ocamlc -package unix -o executable.exe -linkpkg ton_code.ml" ?

Je génère mon script avec CMake (ocamlfind n'est pas porté sous windows).

En fait j'ai trouvé, au début je ne linkais pas vers unix.cma, et ensuite je l'ai rajouté, mais pas au bon endroit (je le chargeais trop tard).

[gasche]

« La fonction est indiquée comme pas portée dans la doc OCaml, mais effectivement elle marche. »

Attention, si tu utilises Cygwin, tout est porté. Je me demande si ce n'est pas le cas dès que tu utilises mingw. Je ne sais pas exactement ce que désignent les "native Win32 ports", mais je suppose qu'il pourrait s'agir uniquement de la version compilée avec les compilateurs et la libc MS.

[ManusDei]

Je précise que je n'utilise pas cygwin, mais bien la version de minGW native de windows (et cygwin n'est pas installé).