ols simple directory list

1 files changed, 25 insertions, 0 deletions

diff --git a/ols/ols.ml b/ols/ols.ml
index e69de29..96f9847 100644
--- a/ols/ols.ml
+++ b/ols/ols.ml
@@ -0,0 +1,25 @@
+open Arg
+open Unix
+open Scanf
+open Printf
+
+let main dir = 
+    let _ = Printf.printf "list directory %s" dir in
+    let dirfd = opendir dir in
+    try
+        while true do 
+            let fname = readdir dirfd in
+            Printf.printf "%s\n" fname
+        done
+    with End_of_file -> closedir dirfd
+
+
+let num = Array.length Sys.argv
+let _ = if num == 2 then
+    begin
+    (*Printf.printf "%s\n" Sys.argv.(1) *)
+    main Sys.argv.(1)
+    end
+    else
+    main "."
+