1N/A chdir 't' if -d 't'; 1N/A# This script should be run on itself 1N/A /^#\(..\)\(..\)\2\1*$/p 1N/A /^#[abc]\{1,\}[def]\{1,\}$/p 1N/As/^[ ]*\([01]\{1,\}\)[ ]*/\1/ 1N/A# expand binary to Xs 1N/As/^\(X\{1,\}\)0/\1\1/ 1N/As/^\(X\{1,\}\)1/\1\1X/ 1N/A# count Xs in decimal 1N/A# d delete pattern space, start next cycle 1N/A# enclose any `(a)'.. `(c)' in `-' 1N/A# this is literal { } 1N/A '#no autoprint', 's/./X/p', 's/foo/bar/p', 't bye', '=', 'p', ':bye' ), 1N/A# delete line, append NL to hold space 1N/A# last line only: get hold 1N/A# This script should be run on itself 1N/A /^#\(..\)\(..\)\2\1*$/p 1N/A /^#[abc]\{1,\}[def]\{1,\}$/p 1N/A# temporary file names 1N/A# various command lines for 1N/A # default in the .com extenson if it's not already there 1N/A# psed: we create a local copy as linking may not work on some systems. 1N/A# process all testcases 1N/A # 1st test: run psed 1N/A # prepare the script 1N/A # additional files for r, w: patch script, inserting temporary names 1N/A # on VMS, runperl eats blank lines to work around 1N/A # spurious newlines in pipes 1N/A # translate the sed script to a Perl program 1N/A # execute generated Perl program, compare