diff options
Diffstat (limited to 'src/mac/TestTrack/ShlibTestTrack.c')
-rw-r--r-- | src/mac/TestTrack/ShlibTestTrack.c | 115 |
1 files changed, 0 insertions, 115 deletions
diff --git a/src/mac/TestTrack/ShlibTestTrack.c b/src/mac/TestTrack/ShlibTestTrack.c deleted file mode 100644 index 01c69f6..0000000 --- a/src/mac/TestTrack/ShlibTestTrack.c +++ /dev/null @@ -1,115 +0,0 @@ -/* - * Copyright (C) 1997 by the Massachusetts Institute of Technology - * All rights reserved. - * - * For copying and distribution information, please see the file - * COPYRIGHT. - */ - -short MacOSErr; - -#include <CodeFragments.h> -#include <Processes.h> -/* sarac 02/19/98, added Sound.h for SysBeep() */ -#include <Sound.h> - -#include "TestTrackLib.h" - -#define TBALERTID 135 -#define TB30ALERTID 136 - -struct VersionResourceRecord { - Byte majorRev; /* Major revision in BCD*/ - Byte minorRev; /* Minor vevision in BCD*/ - Byte releaseStage; - Byte nonReleaseRev; /* Non-final release # */ - short countryCode; /* Region code */ - Str255 shortVersNumStr; /* Short version number */ - Str255 longVersNumStr; /* Long version number */ -}; - -typedef struct VersionResourceRecord VersionResourceRecord, *VersionResourcePtr, **VersionResourceHandle; - -OSErr ShlibTestTrack(CFragInitBlockPtr ibp); - -OSErr ShlibTestTrack(CFragInitBlockPtr ibp) -{ - OSErr err = noErr; - short fileRefNum, saveRes, processResFile; - ProcessSerialNumber thePSN; - ProcessInfoRec thePIR; - FSSpec currAppSpec; - VersionResourceHandle versResource; - char versionString[256]; - char processSignature[5]; - short len, i; - - if ( (Ptr) test_track != (Ptr) kUnresolvedCFragSymbolAddress ) { - /* Start our hack by saving the current resource ref*/ - - saveRes = CurResFile(); - -/* if (ibp->fragLocator.where == kDataForkCFragLocator) - { - fileRefNum = FSpOpenResFile(ibp->fragLocator.u.onDisk.fileSpec, fsRdPerm); - - if ( fileRefNum == -1 ) - err = ResError(); - }*/ - - /* We assume that the current process is the one calling us. Good bet */ - err = GetCurrentProcess( &thePSN ); - - if ( err == noErr ) - { - /* fill in required fields for the ProcessInfoRec */ - thePIR.processInfoLength = sizeof(ProcessInfoRec); - thePIR.processName = nil; - thePIR.processAppSpec = &currAppSpec; - - GetProcessInformation( &thePSN, &thePIR ); - - /* copy the processSignature into a string */ - BlockMoveData (&(thePIR.processSignature),&processSignature,sizeof(OSType)); - processSignature[4] = '\0'; - -/* processResFile = FSpOpenResFile(&currAppSpec, fsRdPerm); - err = ResError();*/ - - if (err == noErr) - { - versResource = (VersionResourceHandle)GetResource('vers',1); - - if (versResource != nil) - { - /* Make a local C-string copy of the short version number string (a Pascall string) */ - HLock((Handle)versResource); - len = ((**versResource).shortVersNumStr)[0]; - for (i = 1; i <= len; i++) - versionString[i-1] = ((**versResource).shortVersNumStr)[i]; - versionString[len] = '\0'; - HUnlock((Handle)versResource); - - ReleaseResource((Handle)versResource); - } - } - - if ( thePIR.processType == 'APPL' ) - { - if (test_track(processSignature, versionString, true, true, 0) == -1) { - SysBeep(10); - SysBeep(10); - - ExitToShell(); - } - } - } - /*if ( fileRefNum != -1 ) - CloseResFile( fileRefNum );*/ - - UseResFile( saveRes ); - - } - - return err; -} |