wok-tiny view linux/stuff/bundle @ rev 133
Add fbvnc-config & fbvnc-auth
| author | Pascal Bellard <pascal.bellard@slitaz.org> |
|---|---|
| date | Wed Aug 23 12:08:35 2017 +0200 (2017-08-23) |
| parents | 6c0be0a0a932 |
| children | f93fa966f210 |
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 EOT
40 elif [ -n "$4" ]; then
41 out="$1"
42 uudecode <<EOT | gunzip > "$out"
43 bundle.bin
44 EOT
45 pos=$(get 0x1F2 "$out")
46 [ $(get $(($pos - 3)) "$out") -eq 24937 ] && crc=2 || crc=0
47 echo -en "$2\0" | ddq bs=1 of="$out" seek=$pos conv=notrunc
48 pos=$(($pos+${#2}+1))
49 shift 2
50 free=$((0x1F1 - 2 - $pos - $crc))
51 while [ -n "$2" -a $free -ge ${#2} ]; do
52 echo "$((($(stat -c "%s" "$1")+511)/512)) $1 $2"
53 shift 2
54 done | awk '
55 BEGIN { i=0 } { sz[i]=$1; fn[i]=$2; sub(".*"$2,""); me[i++]=$0 }
56 END {
57 for (m=0, l=p=1; m<i; m++) {
58 for (s=100000, j=0; j<i; j++) if (!lc[j] && sz[j]<s) s=sz[k=j];
59 f2[m]=fn[k]; s2[m]=s; lc[k]=l; l+=s; l2[m]=p; p+=sz[m]
60 }
61 for (j=0; j<i; j++)
62 print sz[j] " " lc[j] " " fn[j] " " s2[j] " " l2[j] " " f2[j] " " me[j]
63 }' | while read s p file s2 p2 file2 entry ; do
64 [ -z "$SORT_MENU" ] && file2=$file && s2=$s && p=$p2
65 x="$(printf '\\x%02x\\x%02x' $(($p % 256)) $(($p / 256)) )"
66 echo -en "$x$entry\0" | ddq bs=1 of="$out" seek=$pos conv=notrunc
67 pos=$(($pos+2+${#entry}+1))
68 cat "$file2" /dev/zero | ddq bs=512 count=$s2 >> "$out"
69 if [ $crc -ne 0 ]; then
70 x=$(cat "$file" /dev/zero | ddq bs=512 count=$s | od -v \
71 -t u2 -w2 -An|awk '{i+=$0} END {print (i % 65536)}')
72 x="$(printf '\\x%02x\\x%02x' $(($x % 256)) $(($x / 256)) )"
73 echo -en "$x" | ddq bs=1 of="$out" seek=$pos conv=notrunc
74 pos=$(($pos+2))
75 x="$(printf '\\x%02x\\x%02x' $(($s % 256)) $(($s / 256)) )"
76 echo -en "$x" | ddq bs=1 of="$out" seek=$pos conv=notrunc
77 pos=$(($pos+2))
78 fi
79 shift 2
80 done
81 elif [ -s "$2" ]; then
82 base_initrd=$((0x00300000))
83 size_initrd=$(stat -c %s "$2")
84 [ $(($base_initrd + $size_initrd)) -gt $((0x1000000)) ] &&
85 base_initrd=$((0x01400000))
86 [ "$3" ] && base_initrd=$(($3))
87 printf "initrd @%X %X\n" $base_initrd $size_initrd
88 store 0x218 $base_initrd "$1"
89 store 0x21C $size_initrd "$1"
90 ddq bs=16 seek=$(end "$1" 32) of="$1" if="$2"
91 ls -l "$1"
92 else
93 if [ $(get 0x1F1 "$1" 1) -eq 0 ]; then
94 menu=$(get 0x1F2 "$1")
95 [ $(get $(($menu -3)) "$1" 2) -eq 24937 ] && skip=4 || skip=0
96 ddq bs=1 skip=$menu count=$((0x1F3 - $menu)) if="$1" | \
97 od -v -t u1 -w1 -An | awk -vx=$skip '{
98 if (--skip >= 0) next
99 if (--bytes < 0) {
100 if ($1 == 0) {
101 if (mul > 0) {
102 if (sector == 0) exit
103 skip=x; print sector " " s
104 }
105 s=""; sector=0; mul=1; bytes=2
106 }
107 else { c=sprintf("%c",$1); s=s c }
108 }
109 else { sector += $0*mul; mul *= 256 }
110 }' | while read s name; do
111 cnt=$(get $(($s*512 + 0x1F4)) "$1")
112 cnt=$(($cnt+32*(1+$(get $(($s*512 + 0x1F1)) "$1" 1))))
113 x=0
114 if [ $(get $(($s*512 + 0x202)) "$1" 2) -eq 25672 ]; then
115 x=$(get $(($s*512 + 0x21C)) "$1")
116 [ $x -ne 0 ] && x=$(((($cnt+31)/32)*512+$x)) &&
117 cnt=$((($x+15)/16))
118 fi
119 ddq bs=16 skip=$((32*$s)) count=$cnt if="$1" of="$name"
120 [ $x -ne 0 ] && ddq bs=1 seek=$x count=0 of="$name"
121 ls -l "$name"
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