Mac/Contrib/BBPy/source/BBPy_main.c

   1 /*      BBPython
   2         A simple menu command to send the contents of a window to the Python interpreter
   3
   4         copyright © 1996 Just van Rossum, Letterror: just@knoware.nl
   5
   6         All Rights Reserved
   7 */
   8
   9 #include "BBPy.h"
  10
  11 OSErr SendTextAsAE(ExternalCallbackBlock *callbacks, Ptr theText, long theSize, Str255 windowTitle)
  12 {
  13         OSErr                   err;
  14         AEDesc          theEvent;
  15         AEAddressDesc   theTarget;
  16         AppleEvent      theReply;
  17         AEDesc          theTextDesc;
  18         AEDesc          theNameDesc;
  19         OSType          pythonSig = 'Pyth';
  20         FSSpec          docSpec;
  21         short                   itemHit;
  22         long                    time;
  23         EventRecord     theDummyEvent;
  24
  25         /* initialize AE descriptor for python's signature */
  26         err = AECreateDesc (typeApplSignature, &pythonSig, sizeof(OSType), &theTarget);
  27         if(err != noErr) return err;
  28
  29         /* initialize AE descriptor for the title of our window */
  30         err = AECreateDesc (typeChar, &windowTitle[1], windowTitle[0], &theNameDesc);
  31         if(err != noErr) return err;
  32
  33         /* initialize AE descriptor for the content of our window */
  34         err = AECreateDesc ('TEXT', theText, theSize, &theTextDesc);
  35         if(err != noErr) return err;
  36
  37         /* initialize AppleEvent */
  38         err = AECreateAppleEvent ('pyth', 'EXEC', &theTarget, kAutoGenerateReturnID, kAnyTransactionID, &theEvent);
  39         if(err != noErr) return err;
  40
  41         /* add the content of our window to the AppleEvent */
  42         err = AEPutParamDesc (&theEvent, keyDirectObject, &theTextDesc);
  43         if(err != noErr) return err;
  44
  45         /* add the title of our window to the AppleEvent */
  46         err = AEPutParamDesc (&theEvent, 'NAME', &theNameDesc);
  47         if(err != noErr) return err;
  48
  49         /* send the AppleEvent */
  50         err = AESend (&theEvent, &theReply, kAEWaitReply, kAEHighPriority, kNoTimeOut, NULL, NULL);
  51         if(err == connectionInvalid) {
  52                 // launch PythonSlave.py
  53                 itemHit = Alert(128, NULL);
  54                 if(itemHit == 2)  return noErr; /* user cancelled */
  55
  56                 if( ! GetPythonSlaveSpec(&docSpec) )
  57                         return noErr;           /* user cancelled */
  58
  59                 err = LaunchPythonSlave(&docSpec);
  60                 if(err != noErr) return err;
  61         } else if(err != noErr)
  62                 return err;
  63
  64         /* clean up */
  65         err = AEDisposeDesc (&theTarget);
  66         if(err != noErr) return err;
  67
  68         err = AEDisposeDesc (&theNameDesc);
  69         if(err != noErr) return err;
  70
  71         err = AEDisposeDesc (&theTextDesc);
  72         if(err != noErr) return err;
  73
  74         err = AEDisposeDesc (&theEvent);
  75         if(err != noErr) return err;
  76
  77         err = AEDisposeDesc (&theReply);
  78         if(err != noErr) return err;
  79
  80         /* everything is cool */
  81         return noErr;
  82 }
  83
  84 pascal void main(ExternalCallbackBlock *callbacks, WindowPtr theWindow)
  85 {
  86         long            oldA4;
  87         OSErr           err;
  88         Handle  windowContents;
  89         Str255  windowTitle;
  90
  91         //RememberA0(); /* Can't find header file for this. Seems to work anyway. */
  92
  93         oldA4 = SetUpA4();
  94
  95         GetWTitle(theWindow, windowTitle);
  96         windowContents = callbacks->GetWindowContents(theWindow);
  97
  98         HLock(windowContents);
  99         err = SendTextAsAE(callbacks, *windowContents, GetHandleSize(windowContents), windowTitle);
 100         if(err != noErr) callbacks->ReportOSError(err);
 101         HUnlock(windowContents);
 102
 103         RestoreA4(oldA4);
 104 }