Use IsExistingFileInPackageForHomalg

Author: zickgraf

CAP/PackageInfo.g

@@ -98,7 +98,7 @@ PackageDoc := rec(
 Dependencies := rec(
   GAP := ">= 4.9.1",
   NeededOtherPackages := [ [ "AutoDoc", ">= 2016.02.16" ],
-                           [ "ToolsForHomalg", ">= 2021.05-02" ],
+                           [ "ToolsForHomalg", ">= 2021.08-01" ],
                            [ "io", ">=0" ],
   ],
   SuggestedOtherPackages := [ [ "Browse", ">=0" ],

CAP/gap/LimitConvenience.gi

@@ -6,7 +6,7 @@
 
 InstallGlobalFunction( "CAP_INTERNAL_GENERATE_CONVENIENCE_METHODS_FOR_LIMITS",
   function ( package_name, method_name_record, limits )
-    local output_string, generate_universal_morphism_convenience, generate_functorial_convenience_method, number_of_diagram_arguments, functorial_record, filter_list, input_type, replaced_filter_list, replaced_filter_list_string, arguments_string, source_diagram_arguments_string, range_diagram_arguments_string, source_diagram_input_type, range_diagram_input_type, call_arguments_string, limit, existing_string, output_path;
+    local output_string, generate_universal_morphism_convenience, generate_functorial_convenience_method, number_of_diagram_arguments, functorial_record, filter_list, input_type, replaced_filter_list, replaced_filter_list_string, arguments_string, source_diagram_arguments_string, range_diagram_arguments_string, source_diagram_input_type, range_diagram_input_type, call_arguments_string, limit, output_path;
 
     output_string :=
 """# SPDX-License-Identifier: GPL-2.0-or-later
@@ -562,9 +562,7 @@ InstallGlobalFunction( "CAP_INTERNAL_GENERATE_CONVENIENCE_METHODS_FOR_LIMITS",
 
     od;
 
-    existing_string := ReadFileFromPackageForHomalg( package_name, "LimitConvenienceOutput.gi" );
-    
-    if output_string <> existing_string then
+    if not IsExistingFileInPackageForHomalg( package_name, "LimitConvenienceOutput.gi" ) or output_string <> ReadFileFromPackageForHomalg( package_name, "LimitConvenienceOutput.gi" ) then
 
         output_path := Filename( DirectoryTemporary( ), "LimitConvenienceOutput.gi" );
 

CompilerForCAP/gap/PrecompileCategory.gi

@@ -535,21 +535,11 @@ InstallGlobalFunction( "CapJitPrecompileCategory", function ( category_construct
 end );
 
 InstallGlobalFunction( "CapJitPrecompileCategoryAndCompareResult", function ( category_constructor, given_arguments, package_name, compiled_category_name )
-  local filepath, dirs, complete_path, old_file_content, new_file_content;
+  local filepath, old_file_content, new_file_content;
 
     filepath := Concatenation( "precompiled_categories/", compiled_category_name, ".gi" );
 
-    dirs := DirectoriesPackageLibrary( package_name, "gap" );
-    
-    if Length( dirs ) <> 1 then
-        
-        Error( Concatenation( "could not find gap directory of package ", package_name ) );
-        
-    fi;
-    
-    complete_path := Filename( dirs[1], filepath );
-    
-    if IsExistingFile( complete_path ) then
+    if IsExistingFileInPackageForHomalg( package_name, filepath ) then
 
         old_file_content := ReadFileFromPackageForHomalg( package_name, filepath );