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;
-}