swish/commit

New upstream files

diff --git a/lib/swish/gitty_driver_files.pl b/lib/swish/gitty_driver_files.pl
index 42f7450..196753f 100644
--- a/lib/swish/gitty_driver_files.pl
+++ b/lib/swish/gitty_driver_files.pl
@@ -109,6 +109,9 @@ to rounding the small objects to disk allocation units.
     attached_packs/1,
     attached_pack/2.
 
+:- multifile
+    gitty:check_object/4.
+
 % enable/disable syncing remote servers running on  the same file store.
 % This facility requires shared access to files and thus doesn't work on
 % Windows.
diff --git a/lib/swish/storage.pl b/lib/swish/storage.pl
index 77cabe7..3d6e1bb 100644
--- a/lib/swish/storage.pl
+++ b/lib/swish/storage.pl
@@ -637,6 +637,10 @@ storage_fsck :-
 %	`files` driver. For database drivers  this   is  supposed  to be
 %	handled by the database.
 
+:- multifile
+	gitty_driver_files:repack_objects/2,
+	gitty_driver_files:unpack_packs/1.
+
 storage_repack :-
 	storage_repack([]).
 storage_repack(Options) :-
@@ -646,6 +650,12 @@ storage_repack(Options) :-
 	;   print_message(informational, gitty(norepack(driver)))
 	).
 
+%!	storage_unpack
+%
+%	Unpack all packed objects of the  store. Currently only supports
+%	the `files` driver. For database drivers  this is supposed to be
+%	handled by the database.
+
 storage_unpack :-
 	open_gittystore(Dir),
 	(   gitty_driver(Dir, files)