diff options
Diffstat (limited to 'monowiz.win32.nsi')
| -rw-r--r-- | monowiz.win32.nsi | 650 |
1 files changed, 650 insertions, 0 deletions
diff --git a/monowiz.win32.nsi b/monowiz.win32.nsi new file mode 100644 index 00000000000..fba80ef2e3a --- /dev/null +++ b/monowiz.win32.nsi @@ -0,0 +1,650 @@ +; ================================================================= +; mono.nsi - This NSIS script creates Mono Setup wizard for Windows +; +; Requires NSIS 2.0 (Nullsoft Scriptable Install System) +; From http://nsis.sourceforge.net/site/index.php +; ================================================================= +; +; (C) Copyright 2003 by Johannes Roith +; (C) Copyright 2003, 2004 by Daniel Morgan +; +; Authors: +; Johannes Roith <johannes@jroith.de> +; Daniel Morgan <danielmorgan@verizon.net> +; Urs C Muff <umuff@quark.com> +; Gonzalo Paniagua Javier <gonzalo@ximian.com> +; +; This .nsi includes code from the NSIS Archives: +; function StrReplace and VersionCheck +; by Hendri Adriaens +; HendriAdriaens@hotmail.com +; +; ===================================================== +; +; This script can build a binary setup wizard of mono. +; It is released under the GNU GPL. + +!include "MUI.nsh" +!include "Sections.nsh" + +; +; ===================================================== +; SET MILESTONE & SOURCE DIR +; ===================================================== +; set by makefile!! + +;!define MILESTONE 0.91.99 +;!define BUILDNUM 2 +;!define SOURCE_INSTALL_DIR ..\install\*.* + +; Used to install mcs.exe +!define PROFILE_VERSION 1.0 + +; ===================================================== +; SET LOGO +; ===================================================== +; +; Beautification: +; +; This adds a Mono-specific Image on the left +; You can choose between the light or dark one. +; +; If you wish no mono-specifi logo, please outcomment +; the lines. +; +; "light" is enabled. +; +; !define MUI_SPECIALBITMAP "mono-win32-setup-dark.bmp" + !define MUI_SPECIALBITMAP "mono-win32-setup-light.bmp" + +; ===================================================== +; BUILDING +; ===================================================== +; +; 1. Build mono to a clean directory prefix. +; +; 2. In your install directory, delete the *.a files. +; Most people won't need them and it saves ~ 4 MB. +; +; 3. Type "make win32setup" +; +; 4. The output file is mono-[MILESTONE]-win32-[BUILDNUM].exe +; +; +; ===================================================== +; MONO & REGISTRY / DETECTING MONO +; ===================================================== +; +; +; This setup creates several Registry Keys: +; +; HKEY_LOCAL_MACHINE SOFTWARE\Mono DefaultCLR +; HKEY_LOCAL_MACHINE SOFTWARE\Mono\${MILESTONE} SdkInstallRoot +; HKEY_LOCAL_MACHINE SOFTWARE\Mono\${MILESTONE} FrameworkAssemblyDirectory +; HKEY_LOCAL_MACHINE SOFTWARE\Mono\${MILESTONE} MonoConfigDir +; +; ===================================================== +; +; To get the current Mono Install Directory: +; +; 1. Get DefaultCLR +; 2. Get HKEY_LOCAL_MACHINE SOFTWARE\Mono\$THE_DEFAULT_CLR_VALUE SdkInstallRoot +; +; ===================================================== +; +; To get the current Mono assembly Directory: +; +; 1. Get DefaultCLR +; 2. Get HKEY_LOCAL_MACHINE SOFTWARE\Mono\$THE_DEFAULT_CLR_VALUE FrameworkAssemblyDirectory +; +; ===================================================== +; Do not edit below +; ===================================================== +; +; +; ===================================================== +; GENERAL SETTING - NEED NOT TO BE CHANGED +; ===================================================== + +!define NAME "Mono" +!define TARGET_INSTALL_DIR "$PROGRAMFILES\Mono-${MILESTONE}" +!define OUTFILE mono-${MILESTONE}-win32-${BUILDNUM}.exe + +Name ${NAME} +Caption "Mono ${MILESTONE} Build ${BUILDNUM} Setup" + +SetCompressor bzip2 +SilentInstall normal +ShowInstDetails show +SetDateSave on +SetDatablockOptimize on +CRCCheck on +BGGradient 000000 800000 FFFFFF +InstallColors FF8080 000030 +XPStyle on +AutoCloseWindow false + +; ===================================================== +; SCRIPT +; ===================================================== + +#!define MUI_WELCOMEPAGE +#!define MUI_DIRECTORYPAGE +#!define MUI_DIRECTORYSELECTIONPAGE + +!define MUI_WELCOMEPAGE_TEXT "This wizard will guide you through the installation of Mono for Windows.\r\n\r\n\r\n$_CLICK" + +!insertmacro MUI_PAGE_WELCOME +!insertmacro MUI_PAGE_DIRECTORY +!insertmacro MUI_PAGE_INSTFILES + +!define MUI_FINISHPAGE_LINK "Visit Mono's website for the latest news" +!define MUI_FINISHPAGE_LINK_LOCATION "http://www.go-mono.com/" + +!define MUI_FINISHPAGE_NOREBOOTSUPPORT + +!insertmacro MUI_PAGE_FINISH + +!insertmacro MUI_UNPAGE_CONFIRM +!insertmacro MUI_UNPAGE_INSTFILES + +!insertmacro MUI_LANGUAGE "ENGLISH" + +AutoCloseWindow false +ShowInstDetails show + +OutFile ${OUTFILE} +InstallDir "${TARGET_INSTALL_DIR}" + +;======================== +; Uninstaller +;======================== + +Section "Uninstall" + + MessageBox MB_YESNO "Are you sure you want to uninstall Mono from your system?" IDNO NoUnInstall + + Delete "$INSTDIR\Uninst.exe" ; delete Uninstaller + DeleteRegKey HKLM SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Mono-${MILESTONE} ; Remove Entry in Software List + + MessageBox MB_YESNO "Mono was installed into $INSTDIR. Should this directory be removed completly?" IDNO GoNext1 + RMDir /r $INSTDIR + GoNext1: + + DeleteRegKey HKLM SOFTWARE\Mono\${MILESTONE} + + ; If the Default-Key is the current Milestone, we just remove the wrappers + + ReadRegStr $0 HKEY_LOCAL_MACHINE SOFTWARE\Mono DefaultCLR + StrCmp $0 ${MILESTONE} DeleteWrappers + + MessageBox MB_YESNO "Mono ${MILESTONE} Build ${BUILDNUM} has been removed, but the default installation of Mono differs form this version. Should the wrappers and the Mono registry key be still be removed? This could disable other Mono installations." IDNO GoNext2 + + DeleteWrappers: + + ; Complete Uninstall + + GoNext2: + NoUnInstall: + +SectionEnd + + + Section + + ; Warn people if a newer Mono is already installed + + ReadRegStr $0 HKEY_LOCAL_MACHINE SOFTWARE\Mono DefaultCLR + Push $0 + Push ${MILESTONE} + Call VersionCheck + Pop $0 + StrCmp $0 0 NoAskInstall + StrCmp $0 2 NoAskInstall + MessageBox MB_YESNO "A newer Mono version is already installed. Still continue?" IDNO NoInstall + + NoAskInstall: + + DetailPrint "Installing Mono Files..." + SetOverwrite on + SetOutPath $INSTDIR + File /r ${SOURCE_INSTALL_DIR} + + WriteUninstaller Uninst.exe + + WriteRegStr HKEY_LOCAL_MACHINE SOFTWARE\Mono\${MILESTONE} SdkInstallRoot $INSTDIR + WriteRegStr HKEY_LOCAL_MACHINE SOFTWARE\Mono\${MILESTONE} FrameworkAssemblyDirectory $INSTDIR\lib + WriteRegStr HKEY_LOCAL_MACHINE SOFTWARE\Mono\${MILESTONE} MonoConfigDir $INSTDIR\etc + ;WriteRegStr HKEY_LOCAL_MACHINE SOFTWARE\Mono\${MILESTONE} GtkSharpLibPath $INSTDIR\lib + WriteRegStr HKEY_LOCAL_MACHINE SOFTWARE\Mono DefaultCLR ${MILESTONE} + + ; Mono Uninstall Entry in Windows Software List in the Control panel + WriteRegStr HKEY_LOCAL_MACHINE SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Mono-${MILESTONE} DisplayName "Mono ${MILESTONE}" + WriteRegStr HKEY_LOCAL_MACHINE SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Mono-${MILESTONE} UninstallString $INSTDIR\uninst.exe + + ;original string is like C:\mono-0.20\install + StrCpy $5 $INSTDIR + Push $5 + Push "\" ;search for this string + Push "/" ;replace with this string + Call StrReplace + ;resulting string which is like C:/mono-0.20/install + Pop $6 + +; +; These wrappers are copied to the windows directory. +; + +;======================== +; Write the path file +;======================== + +Push "mint" +Call windowsBatCore + +Push "mono" +Call windowsBatCore + +Push "monodis" +Call windowsBatCore + +Push "monograph" +Call windowsBatCore + +Push "pedump" +Call windowsBatCore + +Push "mcs" +Call windowsBatProfile + +Push "mbas" +Call windowsBatProfile + +Push $0 +Call PushBatFiles +Call createWindowsBatFiles +Pop $0 + +; ============= glib-2.0.pc =============== +FileOpen $0 "$INSTDIR\lib\pkgconfig\glib-2.0.pc" "w" +FileWrite $0 "prefix=$6$\r$\n" +FileWrite $0 "exec_prefix=$${prefix}$\r$\n" +FileWrite $0 "libdir=$${exec_prefix}/lib$\r$\n" +FileWrite $0 "includedir=$${prefix}/include$\r$\n" +FileWrite $0 "$\r$\n" +FileWrite $0 "glib_genmarshal=glib-genmarshal$\r$\n" +FileWrite $0 "gobject_query=gobject-query$\r$\n" +FileWrite $0 "glib_mkenums=glib-mkenums$\r$\n" +FileWrite $0 "$\r$\n" +FileWrite $0 "Name: GLib$\r$\n" +FileWrite $0 "Description: C Utility Library$\r$\n" +FileWrite $0 "Version: 2.0.4$\r$\n" +FileWrite $0 "Libs: -L$${libdir} -lglib-2.0 -lintl -liconv $\r$\n" +FileWrite $0 "Cflags: -I$${includedir}/glib-2.0 -I$${libdir}/glib-2.0/include $\r$\n" +FileClose $0 + +; ============= gmodule-2.0.pc =============== +FileOpen $0 "$INSTDIR\lib\pkgconfig\gmodule-2.0.pc" "w" +FileWrite $0 "prefix=$6$\r$\n" +FileWrite $0 "exec_prefix=$${prefix}$\r$\n" +FileWrite $0 "libdir=$${exec_prefix}/lib$\r$\n" +FileWrite $0 "includedir=$${prefix}/include$\r$\n" +FileWrite $0 "$\r$\n" +FileWrite $0 "gmodule_supported=true$\r$\n" +FileWrite $0 "$\r$\n" +FileWrite $0 "Name: GModule$\r$\n" +FileWrite $0 "Description: Dynamic module loader for GLib$\r$\n" +FileWrite $0 "Requires: glib-2.0$\r$\n" +FileWrite $0 "Version: 2.0.4$\r$\n" +FileWrite $0 "Libs: -L$${libdir} -lgmodule-2.0 $\r$\n" +FileWrite $0 "Cflags:$\r$\n" +FileClose $0 + +; ============= gobject-2.0.pc =============== +FileOpen $0 "$INSTDIR\lib\pkgconfig\gobject-2.0.pc" "w" +FileWrite $0 "prefix=$6$\r$\n" +FileWrite $0 "exec_prefix=$${prefix}$\r$\n" +FileWrite $0 "libdir=$${exec_prefix}/lib$\r$\n" +FileWrite $0 "includedir=$${prefix}/include$\r$\n" +FileWrite $0 "$\r$\n" +FileWrite $0 "Name: GObject$\r$\n" +FileWrite $0 "Description: GLib Type, Object, Parameter and Signal Library$\r$\n" +FileWrite $0 "Requires: glib-2.0$\r$\n" +FileWrite $0 "Version: 2.0.4$\r$\n" +FileWrite $0 "Libs: -L$${libdir} -lgobject-2.0$\r$\n" +FileWrite $0 "Cflags:$\r$\n" +FileClose $0 + +; ============= gthread-2.0.pc =============== +FileOpen $0 "$INSTDIR\lib\pkgconfig\gthread-2.0.pc" "w" +FileWrite $0 "prefix=$6$\r$\n" +FileWrite $0 "exec_prefix=$${prefix}$\r$\n" +FileWrite $0 "libdir=$${exec_prefix}/lib$\r$\n" +FileWrite $0 "includedir=$${prefix}/include$\r$\n" +FileWrite $0 "$\r$\n" +FileWrite $0 "Name: GThread$\r$\n" +FileWrite $0 "Description: Thread support for GLib$\r$\n" +FileWrite $0 "Requires: glib-2.0$\r$\n" +FileWrite $0 "Version: 2.0.4$\r$\n" +FileWrite $0 "Libs: -L$${libdir} -lgthread-2.0 $\r$\n" +FileWrite $0 "Cflags: -D_REENTRANT$\r$\n" +FileClose $0 + +; ============= libintl.pc =============== +FileOpen $0 "$INSTDIR\lib\pkgconfig\libintl.pc" "w" +FileWrite $0 "prefix=$6$\r$\n" +FileWrite $0 "exec_prefix=$${prefix}$\r$\n" +FileWrite $0 "libdir=$${exec_prefix}/lib$\r$\n" +FileWrite $0 "includedir=$${prefix}/include$\r$\n" +FileWrite $0 "$\r$\n" +FileWrite $0 "Name: libintl$\r$\n" +FileWrite $0 "Description: The intl library from GNU gettext$\r$\n" +FileWrite $0 "Version: 0.10.40-tml$\r$\n" +FileWrite $0 "Libs: -L$${libdir} -lintl$\r$\n" +FileWrite $0 "Cflags: -I$${includedir}$\r$\n" +FileClose $0 + +Call CreateSetMonoPath +Call RunGacutil + +MessageBox MB_ICONINFORMATION "Don't forget to prepend $INSTDIR\bin to your PATH when using Mono ${MILESTONE} Build ${BUILDNUM}.$\r$\nYou can use $INSTDIR\bin\setmonopath.bat to do it." +NoInstall: + +SectionEnd + +Function PushBatFiles + Push "" + Push "al" + Push "cert2spc" + Push "certmgr" + Push "chktrust" + Push "cilc" + Push "disco" + Push "gacutil" + Push "genxs" + Push "ilasm" + Push "ilasm" + Push "monop" + Push "monoresgen" + Push "secutil" + Push "sqlsharp" + Push "makecert" + Push "setreg" + Push "signcode" + Push "sn" + Push "soapsuds" + Push "wsdl" + Push "xsd" +FunctionEnd + +Function createWindowsBatFiles +createloop: + Pop $0 + StrCmp "$0" "" endcreateloop + Push $0 + Call windowsBat + Goto createloop +endcreateloop: +FunctionEnd + +Function CreateCreategac + Push $1 + FileOpen $1 "$INSTDIR\creategac.bat" "w" + FileWrite $1 "@echo off$\r$\n" + FileWrite $1 "echo Mono version ${MILESTONE} Build ${BUILDNUM}$\r$\n" + FileWrite $1 "echo Running gacutil to install system assemblies into the GAC$\r$\n" + FileWrite $1 "SETLOCAL$\r$\n" + FileWrite $1 "PATH=$INSTDIR\bin;%PATH%$\r$\n" + FileWrite $1 '"$INSTDIR\bin\gacutil.bat" -il "$INSTDIR\lib\mono\${PROFILE_VERSION}\full-path-assemblies.lst"$\r$\n' + FileWrite $1 "ENDLOCAL$\r$\n" + FileClose $1 + Pop $1 +FunctionEnd + +Function CreateSetMonoPath + Push $1 + FileOpen $1 "$INSTDIR\bin\setmonopath.bat" "w" + FileWrite $1 "@echo off$\r$\n" + FileWrite $1 "echo Mono version ${MILESTONE} Build ${BUILDNUM}$\r$\n" + FileWrite $1 "echo Prepending '$INSTDIR\bin' to PATH$\r$\n" + FileWrite $1 "PATH=$INSTDIR\bin;%PATH%$\r$\n" + FileClose $1 + Pop $1 +FunctionEnd + +Function RunGacutil + Push $1 + Push $2 + Push $3 + FileOpen $1 "$INSTDIR\lib\mono\${PROFILE_VERSION}\assemblies.lst" "r" + FileOpen $2 "$INSTDIR\lib\mono\${PROFILE_VERSION}\full-path-assemblies.lst" "w" +nextline: + FileRead $1 $3 + StrCmp "$3" "" giveup + FileWrite $2 "$INSTDIR\lib\mono\${PROFILE_VERSION}\$3" + goto nextline +giveup: + FileClose $1 + FileClose $2 + ExecWait '"$INSTDIR\bin\gacutil.bat" -il "$INSTDIR\lib\mono\${PROFILE_VERSION}\full-path-assemblies.lst"' + IfErrors errrun noerr +errrun: + MessageBox MB_ICONEXCLAMATION 'Error running gacutil!$\r$\nRun "$INSTDIR\creategac.bat" after finishing setup program.' + Call CreateCreategac + ;Delete "$INSTDIR\lib\mono\${PROFILE_VERSION}\assemblies.lst" + ;Delete "$INSTDIR\lib\mono\${PROFILE_VERSION}\full-path-assemblies.lst" +noerr: + Pop $3 + Pop $2 + Pop $1 +FunctionEnd + +Function windowsBatCore + Exch $1 ;core exe name + + FileOpen $0 "$INSTDIR\bin\$1.bat" "w" + FileWrite $0 "@ECHO OFF$\r$\n" + FileWrite $0 "SET MONOARGS=$\r$\n" + FileWrite $0 ":loop$\r$\n" + FileWrite $0 "IF x%1 == x goto :done$\r$\n" + FileWrite $0 'SET MONOARGS=%MONOARGS% %1$\r$\n' + FileWrite $0 "SHIFT$\r$\n" + FileWrite $0 "GOTO loop$\r$\n" + FileWrite $0 ":done$\r$\n" + FileWrite $0 "SETLOCAL$\r$\n" + FileWrite $0 'SET PATH=$INSTDIR\bin;%PATH%$\r$\n' + FileWrite $0 'SET MONO_PATH=$INSTDIR\lib$\r$\n' + FileWrite $0 'SET MONO_CFG_DIR=$INSTDIR\etc$\r$\n' + FileWrite $0 '"$INSTDIR\lib\$1.exe" %MONOARGS%$\r$\n' + FileWrite $0 "ENDLOCAL$\r$\n" + FileClose $0 + + FileOpen $0 "$INSTDIR\bin\$1" "w" + FileWrite $0 "#!/bin/sh$\n" + FileWrite $0 'IDIRUNIX="`cygpath -u ' + FileWrite $0 "'$INSTDIR'`" + FileWrite $0 '"$\n' + FileWrite $0 'PATH="$${IDIRUNIX}/bin:$$PATH"$\n' + FileWrite $0 "MONO_PATH='$INSTDIR\lib'$\n" + FileWrite $0 "MONO_CFG_DIR='$INSTDIR\etc'$\n" + FileWrite $0 "export PATH MONO_PATH MONO_CFG_DIR$\n" + FileWrite $0 'exec "$6/lib/$1.exe" "$$@"$\n' + FileClose $0 + + Pop $1 +FunctionEnd + +Function windowsBat + Exch $1 ;tool name + + FileOpen $0 "$INSTDIR\bin\$1.bat" "w" + FileWrite $0 "@ECHO OFF$\r$\n" + FileWrite $0 "SET MONOARGS=$\r$\n" + FileWrite $0 ":loop$\r$\n" + FileWrite $0 "IF x%1 == x GOTO :done$\r$\n" + FileWrite $0 'SET MONOARGS=%MONOARGS% %1$\r$\n' + FileWrite $0 "SHIFT$\r$\n" + FileWrite $0 "GOTO loop$\r$\n" + FileWrite $0 ":done$\r$\n" + FileWrite $0 "SETLOCAL$\r$\n" + FileWrite $0 'SET PATH=$INSTDIR\bin;%PATH%$\r$\n' + FileWrite $0 'SET MONO_PATH=$INSTDIR\lib$\r$\n' + FileWrite $0 'SET MONO_CFG_DIR=$INSTDIR\etc$\r$\n' + FileWrite $0 '"$INSTDIR\lib\mono.exe" "$INSTDIR\lib\$1.exe" %MONOARGS%$\r$\n' + FileWrite $0 "ENDLOCAL$\r$\n" + FileClose $0 + + FileOpen $0 "$INSTDIR\bin\$1" "w" + FileWrite $0 "#!/bin/sh$\n" + FileWrite $0 'IDIRUNIX="`cygpath -u ' + FileWrite $0 "'$INSTDIR'`" + FileWrite $0 '"$\n' + FileWrite $0 'PATH="$${IDIRUNIX}/bin:$$PATH"$\n' + FileWrite $0 "MONO_PATH='$INSTDIR\lib'$\n" + FileWrite $0 "MONO_CFG_DIR='$INSTDIR\etc'$\n" + FileWrite $0 "export PATH MONO_PATH MONO_CFG_DIR$\n" + FileWrite $0 'exec "$6/lib/mono.exe" "$6/lib/$1.exe" "$$@"$\n' + FileClose $0 + + Pop $1 +FunctionEnd + +Function windowsBatProfile + Exch $1 ;tool name + + FileOpen $0 "$INSTDIR\bin\$1.bat" "w" + FileWrite $0 "@ECHO OFF$\r$\n" + FileWrite $0 "SET MONOARGS=$\r$\n" + FileWrite $0 ":loop$\r$\n" + FileWrite $0 "IF x%1 == x GOTO :done$\r$\n" + FileWrite $0 'SET MONOARGS=%MONOARGS% %1$\r$\n' + FileWrite $0 "SHIFT$\r$\n" + FileWrite $0 "GOTO loop$\r$\n" + FileWrite $0 ":done$\r$\n" + FileWrite $0 "SETLOCAL$\r$\n" + FileWrite $0 'SET PATH=$INSTDIR\bin;%PATH%$\r$\n' + FileWrite $0 'SET MONO_PATH=$INSTDIR\lib$\r$\n' + FileWrite $0 'SET MONO_CFG_DIR=$INSTDIR\etc$\r$\n' + FileWrite $0 '"$INSTDIR\lib\mono.exe" "$INSTDIR\lib\mono\${PROFILE_VERSION}\$1.exe" %MONOARGS%$\r$\n' + FileWrite $0 "ENDLOCAL$\r$\n" + FileClose $0 + + FileOpen $0 "$INSTDIR\bin\$1" "w" + FileWrite $0 "#!/bin/sh$\n" + FileWrite $0 'IDIRUNIX="`cygpath -u ' + FileWrite $0 "'$INSTDIR'`" + FileWrite $0 '"$\n' + FileWrite $0 'PATH="$$IDIRUNIX/bin:$$PATH"$\n' + FileWrite $0 "MONO_PATH='$INSTDIR\lib'$\n" + FileWrite $0 "MONO_CFG_DIR='$INSTDIR\etc'$\n" + FileWrite $0 "export PATH MONO_PATH MONO_CFG_DIR$\n" + FileWrite $0 'exec "$6/lib/mono.exe" "$6/lib/mono/${PROFILE_VERSION}/$1.exe" "$$@"$\n' + FileClose $0 + + Pop $1 +FunctionEnd + +; function StrReplace +; by Hendri Adriaens +; HendriAdriaens@hotmail.com +; found in the NSIS Archives +function StrReplace + Exch $0 ;this will replace wrong characters + Exch + Exch $1 ;needs to be replaced + Exch + Exch 2 + Exch $2 ;the orginal string + Push $3 ;counter + Push $4 ;temp character + Push $5 ;temp string + Push $6 ;length of string that need to be replaced + Push $7 ;length of string that will replace + Push $R0 ;tempstring + Push $R1 ;tempstring + Push $R2 ;tempstring + StrCpy $3 "-1" + StrCpy $5 "" + StrLen $6 $1 + StrLen $7 $0 + Loop: + IntOp $3 $3 + 1 + StrCpy $4 $2 $6 $3 + StrCmp $4 "" ExitLoop + StrCmp $4 $1 Replace + Goto Loop + Replace: + StrCpy $R0 $2 $3 + IntOp $R2 $3 + $6 + StrCpy $R1 $2 "" $R2 + StrCpy $2 $R0$0$R1 + IntOp $3 $3 + $7 + Goto Loop + ExitLoop: + StrCpy $0 $2 + Pop $R2 + Pop $R1 + Pop $R0 + Pop $7 + Pop $6 + Pop $5 + Pop $4 + Pop $3 + Pop $2 + Pop $1 + Exch $0 +FunctionEnd + +Function VersionCheck + Exch $0 ;second versionnumber + Exch + Exch $1 ;first versionnumber + Push $R0 ;counter for $0 + Push $R1 ;counter for $1 + Push $3 ;temp char + Push $4 ;temp string for $0 + Push $5 ;temp string for $1 + StrCpy $R0 "-1" + StrCpy $R1 "-1" + Start: + StrCpy $4 "" + DotLoop0: + IntOp $R0 $R0 + 1 + StrCpy $3 $0 1 $R0 + StrCmp $3 "" DotFound0 + StrCmp $3 "." DotFound0 + StrCpy $4 $4$3 + Goto DotLoop0 + DotFound0: + StrCpy $5 "" + DotLoop1: + IntOp $R1 $R1 + 1 + StrCpy $3 $1 1 $R1 + StrCmp $3 "" DotFound1 + StrCmp $3 "." DotFound1 + StrCpy $5 $5$3 + Goto DotLoop1 + DotFound1: + Strcmp $4 "" 0 Not4 + StrCmp $5 "" Equal + Goto Ver2Less + Not4: + StrCmp $5 "" Ver2More + IntCmp $4 $5 Start Ver2Less Ver2More + Equal: + StrCpy $0 "0" + Goto Finish + Ver2Less: + StrCpy $0 "1" + Goto Finish + Ver2More: + StrCpy $0 "2" + Finish: + Pop $5 + Pop $4 + Pop $3 + Pop $R1 + Pop $R0 + Pop $1 + Exch $0 +FunctionEnd |