+ mv_end ();
+
+ current_stat_info.stat.st_size = 0; /* For skip_member() and friends
+ to work correctly */
+ current_stat_info.dumpdir = archive_dir;
+}
+
+
+/* Examine the directories under directory_name and delete any
+ files that were not there at the time of the back-up. */
+void
+purge_directory (char const *directory_name)
+{
+ char *current_dir;
+ char *cur, *arc;
+
+ if (!current_stat_info.dumpdir)
+ {
+ skip_member ();
+ return;
+ }
+
+ current_dir = savedir (directory_name);
+
+ if (!current_dir)
+ {
+ /* The directory doesn't exist now. It'll be created. In any
+ case, we don't have to delete any files out of it. */
+
+ skip_member ();
+ return;
+ }
+