; This script generates an installation kit for a Windows-native XEmacs, 21.4 and 21.5. ; This script runs with Inno Setup version 5.1.6, see http://www.jrsoftware.org/ for more info. ; This script requires the Inno Setup pre-processor. ; ; Version History ; 2007-09-26 Vin Shelton Remove setting of package-get-always-update and miscellaneous cleanup. ; 2007-09-25 Vin Shelton Put comment wrapper around site-start.el changes and remove them on uninstall. ; Enable ftp.xemacs.org for packages and set path to ftp.exe in site-start.el. ; 2007-09-06 Vin Shelton Added easypg. ; 2006-04-06 Vin Shelton Changed defaults for ExecSrc and PkgSrc. ; Don't set 'Start in' property. ; 2006-04-02 Vin Shelton Set 'Start in' property for shortcuts to 'My Documents' directory. ; 2006-03-03 Vin Shelton Support for 21.5. Added packages as separate components. ; 2006-01-28 Vin Shelton Erase unused registry code. ; 2006-01-26 Vin Shelton Don't append XEmacs binary directory to system path. ; 2006-01-21 Vin Shelton Append XEmacs binary directory to system path; this is not currently deleted on uninstall. ; Get built kit from C:\XEmacs-built. ; 2005-12-26 Vin Shelton Packages are now installed directly into {app}\xemacs-packages, etc. As of 21.4.19, the package root is found automatically, so EMACSPACKAGEPATH is no longer necessary. ; 2005-12-17 Vin Shelton Move packages out of the version-specific tree. ; 2005-12-13 Vin Shelton Created. ; Allow undefined identifiers, e.g. 'KitName' #pragma parseroption -u+ ;#define QUICKIE_TEST #ifndef XEmacsVersion #define XEmacsVersion "21.4.20" #endif ;#define KitName "-2" #ifndef ExecSrc #define ExecSrc "installed" #endif #ifndef PkgSrc #define PkgSrc "packages" #endif [Setup] AllowNoIcons=yes AppName=XEmacs AppVerName=XEmacs {#XEmacsVersion} AppPublisher=XEmacs Development Team AppPublisherURL=http://www.xemacs.org AppSupportURL=http://www.xemacs.org AppUpdatesURL=http://www.xemacs.org Compression=lzma DefaultDirName={pf}\XEmacs DefaultGroupName=XEmacs InfoBeforeFile=ReadMe-{#XEmacsVersion} OutputDir=. OutputBaseFilename=XEmacs_Setup_{#XEmacsVersion}{#KitName} SolidCompression=yes UninstallFilesDir={app}/XEmacs-{#XEmacsVersion} [Languages] Name: "english"; MessagesFile: "compiler:Default.isl" [Messages] StatusRunProgram=Unpacking selected packages... [Tasks] Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked [Files] ; Always installed Source: "{#ExecSrc}\XEmacs-{#XEmacsVersion}\*"; DestDir: "{app}\XEmacs-{#XEmacsVersion}"; Flags: ignoreversion recursesubdirs Source: "{#PkgSrc}\efs-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Flags: ignoreversion Source: "{#PkgSrc}\xemacs-base-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Flags: ignoreversion ; minitar.exe and unpack.cmd are used to unpack the packages Source: "{#ExecSrc}\XEmacs-{#XEmacsVersion}\i586-pc-win32\minitar.exe"; DestDir: "{app}\xemacs-packages"; Flags: ignoreversion Source: "unpack.cmd"; DestDir: "{app}\xemacs-packages"; Flags: ignoreversion Source: "{#PkgSrc}\package-index.LATEST.gpg"; DestDir: "{app}"; #ifndef QUICKIE_TEST ; Recommended Source: "{#PkgSrc}\c-support-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: c_support; Flags: ignoreversion Source: "{#PkgSrc}\cc-mode-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: cc_mode; Flags: ignoreversion Source: "{#PkgSrc}\debug-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: debug; Flags: ignoreversion Source: "{#PkgSrc}\dired-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: dired; Flags: ignoreversion Source: "{#PkgSrc}\ecb-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: ecb; Flags: ignoreversion Source: "{#PkgSrc}\edebug-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: edebug; Flags: ignoreversion Source: "{#PkgSrc}\ediff-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: ediff; Flags: ignoreversion Source: "{#PkgSrc}\edit-utils-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: edit_utils; Flags: ignoreversion Source: "{#PkgSrc}\eieio-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: eieio; Flags: ignoreversion Source: "{#PkgSrc}\fsf-compat-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: fsf_compat; Flags: ignoreversion Source: "{#PkgSrc}\mail-lib-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: mail_lib; Flags: ignoreversion Source: "{#PkgSrc}\net-utils-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: net_utils; Flags: ignoreversion Source: "{#PkgSrc}\os-utils-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: os_utils; Flags: ignoreversion Source: "{#PkgSrc}\pc-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: pc; Flags: ignoreversion Source: "{#PkgSrc}\perl-modes-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: perl_modes; Flags: ignoreversion Source: "{#PkgSrc}\prog-modes-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: prog_modes; Flags: ignoreversion Source: "{#PkgSrc}\semantic-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: semantic; Flags: ignoreversion Source: "{#PkgSrc}\sh-script-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: sh_script; Flags: ignoreversion Source: "{#PkgSrc}\sounds-wav-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: sounds_wav; Flags: ignoreversion Source: "{#PkgSrc}\speedbar-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: speedbar; Flags: ignoreversion Source: "{#PkgSrc}\texinfo-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: texinfo; Flags: ignoreversion Source: "{#PkgSrc}\text-modes-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: text_modes; Flags: ignoreversion Source: "{#PkgSrc}\time-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: time; Flags: ignoreversion Source: "{#PkgSrc}\xemacs-devel-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: xemacs_devel; Flags: ignoreversion ; Optional Source: "{#PkgSrc}\auctex-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: auctex; Flags: ignoreversion Source: "{#PkgSrc}\bbdb-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: bbdb; Flags: ignoreversion Source: "{#PkgSrc}\calc-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: calc; Flags: ignoreversion Source: "{#PkgSrc}\easypg-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: easypg; Flags: ignoreversion Source: "{#PkgSrc}\ecrypto-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: ecrypto; Flags: ignoreversion Source: "{#PkgSrc}\elib-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: elib; Flags: ignoreversion Source: "{#PkgSrc}\emerge-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: emerge; Flags: ignoreversion Source: "{#PkgSrc}\eshell-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: eshell; Flags: ignoreversion Source: "{#PkgSrc}\footnote-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: footnote; Flags: ignoreversion Source: "{#PkgSrc}\fortran-modes-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: fortran_modes; Flags: ignoreversion Source: "{#PkgSrc}\gnus-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: gnus; Flags: ignoreversion Source: "{#PkgSrc}\hm--html-menus-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: hm__html_menus; Flags: ignoreversion Source: "{#PkgSrc}\ibuffer-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: ibuffer; Flags: ignoreversion Source: "{#PkgSrc}\igrep-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: igrep; Flags: ignoreversion Source: "{#PkgSrc}\ispell-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: ispell; Flags: ignoreversion Source: "{#PkgSrc}\jde-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: jde; Flags: ignoreversion Source: "{#PkgSrc}\mailcrypt-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: mailcrypt; Flags: ignoreversion Source: "{#PkgSrc}\mh-e-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: mh_e; Flags: ignoreversion Source: "{#PkgSrc}\mmm-mode-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: mmm_mode; Flags: ignoreversion Source: "{#PkgSrc}\pcl-cvs-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: pcl_cvs; Flags: ignoreversion Source: "{#PkgSrc}\pcomplete-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: pcomplete; Flags: ignoreversion Source: "{#PkgSrc}\ps-print-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: ps_print; Flags: ignoreversion Source: "{#PkgSrc}\psgml-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: psgml; Flags: ignoreversion Source: "{#PkgSrc}\python-modes-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: python_modes; Flags: ignoreversion Source: "{#PkgSrc}\re-builder-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: re_builder; Flags: ignoreversion Source: "{#PkgSrc}\reftex-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: reftex; Flags: ignoreversion Source: "{#PkgSrc}\ruby-modes-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: ruby_modes; Flags: ignoreversion Source: "{#PkgSrc}\sasl-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: sasl; Flags: ignoreversion Source: "{#PkgSrc}\scheme-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: scheme; Flags: ignoreversion Source: "{#PkgSrc}\sgml-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: sgml; Flags: ignoreversion Source: "{#PkgSrc}\sieve-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: sieve; Flags: ignoreversion Source: "{#PkgSrc}\supercite-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: supercite; Flags: ignoreversion Source: "{#PkgSrc}\textools-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: textools; Flags: ignoreversion Source: "{#PkgSrc}\tramp-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: tramp; Flags: ignoreversion Source: "{#PkgSrc}\vc-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: vc; Flags: ignoreversion Source: "{#PkgSrc}\vhdl-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: vhdl; Flags: ignoreversion Source: "{#PkgSrc}\viper-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: viper; Flags: ignoreversion Source: "{#PkgSrc}\vm-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: vm; Flags: ignoreversion Source: "{#PkgSrc}\w3-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: w3; Flags: ignoreversion Source: "{#PkgSrc}\x-symbol-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: x_symbol; Flags: ignoreversion Source: "{#PkgSrc}\xetla-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: xetla; Flags: ignoreversion Source: "{#PkgSrc}\xslide-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: xslide; Flags: ignoreversion Source: "{#PkgSrc}\xslt-process-*-pkg.tar"; DestDir: "{app}\xemacs-packages"; Components: xslt_process; Flags: ignoreversion #endif // ifndef QUICKIE_TEST #ifdef MULE Source: "{#PkgSrc}\latin-euro-standards-*-pkg.tar"; DestDir: "{app}\mule-packages"; Components: latin_euro_standards; Flags: ignoreversion Source: "{#PkgSrc}\latin-unity-*-pkg.tar"; DestDir: "{app}\mule-packages"; Components: latin_unity; Flags: ignoreversion Source: "{#PkgSrc}\locale-*-pkg.tar"; DestDir: "{app}\mule-packages"; Components: locale; Flags: ignoreversion Source: "{#PkgSrc}\lookup-*-pkg.tar"; DestDir: "{app}\mule-packages"; Components: lookup; Flags: ignoreversion Source: "{#PkgSrc}\mule-base-*-pkg.tar"; DestDir: "{app}\mule-packages"; Components: mule_base; Flags: ignoreversion #endif [Types] Name: "recommended"; Description: "Recommended installation" Name: "complete"; Description: "Install XEmacs {#XEmacsVersion} and all packages" Name: "minimal"; Description: "Minimalist installation" Name: "custom"; Description: "Custom installation"; Flags: iscustom [Components] Name: "base"; Description: "XEmacs {#XEmacsVersion} executable and essential support files"; Types: complete minimal recommended custom; Flags: fixed Name: "auctex"; Description: "auctex: Basic TeX/LaTeX support"; Types: complete custom Name: "bbdb"; Description: "bbdb: The Big Brother Data Base"; Types: complete custom Name: "c_support"; Description: "c-support: Basic single-file add-ons for editing C code"; Types: complete recommended custom Name: "calc"; Description: "calc: Emacs calculator"; Types: complete custom Name: "cc_mode"; Description: "cc-mode: C, C++, etc language support"; Types: complete recommended custom Name: "debug"; Description: "debug: GUD, gdb, dbx debugging support"; Types: complete recommended custom Name: "dired"; Description: "dired: Manage file systems"; Types: complete recommended custom Name: "ecb"; Description: "ecb: Emacs source code browser"; Types: complete recommended custom Name: "easypg"; Description: "easypg: GnuPG interface for Emacs"; Types: complete custom Name: "ecrypto"; Description: "ecrypto: Crypto functionality in Emacs Lisp"; Types: complete custom Name: "edebug"; Description: "edebug: An Emacs Lisp debugger"; Types: complete recommended custom Name: "ediff"; Description: "ediff: Interface over GNU patch"; Types: complete recommended custom Name: "edit_utils"; Description: "edit-utils: Miscellaneous editor extensions, you probably need this"; Types: complete minimal recommended custom Name: "efs"; Description: "efs: Edit files on other computers"; Types: complete minimal recommended custom; Flags: fixed Name: "eieio"; Description: "eieio: Enhanced Implementation of Emacs Interpreted Objects"; Types: complete recommended custom Name: "elib"; Description: "elib: Portable Emacs Lisp utilities library"; Types: complete custom Name: "emerge"; Description: "emerge: Another interface over GNU patch"; Types: complete custom Name: "eshell"; Description: "eshell: Command shell implemented in Emacs Lisp"; Types: complete custom Name: "footnote"; Description: "footnote: Footnoting in mail message editing modes"; Types: complete custom Name: "fortran_modes"; Description: "fortran-modes: Fortran support"; Types: complete custom Name: "fsf_compat"; Description: "fsf-compat: FSF Emacs compatibility files"; Types: complete recommended custom Name: "gnus"; Description: "gnus: The Gnus Newsreader and Mailreader"; Types: complete custom Name: "hm__html_menus"; Description: "hm--html-menus: HTML editing"; Types: complete custom Name: "ibuffer"; Description: "ibuffer: Advanced replacement for buffer-menu"; Types: complete custom Name: "igrep"; Description: "igrep: Enhanced front-end for Grep"; Types: complete custom Name: "ispell"; Description: "ispell: Spell-checking with GNU ispell"; Types: complete custom Name: "jde"; Description: "jde: Integrated Development Environment for Java"; Types: complete custom #ifdef MULE Name: "latin_euro_standards"; Description: "latin-euro-standards: Support for the Latin character sets (MULE)"; Types: complete recommended custom Name: "latin_unity"; Description: "latin-unity: Find single ISO 8859 character set to encode a buffer (MULE)"; Types: complete recommended custom Name: "locale"; Description: "locale: Localized menubars and localized splash screens (MULE)"; Types: complete recommended custom Name: "lookup"; Description: "lookup: Dictionary support (MULE)"; Types: complete recommended custom #endif Name: "mail_lib"; Description: "mail-lib: Fundamental lisp files for providing email support"; Types: complete recommended custom Name: "mailcrypt"; Description: "mailcrypt: Support for messaging encryption with PGP"; Types: complete custom Name: "mh_e"; Description: "mh-e: Interface to the MH Mail System"; Types: complete custom Name: "mmm_mode"; Description: "mmm-mode: Multiple major modes in a single buffer"; Types: complete custom #ifdef MULE Name: "mule_base"; Description: "mule-base: Basic MULE support"; Types: complete recommended custom #endif Name: "net_utils"; Description: "net-utils: Miscellaneous Networking Utilities"; Types: complete recommended custom Name: "os_utils"; Description: "os-utils: Miscellaneous O/S utilities"; Types: complete recommended custom Name: "pc"; Description: "pc: PC style interface emulation"; Types: complete recommended custom Name: "pcl_cvs"; Description: "pcl-cvs: CVS frontend"; Types: complete custom Name: "pcomplete"; Description: "pcomplete: Provides programmatic completion"; Types: complete custom Name: "perl_modes"; Description: "perl-modes: Perl support"; Types: complete recommended custom Name: "prog_modes"; Description: "prog-modes: Support for various programming languages"; Types: complete recommended custom Name: "ps_print"; Description: "ps-print: Printing functions and utilities"; Types: complete custom Name: "psgml"; Description: "psgml: Validated HTML/SGML editing"; Types: complete custom Name: "python_modes"; Description: "python-modes: Python support"; Types: complete custom Name: "re_builder"; Description: "re-builder: Build regular expressions"; Types: complete custom Name: "reftex"; Description: "reftex: LaTeX cross-references and citations"; Types: complete custom Name: "ruby_modes"; Description: "ruby-modes: Ruby support"; Types: complete custom Name: "sasl"; Description: "sasl: Simple Authentication and Security Layer (SASL) library"; Types: complete custom Name: "scheme"; Description: "scheme: Front-end support for Inferior Scheme"; Types: complete custom Name: "semantic"; Description: "semantic: Semantic bovinator (Yacc/Lex for XEmacs)"; Types: complete recommended custom Name: "sgml"; Description: "sgml: SGML/Linuxdoc-SGML editing"; Types: complete custom Name: "sh_script"; Description: "sh-script: Support for editing shell scripts"; Types: complete recommended custom Name: "sieve"; Description: "sieve: Manage Sieve email filtering scripts"; Types: complete custom Name: "sounds_wav"; Description: "sounds-wav: XEmacs Microsoft sound files"; Types: complete recommended custom Name: "speedbar"; Description: "speedbar: Provides a separate frame with convenient references"; Types: complete recommended custom Name: "supercite"; Description: "supercite: Citation tool for news & mail messages"; Types: complete custom Name: "texinfo"; Description: "texinfo: XEmacs TeXinfo support"; Types: complete minimal recommended custom Name: "text_modes"; Description: "text-modes: Miscellaneous support for editing text files"; Types: complete recommended custom Name: "textools"; Description: "textools: Miscellaneous TeX support"; Types: complete custom Name: "time"; Description: "time: Display time & date on the modeline"; Types: complete recommended custom Name: "tramp"; Description: "tramp: Remote shell-based file editing"; Types: complete custom Name: "vc"; Description: "vc: Version Control for Free systems"; Types: complete custom Name: "vhdl"; Description: "vhdl: Support for VHDL"; Types: complete custom Name: "viper"; Description: "viper: VI emulation support"; Types: complete custom Name: "vm"; Description: "vm: An Emacs mailer"; Types: complete custom Name: "w3"; Description: "w3: A Web browser"; Types: complete custom Name: "x_symbol"; Description: "x-symbol: Semi WYSIWYG for LaTeX and HTML"; Types: complete custom Name: "xemacs_base"; Description: "xemacs-base: Basic XEmacs support"; Types: complete minimal recommended custom; Flags: fixed Name: "xemacs_devel"; Description: "xemacs-devel: Emacs Lisp developer support"; Types: complete recommended custom Name: "xetla"; Description: "xetla: XEmacs support for GNU/arch (tla)"; Types: complete custom Name: "xslide"; Description: "xslide: XSL editing support"; Types: complete custom Name: "xslt_process"; Description: "xslt-process: XSLT processing support"; Types: complete custom [INI] [Icons] Name: "{group}\XEmacs-{#XEmacsVersion}"; Filename: "{app}\XEmacs-{#XEmacsVersion}\i586-pc-win32\xemacs.exe" Name: "{group}\{cm:UninstallProgram,XEmacs-{#XEmacsVersion}}"; Filename: "{uninstallexe}" ; WorkingDir corresponds to the 'Start in' property. Name: "{userdesktop}\XEmacs-{#XEmacsVersion}"; Filename: "{app}\XEmacs-{#XEmacsVersion}\i586-pc-win32\xemacs.exe"; Tasks: desktopicon Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\XEmacs-{#XEmacsVersion}"; Filename: "{app}\XEmacs-{#XEmacsVersion}\i586-pc-win32\xemacs.exe"; Tasks: quicklaunchicon [Run] ; Unpack and delete the package tarballs Filename: "{app}\xemacs-packages\unpack.cmd"; WorkingDir: "{app}\xemacs-packages"; Flags: runhidden; AfterInstall: AfterInstall [UninstallDelete] [Code] Const SiteStartFooter = ';;; End of XEmacs_Setup addition' + #10; SiteStartHeader = #10 + ';;; Lines added by XEmacs_Setup' + #10; SubKeyName = 'Software\XEmacs\XEmacs'; ValueName = 'EMACSPACKAGEPATH'; // Internal Declarations procedure AfterInstall(); forward; procedure CleanupPackagePath(); forward; procedure CreateSiteStart(); forward; procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); forward; procedure RemovePackagePathSetting(RootKey: Integer); forward; procedure RemoveSiteStartModifications(); forward; procedure AfterInstall(); begin CreateSiteStart; CleanupPackagePath; end; procedure CleanupPackagePath(); begin RemovePackagePathSetting(HKEY_CURRENT_USER); RemovePackagePathSetting(HKEY_LOCAL_MACHINE); end; // Create a site-start.el file to allow easy package downloading procedure CreateSiteStart(); var Contents: String; FtpExe: String; HeaderRequired, FooterRequired: Boolean; InsertPos: Integer; InstallBase: String; Payload: String; SiteStart: String; begin // Here's what we're going to add to lisp\site-start.el: // ;;; Lines added by XEmacs_Setup // (setq package-get-package-index-file-location "C:/Program Files/XEmacs") // (setq package-get-remote '("ftp.xemacs.org" "pub/xemacs/packages")) // (setq efs-ftp-program-name "C:/WINDOWS/system32/ftp.exe") // ;;; End of XEmacs_Setup addition SiteStart := ExpandConstant('{app}') + '\site-packages'; CreateDir(SiteStart); SiteStart := SiteStart + '\lisp'; CreateDir(SiteStart); SiteStart := SiteStart + '\site-start.el'; // Optimize for the most common cases: either site-start.el does not contain anything related to XEmacs setup // or site-start.el contains the entire text verbatim. // Convert separators from backslash to slash InstallBase := ExpandConstant('{app}'); StringChange(InstallBase, '\', '/'); FtpExe := ExpandConstant('{syswow64}') + '\ftp.exe'; StringChange(FtpExe, '\', '/'); Payload := '(setq package-get-package-index-file-location "' + InstallBase + '")' + #10 + '(setq package-get-remote ' + Chr(39) + '("ftp.xemacs.org" "pub/xemacs/packages"))' + #10 '(setq efs-ftp-program-name "' + FtpExe + '")' + #10; // File is non-existant - write header, payload and footer if NOT LoadStringFromFile(SiteStart, Contents) then begin SaveStringToFile(SiteStart, SiteStartHeader + Payload + SiteStartFooter, False); end else begin // Pos > 0 indicates that the full text already appears verbatim in the site-start.el file, so do nothing in that case if Pos(SiteStartHeader + Payload + SiteStartFooter, Contents) = 0 then begin FooterRequired := True; HeaderRequired := True; InsertPos := Pos(SiteStartHeader, Contents); if InsertPos > 0 then begin HeaderRequired := False InsertPos := Pos(SiteStartFooter, Contents); if InsertPos > 0 then begin FooterRequired := False; end else begin InsertPos := Length(Contents); end; end; if InsertPos = 0 then InsertPos := 1; if HeaderRequired then begin Insert(SiteStartHeader, Contents, InsertPos); InsertPos := InsertPos + Length(SiteStartHeader); end; Insert(Payload, Contents, InsertPos); InsertPos := InsertPos + Length(Payload); if FooterRequired then Insert(SiteStartFooter, Contents, InsertPos); SaveStringToFile(SiteStart, Contents, False); end; end; end; procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); begin case CurUninstallStep of usUninstall: begin RemoveSiteStartModifications; end; end; end; procedure RemovePackagePathSetting(RootKey: Integer); var RootKeyName: String; Value: String; begin RootKeyName := 'Unknown Root'; case RootKey of HKEY_CURRENT_USER: RootKeyName := 'HKEY_CURRENT_USER'; HKEY_LOCAL_MACHINE: RootKeyName := 'HKEY_LOCAL_MACHINE'; end; // Check to see if the key exists in the specified registry root if RegQueryStringValue(RootKey, SubKeyName, ValueName, Value) then begin // Allow the user to delete it if MsgBox('Do you want to delete the registry key ' + RootKeyName + '\' + SubKeyName + '\' + ValueName + '?' #13 'Currently this key has the value "' + Value + '".' #13#13 'If you do not delete this registry key, then the packages installed from this setup kit will not be found when XEmacs runs.' #13, mbConfirmation, MB_YESNO) = IDYES then begin RegDeleteValue(RootKey, SubKeyName, ValueName); end; end; end; procedure RemoveSiteStartModifications(); var Contents: String; Footer, Header: Integer; SiteStart: String; begin SiteStart := ExpandConstant('{app}') + '\site-packages\lisp\site-start.el'; if LoadStringFromFile(SiteStart, Contents) then begin Header := Pos(SiteStartHeader, Contents); if Header > 0 then begin Footer := Pos(SiteStartFooter, Contents); if (Footer > 0) AND (Footer > Header) then begin Footer := Footer + Length(SiteStartFooter); Delete(Contents, Header, Footer-Header); SaveStringToFile(SiteStart, Contents, False); end; end; end; end;