erlang 导入库脚本

erlang 导入库时要copy 还要写配置文件，现在写了一个脚本来实现这个功能。
调用
filetest( "/home/yangzm/erl/ej/","/opt/erlang/lib/erlang/lib" ).
会把ebin 及依赖的ebin都 copy到目标，并在~/.erlang 中添加路径。

代码如下：
%///
-module(b).
-author("yangzm").

-compile(export_all).

format(Format, Args)->
  lists:flatten(io_lib:format(Format,Args)).

make_dir_list( Dir )->
   R = filename:split( Dir ),
   R1 = tl( R ),
   Se = lists:seq( 1, length( R )-1 ),

   lists:foreach(
     fun( X )->
       Rt = lists:sublist( R1, X ),
       Rd = string:concat( "/", string:join( Rt, "/") ),

       % 文件夹是否存在
       S = filelib:is_dir( Rd ),
       if
          S =:= false ->
           file:make_dir(Rd);
          true->
            ok
       end
     end,
   Se ),

   ok.

copyDir(FromDir,TarDir)->
  %%获取当前文件夹的所有文件列表(包括子文件夹)
  {ok,AllFile} = file:list_dir_all(FromDir),
  %%创建目标文件夹
  %file:make_dir(TarDir),
  make_dir_list( TarDir ),
  %%尾递归遍历所有文件
  loopCopy(AllFile,FromDir,TarDir).

loopCopy(AllFile,FromDir,TarDir) ->
  case AllFile of
    [] ->
      ok;
    _ ->
      %%每次拿第一个文件  One
      [One|Other]=AllFile,
      Path=FromDir++"/"++One,
      Tar=TarDir++"/"++One,
      %%判断当前文件是否是文件夹
      IsDir= filelib:is_dir(Path),

      %%if写法  所有判断的可能写在前面  true写在后面
      if IsDir =:= false->
        %%如果当前是文件  则拷贝到目标路径
        file:copy(Path, Tar);
      %%if 的默认值
        true->
          %%如果当前是文件夹 在目标路径创建文件夹  并拷贝当前文件夹
          file:make_dir(Tar),
          copyDir(Path,Tar)
      end,

      %%递归第一个文件后面的文件
      loopCopy(Other,FromDir,TarDir)
  end.

copyitems(Source, Target, L3, L4)->
  Out = L3 ++ L4,
  lists:foreach(
    fun(X)->
      error_logger:info_msg("~p~n",[X]),
      IsDir= filelib:is_dir( X ),
      if IsDir =:= true ->
        Tail = filename:basename( Source ),
        Pos = string:rstr( X, Tail ),
        Pos2 = string:len(X) - Pos + 1,
        Ri = string:right( X, Pos2 ),
        copyDir( X, lists:concat([Target,"/", Ri] ) ),
        % 写入配置文件
        {ok,[[Home]]} = init:get_argument(home),
        Sconfig = string:concat( Home, "/.erlang"),
        Con = lists:concat([Target,"/", Ri] ),
        Sr = format( "\ncode:add_pathz(\"~s\").",[Con]),
        case file:open( Sconfig, [read,binary,raw]) of
          {ok,S}->
            Size = filelib:file_size( Sconfig ),
            {ok, Read} = file:pread( S, 0, Size ),
            Sread = format("~s",[Read]),
            file:close(S),
            Swrite = string:concat( Sread, Sr ),
            {ok,W} = file:open(Sconfig,[raw,write,binary]),
            file:pwrite( W, 0, Swrite ),
            file:close(W),
            ok
        end
      end
    end,
    Out).

filetest( Source, Target )->
    {ok,Dir} = file:list_dir_all( Source ),

    Ets = ets:new(abc,[duplicate_bag]),
    case lists:member( "ebin", Dir ) of
      true ->
        St = lists:concat( [Source, "ebin"] ),
        ets:insert(Ets,{St})
    end,

case lists:member( "priv", Dir ) of
  true->
    St2 = lists:concat( [Source, "priv"] ),
    ets:insert(Ets,{St2})
end,

case lists:member( "deps", Dir ) of
  true ->
    St2 = lists:concat( [Source, "deps"] ),

    {ok,Dir2} = file:list_dir_all( St2 ),
    L2 = lists:map( fun( X )-> lists:concat( [X, "/ebin"] ) end, Dir2 ),
    L4 = lists:map( fun( X )-> lists:concat( [St2,"/", X] ) end, L2 ),

    L3 = lists:map( fun( {X} )-> X end, ets:tab2list( Ets ) ),
    copyitems(Source,Target,L3,L4),
    ok;
  false ->
    L3 = lists:map( fun( {X} )-> X end, ets:tab2list( Ets ) ),
    copyitems(Source,Target,L3,[])
  end,

io:format("fdas").