home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 January: Mac OS SDK / Dev.CD Jan 99 SDK1.toast / Development Kits / AppleScript / Development Tools / Sample Code / 7Edit 3.1 / Sources / SVAEGetData.c < prev    next >
Encoding:
Text File  |  1995-11-20  |  14.1 KB  |  506 lines  |  [TEXT/CWIE]
  1. // SVAEGetData.c
  2. //
  3. // 7Edit 3.1d1. Original version by Jon Lansdell and Nigel Humphreys.
  4. // 3.1 updates by Greg Sutton.
  5. // ©Apple Computer Inc 1995, all rights reserved.
  6.  
  7. #include "SVAEGetData.h"
  8.  
  9. #include "SVEditWindow.h"
  10. #include "SVEditGlobals.h"
  11. #include "SVEditAEUtils.h"
  12. #include "SVAppleEvents.h"
  13.  
  14. #include "SVAETextUtils.h"
  15. #include "SVAEWindowUtils.h"
  16. #include "SVAEAccessors.h"
  17. #include "SVAERecording.h"
  18. #include "SVToken.h"
  19.  
  20.  
  21. #include <AEPackObject.h>
  22. #include <Resources.h>
  23.  
  24.  
  25.  
  26. extern short        gRefNum;
  27.  
  28. // -----------------------------------------------------------------------
  29. //        Name:             DoGetData
  30. //        Purpose:        Handles the GetData AppleEvent.
  31. // -----------------------------------------------------------------------
  32.  
  33. pascal OSErr     DoGetData(const AppleEvent    *theAppleEvent,
  34.                                 AppleEvent    *reply,
  35.                                 long        handlerRefCon)
  36. { 
  37. #pragma unused (handlerRefCon)
  38.  
  39.     AEDesc        directObj = {typeNull, NULL},
  40.                 result = {typeNull, NULL};
  41.     Size        actualSize;
  42.     DescType    returnedType;
  43.     DescType    reqType;
  44.     OSErr        reqTypeErr,
  45.                 err;
  46.     
  47.         // extract the direct object, which is the object
  48.         // whose data is to be returned
  49.     err = AEGetParamDesc(theAppleEvent, keyDirectObject, typeWildCard, &directObj);
  50.     if (noErr != err) goto done;
  51.         
  52.         // now the get the type of data wanted - optional
  53.     reqTypeErr = AEGetParamPtr(theAppleEvent, keyAERequestedType, typeType,
  54.                                 &returnedType, (Ptr)&reqType, sizeof(reqType), &actualSize);
  55.         
  56.     err = GotRequiredParams(theAppleEvent);
  57.     if (noErr != err) goto done;
  58.     
  59.         // get the data
  60.     err = HandleGetData(&directObj, &result);
  61.         
  62.     err = AddResultToReply(&result, reply, err);
  63.  
  64. done:                
  65.     if (directObj.dataHandle)
  66.           AEDisposeDesc(&directObj);
  67.     if (result.dataHandle)
  68.           AEDisposeDesc(&result);
  69.         
  70.     return(err);
  71. }    // DoGetData
  72.  
  73.  
  74. // -----------------------------------------------------------------------
  75. //    Name:         HandleGetData
  76. //    Purpose:    Coerces theObj into a token which we understand and
  77. //                extracts the data requested in the token and puts it
  78. //                into dataDesc.
  79. // -----------------------------------------------------------------------
  80.  
  81. OSErr    HandleGetData(AEDesc *theObj, AEDesc *dataDesc)
  82. {
  83.     TextToken       theTextToken;
  84.     Size            tokenSize;
  85.     AEDesc          objTokenDesc = {typeNull, NULL},
  86.                     itemDesc = {typeNull, NULL},
  87.                     resultDesc = {typeNull, NULL};
  88.     long            index;
  89.     DescType        returnedType;
  90.     OSErr           err;
  91.  
  92.             //    Coerce theObj into a token which we can use - 
  93.             //        this may involve converting a list of tokens to a list of property tokens
  94.     if (typeObjectSpecifier == theObj->descriptorType)
  95.         err = AEResolve(theObj, kAEIDoMinimum, &objTokenDesc);
  96.     else    // Otherwise, just copy it
  97.         err = AEDuplicateDesc(theObj, &objTokenDesc);
  98.     
  99.     if (noErr != err) goto done;
  100.     
  101.     switch (objTokenDesc.descriptorType)
  102.     {
  103.         case typeMyApplProp:
  104.             err = GetApplicationProperty(&objTokenDesc, dataDesc);
  105.             break;
  106.             
  107.         case typeMyTextProp:
  108.             err = GetTextProperty(&objTokenDesc, dataDesc);
  109.             break;
  110.             
  111.         case typeMyWindowProp:
  112.             err = GetWindowProperty(&objTokenDesc, dataDesc);
  113.             break;
  114.             
  115.         case typeMyText:
  116.             GetRawDataFromDescriptor(&objTokenDesc, (Ptr)&theTextToken,
  117.                                         sizeof(theTextToken), &tokenSize);
  118.             
  119.             err = GetTextTextProperty(&theTextToken, dataDesc);
  120.             break;
  121.             
  122.         case typeAEList:
  123.             err = AECountItems(&objTokenDesc, &index);
  124.             if (noErr != err) goto done;
  125.     
  126.             for (; index > 0; index--)
  127.             {
  128.                 err = AEGetNthDesc(&objTokenDesc, index, typeWildCard, &returnedType, &itemDesc);
  129.     
  130.                 if (noErr == err)        // Call this function recursively if necessary
  131.                     err = HandleGetData(&itemDesc, &resultDesc);
  132.                 
  133.                 if (noErr == err)        // Overwrite item in list with descriptor item
  134.                     err = AEPutDesc(&objTokenDesc, index, &resultDesc);
  135.                                                         // objTokenDesc is just a copy anyway.
  136.                 if (itemDesc.dataHandle)
  137.                     AEDisposeDesc(&itemDesc);
  138.                 if (resultDesc.dataHandle)
  139.                     AEDisposeDesc(&resultDesc);
  140.             }
  141.             
  142.             err = AEDuplicateDesc(&objTokenDesc, dataDesc);        // Copy list into result
  143.             break;
  144.             
  145.         default:    
  146.             err = errAEWrongDataType;
  147.     }
  148.  
  149. done:
  150.     if (objTokenDesc.dataHandle)
  151.         AEDisposeDesc(&objTokenDesc);
  152.     
  153.     return(err);
  154. } // HandleGetData
  155.  
  156.  
  157. // Get the actual data for a text token - rather than just offset and length
  158. // used internally.
  159.  
  160. OSErr    GetTextTextProperty(TextToken* theToken, AEDesc *dataDesc)
  161. {
  162.     TEHandle    aTEH;
  163.     short        anOffset,
  164.                 aLength;
  165.     OSErr        err;
  166.     
  167.     aTEH = TEHandleFromTextToken(theToken);
  168.     anOffset = theToken->tokenOffset;
  169.     aLength = theToken->tokenLength;
  170.     
  171.     err = BuildStyledTextDesc(aTEH, anOffset, aLength, dataDesc);
  172.  
  173.     return(err);
  174. }
  175.  
  176. // -----------------------------------------------------------------------
  177. //    Name:         GetTextProperty
  178. //    Purpose:    Fills dataDesc with the requested text property.
  179. // -----------------------------------------------------------------------
  180.      
  181. OSErr GetTextProperty(const AEDesc *theTokenDesc, AEDesc *dataDesc)
  182. {
  183.     DPtr          theDocument;
  184.     TEHandle      theHTE;
  185.     Str255        fontName;
  186.     TextStyle     theTextStyle;
  187.     short         lineHeight;
  188.     short         fontAscent;
  189.     TextPropToken theTextPropToken;
  190.     Size          tokenSize;
  191.     AEDesc        tempDesc;
  192.     OSErr         err;
  193.     
  194.     err = AECoerceDesc(theTokenDesc, typeMyTextProp, &tempDesc);
  195.     if (noErr != err) goto done;
  196.     
  197.     GetRawDataFromDescriptor(&tempDesc, (Ptr)&theTextPropToken,
  198.                                     sizeof(theTextPropToken), &tokenSize);
  199.  
  200.     // For each property we build a descriptor to be returned as the reply.
  201.             
  202.     theDocument = DPtrFromWindowPtr(theTextPropToken.tokenTextToken.tokenWindow);
  203.     theHTE = theDocument->theText;
  204.     
  205.     TEGetStyle(theTextPropToken.tokenTextToken.tokenOffset - 1, &theTextStyle,
  206.                                                 &lineHeight, &fontAscent, theHTE);
  207.     
  208.     switch (theTextPropToken.tokenProperty)
  209.     {
  210.         case pText:
  211.         case pContents:
  212.             err = GetTextTextProperty(&(theTextPropToken.tokenTextToken), dataDesc);
  213.             break;
  214.             
  215.         case pFont: 
  216.             GetFontName(theTextStyle.tsFont, fontName);
  217.             
  218.             err = AECreateDesc(typeChar,  (Ptr)&fontName[1], fontName[0], dataDesc);
  219.             break;
  220.         
  221.         case pTextStyles: 
  222.             err = BuildTextStylesDesc(theTextStyle.tsFace, dataDesc);
  223.             break;
  224.  
  225.         case pPointSize: 
  226.             err = CreateOffsetDescriptor(theTextStyle.tsSize, dataDesc);
  227.             break;
  228.  
  229.         case pScriptTag: 
  230.             err = CreateOffsetDescriptor(smSystemScript, dataDesc);
  231.             break;
  232.         
  233.         case pColor: 
  234.             err = AECreateDesc(typeRGBColor, (Ptr)&theTextStyle.tsColor,
  235.                                         sizeof(theTextStyle.tsColor), dataDesc);
  236.             break;
  237.             
  238.         case pLength:
  239.             tokenSize = theTextPropToken.tokenTextToken.tokenLength;
  240.             err = AECreateDesc(typeInteger, (Ptr)&tokenSize,
  241.                                 sizeof(tokenSize), dataDesc);
  242.             break;
  243.             
  244.         case pOffset:
  245.             tokenSize = theTextPropToken.tokenTextToken.tokenOffset;
  246.             err = AECreateDesc(typeInteger, (Ptr)&tokenSize,
  247.                                 sizeof(tokenSize), dataDesc);
  248.             break;
  249.             
  250.         default:
  251.             err = errAEEventNotHandled;
  252.     }
  253.  
  254. done:
  255.     if (tempDesc.dataHandle)
  256.         AEDisposeDesc(&tempDesc);
  257.     
  258.     return(err);
  259. } // GetTextProperty
  260.     
  261. // -----------------------------------------------------------------------
  262. //        Name:             GetWindowProperty
  263. //        Purpose:        Fills dataDesc with the requested window property.
  264. // -----------------------------------------------------------------------
  265. typedef Rect **RectHandle;
  266.  
  267. OSErr    GetWindowProperty(const AEDesc *theWPTokenObj, AEDesc *dataDesc)
  268. {             
  269.     Str255          theName;
  270.     Boolean         theBoolean;
  271.     Rect            theRect;
  272.     Point           thePoint;
  273.     Rect            winRect;
  274.     Rect            userRect;
  275.     short           theIndex;
  276.     DPtr            docPtr;
  277.     TEHandle        theHTE;
  278.     GrafPtr         savePort;
  279.     WindowPropToken theWindowPropToken;
  280.     AEDesc          tempDesc = {typeNull, NULL};
  281.     Size            tokenSize;
  282.     Handle          thePGXHandle;
  283.     OSErr           err;
  284.     
  285.     err = AECoerceDesc(theWPTokenObj,typeMyWindowProp, &tempDesc);
  286.     if (noErr != err) goto done;
  287.     
  288.     GetRawDataFromDescriptor(&tempDesc, (Ptr)&theWindowPropToken,
  289.                                 sizeof(theWindowPropToken),  &tokenSize);
  290.     
  291.     switch (theWindowPropToken.tokenProperty)
  292.     {
  293.         case pName:
  294.             GetWTitle(theWindowPropToken.tokenWindowToken.tokenWindow, theName);
  295.             err = AECreateDesc(typeChar, (Ptr)&theName[1], theName[0], dataDesc);
  296.             break;
  297.             
  298.         case pText:
  299.         case pContents:
  300.             docPtr = DPtrFromWindowPtr(theWindowPropToken.tokenWindowToken.tokenWindow);
  301.             theHTE = docPtr->theText;
  302.             err = BuildStyledTextDesc(theHTE, 1, (**theHTE).teLength, dataDesc);
  303.             break;
  304.             
  305.         case pBounds:
  306.             GetPort(&savePort);
  307.             SetPort(theWindowPropToken.tokenWindowToken.tokenWindow);
  308.             theRect = (*((WindowPeek)theWindowPropToken.tokenWindowToken.tokenWindow)->strucRgn)->rgnBBox;
  309.             err = AECreateDesc(typeQDRectangle, (Ptr)&theRect, sizeof(theRect), dataDesc);
  310.             SetPort(savePort);
  311.             break;
  312.             
  313.         case pPosition:
  314.             thePoint.v = (*((WindowPeek)theWindowPropToken.tokenWindowToken.tokenWindow)->strucRgn)->rgnBBox.top;
  315.             thePoint.h = (*((WindowPeek)theWindowPropToken.tokenWindowToken.tokenWindow)->strucRgn)->rgnBBox.left;
  316.             err= AECreateDesc(typeQDPoint, (Ptr)&thePoint, sizeof(thePoint), dataDesc);
  317.             break;
  318.             
  319.         case pVisible:
  320.             theBoolean = ((WindowPeek)theWindowPropToken.tokenWindowToken.tokenWindow)->visible;
  321.             err = AECreateDesc(typeBoolean, (Ptr)&theBoolean, sizeof(theBoolean), dataDesc);
  322.             break;
  323.             
  324.         case pIsModal:
  325.         case pIsFloating:
  326.             theBoolean = false;
  327.             err = AECreateDesc(typeBoolean, (Ptr)&theBoolean, sizeof(theBoolean), dataDesc);
  328.             break;
  329.             
  330.         case pIsZoomed:
  331.             if (((WindowPeek)theWindowPropToken.tokenWindowToken.tokenWindow)->spareFlag)
  332.             {
  333.                 GetPort(&savePort);
  334.                 SetPort(theWindowPropToken.tokenWindowToken.tokenWindow);
  335.                 
  336.                 userRect = **((RectHandle)((WindowPeek)qd.thePort)->dataHandle);
  337.                 winRect  = qd.thePort->portRect;
  338.                 LocalToGlobal((Point *)&winRect.top);
  339.                 LocalToGlobal((Point *)&winRect.bottom);
  340.                 
  341.                 theBoolean = ! EqualRect(&userRect, &winRect);
  342.                 SetPort(savePort);
  343.             }
  344.             else
  345.                 theBoolean = false;
  346.                             
  347.             err = AECreateDesc(typeBoolean, (Ptr)&theBoolean, sizeof(theBoolean), dataDesc);
  348.             break;
  349.             
  350.         case pIsResizable:
  351.         case pHasTitleBar:
  352.         case pHasCloseBox:
  353.         case pIsZoomable:
  354.             theBoolean = true;
  355.             err = AECreateDesc(typeBoolean, (Ptr)&theBoolean, sizeof(theBoolean), dataDesc);
  356.             break;
  357.             
  358.         case pIsModified:
  359.             docPtr = DPtrFromWindowPtr(theWindowPropToken.tokenWindowToken.tokenWindow);
  360.             theBoolean = docPtr->dirty;
  361.             err = AECreateDesc(typeBoolean, (Ptr)&theBoolean, sizeof(theBoolean), dataDesc);
  362.             break;
  363.             
  364.         case pIndex:
  365.             theIndex = 0;
  366.             if (theWindowPropToken.tokenWindowToken.tokenWindow) 
  367.                 do
  368.                     theIndex++;
  369.                 while (theWindowPropToken.tokenWindowToken.tokenWindow != GetWindowPtrOfNthWindow(theIndex));
  370.                             
  371.             err = AECreateDesc(typeShortInteger, (Ptr)theIndex, sizeof(theIndex), dataDesc);
  372.             break;
  373.             
  374.         case pPageSetup:
  375.             if (! gGXIsPresent)
  376.             {
  377.                 docPtr = DPtrFromWindowPtr(theWindowPropToken.tokenWindowToken.tokenWindow);
  378.                 
  379.                 HLock((Handle)docPtr->thePrintSetup);
  380.                 err = AECreateDesc(typeTPrint, (Ptr)*(docPtr->thePrintSetup),
  381.                                                                 sizeof(TPrint), dataDesc);
  382.                 HUnlock((Handle)docPtr->thePrintSetup);
  383.             }
  384.             else
  385.                 err = errAEEventNotHandled;                         
  386.             break;
  387.  
  388.         case pGXPageSetup:
  389.             if (gGXIsPresent)
  390.             {
  391.                 docPtr = DPtrFromWindowPtr(theWindowPropToken.tokenWindowToken.tokenWindow);
  392.     
  393.                 thePGXHandle = NewHandle(0);
  394.                 GXFlattenJobToHdl(docPtr->documentJob, thePGXHandle);
  395.     
  396.                 HLock(thePGXHandle);
  397.                 
  398.                 err = AECreateDesc(typeTPrint, *thePGXHandle,
  399.                                         GetHandleSize(thePGXHandle), dataDesc);
  400.                                                              
  401.                 HUnlock(thePGXHandle);                                                                             
  402.                 DisposeHandle( thePGXHandle );
  403.             }
  404.             else
  405.                 err = errAEEventNotHandled;                     
  406.             break;
  407.             
  408.         case pSelection:
  409.             docPtr = DPtrFromWindowPtr(theWindowPropToken.tokenWindowToken.tokenWindow);
  410.             err = MakeSelectedTextObj(theWindowPropToken.tokenWindowToken.tokenWindow,
  411.                                                                  docPtr->theText, dataDesc);
  412.             break;
  413.     
  414.         default:
  415.             err = errAEEventNotHandled;
  416.     }
  417.  
  418. done:
  419.     if (tempDesc.dataHandle)
  420.         AEDisposeDesc(&tempDesc);
  421.             
  422.     return(err);
  423. } // GetWindowProperty
  424.     
  425. // -----------------------------------------------------------------------
  426. //        Name:             GetApplicationProperty
  427. //        Purpose:        Fills dataDesc with the requested application property.
  428. // -----------------------------------------------------------------------
  429.      
  430. OSErr    GetApplicationProperty(const AEDesc *theObjToken, AEDesc *result)
  431. {
  432.     Str255                name;
  433.     Boolean                isFront;
  434.     ApplPropToken        theApplPropToken;
  435.     AEDesc                aDesc = {typeNull, NULL},
  436.                         nullDesc = {typeNull, NULL};
  437.     Size                tokenSize;
  438.     DescType            theType;
  439.     ProcessInfoRec        processInfo;
  440.     ProcessSerialNumber    currentProcess;
  441.       short                refNum;
  442.     Handle                aHandle;
  443.       OSErr                err;
  444.     
  445.     err = AECoerceDesc(theObjToken, typeMyApplProp, &aDesc);
  446.     if (noErr != err) goto done;
  447.     
  448.     GetRawDataFromDescriptor(&aDesc, (Ptr)&theApplPropToken,
  449.                                         sizeof(theApplPropToken), &tokenSize);
  450.       
  451.     switch (theApplPropToken.tokenApplProperty)
  452.     {
  453.         case pBestType:      // Return the null descriptor representing
  454.         case pDefaultType:    // the application.
  455.             err = AEDuplicateDesc(&nullDesc, result);
  456.             break;
  457.         
  458.         case pClass:
  459.             theType = cApplication;
  460.             err = AECreateDesc(typeType, (Ptr)&theType, sizeof(DescType), result);
  461.             break;
  462.         
  463.         case pName:
  464.             // Clear out the name, and then call the process manager to get
  465.             // the string for the name of our application.
  466.             
  467.             name[0] = 0;
  468.             processInfo.processInfoLength = sizeof(processInfo);
  469.             processInfo.processName = name;
  470.             processInfo.processAppSpec = NULL;
  471.             
  472.             GetCurrentProcess(¤tProcess);
  473.             GetProcessInformation(¤tProcess, &processInfo);
  474.             
  475.             // Create an AEDesc returning the application name string
  476.             // returned by the process manager.
  477.  
  478.             err = AECreateDesc(typeChar, (Ptr)&name[1], name[0], result);
  479.             break;
  480.         
  481.         case pIsFrontProcess:
  482.             isFront = ! gInBackground;
  483.             err = AECreateDesc(typeBoolean, (Ptr)&isFront, sizeof(isFront), result);
  484.             break;
  485.  
  486.         case pVersion:
  487.             refNum = CurResFile();    // save current resource
  488.             UseResFile(gRefNum);    // set this resource to be current
  489.             aHandle = (Handle)Get1Resource((ResType)'vers', 1);
  490.             HLock(aHandle);
  491.             err = AECreateDesc(typeVersion, *aHandle, GetHandleSize(aHandle), result);
  492.             HUnlock(aHandle);
  493.             UseResFile(refNum);     // reset back to resource previously set
  494.             break;
  495.  
  496.         default:   // We don't handle the requested property.
  497.             err = errAEEventNotHandled;
  498.     }
  499.  
  500. done:
  501.     if (aDesc.dataHandle)
  502.         AEDisposeDesc(&aDesc);
  503.             
  504.     return(err);
  505. } // GetApplicationProperty
  506.