1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
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;
}
|
