package resize_fat::any; # $Id$

use diagnostics;
use strict;
use vars qw($FREE $FILE $DIRECTORY $UNMOVEABLE);

use common;
use resize_fat::fat;
use resize_fat::directory;
use resize_fat::dir_entry;
use resize_fat::c_rewritten;


$FREE       = 0;
$FILE       = 1;
$DIRECTORY  = 2;
$UNMOVEABLE = 8;


1;


#- returns the number of clusters for a given filesystem type
sub min_cluster_count($) {
    my ($fs) = @_;
    (1 << ${{ FAT16 => 12, FAT32 => 12 }}{$fs->{fs_type}}) - 12;
}
sub max_cluster_count($) {
    my ($fs) = @_;
    (1 << ${{ FAT16 => 16, FAT32 => 28 }}{$fs->{fs_type}}) - 11;
}



#- patch to get the function last_used that return the last used cluster of a fs.
sub last_used($) {
    my ($fs) = @_;

    #- count in negative so absolute value count back to 2.
    foreach (-($fs->{nb_clusters}+1)..-2) { return -$_ if resize_fat::c_rewritten::flag(-$_) }
    die "any: empty FAT table of $fs->{nb_clusters} clusters";
}
#- patch to get the function last_unmoveable that return the last unmoveable cluster of a fs.
sub last_unmoveable($) {
    my ($fs) = @_;

    #- count in negative so absolute value count back to 2.
    foreach (-($fs->{nb_clusters}+1)..-2) { return -$_ if 0x8 & resize_fat::c_rewritten::flag(-$_) }

    #- Oh at this point there are no unmoveable blocks!
    2;
}

#- calculates the minimum size of a partition, in physical sectors
sub min_size($) {
    my ($fs) = @_;
    my $count = $fs->{clusters}{count};

    #- directories are both in `used' and `dirs', so are counted twice
    #- It's done on purpose since we're moving all directories. So at the worse
    #- moment, 2 directories are there, but that way nothing wrong can happen :)
    my $min_cluster_count = max(2 + $count->{used} + $count->{bad} + $count->{dirs}, min_cluster_count($fs));
    $min_cluster_count = max($min_cluster_count, last_unmoveable($fs));

    my $size = $min_cluster_count * divide($fs->{cluster_size}, $SECTORSIZE) +
      divide($fs->{cluster_offset}, $SECTORSIZE) +
    64*1024*1024 / $SECTORSIZE; #- help with such more sectors (ie 64Mb).
    
    #- help zindozs again with 512Mb+ at least else partition is ignored.
    if ($resize_fat::isFAT32) {
        $size = max($size, 524*1024*1024 / $SECTORSIZE);
    }
    $size;

}
#- calculates the maximum size of a partition, in physical sectors
sub max_size($) {
    my ($fs) = @_;

    my $max_cluster_count = min($fs->{nb_fat_entries} - 2, max_cluster_count($fs));

    $max_cluster_count * divide($fs->{cluster_size}, $SECTORSIZE) +
	divide($fs->{cluster_offset}, $SECTORSIZE);
}
#- calculates used size in order to avoid modifying anything.
sub used_size($) {
    my ($fs) = @_;

    my $used_cluster_count = max(last_used($fs), min_cluster_count($fs));

    $used_cluster_count * divide($fs->{cluster_size}, $SECTORSIZE) +
	divide($fs->{cluster_offset}, $SECTORSIZE);
}

#- fills in fat_flag_map in c_rewritten.
#- Each FAT entry is flagged as either FREE, FILE or DIRECTORY.
sub flag_clusters {
    my ($fs) = @_;
    my ($cluster, $curr_dir_name, $entry, $type, $nb_dirs);

    my $f = sub {
	($curr_dir_name, $entry) = @_;
	$cluster = resize_fat::dir_entry::get_cluster($entry);

	if (resize_fat::dir_entry::is_file($entry)) {
	    $type = $FILE;
	    $type |= $UNMOVEABLE if resize_fat::dir_entry::is_unmoveable($entry);
	} elsif (resize_fat::dir_entry::is_directory($entry)) {
	    $type = $DIRECTORY;
	} else { return }

	my $nb = resize_fat::c_rewritten::checkFat($cluster, $type, "$curr_dir_name/$entry->{name}");
	print "resize_fat:flag_clusters: check fat returned $nb of type $type for $curr_dir_name/$entry->{name}\n";
	$nb_dirs += $nb if $type == $DIRECTORY;
	0;
    };

    #- this must call allocate_fat_flag that zeroes the buffer allocated.
    resize_fat::c_rewritten::allocate_fat_flag($fs->{nb_clusters} + 2);

    resize_fat::directory::traverse_all($fs, $f);
    $fs->{clusters}{count}{dirs} = $nb_dirs;
}
ga6'>user/ennael/mga6</option>
<option value='user/erwan/bug-13680'>user/erwan/bug-13680</option>
<option value='user/jibz/aarch64'>user/jibz/aarch64</option>
<option value='user/martinw/mga6'>user/martinw/mga6</option>
<option value='user/pterjan/arm64'>user/pterjan/arm64</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Mageia Installer and base platform for many utilities</td><td class='sub right'>Thierry Vignaud [tv]</td></tr></table>
<table class='tabs'><tr><td>
<a href='/software/drakx/?h=17.57'>summary</a><a href='/software/drakx/refs/?h=17.57&amp;id=d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'>refs</a><a href='/software/drakx/log/perl-install/share?h=17.57'>log</a><a href='/software/drakx/tree/perl-install/share?h=17.57&amp;id=d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'>tree</a><a class='active' href='/software/drakx/commit/perl-install/share?h=17.57&amp;id=d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'>commit</a><a href='/software/drakx/diff/perl-install/share?h=17.57&amp;id=d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'>diff</a><a href='/software/drakx/stats/perl-install/share?h=17.57'>stats</a></td><td class='form'><form class='right' method='get' action='/software/drakx/log/perl-install/share'>
<input type='hidden' name='h' value='17.57'/><input type='hidden' name='id' value='d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/software/drakx/commit/?h=17.57&amp;id=d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'>root</a>/<a href='/software/drakx/commit/perl-install?h=17.57&amp;id=d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'>perl-install</a>/<a href='/software/drakx/commit/perl-install/share?h=17.57&amp;id=d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'>share</a></div><div class='content'><div class='cgit-panel'><b>diff options</b><form method='get'><input type='hidden' name='h' value='17.57'/><input type='hidden' name='id' value='d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'/><table><tr><td colspan='2'/></tr><tr><td class='label'>context:</td><td class='ctrl'><select name='context' onchange='this.form.submit();'><option value='1'>1</option><option value='2'>2</option><option value='3' selected='selected'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='25'>25</option><option value='30'>30</option><option value='35'>35</option><option value='40'>40</option></select></td></tr><tr><td class='label'>space:</td><td class='ctrl'><select name='ignorews' onchange='this.form.submit();'><option value='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><table summary='commit info' class='commit-info'>
<tr><th>author</th><td>Ahmad Samir &lt;ahmad@mageia.org&gt;</td><td class='right'>2011-04-04 19:41:44 +0000</td></tr>
<tr><th>committer</th><td>Ahmad Samir &lt;ahmad@mageia.org&gt;</td><td class='right'>2011-04-04 19:41:44 +0000</td></tr>
<tr><th>commit</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install/share?h=17.57&amp;id=d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'>d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9</a> (<a href='/software/drakx/patch/perl-install/share?id=d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'>patch</a>)</td></tr>
<tr><th>tree</th><td colspan='2' class='sha1'><a href='/software/drakx/tree/?h=17.57&amp;id=d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'>dc5cd6117d881efd56615007fd2e98bceffd2449</a> /<a href='/software/drakx/tree/perl-install/share?h=17.57&amp;id=d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'>perl-install/share</a></td></tr>
<tr><th>parent</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install/share?h=17.57&amp;id=36d6eb5f5087a6e51049bcb0e6ef28473100f2d6'>36d6eb5f5087a6e51049bcb0e6ef28473100f2d6</a> (<a href='/software/drakx/diff/perl-install/share?h=17.57&amp;id=d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9&amp;id2=36d6eb5f5087a6e51049bcb0e6ef28473100f2d6'>diff</a>)</td></tr><tr><th>download</th><td colspan='2' class='sha1'><a href='/software/drakx/snapshot/drakx-d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9.tar'>drakx-d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9.tar</a><br/><a href='/software/drakx/snapshot/drakx-d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9.tar.gz'>drakx-d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9.tar.gz</a><br/><a href='/software/drakx/snapshot/drakx-d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9.tar.bz2'>drakx-d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9.tar.bz2</a><br/><a href='/software/drakx/snapshot/drakx-d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9.tar.xz'>drakx-d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9.tar.xz</a><br/><a href='/software/drakx/snapshot/drakx-d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9.zip'>drakx-d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9.zip</a><br/></td></tr></table>
<div class='commit-subject'>String changes: perl -pi -e 's!file system!filesystem!'</div><div class='commit-msg'></div><div class='diffstat-header'><a href='/software/drakx/diff/?h=17.57&amp;id=d9f974eab441fd8d3dfbe326186bf04ba7a6a8e9'>Diffstat</a> (limited to 'perl-install/share')</div><table summary='diffstat' class='diffstat'>