home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 February: Tool Chest / Dev.CD Feb 97 TC.toast / Sample Code / Interapplication Communication / MenuScripter 4.0 / Sources / MSAEGetDataSize.c < prev    next >
Encoding:
Text File  |  1996-07-09  |  3.7 KB  |  148 lines  |  [TEXT/CWIE]
  1. // MSAEGetDataSize.c
  2. //
  3. // Original version by Jon Lansdell and Nigel Humphreys.
  4. // 4.0 and 3.1 updates by Greg Sutton.
  5. // ©Apple Computer Inc 1996, all rights reserved.
  6.  
  7. #include "MSAEGetDataSize.h"
  8.  
  9. #include "MSAEUtils.h"
  10.  
  11. // -----------------------------------------------------------------------
  12. //        Name:             DoGetDataSize
  13. //        Purpose:        Handles the GetDataSize AppleEvent.
  14. // -----------------------------------------------------------------------
  15.  
  16. pascal OSErr    DoGetDataSize(const AppleEvent    *theAppleEvent,
  17.                                     AppleEvent    *reply,
  18.                                     long        handlerRefCon)
  19. { 
  20. #ifdef __MWERKS__
  21.     #pragma unused (handlerRefCon)
  22. #endif
  23.  
  24.     AEDesc        directObj = {typeNull, NULL},
  25.                 result = {typeNull, NULL};
  26.     Size          actualSize;
  27.     DescType      returnedType;
  28.     DescType      reqType;
  29.     OSErr         err;
  30.     
  31.         // pick up the direct object, which is the object whose data is to be sized
  32.     err = AEGetParamDesc(theAppleEvent, keyDirectObject, typeWildCard, &directObj);
  33.         
  34.         // now the get the type wanted - optional
  35.     reqType = typeChar;    // Default to char
  36.     (void)AEGetParamPtr(theAppleEvent, keyAERequestedType, typeType, &returnedType,
  37.                                                 (Ptr)&reqType, sizeof(reqType), &actualSize);
  38.         
  39.     err = GotRequiredParams(theAppleEvent);
  40.     if (noErr != err) goto done;
  41.     
  42.     if (typeNull != directObj.descriptorType)
  43.         err = GetDataSizeDesc(&directObj, reqType, &result);
  44.     else
  45.         err = errAENoSuchObject;
  46.         
  47.     err = AddResultToReply(&result, reply, err);
  48.  
  49. done:    
  50.     (void)AEDisposeDesc(&directObj);
  51.     (void)AEDisposeDesc(&result);
  52.             
  53.     return(err);
  54. } // DoGetDataSize
  55.  
  56.  
  57. OSErr    GetDataSizeTextToken(TextToken* theToken, AEDesc* result)
  58. {
  59.     long    aSize;
  60.     OSErr    err;
  61.     
  62.     aSize = theToken->tokenLength;
  63.     
  64.     err = AECreateDesc(typeLongInteger, (Ptr)&aSize, sizeof(aSize), result);
  65.  
  66.     return(err);
  67. }
  68.  
  69. OSErr    GetDataSizeTextDesc(AEDesc* textDesc, AEDesc* result)
  70. {
  71.     TextToken        aTextToken;
  72.     Size            actualSize;
  73.     OSErr            err;
  74.  
  75.     if (typeMyText != textDesc->descriptorType)
  76.         return(errAETypeError);
  77.         
  78.     GetRawDataFromDescriptor(textDesc, (Ptr)&aTextToken, sizeof(aTextToken), &actualSize);
  79.  
  80.     err = GetDataSizeTextToken(&aTextToken, result);
  81.     
  82.     return(err);
  83. }
  84.  
  85. OSErr    GetDataSizeDesc(AEDesc* aDesc, DescType reqType, AEDesc* result)
  86. {
  87.     AEDesc        dataSizeDesc = {typeNull, NULL},
  88.                 textDesc = {typeNull, NULL},
  89.                 itemDesc = {typeNull, NULL},
  90.                 itemResult = {typeNull, NULL};
  91.     long        itemCount,
  92.                 index;
  93.     DescType    theAEKeyword;
  94.     OSErr        err;
  95.     
  96.     if (typeObjectSpecifier == aDesc->descriptorType)
  97.         err = AEResolve(aDesc, kAEIDoMinimum, &dataSizeDesc);
  98.     else if (typeNull != aDesc->descriptorType)
  99.         err = AEDuplicateDesc(aDesc, &dataSizeDesc);
  100.         
  101.     if (noErr != err) goto done;
  102.     
  103.     if (typeAEList == dataSizeDesc.descriptorType)
  104.     {
  105.         err = AECreateList(NULL, 0 , false, result);    // Result will also be a list of items
  106.         if (noErr != err) goto done;
  107.         err = AECountItems(&dataSizeDesc, &itemCount);
  108.         if (noErr != err) goto done;
  109.         
  110.         for (index = 1; index <= itemCount; index++)
  111.         {
  112.             err = AEGetNthDesc(&dataSizeDesc, index, typeWildCard, &theAEKeyword, &itemDesc);
  113.             if (noErr != err) goto done;
  114.             
  115.             err = GetDataSizeDesc(&itemDesc, reqType, &itemResult);    // Call recursively
  116.             if (noErr != err) goto done;
  117.             
  118.             err = AEPutDesc(result, 0, &itemResult);    // Add to our result list
  119.             if (noErr != err) goto done;
  120.  
  121.             (void)AEDisposeDesc(&itemDesc);
  122.             (void)AEDisposeDesc(&itemResult);
  123.         }
  124.     }
  125.     else
  126.     {
  127.         switch (reqType)
  128.         {
  129.             case typeChar:
  130.                 err = AECoerceDesc(&dataSizeDesc, typeMyText, &textDesc);
  131.                 if (noErr != err) goto done;
  132.                 err = GetDataSizeTextDesc(&textDesc, result);
  133.                 break;
  134.                 
  135.             default:
  136.                 err = errAEWrongDataType;
  137.         }
  138.     }
  139.     
  140. done:
  141.     (void)AEDisposeDesc(&dataSizeDesc);
  142.     (void)AEDisposeDesc(&textDesc);
  143.     (void)AEDisposeDesc(&itemDesc);
  144.     (void)AEDisposeDesc(&itemResult);
  145.     
  146.     return(err);
  147. }
  148.