anchor.diff:      ?INFO_MSG("is it erts, binary, generic, unbuilt, or edoc ~p~n", [PackageDir]),
       val_edoc(PackageDir).
   
  -val_edoc(PackageDir) ->
  -    case is_package_edoc(PackageDir) of
  -	true ->
  -	    {ok, edoc};
  -	false ->
  -	    val_erts(PackageDir)
  -    end.
  -
  -val_erts(PackageDir) ->
  -    case is_package_erts(PackageDir) of
  -	true ->
  -	    {ok, erts};
  -	false -> 
  -	    val_app(PackageDir)
  -    end.
  -
  -val_app(PackageDir) ->
  -    case is_package_an_app(PackageDir) of
  -	true ->
  -	    case is_package_an_unbuilt_app(PackageDir) of
  -		true ->
  -		    {ok, unbuilt};
  -		false ->
  -		    case is_package_a_binary_app(PackageDir) of
  -			true  -> {ok, binary};
  -			false -> {ok, generic}
  -		    end
  -	    end;
  -	false ->
  -	    val_release(PackageDir)
  -    end.
  -
  -val_release(PackageDir) ->
  -    case is_package_a_release(PackageDir) of
  -	true  -> {ok, release};
  -	false -> {error, badly_formatted_or_missing_package}
  -    end.
  -
  +%%--------------------------------------------------------------------
  +%% @doc boolean function to indicate if the package is of the type 
  +%%      in question.
  +%% @spec (PackageDir) -> {ok, Type} | {error, Reason}
  +%% where
  +%%  Type = binary | generic | unbuilt | release | erts | docs
  +%% @end
  +%%--------------------------------------------------------------------
   is_package_edoc(PackageDir) ->
       lists:all(fun(F) -> F(PackageDir) end,
   	      [
  
positive.code: 	    {error, no_categories}
      end.
  	    
  
  %%--------------------------------------------------------------------
  %% @doc Make sure an application contains all the source files that the .app files suggests it does.
  
negative.code:         end
      ]).
  		
  %%--------------------------------------------------------------------
  %% @doc boolean function to indicate if the package is of the type 
  %%      in question.
  %% @spec (PackageDir) -> {ok, Type} | {error, Reason}
  %% where
  %%  Type = binary | generic | unbuilt | release | erts | docs
  %% @end
  %%--------------------------------------------------------------------
  is_package_a_release(PackageDir) ->
      {well_formed_release_structure, true} == well_formed_release_structure(PackageDir).
  
  %%--------------------------------------------------------------------
  %% @doc determine if a signature file supplied is a valid one.
  