cwscript

来自「unix v7是最后一个广泛发布的研究型UNIX版本」· 代码 · 共 35 行

/^\.if/b
/^\.ix/b
/^\.tm/b
s/\\\\/\\e\\e/g
s/\\\([n"'bt0]\)/\\e\1/g
s/^\.SS/.P1/
s/^\.ES/.P2/
s/\^/\\(14/g
s/~/\\v'.25m'\\s\\nS&\\s\\nP\\v'-.25m'/g
s/\\|/ZZZ/g
s/|/\\v'.05m'\\s\\nS&\\s\\nP\\v'-.05m'/g
s/ZZZ/\\|/g
s/_/\\(em/g
s/</\\(fi/g
s/>/\\(fl/g
/^\.P1/,/^\.P2/{
	s/{/\\(Fl/g
	s/}/\\(Fi/g
	s/"/\\(34/g
	s/[?!]/\\s\\ns&\\s\\nP/g
	s:/:\\s\\ns/\\s\\nP:g
}
/^\.UL/{
	s/{/\\(Fl/g
	s/}/\\(Fi/g
	s/"/\\(34/g
	s/[?!]/\\s\\ns&\\s\\nP/g
	s:/:\\s\\ns/\\s\\nP:g
}
s/#/\\(de/g
s/\\\*/XXX/g
s/\*/\\v'-.1m'\\s\\ns&\\s\\nP\\v'.1m'/g
s/XXX/\\*/g
s/\\e/\\s\\ns\\(rg\\s\\nP/g