-module(mamut_parse_dir).

-export([parse_dir/1]).


%% Вызываем, собственно, вот эту самую функцию
parse_dir(PathToDir) -> 
    case filelib:is_dir(PathToDir) of
        false -> {error, not_a_dir};
        true -> 
            {Dir, parse_dirs(get_dirs(PathToDir)), get_files(PathToDir)}.
    end.

parse_dirs([]) ->    
    [];
parse_dirs([H|T]) -> 
    [H, get_files(H)] ++ [parse_dirs(T)].

%% Берем список поддиректорий, стырено здесь: http://schemecookbook.org/Erlang/FileWalkDirectoryTree
get_dirs(Path) ->
    P = filename:join(Path, "*"),
    lists:filter(
        fun(X) -> filelib:is_dir(X) end, 
        filelib:wildcard(P)).

%% Берем список файлов, творчески обработанная функчия сверху
%% Возвращаю кортеж {имя_файла, размер_файла}
get_files(Path) ->
    P = filename:join(Path, "*"),
    lists:map(fun(X) -> {X, filelib:file_size(X)} end,
        lists:filter(
            fun(X) -> filelib:is_regular(X) end, 
            filelib:wildcard(P))).

get_all(Path) ->
    {Dirs,Files}=lists:splitwith({filelib,is_dir},filelib:wildcard(filename:join(Path, "*"))),
    [Path|lists:map(fun(X)->{X, filelib:file_size(X)} end, Files)] ++ 
          lists:append(lists:map(fun(X)-> get_all(X) end,Dirs)).

  lists:splitwith(fun({_,_})->true ; (_)->false end, get_all(Path)).

parse_dirs([]) ->    
    [];
parse_dirs([H|T]) -> 
    [H, get_files(H)] ++ parse_dirs(get_dirs(H)) ++ [parse_dirs(T)].

D:\MAMUT\LITERATURE
+---Gaiman, Neil
|       coraline.zip
|       
\---Kluev, Evghenii
        mej dvuh stul'ev.htm

{[],
 ["D:/mamut/literature",
  "d:/mamut/literature/Gaiman, Neil",
  {"d:/mamut/literature/Gaiman, Neil/coraline.zip",467599},
  "d:/mamut/literature/Kluev, Evghenii",
  {"d:/mamut/literature/Kluev, Evghenii/mej dvuh stul'ev.htm",281435}]}

D:\DOWNLOADS
|   20050912hw.gif
|   7z423.exe
|   acdsee.exe
|   Alcohol120_trial_1_9_5_3105.exe
|   AMD.wmv
|   [еще много файлов]
|   
+---Flash
|       A_Cool_W-Darshan_-11130.zip
|       Fade_Bet-Adrian_H-10515.zip
|       Image_Sc-Masher-4657.zip
|       Mouse_Ro-Ergin_Z-11068.zip
|       Transiti-Armand_N-215.zip
|       
+---org.eclipse.cdt.sdk-3.0.1-win32.x86
|   \---eclipse
|       +---features
|       |   +---org.eclipse.cdt.sdk_3.0.1
|       |   |       eclipse_update_120.jpg
[еще много чего...]

{[],
 ["D:/downloads",
  {"d:/downloads/20050912hw.gif",1149913},
  {"d:/downloads/7z423.exe",1071555},
  {"d:/downloads/AMD.wmv",6115602},
    
    [скипнуто]
    
  {"d:/downloads/FFXI_Theme_Installer.exe",7559120},
  {"d:/downloads/FINAL.mpg",19205540},
  {"d:/downloads/Firefox Setup 1.5.exe",5225384},
  {"d:/downloads/Flash",0},
    
    [скипнуто]
    
  {"d:/downloads/org.eclipse.cdt.sdk-3.0.1-win32.x86",0},

parse_dir(PathToDir) -> 
    case filelib:is_dir(PathToDir) of
        false -> {error, not_a_dir};
        true ->  Dirs=get_dirs(PathToDir),  {dir,Dirs, get_files(Dirs)}.
    end.

get_dirs(Path) ->
    [Path|lists:append([get_dirs(X)|| X <- filelib:wildcard(Path++"/*"),filelib:is_dir(X)])].

get_files(Dirs) ->
    [{Y,filelib:file_size(Y)}|| Y <- lists:append([filelib:wildcard(X++"/*")||X <- Dirs])].

function xdir( path )
{
  function foreach(n, func)
  {
    func(n); // вызываем func для каждого node файловой системы.
    if( n.isdir ) 
      for(var sn in n.nodes) foreach( sn, func );
  }
  foreach( new FileSystem.Node(path), 
           function(n) { stdout.printf("%s,%d\n",n.path, n.size); } );
}
// поехали!
xdir("/");

get_files(Dirs) ->
    [{Y,filelib:file_size(Y)}|| Y <- lists:append([filelib:wildcard(X++"/*")||X <- Dirs])].

function xdir( path )
{
  function foreach(n, func)
  {
    func(n); // вызываем func для каждого node файловой системы.
        // а что за func и откуда берется? :)
    if( n.isdir ) 
      for(var sn in n.nodes) foreach( sn, func );
  }
  foreach( new FileSystem.Node(path), 
           function(n) { stdout.printf("%s,%d\n",n.path, n.size); } );
}
// поехали!
xdir("/");

M>get_files(Dirs) ->
M>    [{Y,filelib:file_size(Y)}|| Y <- lists:append([filelib:wildcard(X++"/*")||X <- Dirs])].
M>

M>Это захватит и директории тоже. Вдобавок список получается не очень хорошим — сначала идут все абсолютно директории и поддиректории, а потмо все файлы во всех поддиректориях

get_files(Dirs) ->
   [{Y,filelib:file_size(Y)}|| Y <- lists:append([filelib:wildcard(X++"/*")||X <- Dirs]),not filelib:is_dir(Y)].

    lists:filter(
        filelib:is_dir, 
        filelib:wildcard(P)).

    lists:filter(
        {filelib,is_dir}, 
        filelib:wildcard(P)).

start()->
    L1=filelib:fold_files(".","[a-zA-Z0-9_]*",true,fun(X,A)->[{X,filelib:file_size(X)}|A] end,[]),
    [io:fwrite("~p~n",[X])||X<-L1],
    ok.

> string:tokens("abc def a"++[1057,1058,1059,32,88]," ").
["abc","def",[97,1057,1058,1059],"X"]