wok-tiny view linux/stuff/bundle @ rev 151
linux/bundle: multi floppy support
| author | Pascal Bellard <pascal.bellard@slitaz.org> |
|---|---|
| date | Sun Sep 15 19:49:24 2019 +0200 (2019-09-15) |
| parents | c82d2b7a51b4 |
| children | 5e2b41f82f13 |
line source
1 #!/bin/sh
3 ddq()
4 {
5 dd "$@" 2> /dev/null
6 }
8 store()
9 {
10 n=$2; for i in $(seq 8 8 32); do
11 printf '\\\\x%02X' $(($n & 255))
12 n=$(($n >> 8))
13 done | xargs echo -en | ddq bs=1 conv=notrunc of="$3" seek=$(($1))
14 }
16 get()
17 {
18 echo $(od -j $(($1)) -N ${3:-4} -t u${3:-4} -An "$2")
19 }
21 end()
22 {
23 echo $(( $(get 0x1F1 "$1" 1)*32 +($(get 0x1F4 "$1") +31 +${2:-1})&-${2:-1} ))
24 }
26 #install-begin
27 sed '1,/^bundle.bin$/!d' $0 > $0.sh
28 gzip -9 < bundle.bin | uuencode -m - >> $0.sh
29 sed '1,/^bundle.bin$/d' $0 >> $0.sh
30 sed -i -e '/^bundle.bin$/d' -e '/install-begin$/,/install-end$/d' $0.sh
31 chmod +x $0.sh
32 exit
33 #install-end
34 if [ ! -s "$1" -a -z "$4" ]; then
35 p=$(basename "$0")
36 cat <<EOT
37 Usage: $p kernel [initrd] [@]
38 or: $p menufile "menu title" file1 "menu entry 1" ...
39 or: cat floppy.* > floppyset ; $p floppyset
40 EOT
41 elif [ -n "$4" ]; then
42 out="$1"
43 uudecode <<EOT | gunzip > "$out"
44 bundle.bin
45 EOT
46 pos=$(get 0x1F2 "$out")
47 [ $(get $(($pos - 3)) "$out") -eq 24937 ] && crc=2 || crc=0
48 echo -en "$2\0" | ddq bs=1 of="$out" seek=$pos conv=notrunc
49 pos=$(($pos+${#2}+1))
50 shift 2
51 free=$((0x1F1 - 2 - $pos - $crc))
52 while [ -n "$2" -a $free -ge ${#2} ]; do
53 echo "$((($(stat -Lc "%s" "$1")+511)/512))?$1?$2"
54 shift 2
55 done | awk -F? 'BEGIN { nxt=1; i=0 }
56 { ofs[i]=$1; nxt+=$1 ; file[i]=$2; name[i]=$3; i++ }
57 END { for (j = 0; j < i; j++) { nxt-=ofs[j]
58 print nxt " " ofs[j] " " file[j] " " name[j] }}' | \
59 while read p s file name; do
60 x="$(printf '\\x%02x\\x%02x' $(($p % 256)) $(($p / 256)) )"
61 echo -en "$x$name\0" | ddq bs=1 of="$out" seek=$pos conv=notrunc
62 pos=$(($pos+2+${#name}+1))
63 if [ $crc -ne 0 ]; then
64 x=$(cat "$file" /dev/zero | ddq bs=512 count=$s | \
65 od -v -t u2 -w2 -An | awk '{i+=$0} \
66 END {print (i % 65536)}')
67 x="$(printf '\\x%02x\\x%02x' $(($x%256)) $(($x/256)) )"
68 echo -en "$x" | ddq bs=1 of="$out" seek=$pos conv=notrunc
69 pos=$(($pos+2))
70 x="$(printf '\\x%02x\\x%02x' $(($s%256)) $(($s/256)) )"
71 echo -en "$x" | ddq bs=1 of="$out" seek=$pos conv=notrunc
72 pos=$(($pos+2))
73 fi
74 echo "$file $s"
75 done | awk 'BEGIN { i=0 } { file[i]=$1; size[i]=$2; i++ }
76 END { while (--i >= 0) print file[i] " " size[i] }' | \
77 while read file size; do
78 cat "$file" /dev/zero | ddq bs=512 count=$size >> "$out"
79 done
80 elif [ -s "$2" ]; then
81 base_initrd=$((0x00300000))
82 size_initrd=$(stat -Lc %s "$2")
83 [ $(($base_initrd + $size_initrd)) -gt $((0x1000000)) ] &&
84 base_initrd=$((0x01400000))
85 [ "$3" ] && base_initrd=$(($3))
86 printf "initrd @%X %X\n" $base_initrd $size_initrd
87 store 0x218 $base_initrd "$1"
88 store 0x21C $size_initrd "$1"
89 ddq bs=16 seek=$(end "$1" 32) of="$1" if="$2"
90 ls -l "$1"
91 else
92 if [ $(get 0x1F1 "$1" 1) -eq 0 ]; then
93 menu=$(get 0x1F2 "$1")
94 [ $(get $(($menu -3)) "$1" 2) -eq 24937 ] && skip=4 || skip=0
95 ddq bs=1 skip=$menu count=$((0x1F3 - $menu)) if="$1" | \
96 od -v -t u1 -w1 -An | awk -vx=$skip '{
97 if (--skip >= 0) next # crc, len
98 if (--bytes < 0) {
99 if ($1 == 0) { # eos
100 if (mul > 0) { # menu label
101 if (sector == 0) exit
102 skip=x; print sector " " s
103 }
104 s=""; sector=0; mul=1; bytes=2 # menu title
105 }
106 else { c=sprintf("%c",$1); s=s c } # menu title/label
107 }
108 else { sector += $0*mul; mul *= 256 }
109 }' | while read s name; do
110 cnt=$(get $(($s*512 + 0x1F4)) "$1")
111 cnt=$(($cnt+32*(1+$(get $(($s*512 + 0x1F1)) "$1" 1))))
112 x=0
113 if [ $(get $(($s*512 + 0x202)) "$1" 2) -eq 25672 ]; then
114 x=$(get $(($s*512 + 0x21C)) "$1")
115 [ $x -ne 0 ] && x=$(((($cnt+31)/32)*512+$x)) &&
116 cnt=$((($x+15)/16)) # initrd
117 fi
118 ddq bs=16 skip=$((32*$s)) count=$cnt if="$1" of="$name"
119 [ $x -ne 0 ] && ddq bs=1 seek=$x count=0 of="$name"
120 printf "S%04X %9d " $s $(($cnt*16))
121 ls -l "$name" | cut -c35-
122 done
123 else
124 base_initrd=$(get 0x218 "$1")
125 size_initrd=$(get 0x21C "$1")
126 [ $base_initrd -ne 0 ] &&
127 printf "initrd @%X\n" $base_initrd &&
128 ddq bs=1 skip=$(($(end "$1" 32) * 16)) count=$size_initrd \
129 if="$1" of=initrd && ls -l initrd
130 store 0x218 0 "$1"
131 store 0x21C 0 "$1"
132 ddq bs=16 count=0 seek=$(end "$1") of="$1"
133 ls -l "$1"
134 fi
135 fi
136 true