File: mkcyryo

package info (click to toggle)
texlive-lang 2012.20120611-2
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 531,364 kB
  • sloc: perl: 29,862; ansic: 3,234; sh: 1,324; makefile: 1,291; python: 824; ruby: 576; lisp: 485; awk: 431; sed: 138; xml: 57; cs: 2
file content (22 lines) | stat: -rw-r--r-- 651 bytes parent folder | download | duplicates (15) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/bin/sh
# make patterns for the cyryo by repeating patterns for cyre

TMP=.cyryo-tmp

awk '/^\\patterns{/ {p=1;next} /^}/ {p=0;next} p {print}' $1 > $TMP
cat $TMP | grep '' | grep -v '[^]*' > ${TMP}1
cat $TMP | grep '[^]*' | grep -v '[^]*[^]*' > ${TMP}2
cat $TMP | grep '[^]*[^]*' > ${TMP}3
test ! -s ${TMP}3 || { echo "*** triple cyre detected in $1:" 1>&2; cat ${TMP}3 1>&2; }

{
echo "% accompanying patterns for cyryo generated from $1"
echo "\patterns{"
cat ${TMP}1 | sed 's,,,'
cat ${TMP}2 | sed 'y,,,'
cat ${TMP}2 | sed 's,,,'
cat ${TMP}2 | sed 's,,,2'
echo "}"
} | ./reduce-patt | ./sorthyph

rm -f $TMP ${TMP}[123]