wok-6.x view dev86/stuff/com2exe @ rev 19318

clisp: patch to disable failed test
author Aleksej Bobylev <al.bobylev@gmail.com>
date Wed Jul 13 14:34:07 2016 +0300 (2016-07-13)
parents 19fbe1c329d0
children
line source
1 #!/bin/sh
2
3 [ ! -s "$1" ] && echo "Usage: $0 file.com [extra_ss]> file.exe" && exit 1
4 S=$((32+$(stat -c %s $1)))
5 P=$((($S+511)/512))
6 E=$((4096-(32*$P)))
7 for i in 0x5A4D $(($S%512)) $P 0 2 $E -1 $((${2:-0}-16)) -2 0 256 -16 28 0x6C53 0x5469 0x7A61
8 do printf '\\\\x%02X\\\\x%02X' $(($i&255)) $((($i>>8)&255)) | xargs echo -en
9 done
10 cat $1