Menu
▾
▴
SF.net SVN: frontierkernel: [1426] Frontier/branches/FSRef_Migration/Common/source
|
From: <cre...@us...> - 2006-06-26 21:19:42
|
Revision: 1426 Author: creecode Date: 2006-06-26 14:19:26 -0700 (Mon, 26 Jun 2006) ViewCVS: http://svn.sourceforge.net/frontierkernel/?rev=1426&view=rev Log Message: ----------- files deleted Removed Paths: ------------- Frontier/branches/FSRef_Migration/Common/headers/filesystem7.h Frontier/branches/FSRef_Migration/Common/source/filelaunch.c Deleted: Frontier/branches/FSRef_Migration/Common/headers/filesystem7.h =================================================================== --- Frontier/branches/FSRef_Migration/Common/headers/filesystem7.h 2006-06-26 19:48:29 UTC (rev 1425) +++ Frontier/branches/FSRef_Migration/Common/headers/filesystem7.h 2006-06-26 21:19:26 UTC (rev 1426) @@ -1,37 +0,0 @@ - -/* $Id$ */ - -/****************************************************************************** - - UserLand Frontier(tm) -- High performance Web content management, - object database, system-level and Internet scripting environment, - including source code editing and debugging. - - Copyright (C) 1992-2004 UserLand Software, Inc. - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - -******************************************************************************/ - -#define filesystem7include - - -/*prototypes*/ - -extern short System7Open (FSSpec); /*filelaunch.c*/ - - - - Deleted: Frontier/branches/FSRef_Migration/Common/source/filelaunch.c =================================================================== --- Frontier/branches/FSRef_Migration/Common/source/filelaunch.c 2006-06-26 19:48:29 UTC (rev 1425) +++ Frontier/branches/FSRef_Migration/Common/source/filelaunch.c 2006-06-26 21:19:26 UTC (rev 1426) @@ -1,345 +0,0 @@ - -/* $Id$ */ - -/****************************************************************************** - - UserLand Frontier(tm) -- High performance Web content management, - object database, system-level and Internet scripting environment, - including source code editing and debugging. - - Copyright (C) 1992-2004 UserLand Software, Inc. - - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - -******************************************************************************/ - -#include "frontier.h" -#include "standard.h" - -#include "file.h" -#include "filesystem7.h" -#include "ops.h" - - - -#define kAEFinderEvents 'FNDR' -#define kAEShowClipboard 'shcl' -#define kAEPutAway 'sput' -#define keyAEFinderSelection 'fsel' -#define kAEDrag 'drag' -#define keyAEFinderMisc 'fmsc' -#define kAEEmptyTrash 'empt' -#define kAEOpenSelection 'sope' -#define kAEPrintSelection 'spri' - -#if TARGET_API_MAC_CARBON == 1 -#else -static ProcessSerialNumber FinderNumber; -//Code change by Timothy Paustian Wednesday, June 21, 2000 4:04:43 PM -//in Carbon you have to use high level apple events. Since what we are trying -//to do is launch an application, lets try that. -static OSErr GetFinderPort(void) { - - IPCListPortsPBRec ipc; - PPCPortRec port; - LocationNameRec where; - short i; - short err; - long first4; - PortInfoRec FinderPort; - - if (FinderNumber.lowLongOfPSN || FinderNumber.highLongOfPSN) { - err = GetPortNameFromProcessSerialNumber(&FinderPort.name, &FinderNumber); - if (err == noErr) return noErr; - }; - - for (i = 0; ; i++) { - ipc.ioCompletion = 0; - ipc.startIndex = i; - ipc.requestCount = 1; - ipc.portName = &port; - port.nameScript = 0; - port.name[0] = 1; - port.name[1] = '='; - port.portKindSelector = ppcByString; - port.u.portTypeStr[0] = 1; - port.u.portTypeStr[1] = '='; - ipc.locationName = &where; - where.locationKindSelector = ppcNoLocation; - ipc.bufferPtr = &FinderPort; - - err = IPCListPortsSync(&ipc); - if (err != noErr) return err; - if (ipc.actualCount != 1) return -1; - BlockMove(&FinderPort.name.u.portTypeStr[1], &first4, 4); - if (first4 != 'MACS') continue; - GetProcessSerialNumberFromPortName(&FinderPort.name, &FinderNumber); - return 0; - }; - -} -#endif - -/* -the MFDispatch calls are only needed if you want to make the request -anonymously. Normally you don't have to do this. I do it because I -don't want the Finder sending replies back to the frontmost app. -*/ - -pascal short MFDispatch(short number) ONEWORDINLINE (0xA88F); - -short System7Open (FSSpec fs2) { - - /* - 3/12/92 dmb: commented out MFDispatch calls, seeking A/UX compatibility - - 6/1/92 dmb: added return (err) at end of function - - 8/20/92 dmb: special case for a/ux - */ - - #if TARGET_API_MAC_CARBON == 1 - //Code change by Timothy Paustian Wednesday, June 21, 2000 4:06:47 PM - //Maybe I'm nuts, but I think I can do this very easily. - //2/25/2001 Tim P No I can't this needs to be an apple event - //I need to send an apple event to have the thing opened - //The below code works. It is a total rip off of the example code in apples - //Finder launch example. http://developer.apple.com/samplecode/Sample_Code/Interapplication_Comm/FinderLaunch.htm - //I have pretty much left it as is. We could clean it up by not creating a targetList, But - //I am leaving the ability in there in case it's wante later - OSErr err; - AppleEvent theAEvent, theReply; - AEAddressDesc fndrAddress; - AEDescList targetListDesc; - OSType fndrCreator; - Boolean wasChanged; - AliasHandle targetAlias; - long idx; // 2006-04-03 - kw --- renamed - long nTargets = 1; - FSSpec targets[1]; - FSSpec *targetList; - targets[0] = fs2; - targetList = targets; - - /* verify parameters */ - if ( (nTargets == 0) - || (targetList == NULL)) - { - return paramErr; - } - - /* set up locals */ - AECreateDesc(typeNull, NULL, 0, &theAEvent); - AECreateDesc(typeNull, NULL, 0, &fndrAddress); - AECreateDesc(typeNull, NULL, 0, &theReply); - AECreateDesc(typeNull, NULL, 0, &targetListDesc); - targetAlias = NULL; - fndrCreator = 'MACS'; - - /* create an open documents event targeting the finder */ - err = AECreateDesc(typeApplSignature, (Ptr) &fndrCreator, - sizeof(fndrCreator), &fndrAddress); - if (err != noErr) goto bail; - err = AECreateAppleEvent(kCoreEventClass, kAEOpenDocuments, - &fndrAddress, kAutoGenerateReturnID, - kAnyTransactionID, &theAEvent); - if (err != noErr) goto bail; - - /* create the list of files to open */ - err = AECreateList(NULL, 0, false, &targetListDesc); - if (err != noErr) goto bail; - for ( idx = 0; idx < nTargets; idx++) { - if (targetAlias == NULL) - err = NewAlias(NULL, (targetList + idx), &targetAlias); - else err = UpdateAlias(NULL, (targetList + idx), targetAlias, &wasChanged); - if (err != noErr) goto bail; - HLock((Handle) targetAlias); - err = AEPutPtr(&targetListDesc, (idx + 1), typeAlias, *targetAlias, GetHandleSize((Handle) targetAlias)); - HUnlock((Handle) targetAlias); - if (err != noErr) goto bail; - } - - /* add the file list to the apple event */ - err = AEPutParamDesc(&theAEvent, keyDirectObject, &targetListDesc); - if (err != noErr) goto bail; - - /* send the event to the Finder */ - err = AESend(&theAEvent, &theReply, kAENoReply, - kAENormalPriority, kAEDefaultTimeout, NULL, NULL); - - /* clean up and leave */ -bail: - if (targetAlias != NULL) DisposeHandle((Handle) targetAlias); - AEDisposeDesc(&targetListDesc); - AEDisposeDesc(&theAEvent); - AEDisposeDesc(&fndrAddress); - AEDisposeDesc(&theReply); - return err; - - #else - - static EventRecord er; - short err; - AliasHandle a1 = 0, a2 = 0; - long hs1, hs2; - FSSpec fs1; - Handle message; - CInfoPBRec pb; - long version; - - err = GetFinderPort(); - - if (err != noErr) - return err; - - /* - err = FSMakeFSSpec(vRefNum, dirID, name, &fs2); - if (err != noErr) - return err; - */ - - /* get some catalog information, which we will use later. */ - pb.dirInfo.ioCompletion=0; - pb.dirInfo.ioNamePtr = fs2.name; - pb.dirInfo.ioVRefNum = fs2.vRefNum; - pb.dirInfo.ioFDirIndex = 0; - pb.dirInfo.ioDrDirID = fs2.parID; - - err = PBGetCatInfoSync(&pb); - - if (err != noErr) - return err; - - err = NewAliasMinimal(&fs2, &a2); - - if (err != noErr) - return err; - - fs1 = fs2; - - if (gestalt (gestaltAUXVersion, &version)) { /*running under A/UX; cover bugs*/ - - if (fs1.parID == 1) { /*it's a volume*/ - - fs1.vRefNum = -1; /*a/ux wants to see the root as the parent*/ - } - else { /*not a volume: path parsing works better under a/ux*/ - - bigstring path; - - if (!filespectopath (&fs1, path)) - return (false); - - folderfrompath (path, path); - - if (!pathtofilespec (path, &fs1)) - return (false); - - goto gotfs1; - } - } - else { - - if (fs1.parID == 1) { /*it's a volume*/ - - err = FindFolder(fs1.vRefNum, kDesktopFolderType, false, &fs1.vRefNum, &fs1.parID); - - if (err != noErr) - return err; - } - } - - err = FSMakeFSSpec(fs1.vRefNum, fs1.parID, "\p", &fs1); - - if (err != noErr) - return err; - - gotfs1: - - err = NewAliasMinimal(&fs1, &a1); - - if (err != noErr) - return err; - - hs1 = GetHandleSize((Handle) a1); - hs2 = GetHandleSize((Handle) a2); - - MoveHHi((Handle) a1); HLock((Handle) a1); - MoveHHi((Handle) a2); HLock((Handle) a2); - - er.what = kHighLevelEvent; /* PHLE fills this in, but we do it just to be clear. */ - er.message = kAEFinderEvents; /* this is the event class */ - *(long *)&er.where = kAEOpenSelection; /* this is the event type - see Card 131 */ - er.when = TickCount(); /* this also gets filled in, but... */ - er.modifiers = 0; /* doesn't matter */ - - message = NewHandle (24 + hs1 + 28 + hs2); - - /* - normally you'd use Apple Events manager calls to pack up a message and - send it. I do things this way only because I can't be sure the frontmost - app has initialized that manager. - */ - - if (message) { - register long *filler = (void *)*message; - - *filler++ = 'aevt'; - *filler++ = 0x00010001; - *filler++ = ';;;;'; - *filler++ = '----'; - *filler++ = 'alis'; - *filler++ = hs1; - BlockMove(*a1, filler, hs1); filler = (long *)(hs1 + (long) filler); - *filler++ = 'fsel'; - *filler++ = 'list'; - *filler++ = hs2 + 16; - *filler++ = 1; - *filler++ = 0; - *filler++ = 'alis'; - *filler++ = hs2; - BlockMove(*a2, filler, hs2); - }; - - DisposeHandle((Handle) a1); - DisposeHandle((Handle) a2); - - if (!message) - return (memFullErr); - - /* - MFDispatch(0x40); - */ - HLock(message); - - err = PostHighLevelEvent(&er, &FinderNumber, 237, - *message, GetHandleSize(message), - receiverIDisPSN); - - /* - MFDispatch(0x41); - */ - - if ((pb.dirInfo.ioFlAttrib & ioDirMask) || pb.hFileInfo.ioFlFndrInfo.fdType == 'cdev') { - SetFrontProcess(&FinderNumber); - }; - - DisposeHandle(message); - #endif - - - return (err); - } /*System7Open*/ - This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
