Merge pull request #1667 from eht16/issue1018_win_execute_builtin_path
[geany-mirror.git] / geany.nsi.in
blob8a32d088b10927899049d4490ba76602e343ba10
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 ; geany.nsi - this file is part of Geany, a fast and lightweight IDE
4 ; Copyright 2007-2012 Enrico Tröger <enrico(dot)troeger(at)uvena(dot)de>
5 ; Copyright 2007-2012 Nick Treleaven <nick(dot)treleaven(at)btinternet(dot)com>
7 ; This program is free software; you can redistribute it and/or modify
8 ; it under the terms of the GNU General Public License as published by
9 ; the Free Software Foundation; either version 2 of the License, or
10 ; (at your option) any later version.
12 ; This program is distributed in the hope that it will be useful,
13 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ; GNU General Public License for more details.
17 ; You should have received a copy of the GNU General Public License
18 ; along with this program; if not, write to the Free Software
19 ; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
22 ; Installer script for Geany (Windows Installer)
23 ; (Script originally generated by the HM NIS Edit Script Wizard)
24 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
27 ; Do a Cyclic Redundancy Check to make sure the installer was not corrupted by the download
28 CRCCheck force
29 RequestExecutionLevel highest ; set execution level for Windows Vista
31 ;;;;;;;;;;;;;;;;;;;
32 ; helper defines ;
33 ;;;;;;;;;;;;;;;;;;;
34 !define PRODUCT_NAME "Geany"
35 !define PRODUCT_VERSION "@VERSION@"
36 !define PRODUCT_VERSION_ID "@VERSION@.0.0"
37 !define PRODUCT_PUBLISHER "The Geany developer team"
38 !define PRODUCT_WEB_SITE "http://www.geany.org/"
39 !define PRODUCT_DIR_REGKEY "Software\Geany"
40 !define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}"
41 !define PRODUCT_EXE "$INSTDIR\bin\Geany.exe"
42 !define PRODUCT_REGNAME "Geany.ProjectFile"
43 !define PRODUCT_EXT ".geany"
44 !define RESOURCEDIR "geany-${PRODUCT_VERSION}"
45 !define GTK_VERSION @GTK_VERSION@
47 ;;;;;;;;;;;;;;;;;;;;;
48 ; Version resource ;
49 ;;;;;;;;;;;;;;;;;;;;;
50 VIProductVersion "${PRODUCT_VERSION_ID}"
51 VIAddVersionKey "ProductName" "${PRODUCT_NAME}"
52 VIAddVersionKey "FileVersion" "${PRODUCT_VERSION}"
53 VIAddVersionKey "ProductVersion" "${PRODUCT_VERSION}"
54 VIAddVersionKey "LegalCopyright" "Copyright 2005-2017 by the Geany developer team"
55 VIAddVersionKey "FileDescription" "${PRODUCT_NAME} Installer"
57 BrandingText "$(^NAME) installer (NSIS 2.51)"
58 InstallDir "$PROGRAMFILES\Geany"
59 Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
60 SetCompressor /SOLID lzma
61 ShowInstDetails hide
62 ShowUnInstDetails hide
63 XPStyle on
64 !ifdef INCLUDE_GTK
65 OutFile "geany-${PRODUCT_VERSION}_setup.exe"
66 !else
67 OutFile "geany-${PRODUCT_VERSION}_nogtk_setup.exe"
68 !endif
70 Var Answer
71 Var UserName
72 Var StartmenuFolder
73 Var UNINSTDIR
75 ;;;;;;;;;;;;;;;;
76 ; MUI Settings ;
77 ;;;;;;;;;;;;;;;;
78 !include "MUI2.nsh"
80 ;Reserve files used in .onInit, for faster start-up
81 ReserveFile "${NSISDIR}\Plugins\System.dll"
82 ReserveFile "${NSISDIR}\Plugins\UserInfo.dll"
83 ReserveFile "${NSISDIR}\Plugins\InstallOptions.dll"
84 ReserveFile "${NSISDIR}\Plugins\LangDLL.dll"
86 !define MUI_ABORTWARNING
87 !define MUI_ICON "icons\geany.ico"
88 !define MUI_UNICON "${NSISDIR}\Contrib\Graphics\Icons\modern-uninstall-full.ico"
90 ; Welcome page
91 !insertmacro MUI_PAGE_WELCOME
92 ; License page
93 ;!define MUI_LICENSEPAGE_RADIOBUTTONS
94 !insertmacro MUI_PAGE_LICENSE "${RESOURCEDIR}\Copying.txt"
95 ; Components page
96 !insertmacro MUI_PAGE_COMPONENTS
97 ; Directory page
98 !define MUI_PAGE_CUSTOMFUNCTION_LEAVE OnDirLeave
99 !insertmacro MUI_PAGE_DIRECTORY
100 ; Start menu page
101 !define MUI_STARTMENUPAGE_DEFAULTFOLDER "Geany"
102 !define MUI_STARTMENUPAGE_REGISTRY_ROOT HKLM
103 !define MUI_STARTMENUPAGE_REGISTRY_KEY "${PRODUCT_UNINST_KEY}"
104 !define MUI_STARTMENUPAGE_REGISTRY_VALUENAME "Start Menu Folder"
105 !insertmacro MUI_PAGE_STARTMENU ${PRODUCT_NAME} "$StartmenuFolder"
106 ; Instfiles page
107 !insertmacro MUI_PAGE_INSTFILES
108 ; Finish page
109 !define MUI_FINISHPAGE_SHOWREADME "$INSTDIR\News.txt"
110 !define MUI_FINISHPAGE_SHOWREADME_TEXT "Show Release Notes"
111 !define MUI_FINISHPAGE_SHOWREADME_NOTCHECKED
112 !define MUI_FINISHPAGE_RUN "$INSTDIR\bin\Geany.exe"
113 !define MUI_FINISHPAGE_RUN_NOTCHECKED
114 !insertmacro MUI_PAGE_FINISH
116 !insertmacro MUI_UNPAGE_INSTFILES ; Uninstaller page
117 !insertmacro MUI_LANGUAGE "English" ; Language file
119 ;;;;;;;;;;;;;;;;;;;;;;;;;;;
120 ; Sections and InstTypes ;
121 ;;;;;;;;;;;;;;;;;;;;;;;;;;;
122 InstType "Full"
123 InstType "Minimal"
125 Section "!Program Files" SEC01
126 SectionIn RO 1 2
127 SetOverwrite ifnewer
129 SetOutPath "$INSTDIR"
130 File "${RESOURCEDIR}\*.txt"
132 SetOutPath "$INSTDIR\bin"
133 File "${RESOURCEDIR}\bin\Geany.exe"
134 File "${RESOURCEDIR}\bin\*Geany*.dll"
135 # non-GTK dependencies
136 File "gtk\bin\libgcc_s_dw*.dll"
137 File "gtk\bin\libstdc++-*.dll"
138 File "gtk\bin\libwinpthread*.dll"
140 SetOutPath "$INSTDIR\libexec"
141 File /r "${RESOURCEDIR}\libexec\*"
143 SetOutPath "$INSTDIR\data"
144 File "${RESOURCEDIR}\data\GPL-2"
145 File "${RESOURCEDIR}\data\filetype_extensions.conf"
146 File "${RESOURCEDIR}\data\geany.glade"
147 !if ${GTK_VERSION} >= 3
148 File "${RESOURCEDIR}\data\geany-3.20.css"
149 File "${RESOURCEDIR}\data\geany.css"
150 !else
151 File "${RESOURCEDIR}\data\geany.gtkrc"
152 !endif
153 File "${RESOURCEDIR}\data\snippets.conf"
154 File "${RESOURCEDIR}\data\ui_toolbar.xml"
156 SetOutPath "$INSTDIR\data\filedefs"
157 File /r "${RESOURCEDIR}\data\filedefs\*"
159 SetOutPath "$INSTDIR\data\templates"
160 File /r "${RESOURCEDIR}\data\templates\*"
162 SetOutPath "$INSTDIR\data\colorschemes"
163 File /r "${RESOURCEDIR}\data\colorschemes\*"
164 # Geany color schemes project, don't bail out if they are missing
165 File /nonfatal /r "..\geany-themes\colorschemes\*.conf"
167 SetOutPath "$INSTDIR\share\icons"
168 File /r "${RESOURCEDIR}\share\icons\*"
170 SetOutPath "$INSTDIR"
172 CreateShortCut "$INSTDIR\Geany.lnk" "$INSTDIR\bin\Geany.exe"
173 !insertmacro MUI_STARTMENU_WRITE_BEGIN ${PRODUCT_NAME}
174 CreateDirectory "$SMPROGRAMS\$StartmenuFolder"
175 CreateShortCut "$SMPROGRAMS\$StartmenuFolder\Geany.lnk" "$INSTDIR\bin\Geany.exe"
176 !insertmacro MUI_STARTMENU_WRITE_END
178 ; register the extension .geany
179 ; write information about file type
180 WriteRegStr SHCTX "Software\Classes\${PRODUCT_REGNAME}" "" "${PRODUCT_NAME} Project File"
181 WriteRegStr SHCTX "Software\Classes\${PRODUCT_REGNAME}\DefaultIcon" "" "${PRODUCT_EXE},0"
182 WriteRegStr SHCTX "Software\Classes\${PRODUCT_REGNAME}\Shell\open\command" "" '"${PRODUCT_EXE}" "%1"'
183 ; write information about file extensions
184 WriteRegStr SHCTX "Software\Classes\${PRODUCT_EXT}" "" "${PRODUCT_REGNAME}"
185 ; refresh shell
186 System::Call 'shell32.dll::SHChangeNotify(i, i, i, i) (0x08000000, 0, 0, 0)'
187 SectionEnd
189 Section "Plugins" SEC02
190 SectionIn 1
191 SetOverwrite ifnewer
192 SetOutPath "$INSTDIR\lib\geany"
193 File "${RESOURCEDIR}\lib\geany\*.dll"
194 SectionEnd
196 Section "Language Files" SEC03
197 SectionIn 1
198 SetOutPath "$INSTDIR\share\locale"
199 File /r "${RESOURCEDIR}\share\locale\*"
200 !ifdef INCLUDE_GTK
201 SetOutPath "$INSTDIR\share\locale"
202 File /r "gtk\share\locale\*"
203 !endif
204 SectionEnd
206 Section "Documentation" SEC04
207 SectionIn 1
208 SetOverwrite ifnewer
209 SetOutPath "$INSTDIR\share\doc"
210 File /r "${RESOURCEDIR}\share\doc\*"
211 WriteIniStr "$INSTDIR\Documentation.url" "InternetShortcut" "URL" "$INSTDIR\share\doc\geany\html\index.html"
212 !insertmacro MUI_STARTMENU_WRITE_BEGIN ${PRODUCT_NAME}
213 CreateShortCut "$SMPROGRAMS\$StartmenuFolder\Documentation.lnk" "$INSTDIR\Documentation.url"
214 !insertmacro MUI_STARTMENU_WRITE_END
215 SectionEnd
217 Section "Autocompletion Tags" SEC05
218 SectionIn 1
219 SetOverwrite ifnewer
220 SetOutPath "$INSTDIR\data\tags"
221 File /r "${RESOURCEDIR}\data\tags\*"
222 SectionEnd
224 ; Include GTK runtime library but only if desired from command line
225 !ifdef INCLUDE_GTK
226 Section "GTK ${GTK_VERSION} Runtime Environment" SEC06
227 SectionIn 1
228 SetOverwrite ifnewer
229 SetOutPath "$INSTDIR"
230 File "gtk\ReadMe.Dependencies.Geany.txt"
231 SetOutPath "$INSTDIR\bin"
232 File /r "gtk\bin\*"
233 SetOutPath "$INSTDIR\etc"
234 File /r "gtk\etc\*"
235 SetOutPath "$INSTDIR\lib"
236 File /r "gtk\lib\*"
237 SetOutPath "$INSTDIR\share"
238 File /r "gtk\share\*"
239 SectionEnd
240 !endif
242 Section "Context Menus" SEC07
243 SectionIn 1
244 WriteRegStr HKCR "*\shell\OpenWithGeany" "" "Open with Geany"
245 WriteRegStr HKCR "*\shell\OpenWithGeany" "Icon" "$INSTDIR\bin\geany.exe"
246 WriteRegStr HKCR "*\shell\OpenWithGeany\command" "" '"$INSTDIR\bin\geany.exe" "%1"'
247 SectionEnd
249 Section "Desktop Shortcuts" SEC08
250 SectionIn 1
251 CreateShortCut "$DESKTOP\Geany.lnk" "$INSTDIR\bin\Geany.exe"
252 CreateShortCut "$QUICKLAUNCH\Geany.lnk" "$INSTDIR\bin\Geany.exe"
253 SectionEnd
255 ; Development files
256 Section "Development files" SEC09
257 SetOverwrite ifnewer
258 SetOutPath "$INSTDIR\include"
259 File /r "${RESOURCEDIR}\include\*"
261 SetOutPath "$INSTDIR\lib\pkgconfig"
262 File "${RESOURCEDIR}\lib\pkgconfig\geany.pc"
263 SectionEnd
265 Section -AdditionalIcons
266 SetOutPath $INSTDIR
267 !insertmacro MUI_STARTMENU_WRITE_BEGIN ${PRODUCT_NAME}
268 WriteIniStr "$INSTDIR\Website.url" "InternetShortcut" "URL" "${PRODUCT_WEB_SITE}"
269 CreateShortCut "$SMPROGRAMS\$StartmenuFolder\Website.lnk" "$INSTDIR\Website.url"
270 CreateShortCut "$SMPROGRAMS\$StartmenuFolder\Uninstall.lnk" "$INSTDIR\uninst.exe"
271 !insertmacro MUI_STARTMENU_WRITE_END
272 SectionEnd
274 Section -Post
275 WriteUninstaller "$INSTDIR\uninst.exe"
276 WriteRegStr SHCTX "${PRODUCT_DIR_REGKEY}" Path "$INSTDIR"
277 WriteRegStr SHCTX "${PRODUCT_UNINST_KEY}" "StartMenu" "$SMPROGRAMS\$StartmenuFolder"
278 ${if} $Answer == "yes" ; if user is admin
279 WriteRegStr SHCTX "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"
280 WriteRegStr SHCTX "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe"
281 WriteRegStr SHCTX "${PRODUCT_UNINST_KEY}" "DisplayIcon" "$INSTDIR\bin\Geany.exe"
282 WriteRegStr SHCTX "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"
283 WriteRegStr SHCTX "${PRODUCT_UNINST_KEY}" "URLInfoAbout" "${PRODUCT_WEB_SITE}"
284 WriteRegStr SHCTX "${PRODUCT_UNINST_KEY}" "URLUpdateInfo" "${PRODUCT_WEB_SITE}"
285 WriteRegStr SHCTX "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"
286 WriteRegDWORD SHCTX "${PRODUCT_UNINST_KEY}" "NoModify" 0x00000001
287 WriteRegDWORD SHCTX "${PRODUCT_UNINST_KEY}" "NoRepair" 0x00000001
288 ${endif}
289 SectionEnd
291 Section Uninstall
292 Delete "$INSTDIR\Website.url"
293 Delete "$INSTDIR\Documentation.url"
294 Delete "$INSTDIR\uninst.exe"
295 Delete "$INSTDIR\News.txt"
296 Delete "$INSTDIR\ReadMe.txt"
297 Delete "$INSTDIR\ReadMe.Dependencies.Geany.txt"
298 Delete "$INSTDIR\Thanks.txt"
299 Delete "$INSTDIR\ToDo.txt"
300 Delete "$INSTDIR\Authors.txt"
301 Delete "$INSTDIR\ChangeLog.txt"
302 Delete "$INSTDIR\Copying.txt"
303 Delete "$INSTDIR\Geany.lnk"
305 ; delete start menu entry
306 ReadRegStr $0 SHCTX "${PRODUCT_UNINST_KEY}" "StartMenu"
307 RMDir /r "$0"
309 Delete "$QUICKLAUNCH\Geany.lnk"
310 Delete "$DESKTOP\Geany.lnk"
312 RMDir /r "$INSTDIR\bin"
313 RMDir /r "$INSTDIR\data"
314 RMDir /r "$INSTDIR\etc"
315 RMDir /r "$INSTDIR\include"
316 RMDir /r "$INSTDIR\lib"
317 RMDir /r "$INSTDIR\libexec"
318 RMDir /r "$INSTDIR\share"
319 RMDir "$INSTDIR"
321 ; remove .geany file extension
322 ReadRegStr $R0 SHCTX "Software\Classes\${PRODUCT_EXT}" ""
323 ${if} $R0 == "${PRODUCT_REGNAME}"
324 DeleteRegKey SHCTX "${PRODUCT_EXT}"
325 DeleteRegKey HKCR "${PRODUCT_EXT}"
326 DeleteRegKey SHCTX "${PRODUCT_REGNAME}"
327 DeleteRegKey HKCR "${PRODUCT_REGNAME}"
328 ${endif}
330 DeleteRegKey HKCR "*\shell\OpenWithGeany"
332 DeleteRegKey SHCTX "${PRODUCT_UNINST_KEY}"
333 DeleteRegKey HKCU "${PRODUCT_UNINST_KEY}"
334 DeleteRegKey SHCTX "${PRODUCT_DIR_REGKEY}"
335 DeleteRegKey HKCU "${PRODUCT_DIR_REGKEY}"
337 SetAutoClose true
338 SectionEnd
340 ;;;;;;;;;;;;;;;;;;;;;;;;;
341 ; Section descriptions ;
342 ;;;;;;;;;;;;;;;;;;;;;;;;;
343 !insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
344 !insertmacro MUI_DESCRIPTION_TEXT ${SEC01} "Required program files. You cannot skip these files."
345 !insertmacro MUI_DESCRIPTION_TEXT ${SEC02} "Available plugins like 'Version Diff', 'Class Builder' and 'Insert Special Characters'."
346 !insertmacro MUI_DESCRIPTION_TEXT ${SEC03} "Various translations of Geany's interface."
347 !insertmacro MUI_DESCRIPTION_TEXT ${SEC04} "Manual in Text and HTML format."
348 !insertmacro MUI_DESCRIPTION_TEXT ${SEC05} "Symbol lists necessary for auto completion of symbols."
349 !ifdef INCLUDE_GTK
350 !insertmacro MUI_DESCRIPTION_TEXT ${SEC06} "You need these files to run Geany. If you have already installed a GTK Runtime Environment (${GTK_VERSION} or higher), you can skip it."
351 !endif
352 !insertmacro MUI_DESCRIPTION_TEXT ${SEC07} "Add context menu item 'Open With Geany'"
353 !insertmacro MUI_DESCRIPTION_TEXT ${SEC08} "Create shortcuts for Geany on the desktop and in the Quicklaunch Bar"
354 !insertmacro MUI_DESCRIPTION_TEXT ${SEC09} "You need these files only if you want to develop own plugins for Geany. If unsure, you can skip it."
355 !insertmacro MUI_FUNCTION_DESCRIPTION_END
357 ;;;;;;;;;;;;;;;;;;;;;
358 ; helper functions ;
359 ;;;;;;;;;;;;;;;;;;;;;
361 ; (from http://jabref.svn.sourceforge.net/viewvc/jabref/trunk/jabref/src/windows/nsis/setup.nsi)
362 !macro IsUserAdmin Result UName
363 ClearErrors
364 UserInfo::GetName
365 IfErrors Win9x
366 Pop $0
367 StrCpy ${UName} $0
368 UserInfo::GetAccountType
369 Pop $1
370 ${if} $1 == "Admin"
371 StrCpy ${Result} "yes"
372 ${else}
373 StrCpy ${Result} "no"
374 ${endif}
375 Goto done
377 Win9x:
378 StrCpy ${Result} "yes"
379 done:
380 !macroend
382 Function .onInit
383 StrCpy "$StartmenuFolder" "Geany"
385 ; (from http://jabref.svn.sourceforge.net/viewvc/jabref/trunk/jabref/src/windows/nsis/setup.nsi)
386 ; If the user does *not* have administrator privileges, abort
387 StrCpy $Answer ""
388 StrCpy $UserName ""
389 !insertmacro IsUserAdmin $Answer $UserName ; macro from LyXUtils.nsh
390 ${if} $Answer == "yes"
391 SetShellVarContext all ; set that e.g. shortcuts will be created for all users
392 ${else}
393 SetShellVarContext current
394 ; TODO is this really what we want? $PROGRAMFILES is not much better because
395 ; probably the unprivileged user can't write it anyways
396 StrCpy $INSTDIR "$PROFILE\$(^Name)"
397 ${endif}
399 ; prevent running multiple instances of the installer
400 System::Call 'kernel32::CreateMutexA(i 0, i 0, t "geany_installer") i .r1 ?e'
401 Pop $R0
402 StrCmp $R0 0 +3
403 MessageBox MB_OK|MB_ICONEXCLAMATION "The installer is already running." /SD IDOK
404 Abort
405 ; warn about a new install over an existing installation
406 ReadRegStr $R0 SHCTX "${PRODUCT_UNINST_KEY}" "UninstallString"
407 StrCmp $R0 "" finish
409 MessageBox MB_YESNO|MB_ICONEXCLAMATION \
410 "Geany has already been installed. $\nDo you want to remove the previous version before installing $(^Name) ?" \
411 /SD IDYES IDYES remove IDNO finish
413 remove:
414 ; run the uninstaller
415 ClearErrors
416 ; we read the installation path of the old installation from the Registry
417 ReadRegStr $UNINSTDIR SHCTX "${PRODUCT_DIR_REGKEY}" "Path"
418 IfSilent dosilent nonsilent
419 dosilent:
420 ExecWait '$R0 /S _?=$UNINSTDIR' ;Do not copy the uninstaller to a temp file
421 Goto finish
422 nonsilent:
423 ExecWait '$R0 _?=$UNINSTDIR' ;Do not copy the uninstaller to a temp file
424 finish:
425 FunctionEnd
427 Function un.onUninstSuccess
428 HideWindow
429 MessageBox MB_ICONINFORMATION|MB_OK "$(^Name) was successfully removed from your computer." \
430 /SD IDOK
431 FunctionEnd
433 Function un.onInit
434 ; If the user does *not* have administrator privileges, abort
435 StrCpy $Answer ""
436 !insertmacro IsUserAdmin $Answer $UserName
437 ${if} $Answer == "yes"
438 SetShellVarContext all
439 ${else}
440 ; check if the Geany has been installed with admin permisions
441 ReadRegStr $0 HKLM "${PRODUCT_UNINST_KEY}" "Publisher"
442 ${if} $0 != ""
443 MessageBox MB_OK|MB_ICONSTOP "You need administrator privileges to uninstall Geany!" \
444 /SD IDOK
445 Abort
446 ${endif}
447 SetShellVarContext current
448 ${endif}
450 MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "Are you sure you want to completely remove $(^Name) and all of its components?" \
451 /SD IDYES IDYES +2
452 Abort
453 FunctionEnd
455 Function OnDirLeave
456 ClearErrors
457 SetOutPath "$INSTDIR" ; what about IfError creating $INSTDIR?
458 GetTempFileName $1 "$INSTDIR" ; creates tmp file (or fails)
459 FileOpen $0 "$1" "w" ; error to open?
460 FileWriteByte $0 "0"
461 IfErrors notPossible possible
463 notPossible:
464 RMDir "$INSTDIR" ; removes folder if empty
465 MessageBox MB_OK "The given directory is not writeable. Please choose another one!" /SD IDOK
466 Abort
467 possible:
468 FileClose $0
469 Delete "$1"
470 FunctionEnd