|
| 1 | +!include "MUI2.nsh" |
| 2 | +!include "StrFunc.nsh" |
| 3 | +${Using:StrFunc} StrStr |
| 4 | +${Using:StrFunc} UnStrStr |
| 5 | +${Using:StrFunc} UnStrRep |
| 6 | + |
| 7 | +Name "Elixir" |
| 8 | +ManifestDPIAware true |
| 9 | +Unicode True |
| 10 | +InstallDir "$PROGRAMFILES64\Elixir" |
| 11 | +!define MUI_ICON "assets\drop.ico" |
| 12 | + |
| 13 | +; Install Page: Install Erlang/OTP |
| 14 | + |
| 15 | +Page custom CheckOTPPageShow CheckOTPPageLeave |
| 16 | + |
| 17 | +var Dialog |
| 18 | +var DownloadOTPLink |
| 19 | +var InstalledERTSVersion |
| 20 | +var InstalledOTPRelease |
| 21 | +var OTPPath |
| 22 | +Function CheckOTPPageShow |
| 23 | + !insertmacro MUI_HEADER_TEXT "Checking Erlang/OTP" "" |
| 24 | + |
| 25 | + nsDialogs::Create 1018 |
| 26 | + Pop $Dialog |
| 27 | + |
| 28 | + ${If} $Dialog == error |
| 29 | + Abort |
| 30 | + ${EndIf} |
| 31 | + |
| 32 | + EnumRegKey $0 HKLM "SOFTWARE\WOW6432NODE\Ericsson\Erlang" 0 |
| 33 | + ReadRegStr $1 HKLM "SOFTWARE\WOW6432NODE\Ericsson\Erlang\$0" "" |
| 34 | + StrCpy $InstalledERTSVersion $0 |
| 35 | + StrCpy $OTPPath $1 |
| 36 | + |
| 37 | + ${If} $1 == "" |
| 38 | + ${NSD_CreateLabel} 0 0 100% 20u "Couldn't find existing Erlang/OTP installation. Click the link below to download and install it before proceeding." |
| 39 | + ${NSD_CreateLink} 0 25u 100% 20u "Download Erlang/OTP ${OTP_RELEASE}" |
| 40 | + Pop $DownloadOTPLink |
| 41 | + ${NSD_OnClick} $DownloadOTPLink OpenOTPDownloads |
| 42 | + ${Else} |
| 43 | + nsExec::ExecToStack `$OTPPath\bin\erl.exe -noinput -eval "\ |
| 44 | + io:put_chars(erlang:system_info(otp_release)),\ |
| 45 | + halt()."` |
| 46 | + Pop $0 |
| 47 | + Pop $1 |
| 48 | + |
| 49 | + ${If} $0 == 0 |
| 50 | + StrCpy $InstalledOTPRelease $1 |
| 51 | + ${If} $InstalledOTPRelease == ${OTP_RELEASE} |
| 52 | + ${NSD_CreateLabel} 0 0 100% 20u "Found existing Erlang/OTP $InstalledOTPRelease installation at $OTPPath. Please proceed." |
| 53 | + ${ElseIf} $2 < ${OTP_RELEASE} |
| 54 | + ${NSD_CreateLabel} 0 0 100% 30u "Found existing Erlang/OTP $InstalledOTPRelease installation at $OTPPath but this Elixir installer was precompiled for Erlang/OTP ${OTP_RELEASE}. \ |
| 55 | + We recommend checking if there is an Elixir version precompiled for Erlang/OTP $InstalledOTPRelease. Otherwise, proceed." |
| 56 | + ${Else} |
| 57 | + SetErrorlevel 5 |
| 58 | + MessageBox MB_ICONSTOP "Found existing Erlang/OTP $InstalledOTPRelease installation at $OTPPath but this Elixir version was precompiled for Erlang/OTP ${OTP_RELEASE}. \ |
| 59 | + Please upgrade your Erlang/OTP version or choose an Elixir installer matching your Erlang/OTP version" |
| 60 | + Quit |
| 61 | + ${EndIf} |
| 62 | + ${Else} |
| 63 | + SetErrorlevel 5 |
| 64 | + MessageBox MB_ICONSTOP "Found existing Erlang/OTP installation at $OTPPath but checking it exited with $0: $1" |
| 65 | + Quit |
| 66 | + ${EndIf} |
| 67 | + ${EndIf} |
| 68 | + |
| 69 | + nsDialogs::Show |
| 70 | +FunctionEnd |
| 71 | + |
| 72 | +Function OpenOTPDownloads |
| 73 | + ExecShell "open" "https://www.erlang.org/downloads/${OTP_RELEASE}" |
| 74 | +FunctionEnd |
| 75 | + |
| 76 | +Function CheckOTPPageLeave |
| 77 | +FunctionEnd |
| 78 | + |
| 79 | +; Install Page: Files |
| 80 | + |
| 81 | +!insertmacro MUI_PAGE_DIRECTORY |
| 82 | +!insertmacro MUI_PAGE_INSTFILES |
| 83 | + |
| 84 | +; Install Page: Finish |
| 85 | + |
| 86 | +Page custom FinishPageShow FinishPageLeave |
| 87 | + |
| 88 | +var AddOTPToPathCheckbox |
| 89 | +var AddElixirToPathCheckbox |
| 90 | +Function FinishPageShow |
| 91 | + !insertmacro MUI_HEADER_TEXT "Finish Setup" "" |
| 92 | + |
| 93 | + nsDialogs::Create 1018 |
| 94 | + Pop $Dialog |
| 95 | + |
| 96 | + ${If} $Dialog == error |
| 97 | + Abort |
| 98 | + ${EndIf} |
| 99 | + |
| 100 | + ${NSD_CreateCheckbox} 0 0 195u 10u "&Add $INSTDIR\bin to %PATH%" |
| 101 | + Pop $AddElixirToPathCheckbox |
| 102 | + SendMessage $AddElixirToPathCheckbox ${BM_SETCHECK} ${BST_CHECKED} 0 |
| 103 | + |
| 104 | + EnumRegKey $0 HKLM "SOFTWARE\WOW6432NODE\Ericsson\Erlang" 0 |
| 105 | + ReadRegStr $0 HKLM "SOFTWARE\WOW6432NODE\Ericsson\Erlang\$0" "" |
| 106 | + StrCpy $OTPPath $0 |
| 107 | + ${If} $0 != "" |
| 108 | + ${NSD_CreateCheckbox} 0 20u 195u 10u "&Add $0\bin to %PATH%" |
| 109 | + Pop $AddOTPToPathCheckbox |
| 110 | + SendMessage $AddOTPToPathCheckbox ${BM_SETCHECK} ${BST_CHECKED} 0 |
| 111 | + ${EndIf} |
| 112 | + |
| 113 | + nsDialogs::Show |
| 114 | +FunctionEnd |
| 115 | + |
| 116 | +Function FinishPageLeave |
| 117 | + ${NSD_GetState} $AddOTPToPathCheckbox $0 |
| 118 | + ${If} $0 <> ${BST_UNCHECKED} |
| 119 | + ReadRegStr $0 HKCU "Environment" "Path" |
| 120 | + ${StrStr} $1 "$0" "$OTPPath\bin" |
| 121 | + ${If} $1 == "" |
| 122 | + WriteRegExpandStr HKCU "Environment" "Path" "$OTPPath\bin;$0" |
| 123 | + ${Else} |
| 124 | + MessageBox MB_OK "$OTPPath\bin already in %PATH%" |
| 125 | + ${EndIf} |
| 126 | + ${EndIf} |
| 127 | + |
| 128 | + ${NSD_GetState} $AddElixirToPathCheckbox $0 |
| 129 | + ${If} $0 <> ${BST_UNCHECKED} |
| 130 | + ReadRegStr $0 HKCU "Environment" "Path" |
| 131 | + ${StrStr} $1 "$0" "$INSTDIR\bin" |
| 132 | + ${If} $1 == "" |
| 133 | + WriteRegExpandStr HKCU "Environment" "Path" "$INSTDIR\bin;$0" |
| 134 | + ${Else} |
| 135 | + MessageBox MB_OK "$INSTDIR\bin already in %PATH%" |
| 136 | + ${EndIf} |
| 137 | + ${EndIf} |
| 138 | +FunctionEnd |
| 139 | + |
| 140 | +Section "Install Elixir" SectionElixir |
| 141 | + SetOutPath "$INSTDIR" |
| 142 | + File /r "${ELIXIR_DIR}\" |
| 143 | + |
| 144 | + WriteUninstaller "Uninstall.exe" |
| 145 | +SectionEnd |
| 146 | + |
| 147 | +; Uninstall Page: Files |
| 148 | + |
| 149 | +!insertmacro MUI_UNPAGE_DIRECTORY |
| 150 | +!insertmacro MUI_UNPAGE_INSTFILES |
| 151 | + |
| 152 | +Section "Uninstall" |
| 153 | + RMDir /r "$INSTDIR" |
| 154 | +SectionEnd |
| 155 | + |
| 156 | +; Uninstall Page: Finish |
| 157 | + |
| 158 | +var RemoveOTPFromPathCheckbox |
| 159 | +var RemoveElixirFromPathCheckbox |
| 160 | +Function un.FinishPageShow |
| 161 | + !insertmacro MUI_HEADER_TEXT "Finish Setup" "" |
| 162 | + |
| 163 | + nsDialogs::Create 1018 |
| 164 | + Pop $Dialog |
| 165 | + |
| 166 | + ${If} $Dialog == error |
| 167 | + Abort |
| 168 | + ${EndIf} |
| 169 | + |
| 170 | + ReadRegStr $0 HKCU "Environment" "Path" |
| 171 | + ${UnStrStr} $1 "$0" "$INSTDIR\bin" |
| 172 | + ${If} $1 != "" |
| 173 | + ${NSD_CreateCheckbox} 0 0 195u 10u "&Remove $INSTDIR\bin from %PATH%" |
| 174 | + Pop $RemoveElixirFromPathCheckbox |
| 175 | + SendMessage $RemoveElixirFromPathCheckbox ${BM_SETCHECK} ${BST_CHECKED} 0 |
| 176 | + ${EndIf} |
| 177 | + |
| 178 | + EnumRegKey $1 HKLM "SOFTWARE\WOW6432NODE\Ericsson\Erlang" 0 |
| 179 | + ReadRegStr $1 HKLM "SOFTWARE\WOW6432NODE\Ericsson\Erlang\$1" "" |
| 180 | + StrCpy $OTPPath $1 |
| 181 | + ${UnStrStr} $1 "$0" "$OTPPath\bin" |
| 182 | + ${If} $1 != "" |
| 183 | + ${NSD_CreateCheckbox} 0 20u 195u 10u "&Remove $OTPPath\bin from %PATH%" |
| 184 | + Pop $RemoveOTPFromPathCheckbox |
| 185 | + SendMessage $RemoveOTPFromPathCheckbox ${BM_SETCHECK} ${BST_CHECKED} 0 |
| 186 | + ${EndIf} |
| 187 | + |
| 188 | + nsDialogs::Show |
| 189 | +FunctionEnd |
| 190 | + |
| 191 | +Function un.FinishPageLeave |
| 192 | + ReadRegStr $0 HKCU "Environment" "Path" |
| 193 | + |
| 194 | + ${NSD_GetState} $RemoveOTPFromPathCheckbox $1 |
| 195 | + ${If} $1 <> ${BST_UNCHECKED} |
| 196 | + ${UnStrRep} $0 "$0" "$OTPPath\bin;" "" |
| 197 | + ${EndIf} |
| 198 | + |
| 199 | + ${NSD_GetState} $RemoveElixirFromPathCheckbox $1 |
| 200 | + ${If} $1 <> ${BST_UNCHECKED} |
| 201 | + ${UnStrRep} $0 "$0" "$INSTDIR\bin;" "" |
| 202 | + ${EndIf} |
| 203 | + |
| 204 | + WriteRegExpandStr HKCU "Environment" "Path" "$0" |
| 205 | +FunctionEnd |
| 206 | + |
| 207 | +UninstPage custom un.FinishPageShow un.FinishPageLeave |
| 208 | + |
| 209 | +!insertmacro MUI_LANGUAGE "English" |
0 commit comments