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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
;;
;; Windows Gaim NSIS installer plugin helper utilities
;; Copyright 2005, Daniel Atallah <daniel_atallah@yahoo.com>
;;
;; Include in plugin installer scripts using:
;; !addincludedir "${PATH_TO_GAIM_SRC}\gtkgaim\win32\nsis"
;; !include "gaim-plugin.nsh"
;;
!define GAIM_REG_KEY "SOFTWARE\gaim"
!define GAIM_VERSION_OK 0
!define GAIM_VERSION_INCOMPATIBLE 1
!define GAIM_VERSION_UNDEFINED 2
; Extract the Gaim Version from the registry
; This will set the Error flag if unable to determine the value
; Pop the value of the stack after calling this to get the value (unless Error Flag is set)
Function GetGaimVersion
Push $R0
; Read the gaim version
ClearErrors
ReadRegStr $R0 HKLM ${GAIM_REG_KEY} "Version"
IfErrors +1 GetGaimVersion_found
; fall back to the HKCU registry key
ReadRegStr $R0 HKCU ${GAIM_REG_KEY} "Version"
IfErrors GetGaimVersion_done ; Keep the error flag set
GetGaimVersion_found:
Push $R0 ; Push the value onto the stack
Exch
GetGaimVersion_done:
; restore $R0
Pop $R0
FunctionEnd
; Check that the currently installed gaim version is compatible
; with the plugin version we are installing
; Push the Plugin's Gaim Version onto the Stack before calling
; After calling, the top of the Stack will contain the result of the check:
; GAIM_VERSION_OK - If the installed gaim version is compatible w/ the version specified
; GAIM_VERSION_INCOMPATIBLE - If the installed gaim version isn't compatible w/ the version specified
; GAIM_VERSION_UNDEFINED - If the installed gaim version can't be determined
Function CheckGaimVersion
; Save the Variable values that we will use in the stack
Push $R4
Exch
Pop $R4 ; Get the plugin's Gaim Version
Push $R0
Push $R1
Push $R2
; Read the gaim version
Call GetGaimVersion
IfErrors checkGaimVersion_noGaimInstallFound
Pop $R0
;If they are exactly the same, we don't need to look at anything else
StrCmp $R0 $R4 checkGaimVersion_VersionOK
; Versions are in the form of X.Y.Z
; If X is different or plugin's Y > gaim's Y, then we shouldn't install
;Check the Major Version
Push $R0
Push 0
Call GetVersionComponent
IfErrors checkGaimVersion_noGaimInstallFound ;We couldn't extract 'X' from the installed gaim version
Pop $R2
Push $R4
Push 0
Call GetVersionComponent
IfErrors checkGaimVersion_BadVersion ; this isn't a valid version, so don't bother even checking
Pop $R1
;Check that both versions' X is the same
StrCmp $R1 $R2 +1 checkGaimVersion_BadVersion
;Check the Minor Version
Push $R0
Push 1
Call GetVersionComponent
IfErrors checkGaimVersion_noGaimInstallFound ;We couldn't extract 'Y' from the installed gaim version
Pop $R2
Push $R4
Push 1
Call GetVersionComponent
IfErrors checkGaimVersion_BadVersion ; this isn't a valid version, so don't bother even checking
Pop $R1
;Check that plugin's Y <= gaim's Y
IntCmp $R1 $R2 checkGaimVersion_VersionOK checkGaimVersion_VersionOK checkGaimVersion_BadVersion
checkGaimVersion_BadVersion:
Push ${GAIM_VERSION_INCOMPATIBLE}
goto checkGaimVersion_done
checkGaimVersion_noGaimInstallFound:
Push ${GAIM_VERSION_UNDEFINED}
goto checkGaimVersion_done
checkGaimVersion_VersionOK:
Push ${GAIM_VERSION_OK}
checkGaimVersion_done:
; Restore the Variables that we used
Exch
Pop $R2
Exch
Pop $R1
Exch
Pop $R0
Exch
Pop $R4
FunctionEnd
; Extract the part of a string prior to "." (or the whole string if there is no ".")
; If no "." was found, the ErrorFlag will be set
; Before this is called, Push ${VERSION_STRING} must be called, and then Push 0 for Major, 1 for Minor, etc
; Pop should be called after to retrieve the new value
Function GetVersionComponent
ClearErrors
; Save the Variable values that we will use in the stack
Push $1
Exch
Pop $1 ;The version component which we want to extract (0, 1, 2)
Exch
Push $0
Exch
Pop $0 ;The string from which to extract the version component
Push $2
Push $3
Push $4
Push $5
Push $6
Push $7
StrCpy $2 "0" ;Initialize our string index counter
StrCpy $7 "0" ;Index of last "."
StrCpy $3 "0" ;Initialize our version index counter
startGetVersionComponentLoop:
;avoid infinite loop (if we have gotten the whole initial string, exit the loop and set the error flag)
StrCmp $6 $0 GetVersionComponentSetErrorFlag
IntOp $2 $2 + 1
StrCpy $6 $0 $2 ;Update the infinite loop preventing string
;Determine the correct substring (only the current index component)
IntOp $5 $2 - $7
StrCpy $4 $0 $5 $7 ;Append the current character in $0 to $4
StrCpy $5 $0 1 $2 ;store the next character in $5
;if the next character is ".", $4 will contain the version component prior to "."
StrCmp $5 "." +1 startGetVersionComponentLoop
StrCmp $3 $1 doneGetVersionComponent ;If it is the version component we're looking for, stop
IntOp $3 $3 + 1 ;Increment the version index counter
IntOp $2 $2 + 1 ;Increment the version string index to "." (so it will be skipped)
StrCpy $7 $2 ;Keep track of the index of the last "."
StrCpy $6 $0 $2 ;Update the infinite loop preventing string
goto startGetVersionComponentLoop
GetVersionComponentSetErrorFlag:
SetErrors
doneGetVersionComponent:
; Restore the Variables that we used
Pop $7
Pop $6
Pop $5
Push $4 ;This is the value we're returning
Exch
Pop $4
Exch
Pop $3
Exch
Pop $2
Exch
Pop $0
Exch
Pop $1
FunctionEnd
|
