Merge branch 'hawk/escript-add-create-and-extract' into dev

* hawk/escript-add-create-and-extract:
  Add type info for record fields
  Remove the undocumented function escript:foldl/3
  Make reltool independent of the function escript:foldl/3
  Add functions to create and extract escripts
  Add function zip:foldl/3 to iterate over zip archives

OTP-8521 hawk/escript-add-create-and-extract

Added function zip:foldl/3 to iterate over zip archives.

Added functions to create and extract escripts. See escript:create/2 and
escript:extract/2.

The undocumented function escript:foldl/3 has been removed. The same
functionality can be achieved with the more flexible functions
escript:extract/2 and zip:foldl/3.

Record fields has been annotated with type info. Source files as been
adapted to fit within 80 chars and trailing whitespace hasd been removed.

1 files changed, 44 insertions, 17 deletions

diff --git a/lib/reltool/src/reltool_utils.erl b/lib/reltool/src/reltool_utils.erl
index 8d52ade9be..403fa574c5 100644
--- a/lib/reltool/src/reltool_utils.erl
+++ b/lib/reltool/src/reltool_utils.erl
@@ -1,19 +1,19 @@
 %%
 %% %CopyrightBegin%
-%% 
-%% Copyright Ericsson AB 2009. All Rights Reserved.
-%% 
+%%
+%% Copyright Ericsson AB 2009-2010. All Rights Reserved.
+%%
 %% The contents of this file are subject to the Erlang Public License,
 %% Version 1.1, (the "License"); you may not use this file except in
 %% compliance with the License. You should have received a copy of the
 %% Erlang Public License along with this software. If not, it can be
 %% retrieved online at http://www.erlang.org/.
-%% 
+%%
 %% Software distributed under the License is distributed on an "AS IS"
 %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
 %% the License for the specific language governing rights and limitations
 %% under the License.
-%% 
+%%
 %% %CopyrightEnd%
 
 -module(reltool_utils).
@@ -30,11 +30,11 @@ root_dir() ->
 
 erl_libs() ->
     case os:getenv("ERL_LIBS") of
-	false -> 
+	false ->
 	    [];
 	LibStr ->
 	    string:tokens(LibStr, ":;")
-    end.    
+    end.
 
 lib_dirs(Dir) ->
     case erl_prim_loader:list_dir(Dir) of
@@ -42,7 +42,7 @@ lib_dirs(Dir) ->
 	    [F || F <- Files,
 		  filelib:is_dir(filename:join([Dir, F]),
 				 erl_prim_loader)];
-	error -> 
+	error ->
 	    []
     end.
 
@@ -55,7 +55,7 @@ split_app_name(Name) ->
                     Elem >= $0, Elem =< $9 -> true;
                     true -> false
                 end
-        end, 
+        end,
     case lists:splitwith(Pred, lists:reverse(Name)) of
 	{Vsn, [$- | App]} ->
 	    {list_to_atom(lists:reverse(App)), lists:reverse(Vsn)};
@@ -119,7 +119,7 @@ default_rels() ->
 
 assign_image_list(ListCtrl) ->
     Art = wxImageList:new(16,16),
-    [wxImageList:add(Art, wxArtProvider:getBitmap(Image, [{size, {16,16}}])) 
+    [wxImageList:add(Art, wxArtProvider:getBitmap(Image, [{size, {16,16}}]))
      || Image <- ["wxART_ERROR",
 		  "wxART_WARNING",
                   "wxART_QUESTION",
@@ -206,7 +206,7 @@ split_app_dir(Dir) ->
     ParentDir = filename:dirname(Dir),
     Base = filename:basename(Dir),
     {Name, Vsn} = split_app_name(Base),
-    Vsn2 = 
+    Vsn2 =
 	try
 	    [list_to_integer(N) || N <- string:tokens(Vsn, ".")]
 	catch
@@ -276,7 +276,9 @@ get_selected_items(ListCtrl, PrevItem, Acc) ->
         ItemNo ->
 	    case wxListCtrl:getItemText(ListCtrl, ItemNo) of
 		Text when Text =/= ?MISSING_APP_TEXT ->
-		    get_selected_items(ListCtrl, ItemNo, [{ItemNo, Text} | Acc]);
+		    get_selected_items(ListCtrl,
+				       ItemNo,
+				       [{ItemNo, Text} | Acc]);
 		_Text ->
 		    get_selected_items(ListCtrl, ItemNo, Acc)
 	    end
@@ -306,7 +308,8 @@ select_items(ListCtrl, OldItems, NewItems) ->
 	    select_item(ListCtrl, NewItems);
 	ValidItems ->
 	    %% Some old selections are still valid. Select them again.
-	    lists:foreach(fun(Item) -> select_item(ListCtrl, [Item]) end, ValidItems)
+	    lists:foreach(fun(Item) -> select_item(ListCtrl, [Item]) end,
+			  ValidItems)
     end.
 
 select_item(ListCtrl, [{ItemNo, Text} | Items]) ->
@@ -339,7 +342,7 @@ print(_, _, _, _) ->
     ok.
 
 %% -define(SAFE(M,F,A), safe(M, F, A, ?MODULE, ?LINE)).
-%% 
+%%
 %% safe(M, F, A, Mod, Line) ->
 %%     case catch apply(M, F, A) of
 %%      {'EXIT', Reason} ->
@@ -356,7 +359,7 @@ return_first_error(Status, NewError) when is_list(NewError) ->
 	{error, OldError} ->
 	    {error, OldError}
     end.
-    
+
 add_warning(Status, Warning) ->
     case Status of
 	{ok, Warnings} ->
@@ -429,7 +432,8 @@ recursive_delete(Dir) ->
 	true ->
 	    case file:list_dir(Dir) of
 		{ok, Files} ->
-		    Fun = fun(F) -> recursive_delete(filename:join([Dir, F])) end,
+		    Fun =
+			fun(F) -> recursive_delete(filename:join([Dir, F])) end,
 		    lists:foreach(Fun, Files),
 		    delete(Dir, directory);
 		{error, enoent} ->
@@ -514,7 +518,9 @@ decode_regexps(Key, Regexps, _Old) when is_list(Regexps) ->
 do_decode_regexps(Key, [Regexp | Regexps], Acc) ->
     case catch re:compile(Regexp, []) of
         {ok, MP} ->
-            do_decode_regexps(Key, Regexps, [#regexp{source = Regexp, compiled = MP} | Acc]);
+            do_decode_regexps(Key,
+			      Regexps,
+			      [#regexp{source = Regexp, compiled = MP} | Acc]);
         _ ->
             Text = lists:flatten(io_lib:format("~p", [{Key, Regexp}])),
             throw({error, "Illegal option: " ++ Text})
@@ -532,6 +538,27 @@ default_val(Val, Default) ->
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
+escript_foldl(Fun, Acc, File) ->
+    case escript:extract(File, [compile_source]) of
+	{ok, [_Shebang, _Comment, _EmuArgs, Body]} ->
+	    case Body of
+		{source, BeamCode} ->
+		    GetInfo = fun() -> file:read_file_info(File) end,
+		    GetBin = fun() -> BeamCode end,
+		    {ok, Fun(".", GetInfo, GetBin, Acc)};
+		{beam, BeamCode} ->
+		    GetInfo = fun() -> file:read_file_info(File) end,
+		    GetBin = fun() -> BeamCode end,
+		    {ok, Fun(".", GetInfo, GetBin, Acc)};
+		{archive, ArchiveBin} ->
+		    zip:foldl(Fun, Acc, {File, ArchiveBin})
+	    end;
+	{error, Reason} ->
+	    {error, Reason}
+    end.
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
 call(Name, Msg) when is_atom(Name) ->
     call(whereis(Name), Msg);
 call(Pid, Msg) when is_pid(Pid) ->