[Ocaml] 터미널 커맨드로 입력 받기

make
./main.native basic.wat #[실행파일] [파일인자]

다음과 같이 파일을 실행시킬때 터미널로 파일 인자 값을 넘겨 주고 싶다.

 

let main() = 
  let print_code = ref false in
  let src = ref "" in
  let spec = [("-pp", Arg.Set print_code, "pretty print the input program")] in
  let usage = "Usage: run <options> <file>" in
  let _ = Arg.parse spec
              (fun
                 x ->
                   if Sys.file_exists x then src := x
                   else raise (Arg.Bad (x ^ ": No files given")))
              usage
  in prerr_endline !src

다음 코드를 main 에 넣으면 src 가 해당 파일 인자 (basic.wat)로 들어간것을 확인할 수 있다.

터미널로 파일 인자받기.zip

0.70MB