- Added an is_scriptable method to test applications for having

  a scripting dictionary. Made up by me, not guaranteed to be correct
  (and, indeed, Internet Explorer does not seem to play by the book).
- Added the interactive main program as a separate routine, so it
  can be called from the IDE later. Also made it less interactive by
  default: only the input app and output package folder are asked for.

diff --git a/Mac/scripts/gensuitemodule.py b/Mac/scripts/gensuitemodule.py
index ab16e9fd87548724dbd07f26c6e2ae94588e3f45..9e599c89a9e9b467123b86aa058364db6cb357d2 100644 (file)
--- a/Mac/scripts/gensuitemodule.py
+++ b/Mac/scripts/gensuitemodule.py
@@ -19,8 +19,10 @@ import aetools
 import distutils.sysconfig
 import OSATerminology
 from Carbon.Res import *
+import Carbon.Folder
 import MacOS
 import getopt
+import plistlib
 
 _MAC_LIB_FOLDER=os.path.dirname(aetools.__file__)
 DEFAULT_STANDARD_PACKAGEFOLDER=os.path.join(_MAC_LIB_FOLDER, 'lib-scriptpackages')
@@ -79,22 +81,61 @@ def main():
                        process_func(filename, output=output, basepkgname=basepkgname, 
                                edit_modnames=edit_modnames, creatorsignature=creatorsignature)
        else:
-               # The dialogOptionFlags below allows selection of .app bundles.
-               filename = EasyDialogs.AskFileForOpen(
-                       message='Select scriptable application',
-                       dialogOptionFlags=0x1056)
-               if not filename:
-                       sys.exit(0)
-               try:
-                       processfile(filename)
-               except MacOS.Error, arg:
-                       print "Error getting terminology:", arg
-                       print "Retry, manually parsing resources"
-                       processfile_fromresource(filename)
+               main_interactive()
+               
+def main_interactive(interact=0, basepkgname='StdSuites'):
+       if interact:
+               # Ask for save-filename for each module
+               edit_modnames = None
+       else:
+               # Use default filenames for each module
+               edit_modnames = []
+       appsfolder = Carbon.Folder.FSFindFolder(-32765, 'apps', 0)
+       filename = EasyDialogs.AskFileForOpen(
+               message='Select scriptable application',
+               dialogOptionFlags=0x1056,               # allow selection of .app bundles
+               defaultLocation=appsfolder)
+       if not filename:
+               return
+       if not is_scriptable(filename):
+               if EasyDialogs.AskYesNoCancel(
+                               "Warning: application does not seem scriptable",
+                               yes="Continue", default=2, no="") <= 0:
+                       return
+       try:
+               processfile(filename, edit_modnames=edit_modnames, basepkgname=basepkgname)
+       except MacOS.Error, arg:
+               print "Error getting terminology:", arg
+               print "Retry, manually parsing resources"
+               processfile_fromresource(filename, edit_modnames=edit_modnames,
+                       basepkgname=basepkgname)
+                       
+def is_scriptable(application):
+       """Return true if the application is scriptable"""
+       if os.path.isdir(application):
+               plistfile = os.path.join(application, 'Contents', 'Info.plist')
+               if not os.path.exists(plistfile):
+                       return False
+               plist = plistlib.Plist.fromFile(plistfile)
+               return plist.get('NSAppleScriptEnabled', False)
+       # If it is a file test for an aete/aeut resource.
+       currf = CurResFile()
+       try:
+               refno = macresource.open_pathname(application)
+       except MacOS.Error:
+               return False
+       UseResFile(refno)
+       n_terminology = Count1Resources('aete') + Count1Resources('aeut') + \
+               Count1Resources('scsz') + Count1Resources('osiz')
+       CloseResFile(refno)
+       UseResFile(currf)
+       return n_terminology > 0
 
 def processfile_fromresource(fullname, output=None, basepkgname=None, 
                edit_modnames=None, creatorsignature=None):
        """Process all resources in a single file"""
+       if not is_scriptable(fullname):
+               print "Warning: app does not seem scriptable: %s" % fullname
        cur = CurResFile()
        print "Processing", fullname
        rf = macresource.open_pathname(fullname)
@@ -127,6 +168,8 @@ def processfile_fromresource(fullname, output=None, basepkgname=None,
 def processfile(fullname, output=None, basepkgname=None, 
                edit_modnames=None, creatorsignature=None):
        """Ask an application for its terminology and process that"""
+       if not is_scriptable(fullname):
+               print "Warning: app does not seem scriptable: %s" % fullname
        print "\nASKING FOR aete DICTIONARY IN", `fullname`
        try:
                aedescobj, launched = OSATerminology.GetAppTerminology(fullname)