Mercurial > pidgin
view src/win32/nsis/gaim-plugin.nsh @ 12106:36a0c8719af3
[gaim-migrate @ 14403]
Account option lists UI from Don.
committer: Tailor Script <tailor@pidgin.im>
author | Sean Egan <seanegan@gmail.com> |
---|---|
date | Tue, 15 Nov 2005 08:42:03 +0000 |
parents | 8b955ffe9584 |
children |
line wrap: on
line source
;; ;; 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}\src\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 ersion 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