/*
* Guillaume Cottenceau (gc@mandrakesoft.com)
*
* Copyright 2000 MandrakeSoft
*
* This software may be freely redistributed under the terms of the GNU
* public license.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*
*/
/*
* mar - The Mandrake Archiver
*
* An archiver that supports compression (through zlib).
*
*/
/*
* This code includes the extracting and creating features.
*
*/
#include "mar.h"
#include "mar-extract-only.h"
int
file_size(char *filename)
{
struct stat buf;
if (stat(filename, &buf) != 0)
{
perror(filename);
return -1;
}
return buf.st_size;
}
/* Yes I don't use the datastructure I directly write the final fileformat in memory then write down it.
* Yes it's bad.
*/
/* ``files'' is a NULL-terminated array of char* */
char * fnf_tag = "FILE_NOT_FOUND&";
int
mar_create_file(char *dest_file, char **files)
{
int filenum = 0;
int current_offset_filetable = 0;
int current_delta_rawdata = 0;
int filetable_size;
char * temp_marfile_buffer;
int total_length = 0;
filetable_size = sizeof(char); /* ``char 0'' */
while (files[filenum])
{
int fsiz = file_size(files[filenum]);
if (fsiz == -1)
files[filenum] = fnf_tag;
else {
filetable_size += 2*sizeof(int) /* file_length, data_offset */ + strlen(files[filenum]) + 1;
total_length += fsiz;
}
filenum++;
}
total_length += filetable_size;
temp_marfile_buffer = (char *) malloc(total_length); /* create the whole file in-memory (not with alloca! it can be bigger than typical limit for stack of programs (ulimit -s) */
DEBUG_MAR(printf("D: mar::create_marfile total-length %d\n", total_length););
filenum = 0;
while (files[filenum])
{
if (strcmp(files[filenum], fnf_tag)) {
FILE * f = fopen(files[filenum], "r");
int fsize;
if (!f)
{
perror(files[filenum]);
return -1;
}
/* filename */
strcpy(&(temp_marfile_buffer[current_offset_filetable]), files[filenum]);
current_offset_filetable += strlen(files[filenum]) + 1;
/* file_length */
fsize = file_size(files[filenum]);
if (fsize == -1) return -1;
memcpy(&temp_marfile_buffer[current_offset_filetable], &fsize, sizeof(int));
current_offset_filetable += sizeof(int);
/* data_offset */
memcpy(&temp_marfile_buffer[current_offset_filetable], ¤t_delta_rawdata, sizeof(int));
current_offset_filetable += sizeof(int);
/* data_raw_data */
if (fread(&temp_marfile_buffer[current_delta_rawdata + filetable_size], 1, fsize, f) != (size_t)fsize)
{
perror(files[filenum]);
return -1;
}
fclose(f);
current_delta_rawdata += fsize;
}
filenum++;
}
/* write down ``char 0'' to terminate file table */
memset(&temp_marfile_buffer[current_offset_filetable], 0, sizeof(char));
/* ok, buffer is ready, let's write it on-disk */
{
BZFILE * f = BZ2_bzopen(dest_file, "w9");
if (!f)
{
perror(dest_file);
return -1;
}
if (BZ2_bzwrite(f, temp_marfile_buffer, total_length) != total_length)
{
fprintf(stderr, BZ2_bzerror(f, &z_errnum));
return -1;
}
BZ2_bzclose(f);
}
printf("mar: created archive %s (%d files, length %d)\n", dest_file, filenum, total_length);
return 0;
}
void
print_usage(char *progname)
{
printf("Usage: %s [-lxc] [files..]\n", progname);
exit(0);
}
int
main(int argc, char **argv)
{
if (argc <= 2)
print_usage(argv[0]);
if (argc >= 3)
{
if (strcmp(argv[1], "-l") == 0)
{
char ** contents = mar_list_contents(argv[2]);
if (contents)
while (contents && *contents) {
printf("\t%s\n", *contents);
contents++;
}
exit(0);
}
if ((strcmp(argv[1], "-x") == 0) && argc == 4)
{
int res = mar_extract_file(argv[2], argv[3], "./");
if (res == 1)
fprintf(stderr, "W: file-not-found-in-archive %s\n", argv[3]);
if (res == -1)
exit(-1);
exit(0);
}
if ((strcmp(argv[1], "-c") == 0) && argc >= 4)
{
char **files = (char **) alloca(((argc-3)+1) * sizeof(char *));
int i = 3;
while (i < argc)
{
files[i-3] = argv[i];
i++;
}
files[argc-3] = NULL;
{
int results;
results = mar_create_file(argv[2], files);
if (results != 0)
fprintf(stderr, "E: create-marfile-failed\n");
exit(results);
}
}
}
return 0;
}
d [tv]</td></tr></table>
<table class='tabs'><tr><td>
<a href='/software/drakx/?h=12.24.1'>summary</a><a href='/software/drakx/refs/?h=12.24.1&id=ba0451ba8be236c21e6ebc2dfc379b4b50ed6718'>refs</a><a href='/software/drakx/log/kernel/update_kernel?h=12.24.1'>log</a><a class='active' href='/software/drakx/tree/kernel/update_kernel?h=12.24.1&id=ba0451ba8be236c21e6ebc2dfc379b4b50ed6718'>tree</a><a href='/software/drakx/commit/kernel/update_kernel?h=12.24.1&id=ba0451ba8be236c21e6ebc2dfc379b4b50ed6718'>commit</a><a href='/software/drakx/diff/kernel/update_kernel?h=12.24.1&id=ba0451ba8be236c21e6ebc2dfc379b4b50ed6718'>diff</a><a href='/software/drakx/stats/kernel/update_kernel?h=12.24.1'>stats</a></td><td class='form'><form class='right' method='get' action='/software/drakx/log/kernel/update_kernel'>
<input type='hidden' name='h' value='12.24.1'/><input type='hidden' name='id' value='ba0451ba8be236c21e6ebc2dfc379b4b50ed6718'/><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/tree/?h=12.24.1&id=ba0451ba8be236c21e6ebc2dfc379b4b50ed6718'>root</a>/<a href='/software/drakx/tree/kernel?h=12.24.1&id=ba0451ba8be236c21e6ebc2dfc379b4b50ed6718'>kernel</a>/<a href='/software/drakx/tree/kernel/update_kernel?h=12.24.1&id=ba0451ba8be236c21e6ebc2dfc379b4b50ed6718'>update_kernel</a></div><div class='content'>blob: a32878339ae0bacde6cb820228d0e52c689bf2f5 (<a href='/software/drakx/plain/kernel/update_kernel?h=12.24.1&id=ba0451ba8be236c21e6ebc2dfc379b4b50ed6718'>plain</a>)
<table summary='blob content' class='blob'>
<tr><td class='linenumbers'><pre><a id='n1' href='#n1'>1</a>
<a id='n2' href='#n2'>2</a>
<a id='n3' href='#n3'>3</a>
<a id='n4' href='#n4'>4</a>
<a id='n5' href='#n5'>5</a>
<a id='n6' href='#n6'>6</a>
<a id='n7' href='#n7'>7</a>
<a id='n8' href='#n8'>8</a>
<a id='n9' href='#n9'>9</a>
<a id='n10' href='#n10'>10</a>
<a id='n11' href='#n11'>11</a>
<a id='n12' href='#n12'>12</a>
<a id='n13' href='#n13'>13</a>
<a id='n14' href='#n14'>14</a>
<a id='n15' href='#n15'>15</a>
<a id='n16' href='#n16'>16</a>
<a id='n17' href='#n17'>17</a>
<a id='n18' href='#n18'>18</a>
<a id='n19' href='#n19'>19</a>
<a id='n20' href='#n20'>20</a>
<a id='n21' href='#n21'>21</a>
<a id='n22' href='#n22'>22</a>
<a id='n23' href='#n23'>23</a>
<a id='n24' href='#n24'>24</a>
<a id='n25' href='#n25'>25</a>
<a id='n26' href='#n26'>26</a>
<a id='n27' href='#n27'>27</a>
<a id='n28' href='#n28'>28</a>
<a id='n29' href='#n29'>29</a>
<a id='n30' href='#n30'>30</a>
<a id='n31' href='#n31'>31</a>
<a id='n32' href='#n32'>32</a>
<a id='n33' href='#n33'>33</a>
<a id='n34' href='#n34'>34</a>
<a id='n35' href='#n35'>35</a>
<a id='n36' href='#n36'>36</a>
<a id='n37' href='#n37'>37</a>
<a id='n38' href='#n38'>38</a>
<a id='n39' href='#n39'>39</a>
<a id='n40' href='#n40'>40</a>
<a id='n41' href='#n41'>41</a>
<a id='n42' href='#n42'>42</a>
<a id='n43' href='#n43'>43</a>
<a id='n44' href='#n44'>44</a>
<a id='n45' href='#n45'>45</a>
<a id='n46' href='#n46'>46</a>
<a id='n47' href='#n47'>47</a>
<a id='n48' href='#n48'>48</a>
<a id='n49' href='#n49'>49</a>
<a id='n50' href='#n50'>50</a>
<a id='n51' href='#n51'>51</a>
<a id='n52' href='#n52'>52</a>
<a id='n53' href='#n53'>53</a>
<a id='n54' href='#n54'>54</a>
<a id='n55' href='#n55'>55</a>
<a id='n56' href='#n56'>56</a>
<a id='n57' href='#n57'>57</a>
<a id='n58' href='#n58'>58</a>
<a id='n59' href='#n59'>59</a>
<a id='n60' href='#n60'>60</a>
<a id='n61' href='#n61'>61</a>
<a id='n62' href='#n62'>62</a>
<a id='n63' href='#n63'>63</a>
<a id='n64' href='#n64'>64</a>
<a id='n65' href='#n65'>65</a>
<a id='n66' href='#n66'>66</a>
<a id='n67' href='#n67'>67</a>
<a id='n68' href='#n68'>68</a>
<a id='n69' href='#n69'>69</a>
<a id='n70' href='#n70'>70</a>
<a id='n71' href='#n71'>71</a>
<a id='n72' href='#n72'>72</a>
<a id='n73' href='#n73'>73</a>
<a id='n74' href='#n74'>74</a>
<a id='n75' href='#n75'>75</a>
<a id='n76' href='#n76'>76</a>
<a id='n77' href='#n77'>77</a>
<a id='n78' href='#n78'>78</a>
<a id='n79' href='#n79'>79</a>
<a id='n80' href='#n80'>80</a>
<a id='n81' href='#n81'>81</a>
<a id='n82' href='#n82'>82</a>
<a id='n83' href='#n83'>83</a>
<a id='n84' href='#n84'>84</a>
<a id='n85' href='#n85'>85</a>
<a id='n86' href='#n86'>86</a>
<a id='n87' href='#n87'>87</a>
<a id='n88' href='#n88'>88</a>
<a id='n89' href='#n89'>89</a>
<a id='n90' href='#n90'>90</a>
<a id='n91' href='#n91'>91</a>
<a id='n92' href='#n92'>92</a>
<a id='n93' href='#n93'>93</a>
<a id='n94' href='#n94'>94</a>
<a id='n95' href='#n95'>95</a>
<a id='n96' href='#n96'>96</a>
<a id='n97' href='#n97'>97</a>
<a id='n98' href='#n98'>98</a>
<a id='n99' href='#n99'>99</a>
<a id='n100' href='#n100'>100</a>
<a id='n101' href='#n101'>101</a>
<a id='n102' href='#n102'>102</a>
<a id='n103' href='#n103'>103</a>
<a id='n104' href='#n104'>104</a>
<a id='n105' href='#n105'>105</a>
<a id='n106' href='#n106'>106</a>
<a id='n107' href='#n107'>107</a>
<a id='n108' href='#n108'>108</a>
<a id='n109' href='#n109'>109</a>
<a id='n110' href='#n110'>110</a>
<a id='n111' href='#n111'>111</a>
<a id='n112' href='#n112'>112</a>
<a id='n113' href='#n113'>113</a>
<a id='n114' href='#n114'>114</a>
<a id='n115' href='#n115'>115</a>
<a id='n116' href='#n116'>116</a>
<a id='n117' href='#n117'>117</a>
<a id='n118' href='#n118'>118</a>
</pre></td>
<td class='lines'><pre><code>#!/usr/bin/perl
# this script takes kernels rpms from RPMS/ and create various files in all_kernels/
# for each rpms in RPMS, it does:
# RPMS/kernel-VER-*.rpm ->
# all.kernels/VER/all_modules.tar (used for all.rdz)
# all.kernels/VER/*.mar (used for other rdz)
# all.kernels/VER/modules.cz (used for stage2)
# all.kernels/VER/modules.dep
# all.kernels/VER/vmlinuz
#
# if RPMS is empty, this script tries to find kernels in $main_repository
use MDK::Common;
use list_modules;
my $main_repository = '/export/media/main';
my $rpm = 'rpm --nosignature';
my $MOVE = $ARGV[0] eq '--move' && shift;
@ARGV <= 1 or die "usage: ./update_kernel [--move] [<kernel rpm>]\n";
eval { rm_rf('all.kernels') }; #- remove old things
mkdir 'all.kernels';
my $main = chomp_(cat_('RPMS/.main'));
my $main_BOOT = chomp_(cat_('RPMS/.main-BOOT'));
if (@ARGV) {
install_kernel($ARGV[0]);
} elsif (! -d 'RPMS') {
update_kernel_from_repository($main_repository, '2.6', 0);
update_kernel_from_repository($main_repository, '2.6', 1);
install_kernel(glob("$main_repository/kernel-xbox*"), 1) if arch() =~ /i.86/;
}
extract_kernel($_) foreach glob("RPMS/*.rpm");
sub system_verbose { print join(' ', @_), "\n"; system(@_) }
sub sys { &system_verbose; $? and die }
sub rpm2version {
my ($kernel_rpm) = @_;
`$rpm -qpl $kernel_rpm` =~ m!/boot/vmlinuz-(.*)! && $1 or die "can't find vmlinuz in $kernel_rpm\n";
}
sub update_kernel_from_repository {
my ($repository, $main_ver, $is_BOOT) = @_;
my $rpm_wildcard = 'kernel-' . ($is_BOOT ? 'BOOT-' : (arch() =~ /i.86/ ? 'i586-up-1GB-' : '')) . $main_ver . '*.rpm';
my @kernels = glob("$repository/$rpm_wildcard");
install_kernel($_, 1) foreach @kernels;
}
sub install_kernel {
my ($kernel_rpm) = @_;
my $basename = basename($kernel_rpm);
warn "Installing rpm $basename in RPMS\n";
mkdir 'RPMS';
cp_af($kernel_rpm, "RPMS/$basename");
if (!$main) {
$main = rpm2version($kernel_rpm);
output('RPMS/.main', "$main\n");
}
if (!$main_BOOT && $kernel_rpm =~ /BOOT/) {
$main_BOOT = rpm2version($kernel_rpm);
output('RPMS/.main-BOOT', "$main_BOOT\n");
}
}
sub extract_kernel {
my ($kernel_rpm) = @_;
my $kern_ver = rpm2version($kernel_rpm);
my $dir = "all.kernels/$kern_ver";
warn "Extracting kernel $kern_ver\n";
eval { rm_rf($dir) };
mkdir_p("$dir/modules");
sys("rpm2cpio $kernel_rpm | (cd $dir ; cpio -id)");
rename "$dir/boot/vmlinuz-$kern_ver", "$dir/vmlinuz" or die "can't find vmlinuz\n";
sys("find $dir -name '*.gz' | xargs gunzip");
my $ext = module_extension($kern_ver);
open(my $F, "find $dir -name '*.$ext' |");
my $file; while ($file = <$F>) {
chomp($file);
rename $file, "$dir/modules/" . basename($file) or warn "conflict for $file\n";
}
if (kernel_is_26($kern_ver)) {
warn "no stripping on 2.6 since it breaks modules\n";
} else {
print STDERR "stripping $kern_ver: ";
sys("./strip_modules $dir/modules/*.$ext");
print STDERR "done\n";
}
sys('perl', 'modules.pl', 'remove_unneeded_modules', $kern_ver) if $kern_ver !~ /BOOT/;
sys('perl', 'modules.pl', 'make_modules_per_image', $kern_ver);
sys('perl', 'modules.pl', 'make_modules_description', $kern_ver) if $kern_ver eq $main;
if (!$MOVE) {
print STDERR "packdrake $kern_ver: ";
sys("cd $dir/modules ; ls *.$ext | packdrake -b9s ../modules.cz 400000");
print STDERR "done\n";
}
eval { rm_rf("$dir$_") } foreach qw(/boot /lib /usr /modules);
}
</code></pre></td></tr></table>
</div> <!-- class=content -->
<div class='footer'>generated by <a href='https://git.zx2c4.com/cgit/about/'>cgit v1.2.1</a> (<a href='https://git-scm.com/'>git 2.21.0</a>) at 2025-03-28 12:39:03 +0000</div>
</div> <!-- id=cgit -->
</body>
</html>