home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 October: Mac OS SDK / Dev.CD Oct 97 SDK1.toast / Development Kits (Disc 1) / AppleScript / Development Tools / Sample Code / 7Edit 3.1 / Sources / SVAESave.c < prev    next >
Encoding:
Text File  |  1995-11-20  |  3.8 KB  |  160 lines  |  [TEXT/CWIE]
  1. // SVAESave.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 "SVAESave.h"
  8.  
  9. #include "SVEditAEUtils.h"
  10. #include "SVEditWindow.h"        // for DPtrFromWindowPtr()
  11. #include "SVEditFile.h"            // for DoSave() etc…
  12.  
  13.  
  14. // -----------------------------------------------------------------------
  15. //    Name:             DoSaveWindow
  16. //    Purpose:        Handles the Save AppleEvent.
  17. // -----------------------------------------------------------------------
  18.  
  19. #pragma segment File
  20.  
  21. pascal OSErr DoSaveWindow(const AppleEvent    *theAppleEvent,
  22.                                 AppleEvent    *reply,
  23.                                 long        handlerRefCon)
  24. { 
  25. #pragma unused (reply, handlerRefCon)
  26.  
  27.     AEDesc            directObj = {typeNull, NULL};
  28.     Size            actualSize;
  29.     DescType        returnedType;
  30.     FSSpec            destFSSpec;
  31.     
  32.     WindowToken        aWindowToken;
  33.     OSErr            err;
  34.     
  35.         // pick up the direct object
  36.     err = AEGetParamDesc(theAppleEvent, keyDirectObject, typeWildCard, &directObj);
  37.                                                  
  38.         // pick up optional destination param, if any
  39.     if (noErr != AEGetParamPtr(theAppleEvent, keyAEDestination, typeFSS, &returnedType,
  40.                                         (Ptr)&destFSSpec, sizeof(destFSSpec), &actualSize))
  41.     {
  42.         destFSSpec.vRefNum = 0;
  43.         destFSSpec.parID = 0;
  44.     }
  45.  
  46.     err = GotRequiredParams(theAppleEvent);
  47.     if (noErr != err) goto done;
  48.     
  49.     if (typeNull != directObj.descriptorType)
  50.         err = SaveDesc(&directObj, &destFSSpec);
  51.     else if (FrontWindow())
  52.     {
  53.         aWindowToken.tokenWindow = FrontWindow();
  54.     
  55.         err = SaveWindowToken(&aWindowToken, &destFSSpec);
  56.     }
  57.     else
  58.         err = errAENoSuchObject;
  59.   
  60. done:
  61.     if (directObj.dataHandle) 
  62.         AEDisposeDesc(&directObj);
  63.             
  64.     return(err);
  65. }    // DoSaveWindow
  66.  
  67.  
  68. OSErr    SaveWindowToken(WindowToken* theToken, FSSpec* destFSSpec)
  69. {
  70.     DPtr            docPtr;
  71.     OSErr            err;
  72.     
  73.     docPtr = DPtrFromWindowPtr(theToken->tokenWindow);
  74.     
  75.     if (! docPtr)
  76.         return(errAENoSuchObject);
  77.  
  78.     if (docPtr->everSaved == false && ! destFSSpec->vRefNum && ! destFSSpec->parID) 
  79.         return(kAEGenericErr);        // Never been saved and no destination to save
  80.     
  81.     if (destFSSpec->vRefNum || destFSSpec->parID)    // We were given a destination
  82.         err = DoSave(docPtr, *destFSSpec);
  83.     else
  84.         err = SaveUsingTemp(docPtr);
  85.  
  86.     return(err);
  87. }
  88.  
  89.  
  90. OSErr    SaveWindowDesc(AEDesc* windowDesc, FSSpec* destFSSpec)
  91. {
  92.     WindowToken        aWindowToken;
  93.     Size            actualSize;
  94.     OSErr            err;
  95.  
  96.     if (typeMyWndw != windowDesc->descriptorType)
  97.         return(errAETypeError);
  98.         
  99.     GetRawDataFromDescriptor(windowDesc, (Ptr)&aWindowToken, sizeof(aWindowToken), &actualSize);
  100.  
  101.     err = SaveWindowToken(&aWindowToken, destFSSpec);
  102.     
  103.     return(err);
  104. }
  105.  
  106.  
  107. OSErr    SaveDesc(AEDesc* aDesc, FSSpec* destFSSpec)
  108. {
  109.     AEDesc        saveDesc = {typeNull, NULL},
  110.                 windowDesc = {typeNull, NULL},
  111.                 itemDesc = {typeNull, NULL};
  112.     long        itemCount,
  113.                 index;
  114.     DescType    theAEKeyword;
  115.     OSErr        err;
  116.     
  117.     if (typeObjectSpecifier == aDesc->descriptorType)
  118.         err = AEResolve(aDesc, kAEIDoMinimum, &saveDesc);
  119.     else
  120.         err = AEDuplicateDesc(aDesc, &saveDesc);
  121.         
  122.     if (noErr != err) goto done;
  123.     
  124.     switch (saveDesc.descriptorType)
  125.     {
  126.         case typeAEList:
  127.             err = AECountItems(&saveDesc, &itemCount);
  128.             if (noErr != err) goto done;
  129.             
  130.             for (index = 1; index <= itemCount; index++)    // Do front back order
  131.             {
  132.                 err = AEGetNthDesc(&saveDesc, index, typeWildCard, &theAEKeyword, &itemDesc);
  133.                 if (noErr != err) goto done;
  134.                 
  135.                 err = SaveDesc(&itemDesc, destFSSpec);        // Call recursively
  136.                 if (noErr != err) goto done;
  137.  
  138.                 if (itemDesc.dataHandle)
  139.                     AEDisposeDesc(&itemDesc);
  140.             }
  141.             break;
  142.             
  143.         default:
  144.             err = AECoerceDesc(&saveDesc, typeMyWndw, &windowDesc);
  145.             if (noErr != err) goto done;
  146.             err = SaveWindowDesc(&windowDesc, destFSSpec);
  147.     }
  148.     
  149. done:
  150.     if (saveDesc.dataHandle)
  151.         AEDisposeDesc(&saveDesc);
  152.     if (windowDesc.dataHandle)
  153.         AEDisposeDesc(&windowDesc);
  154.     if (itemDesc.dataHandle)
  155.         AEDisposeDesc(&itemDesc);
  156.     
  157.     return(err);
  158. }
  159.  
  160.