drakx - Mageia Installer and base platform for many utilities

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

Mode	Name	Size
-rw-r--r--	.cvsignore	47	log stats plain
-rw-r--r--	Makefile	4030	log stats plain
d---------	docs	1052	log stats plain
-rw-r--r--	isolinux-graphic.bmp	480566	log stats plain
d---------	kernel	277	log stats plain
-rw-r--r--	live_update	2414	log stats plain
-rwxr-xr-x	make_boot_img	22157	log stats plain
d---------	mdk-stage1	2436	log stats plain
d---------	perl-install	3152	log stats plain
d---------	rescue	792	log stats plain
d---------	tools	1287	log stats plain

>$fs, $cluster) = @_; my $buf; eval { $buf = &read($fs, $fs->{cluster_offset} + $cluster * $fs->{cluster_size}, $fs->{cluster_size}); }; @$ and die "reading cluster #$cluster failed on device $fs->{fs_name}"; $buf; } sub write_cluster($$$) { my ($fs, $cluster, $buf) = @_; eval { &write($fs, $fs->{cluster_offset} + $cluster * $fs->{cluster_size}, $fs->{cluster_size}, $buf); }; @$ and die "writing cluster #$cluster failed on device $fs->{fs_name}"; } sub read_file($$) { my ($fs, $cluster) = @_; my $buf = ''; for (; !resize_fat::fat::is_eof($cluster); $cluster = resize_fat::fat::next($fs, $cluster)) { $cluster == 0 and die "Bad FAT: unterminated chain\n"; $buf .= read_cluster($fs, $cluster); } $buf; } sub check_mounted($) { my ($f) = @_; local *F;