add back mistakenly deleted files

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@11004 dc483132-0cff-0310-8789-dd5450dbe970

1 files changed, 115 insertions, 0 deletions

diff --git a/src/mac/TestTrack/ShlibTestTrack.c b/src/mac/TestTrack/ShlibTestTrack.c
new file mode 100644
index 000000000..01c69f69b
--- /dev/null
+++ b/src/mac/TestTrack/ShlibTestTrack.c
@@ -0,0 +1,115 @@
+/*
+ *   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;
+}