let ls dirname =
let _ = dbug_print ("Listing directory : "^dirname)
in
let real_dirname = solve_dirname dirname
in
let _ = dbug_print ("Real dirname directory : "^real_dirname)
in
let array_dir = Sys.readdir real_dirname
in
let _ = dbug_print ("Directory listed")
in
let list_dir = Array.to_list array_dir
in
let _ = dbug_print_list "Directory listing" list_dir
in
List.map (fun x ->
dbug_print ("Concatening "^dirname^" with "^x);
concat dirname x
) list_dir