From 068d599562888a36a50e5bbdeb8b70f83fa7c287 Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Tue, 7 Aug 2001 17:40:36 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'v_webmin_0_87'.

---
 perl-install/resize_fat/directory.pm | 79 ------------------------------------
 1 file changed, 79 deletions(-)
 delete mode 100644 perl-install/resize_fat/directory.pm

(limited to 'perl-install/resize_fat/directory.pm')

diff --git a/perl-install/resize_fat/directory.pm b/perl-install/resize_fat/directory.pm
deleted file mode 100644
index 1f2b1ede6..000000000
--- a/perl-install/resize_fat/directory.pm
+++ /dev/null
@@ -1,79 +0,0 @@
-package resize_fat::directory; # $Id$
-
-use diagnostics;
-use strict;
-
-use common;
-use resize_fat::dir_entry;
-use resize_fat::io;
-
-
-my $format = "a8 a3 C C C S7 I";
-my @fields = (
-    'name',
-    'extension',
-    'attributes',
-    'is_upper_case_name',
-    'creation_time_low',	#- milliseconds
-    'creation_time_high',
-    'creation_date',
-    'access_date',
-    'first_cluster_high',	#- for FAT32
-    'time',
-    'date',
-    'first_cluster',
-    'length',
-);
-my $psizeof_format = psizeof($format);
-
-1;
-
-sub entry_size { $psizeof_format }
-
-#- call `f' for each entry of the directory
-#- if f return true, then modification in the entry are taken back
-sub traverse($$$) {
-    my ($directory, $curr_dir_name, $f) = @_;
-
-    for (my $i = 0;; $i++) {
-	my $raw = \substr($directory, $i * $psizeof_format, $psizeof_format);
-
-	#- empty entry means end of directory
-	$$raw =~ /^\0*$/ and return $directory;
-
-	my $entry; @{$entry}{@fields} = unpack $format, $$raw;
-
-	&$f($curr_dir_name, $entry)
-	    and	$$raw = pack $format, @{$entry}{@fields};
-    }
-    $directory;
-}
-
-sub traverse_all($$) {
-    my ($fs, $f) = @_;
-
-    my $traverse_all; $traverse_all = sub {
-	my ($curr_dir_name, $entry) = @_;
-
-	&$f($curr_dir_name, $entry);
-
-        resize_fat::dir_entry::is_directory($entry)
-	    and traverse(resize_fat::io::read_file($fs, resize_fat::dir_entry::get_cluster($entry)), "$curr_dir_name/$entry->{name}", $traverse_all);
-
-	undef; #- no need to write back (cf traverse)
-    };
-
-    my $directory = $resize_fat::isFAT32 ?
-	resize_fat::io::read_file($fs, $fs->{fat32_root_dir_cluster}) :
-	resize_fat::io::read($fs, $fs->{root_dir_offset}, $fs->{root_dir_size});
-    traverse($directory, "", $traverse_all);
-    undef $traverse_all; #- circular reference is no good for perl's poor GC :(
-}
-
-
-#- function used by construct_dir_tree to translate the `cluster' fields in each
-#- directory entry
-sub remap($$) {
-    my ($fs, $directory) = @_;
-    traverse($directory, "", \&resize_fat::dir_entry::remap);
-}
-- 
cgit v1.2.1