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