blob: 262f2eb8a991b19b7ab79ac984b7c20809519ac3 (
plain)
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
|
!include win\env.nsh
!include win\fassoc.nsh
# name the installer
outFile "txr-installer.exe"
Name "TXR"
Icon "win\txr.ico"
UninstallIcon "win\txr.ico"
SetCompressor lzma
CRCCheck on
RequestExecutionLevel highest
var AccountType
Function .onInit
StrCpy $INSTDIR "$LOCALAPPDATA"
UserInfo::GetAccountType
Pop $AccountType
${If} $AccountType == "Admin"
StrCpy $INSTDIR "$PROGRAMFILES32"
${EndIf}
FunctionEnd
Function .onInstSuccess
MessageBox MB_YESNO "Expore the TXR installation directory now?" IDNO NoLaunch
Exec '"$WINDIR\explorer.exe" "$INSTDIR\txr"'
NoLaunch:
FunctionEnd
PageEx license
LicenseText "Redistribution of TXR requires agreement with terms of the license." "Acknowledge"
LicenseData LICENSE
Caption ": Licensing"
PageExEnd
PageEx license
LicenseText "Redistribution of this version of TXR also requires agreement with Cygwin's license." "Acknowledge"
LicenseData LICENSE-CYG
Caption ": Licensing"
PageExEnd
PageEx directory
DirVar $INSTDIR
PageExEnd
Page instfiles
UninstPage uninstConfirm
UninstPage instfiles
section "TXR"
SetShellVarContext current
SetOutPath $INSTDIR\txr\bin
File txr.exe
File txr-win.exe
File win\cygwin1.dll
File c:\cygwin\bin\cygz.dll
File c:\cygwin\bin\cyggcc_s-1.dll
File c:\cygwin\bin\cygffi-6.dll
SetOutPath $INSTDIR\txr\doc
File txr-manpage.html
File txr-manpage.pdf
SetOutPath $INSTDIR\txr\share\txr
File LICENSE
File METALICENSE
SetOutPath $INSTDIR\txr\share\txr\stdlib
File stdlib\*.txr
File stdlib\*.tl
File stdlib\*.tlo
Delete /REBOOTOK $INSTDIR\txr\bin\sh.exe
RmDir /r /REBOOTOK $INSTDIR\txr\share\man
WriteUninstaller $INSTDIR\txr\uninstall.exe
CreateDirectory "$SMPROGRAMS\txr"
SetOutPath $PROFILE
CreateShortCut "$SMPROGRAMS\txr\txr.lnk" "$INSTDIR\txr\bin\txr.exe"
CreateShortCut "$SMPROGRAMS\txr\uninstall.lnk" "$INSTDIR\txr\uninstall.exe"
CreateShortCut "$SMPROGRAMS\txr\install-root.lnk" "$INSTDIR\txr"
CreateShortCut "$STARTMENU\txr.lnk" "$INSTDIR\txr\bin\txr.exe"
${If} $AccountType == "Admin"
${EnvVarUpdate} $0 "PATH" "A" "HKLM" "$INSTDIR\txr\bin"
${Else}
${EnvVarUpdate} $0 "PATH" "A" "HKCU" "$INSTDIR\txr\bin"
${Endif}
${RegisterExtension} "$INSTDIR\txr\bin\txr-win.exe" ".txr" "TXR Pattern Language"
${RegisterExtension} "$INSTDIR\txr\bin\txr-win.exe" ".tl" "TXR Lisp"
${RegisterExtension} "$INSTDIR\txr\bin\txr-win.exe" ".tlo" "Compiled TXR Lisp"
sectionEnd
section "Uninstall"
SetShellVarContext current
# $INSTDIR is now where the uninstaller is installed,
# not the $INSTDIR that was used during installation!
${If} $AccountType == "Admin"
${un.EnvVarUpdate} $0 "PATH" "R" "HKLM" "$INSTDIR\bin"
${Else}
${un.EnvVarUpdate} $0 "PATH" "R" "HKCU" "$INSTDIR\bin"
${Endif}
${UnregisterExtension} ".txr" "TXR Pattern Language"
${UnregisterExtension} ".tl" "TXR Lisp"
${UnregisterExtension} ".tlo" "Compiled TXR Lisp"
RMDir /r "$INSTDIR"
Delete "$SMPROGRAMS\txr\txr.lnk"
Delete "$STARTMENU\txr.lnk"
IfErrors errors removeInstaller
errors:
MessageBox MB_OK|MB_ICONEXCLAMATION "Some files or folders in were not deleted. Make sure the program is stopped and run the uninstaller again." IDOK quit
removeInstaller:
Delete "$INSTDIR\uninstall.exe"
RMDir /r "$INSTDIR"
Delete "$SMPROGRAMS\txr\uninstall.lnk"
RmDir /r "$SMPROGRAMS\txr"
IfErrors fatal done
fatal:
MessageBox MB_OK|MB_ICONEXCLAMATION "The uninstaller itself was not completely deleted for some reason. It looks like you have to manually remove $SMPROGRAMS\txr and $INSTDIR." IDOK quit
quit:
Quit
done:
sectionEnd
|
