You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
130 lines
3.7 KiB
130 lines
3.7 KiB
#! /usr/bin/env python
|
|
|
|
# Emulate some Perl command line options.
|
|
# Usage: pp [-a] [-c] [-d] [-e scriptline] [-F fieldsep] [-n] [-p] [file] ...
|
|
# Where the options mean the following:
|
|
# -a : together with -n or -p, splits each line into list F
|
|
# -c : check syntax only, do not execute any code
|
|
# -d : run the script under the debugger, pdb
|
|
# -e scriptline : gives one line of the Python script; may be repeated
|
|
# -F fieldsep : sets the field separator for the -a option [not in Perl]
|
|
# -n : runs the script for each line of input
|
|
# -p : prints the line after the script has run
|
|
# When no script lines have been passed, the first file argument
|
|
# contains the script. With -n or -p, the remaining arguments are
|
|
# read as input to the script, line by line. If a file is '-'
|
|
# or missing, standard input is read.
|
|
|
|
# XXX To do:
|
|
# - add -i extension option (change files in place)
|
|
# - make a single loop over the files and lines (changes effect of 'break')?
|
|
# - add an option to specify the record separator
|
|
# - except for -n/-p, run directly from the file if at all possible
|
|
|
|
import sys
|
|
import getopt
|
|
|
|
FS = ''
|
|
SCRIPT = []
|
|
AFLAG = 0
|
|
CFLAG = 0
|
|
DFLAG = 0
|
|
NFLAG = 0
|
|
PFLAG = 0
|
|
|
|
try:
|
|
optlist, ARGS = getopt.getopt(sys.argv[1:], 'acde:F:np')
|
|
except getopt.error, msg:
|
|
sys.stderr.write('%s: %s\n' % (sys.argv[0], msg))
|
|
sys.exit(2)
|
|
|
|
for option, optarg in optlist:
|
|
if option == '-a':
|
|
AFLAG = 1
|
|
elif option == '-c':
|
|
CFLAG = 1
|
|
elif option == '-d':
|
|
DFLAG = 1
|
|
elif option == '-e':
|
|
for line in optarg.split('\n'):
|
|
SCRIPT.append(line)
|
|
elif option == '-F':
|
|
FS = optarg
|
|
elif option == '-n':
|
|
NFLAG = 1
|
|
PFLAG = 0
|
|
elif option == '-p':
|
|
NFLAG = 1
|
|
PFLAG = 1
|
|
else:
|
|
print option, 'not recognized???'
|
|
|
|
if not ARGS: ARGS.append('-')
|
|
|
|
if not SCRIPT:
|
|
if ARGS[0] == '-':
|
|
fp = sys.stdin
|
|
else:
|
|
fp = open(ARGS[0], 'r')
|
|
while 1:
|
|
line = fp.readline()
|
|
if not line: break
|
|
SCRIPT.append(line[:-1])
|
|
del fp
|
|
del ARGS[0]
|
|
if not ARGS: ARGS.append('-')
|
|
|
|
if CFLAG:
|
|
prologue = ['if 0:']
|
|
epilogue = []
|
|
elif NFLAG:
|
|
# Note that it is on purpose that AFLAG and PFLAG are
|
|
# tested dynamically each time through the loop
|
|
prologue = [
|
|
'LINECOUNT = 0',
|
|
'for FILE in ARGS:',
|
|
' \tif FILE == \'-\':',
|
|
' \t \tFP = sys.stdin',
|
|
' \telse:',
|
|
' \t \tFP = open(FILE, \'r\')',
|
|
' \tLINENO = 0',
|
|
' \twhile 1:',
|
|
' \t \tLINE = FP.readline()',
|
|
' \t \tif not LINE: break',
|
|
' \t \tLINENO = LINENO + 1',
|
|
' \t \tLINECOUNT = LINECOUNT + 1',
|
|
' \t \tL = LINE[:-1]',
|
|
' \t \taflag = AFLAG',
|
|
' \t \tif aflag:',
|
|
' \t \t \tif FS: F = L.split(FS)',
|
|
' \t \t \telse: F = L.split()'
|
|
]
|
|
epilogue = [
|
|
' \t \tif not PFLAG: continue',
|
|
' \t \tif aflag:',
|
|
' \t \t \tif FS: print FS.join(F)',
|
|
' \t \t \telse: print \' \'.join(F)',
|
|
' \t \telse: print L',
|
|
]
|
|
else:
|
|
prologue = ['if 1:']
|
|
epilogue = []
|
|
|
|
# Note that we indent using tabs only, so that any indentation style
|
|
# used in 'command' will come out right after re-indentation.
|
|
|
|
program = '\n'.join(prologue) + '\n'
|
|
for line in SCRIPT:
|
|
program += ' \t \t' + line + '\n'
|
|
program += '\n'.join(epilogue) + '\n'
|
|
|
|
import tempfile
|
|
fp = tempfile.NamedTemporaryFile()
|
|
fp.write(program)
|
|
fp.flush()
|
|
if DFLAG:
|
|
import pdb
|
|
pdb.run('execfile(%r)' % (fp.name,))
|
|
else:
|
|
execfile(fp.name)
|