mirror of https://github.com/python/cpython
347 lines
8.5 KiB
Python
347 lines
8.5 KiB
Python
"""
|
|
Produces a human readable file of an application's aete
|
|
|
|
v.02 january 29, 1998 bug fix Main()
|
|
v.03 january 31, 1998 added support for inheriting suites from aeut
|
|
v.04 april 16, 1998 Changed identify to match getaete
|
|
"""
|
|
|
|
import aetools
|
|
import sys
|
|
import MacOS
|
|
import StringIO
|
|
import types
|
|
import macfs
|
|
import string
|
|
import macpath
|
|
from Res import *
|
|
|
|
# for testing only
|
|
app = 'MACS'#CSOm'#'nwSP'#'ezVu'#
|
|
|
|
#Dialect file hard coded as a tempoary measure
|
|
DIALECT = 'Hermit:System Folder:Scripting Additions:Dialects:English Dialect'
|
|
|
|
#Restrict the application suites to the dialect we want to use.
|
|
LANG = 0 # 0 = English, 1 = French, 11 = Japanese
|
|
|
|
#The following are neaded to open the application aete
|
|
kASAppleScriptSuite = 'ascr'
|
|
kGetAETE = 'gdte'
|
|
attributes = {}
|
|
arguments = {}
|
|
|
|
class AETE(aetools.TalkTo):
|
|
pass
|
|
|
|
def Main(appl):
|
|
fss, ok = macfs.PromptGetFile('Application to work on', 'FNDR', 'APPL')#
|
|
if not ok:
|
|
return
|
|
app = fss.GetCreatorType()[0]
|
|
path = macpath.split(sys.argv[0])[0]
|
|
appname = macpath.split(fss.as_pathname())[1]
|
|
appname = appname + '.aete'
|
|
appname = macpath.join(path, appname)
|
|
try:
|
|
data = Getaete(app)
|
|
except MacOS.Error, msg:
|
|
if msg[0] == -609:
|
|
_launch(app)
|
|
data = Getaete(app)
|
|
# print data
|
|
data = decode(data['----'].data)
|
|
data = compileaete(data, appname)
|
|
|
|
|
|
def decode(data):
|
|
"""Decode an aete into a python data structure"""
|
|
f = StringIO.StringIO(data)
|
|
aete = generic(getaete, f)
|
|
aete = simplify(aete)
|
|
return aete
|
|
|
|
def simplify(item):
|
|
"""Recursively replace singleton tuples by their constituent item"""
|
|
if type(item) is types.ListType:
|
|
return map(simplify, item)
|
|
elif type(item) == types.TupleType and len(item) == 2:
|
|
return simplify(item[1])
|
|
else:
|
|
return item
|
|
|
|
|
|
## Here follows the aete resource decoder.
|
|
## It is presented bottom-up instead of top-down because there are direct
|
|
## references to the lower-level part-decoders from the high-level part-decoders.
|
|
#
|
|
def getbyte(f, *args):
|
|
c = f.read(1)
|
|
if not c:
|
|
raise EOFError, 'in getbyte' + str(args)
|
|
return ord(c)
|
|
|
|
def getword(f, *args):
|
|
getalign(f)
|
|
s = f.read(2)
|
|
if len(s) < 2:
|
|
raise EOFError, 'in getword' + str(args)
|
|
return (ord(s[0])<<8) | ord(s[1])
|
|
|
|
def getlong(f, *args):
|
|
getalign(f)
|
|
s = f.read(4)
|
|
if len(s) < 4:
|
|
raise EOFError, 'in getlong' + str(args)
|
|
return (ord(s[0])<<24) | (ord(s[1])<<16) | (ord(s[2])<<8) | ord(s[3])
|
|
|
|
def getostype(f, *args):
|
|
getalign(f)
|
|
s = f.read(4)
|
|
if len(s) < 4:
|
|
raise EOFError, 'in getostype' + str(args)
|
|
return s
|
|
|
|
def getpstr(f, *args):
|
|
c = f.read(1)
|
|
if len(c) < 1:
|
|
raise EOFError, 'in getpstr[1]' + str(args)
|
|
nbytes = ord(c)
|
|
if nbytes == 0: return ''
|
|
s = f.read(nbytes)
|
|
if len(s) < nbytes:
|
|
raise EOFError, 'in getpstr[2]' + str(args)
|
|
return s
|
|
|
|
def getalign(f):
|
|
if f.tell() & 1:
|
|
c = f.read(1)
|
|
##if c <> '\0':
|
|
## print 'align:', `c`
|
|
|
|
def getlist(f, description, getitem):
|
|
count = getword(f)
|
|
list = []
|
|
for i in range(count):
|
|
list.append(generic(getitem, f))
|
|
getalign(f)
|
|
return list
|
|
|
|
def alt_generic(what, f, *args):
|
|
print "generic", `what`, args
|
|
res = vageneric(what, f, args)
|
|
print '->', `res`
|
|
return res
|
|
|
|
def generic(what, f, *args):
|
|
if type(what) == types.FunctionType:
|
|
return apply(what, (f,) + args)
|
|
if type(what) == types.ListType:
|
|
record = []
|
|
for thing in what:
|
|
# print thing
|
|
item = apply(generic, thing[:1] + (f,) + thing[1:])
|
|
record.append((thing[1], item))
|
|
return record
|
|
return "BAD GENERIC ARGS: %s" % `what`
|
|
|
|
getdata = [
|
|
(getostype, "type"),
|
|
(getpstr, "description"),
|
|
(getword, "flags")
|
|
]
|
|
getargument = [
|
|
(getpstr, "name"),
|
|
(getostype, "keyword"),
|
|
(getdata, "what")
|
|
]
|
|
getevent = [
|
|
(getpstr, "name"),
|
|
(getpstr, "description"),
|
|
(getostype, "suite code"),
|
|
(getostype, "event code"),
|
|
(getdata, "returns"),
|
|
(getdata, "accepts"),
|
|
(getlist, "optional arguments", getargument)
|
|
]
|
|
getproperty = [
|
|
(getpstr, "name"),
|
|
(getostype, "code"),
|
|
(getdata, "what")
|
|
]
|
|
getelement = [
|
|
(getostype, "type"),
|
|
(getlist, "keyform", getostype)
|
|
]
|
|
getclass = [
|
|
(getpstr, "name"),
|
|
(getostype, "class code"),
|
|
(getpstr, "description"),
|
|
(getlist, "properties", getproperty),
|
|
(getlist, "elements", getelement)
|
|
]
|
|
getcomparison = [
|
|
(getpstr, "operator name"),
|
|
(getostype, "operator ID"),
|
|
(getpstr, "operator comment"),
|
|
]
|
|
getenumerator = [
|
|
(getpstr, "enumerator name"),
|
|
(getostype, "enumerator ID"),
|
|
(getpstr, "enumerator comment")
|
|
]
|
|
getenumeration = [
|
|
(getostype, "enumeration ID"),
|
|
(getlist, "enumerator", getenumerator)
|
|
]
|
|
getsuite = [
|
|
(getpstr, "suite name"),
|
|
(getpstr, "suite description"),
|
|
(getostype, "suite ID"),
|
|
(getword, "suite level"),
|
|
(getword, "suite version"),
|
|
(getlist, "events", getevent),
|
|
(getlist, "classes", getclass),
|
|
(getlist, "comparisons", getcomparison),
|
|
(getlist, "enumerations", getenumeration)
|
|
]
|
|
getaete = [
|
|
(getword, "major/minor version in BCD"),
|
|
(getword, "language code"),
|
|
(getword, "script code"),
|
|
(getlist, "suites", getsuite)
|
|
]
|
|
|
|
def compileaete(aete, appname):
|
|
"""Generate dictionary file for a full aete resource."""
|
|
[version, language, script, suites] = aete
|
|
major, minor = divmod(version, 256)
|
|
fp = open(appname, 'w')
|
|
|
|
fp.write('%s:\n' % (appname))
|
|
fp.write("AETE resource version %d/%d, language %d, script %d\n" % \
|
|
(major, minor, language, script))
|
|
fp.write('\n\n')
|
|
gsuites = openaeut()
|
|
for suite in suites:
|
|
if language == LANG:
|
|
suitecode = suite[2]
|
|
if suite[5] == []:
|
|
for gsuite in gsuites:
|
|
if suitecode == gsuite[2]:
|
|
suite = gsuite
|
|
[name, desc, code, level, version, events, classes, comps, enums] = suite
|
|
fp.write('\n%s Suite: %s\n' % (name, desc))
|
|
fp.write('\n\tEvents:\n')
|
|
for event in events:
|
|
fp.write('\n\t%s: %s\n' % (identify(event[0]), event[1]))
|
|
fp.write('\t\t%s: %s -- %s\n' % (identify(event[0]), event[5][1], event[5][0]))
|
|
fp.write('\t\tResult: %s -- %s\n' % (event[4][1], event[4][0]))
|
|
for ev in event[6]:
|
|
fp.write('\t\t\t%s: %s -- %s\n' % (identify(ev[0]), ev[2][0], ev[2][1]))
|
|
fp.write('\n\tClasses')
|
|
for klass in classes:
|
|
fp.write('\n\t%s: %s\n' % (identify(klass[0]), klass[2]))
|
|
if klass[3]:
|
|
if not klass[3][0][0]: continue
|
|
fp.write('\t\tProperties\n')
|
|
for cl in klass[3]:
|
|
fp.write('\t\t\t%s: %s -- %s\n' % (identify(cl[0]), cl[2][1], cl[2][0]))#,, cl[3][3][1]))
|
|
if klass[4]:
|
|
fp.write('\n\t\t\tElements\n')
|
|
for cl in klass[4]:
|
|
fp.write('\t\t\t\t%s: %s\n' % (identify(cl[0]), cl[1]))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
illegal_ids = [ "for", "in", "from", "and", "or", "not", "print", "class", "return",
|
|
"def", "name" ]
|
|
|
|
def identify(str):
|
|
"""Turn any string into an identifier:
|
|
- replace space by _
|
|
- prepend _ if the result is a python keyword
|
|
"""
|
|
|
|
rv = string.replace(str, ' ', '_')
|
|
rv = string.replace(rv, '-', '')
|
|
rv = string.replace(rv, ',', '')
|
|
rv = string.capitalize(rv)
|
|
return rv
|
|
|
|
|
|
def Getaete(app):
|
|
'''Read the target aete'''
|
|
arguments['----'] = LANG
|
|
_aete = AETE(app)
|
|
_reply, _arguments, _attributes = _aete.send('ascr', 'gdte', arguments, attributes)
|
|
if _arguments.has_key('errn'):
|
|
raise aetools.Error, aetools.decodeerror(_arguments)
|
|
return _arguments
|
|
|
|
def openaeut():
|
|
"""Open and read a aeut file.
|
|
XXXXX This has been temporarily hard coded until a Python aeut is written XXXX"""
|
|
|
|
fullname = DIALECT
|
|
|
|
rf = OpenRFPerm(fullname, 0, 1)
|
|
try:
|
|
UseResFile(rf)
|
|
resources = []
|
|
for i in range(Count1Resources('aeut')):
|
|
res = Get1IndResource('aeut', 1+i)
|
|
resources.append(res)
|
|
for res in resources:
|
|
data = res.data
|
|
data = decode(data)[3]
|
|
finally:
|
|
CloseResFile(rf)
|
|
return data
|
|
|
|
|
|
#The following should be replaced by direct access to a python 'aeut'
|
|
|
|
class _miniFinder(aetools.TalkTo):
|
|
def open(self, _object, _attributes={}, **_arguments):
|
|
"""open: Open the specified object(s)
|
|
Required argument: list of objects to open
|
|
Keyword argument _attributes: AppleEvent attribute dictionary
|
|
"""
|
|
_code = 'aevt'
|
|
_subcode = 'odoc'
|
|
|
|
if _arguments: raise TypeError, 'No optional args expected'
|
|
_arguments['----'] = _object
|
|
|
|
|
|
_reply, _arguments, _attributes = self.send(_code, _subcode,
|
|
_arguments, _attributes)
|
|
if _arguments.has_key('errn'):
|
|
raise aetools.Error, aetools.decodeerror(_arguments)
|
|
# XXXX Optionally decode result
|
|
if _arguments.has_key('----'):
|
|
return _arguments['----']
|
|
|
|
_finder = _miniFinder('MACS')
|
|
|
|
def _launch(appfile):
|
|
"""Open a file thru the finder. Specify file by name or fsspec"""
|
|
_finder.open(_application_file(('ID ', appfile)))
|
|
|
|
|
|
class _application_file(aetools.ComponentItem):
|
|
"""application file - An application's file on disk"""
|
|
want = 'appf'
|
|
|
|
_application_file._propdict = {
|
|
}
|
|
_application_file._elemdict = {
|
|
}
|
|
|
|
Main(app)
|
|
sys.exit(1)
|