私は非常に単純な問題を抱えていると思いますが、何が問題なのかを理解する方法はありません。ファイルを開き、ファイルが存在しない場合やその他の場合にカスタム メッセージで失敗しようとします。
ここに私のコード(フランス語のコメントで申し訳ありません):
if (argc = 1) then
aide ()
else
(* Si plus d'un argument, on récupère le type *)
if argc >= 2 then
let stage = int_of_string (Sys.argv.(1)) in
if stage != 0 && stage != 1 then
aide ()
else
()
else
()
;
(* Si plus de deux arguments, on récupère aussi l'entrée *)
if argc >= 3 then
let filename = Sys.argv.(2) in
let input =
try
open_in filename
with _ -> failwith ("Impossible d'ouvrir le fichier " ^ filename)
else
()
;
;;
with キーワードに構文エラーがあります。誰かがアイデアを持っていますか?ありがとう。