File: cat.ml

package info (click to toggle)
ocamlbuild 0.16.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,800 kB
  • sloc: ml: 9,081; makefile: 521; sh: 187
file content (13 lines) | stat: -rw-r--r-- 199 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 


let () =
  let cin = open_in Sys.argv.(1) in
  begin try
      while true do
        print_endline (input_line cin)
      done;
    with
    | End_of_file -> ()
    | _ -> ()
  end;
  close_in cin