anchor.diff:  %%
   %% %CopyrightBegin%
   %%
  -%% Copyright Ericsson AB 2006-2010. All Rights Reserved.
  -%%
  -%% See below for additional modifications by Ville Tuulos / Nokia Corporation
  +%% Copyright Ericsson AB 2006-2011. 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
  
positive.code:     Acc.
  
  %% for printing directory (t/1)
  raw_short_print_info_etc(#cd_file_header{}, FileName,
  			 _FileComment, _BExtraField, Acc) ->
      print_file_name(FileName),
      Acc;
  raw_short_print_info_etc(#eocd{} = EOCD, X, Comment, Y, Acc) ->
      raw_long_print_info_etc(EOCD, X, Comment, Y, Acc).
  
  print_file_name(FileName) ->
  
negative.code:     {ok, Files}.
  
  %% Iterate over all files in a zip archive
  -spec(foldl(Fun, Acc0, Archive) -> {ok, Acc1} | {error, Reason} when
        Fun :: fun((FileInArchive, GetInfo, GetBin, AccIn) -> AccOut),
        FileInArchive :: file:name(),
        GetInfo :: fun(() -> file:file_info()),
        GetBin :: fun(() -> binary()),
        Acc0 :: term(),
        Acc1 :: term(),
        AccIn :: term(),
        AccOut :: term(),
        Archive :: file:name() | {file:name(), binary()},
        Reason :: term()).
  
  foldl(Fun, Acc0, Archive) when is_function(Fun, 4) ->
      ZipFun =
  	fun({Name, GetInfo, GetBin}, A) ->
  