-
Notifications
You must be signed in to change notification settings - Fork 16
/
gen_bts2_tth.sh
executable file
·65 lines (53 loc) · 4.93 KB
/
gen_bts2_tth.sh
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#! /bin/bash --
# by [email protected] at Mon Jul 24 18:21:28 CEST 2017
set -ex
test "$CXX" && CC="$CXX"
CC="${CC:-gcc}"
# Omit -pedantic instead of -Wno-overlength-strings.
$CC -O2 -DNO_CONFIG -fsigned-char -ansi -Wall -W -Wextra ps_tiny.c -o ps_tiny.gen
# --- Based on Makefile.
# perl -pe0 is a fancy way of doing `cat'.
<l1zip.psm >l1g8z.pst.tmp.h perl -pe0
$CC -E -DCFG_FMT_ZLIB_ONLY=1 -DNDEBUG=1 -DCFG_NO_VAR_S=1 -DUSE_NO_BIND=1 -DUSE_SHORT_NAMES=1 -DUSE_CURRENTFILE=1 -DUSE_NO_EOF=1 -DUSE_UNITLENGTH_8 -DUSE_EARLYCHANGE_1 -DUSE_LOWBITFIRST_FALSE -DUSE_NO_NULLDEF=1 -DUSE_PIN=1 -DUSE_A85D=1 l1g8z.pst.tmp.h >l1g8z.pst.tmp.i
<l1g8z.pst.tmp.i >l1g8z.pst.tmp.pin perl -ne's@/\s+(?=\w)@/@g;print if!/^#/&&!/^\s*\Z/'
<l1g8z.pst.tmp.pin >l1g8z.pst.tmp.ps0 ./ps_tiny.gen
<l1g8z.pst.tmp.ps0 >l1g8z.pst.tmp.pst perl -e '$s=$_=join"",<STDIN>; $s=~s@([()\\])@\\$1@g; die if $ARGV[0]!~/^(\w+)/; print "\n% TTT_QUOTE\n/$1 ($s)\n\n"' -- l1g8z.pst
#mv -f l1g8z.pst.tmp.pst l1g8z.pst
perl -e 'die "mv $ARGV[0] to $ARGV[1]: $!\n" if !rename($ARGV[0], $ARGV[1])' -- l1g8z.pst.tmp.pst l1g8z.pst
<l1zip.psm >l1ghz.pst.tmp.h perl -pe0
$CC -E -DCFG_FMT_ZLIB_ONLY=1 -DNDEBUG=1 -DCFG_NO_VAR_S=1 -DUSE_NO_BIND=1 -DUSE_SHORT_NAMES=1 -DUSE_CURRENTFILE=1 -DUSE_NO_EOF=1 -DUSE_UNITLENGTH_8 -DUSE_EARLYCHANGE_1 -DUSE_LOWBITFIRST_FALSE -DUSE_NO_NULLDEF=1 -DUSE_PIN=1 -DUSE_HEXD=1 l1ghz.pst.tmp.h >l1ghz.pst.tmp.i
<l1ghz.pst.tmp.i >l1ghz.pst.tmp.pin perl -ne's@/\s+(?=\w)@/@g;print if!/^#/&&!/^\s*\Z/'
<l1ghz.pst.tmp.pin >l1ghz.pst.tmp.ps0 ./ps_tiny.gen
<l1ghz.pst.tmp.ps0 >l1ghz.pst.tmp.pst perl -e '$s=$_=join"",<STDIN>; $s=~s@([()\\])@\\$1@g; die if $ARGV[0]!~/^(\w+)/; print "\n% TTT_QUOTE\n/$1 ($s)\n\n"' -- l1ghz.pst
perl -e 'die "mv $ARGV[0] to $ARGV[1]: $!\n" if !rename($ARGV[0], $ARGV[1])' -- l1ghz.pst.tmp.pst l1ghz.pst
<l1zip.psm >l1gbz.pst.tmp.h perl -pe0
$CC -E -DCFG_FMT_ZLIB_ONLY=1 -DNDEBUG=1 -DCFG_NO_VAR_S=1 -DUSE_NO_BIND=1 -DUSE_SHORT_NAMES=1 -DUSE_CURRENTFILE=1 -DUSE_NO_EOF=1 -DUSE_UNITLENGTH_8 -DUSE_EARLYCHANGE_1 -DUSE_LOWBITFIRST_FALSE -DUSE_NO_NULLDEF=1 -DUSE_PIN=1 -DUSE_BINARY=1 l1gbz.pst.tmp.h >l1gbz.pst.tmp.i
<l1gbz.pst.tmp.i >l1gbz.pst.tmp.pin perl -ne's@/\s+(?=\w)@/@g;print if!/^#/&&!/^\s*\Z/'
<l1gbz.pst.tmp.pin >l1gbz.pst.tmp.ps0 ./ps_tiny.gen
<l1gbz.pst.tmp.ps0 >l1gbz.pst.tmp.pst perl -e '$s=$_=join"",<STDIN>; $s=~s@([()\\])@\\$1@g; die if $ARGV[0]!~/^(\w+)/; print "\n% TTT_QUOTE\n/$1 ($s)\n\n"' -- l1gbz.pst
perl -e 'die "mv $ARGV[0] to $ARGV[1]: $!\n" if !rename($ARGV[0], $ARGV[1])' -- l1gbz.pst.tmp.pst l1gbz.pst
<l1lzw.psm >l1g8l.pst.tmp.h perl -pe0
$CC -E -DCFG_FMT_ZLIB_ONLY=1 -DNDEBUG=1 -DCFG_NO_VAR_S=1 -DUSE_NO_BIND=1 -DUSE_SHORT_NAMES=1 -DUSE_CURRENTFILE=1 -DUSE_NO_EOF=1 -DUSE_UNITLENGTH_8 -DUSE_EARLYCHANGE_1 -DUSE_LOWBITFIRST_FALSE -DUSE_NO_NULLDEF=1 -DUSE_PIN=1 -DUSE_A85D=1 l1g8l.pst.tmp.h >l1g8l.pst.tmp.i
<l1g8l.pst.tmp.i >l1g8l.pst.tmp.pin perl -ne's@/\s+(?=\w)@/@g;print if!/^#/&&!/^\s*\Z/'
<l1g8l.pst.tmp.pin >l1g8l.pst.tmp.ps0 ./ps_tiny.gen
<l1g8l.pst.tmp.ps0 >l1g8l.pst.tmp.pst perl -e '$s=$_=join"",<STDIN>; $s=~s@([()\\])@\\$1@g; die if $ARGV[0]!~/^(\w+)/; print "\n% TTT_QUOTE\n/$1 ($s)\n\n"' -- l1g8l.pst
perl -e 'die "mv $ARGV[0] to $ARGV[1]: $!\n" if !rename($ARGV[0], $ARGV[1])' -- l1g8l.pst.tmp.pst l1g8l.pst
<l1lzw.psm >l1ghl.pst.tmp.h perl -pe0
$CC -E -DCFG_FMT_ZLIB_ONLY=1 -DNDEBUG=1 -DCFG_NO_VAR_S=1 -DUSE_NO_BIND=1 -DUSE_SHORT_NAMES=1 -DUSE_CURRENTFILE=1 -DUSE_NO_EOF=1 -DUSE_UNITLENGTH_8 -DUSE_EARLYCHANGE_1 -DUSE_LOWBITFIRST_FALSE -DUSE_NO_NULLDEF=1 -DUSE_PIN=1 -DUSE_HEXD=1 l1ghl.pst.tmp.h >l1ghl.pst.tmp.i
<l1ghl.pst.tmp.i >l1ghl.pst.tmp.pin perl -ne's@/\s+(?=\w)@/@g;print if!/^#/&&!/^\s*\Z/'
<l1ghl.pst.tmp.pin >l1ghl.pst.tmp.ps0 ./ps_tiny.gen
<l1ghl.pst.tmp.ps0 >l1ghl.pst.tmp.pst perl -e '$s=$_=join"",<STDIN>; $s=~s@([()\\])@\\$1@g; die if $ARGV[0]!~/^(\w+)/; print "\n% TTT_QUOTE\n/$1 ($s)\n\n"' -- l1ghl.pst
perl -e 'die "mv $ARGV[0] to $ARGV[1]: $!\n" if !rename($ARGV[0], $ARGV[1])' -- l1ghl.pst.tmp.pst l1ghl.pst
<l1lzw.psm >l1gbl.pst.tmp.h perl -pe0
$CC -E -DCFG_FMT_ZLIB_ONLY=1 -DNDEBUG=1 -DCFG_NO_VAR_S=1 -DUSE_NO_BIND=1 -DUSE_SHORT_NAMES=1 -DUSE_CURRENTFILE=1 -DUSE_NO_EOF=1 -DUSE_UNITLENGTH_8 -DUSE_EARLYCHANGE_1 -DUSE_LOWBITFIRST_FALSE -DUSE_NO_NULLDEF=1 -DUSE_PIN=1 -DUSE_BINARY=1 l1gbl.pst.tmp.h >l1gbl.pst.tmp.i
<l1gbl.pst.tmp.i >l1gbl.pst.tmp.pin perl -ne's@/\s+(?=\w)@/@g;print if!/^#/&&!/^\s*\Z/'
<l1gbl.pst.tmp.pin >l1gbl.pst.tmp.ps0 ./ps_tiny.gen
<l1gbl.pst.tmp.ps0 >l1gbl.pst.tmp.pst perl -e '$s=$_=join"",<STDIN>; $s=~s@([()\\])@\\$1@g; die if $ARGV[0]!~/^(\w+)/; print "\n% TTT_QUOTE\n/$1 ($s)\n\n"' -- l1gbl.pst
perl -e 'die "mv $ARGV[0] to $ARGV[1]: $!\n" if !rename($ARGV[0], $ARGV[1])' -- l1gbl.pst.tmp.pst l1gbl.pst
# ---
perl -pe0 bts.ttt l1g8z.pst l1ghz.pst l1gbz.pst l1g8l.pst l1ghl.pst l1gbl.pst >bts1.ttt
./ps_tiny.gen --copy <bts1.ttt >bts2.ttt
perl -x ./hq.pl <bts2.ttt >bts2.tth
#rm -f *.pst.tmp.* bts1.ttt bts2.ttt *.pst ps_tiny.gen
perl -e 'for (@ARGV) { unlink $_ }' -- *.pst.tmp.* bts1.ttt bts2.ttt *.pst ps_tiny.gen
: gen_bts2_tth.sh OK.