205 lines
7.2 KiB
EmacsLisp
205 lines
7.2 KiB
EmacsLisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;; iss-mode.el --- Mode for InnoSetup install scripts
|
|
|
|
;; Copyright (C) 2000-2007 by Stefan Reichoer
|
|
|
|
;; Emacs Lisp Archive Entry
|
|
;; Filename: iss-mode.el
|
|
;; Author: Stefan Reichoer, <stefan@xsteve.at>
|
|
;; Version: 1.1d
|
|
|
|
;; iss-mode.el is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation; either version 2, or (at your option)
|
|
;; any later version.
|
|
|
|
;; iss-mode.el is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs; see the file COPYING. If not, write to
|
|
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
;; Boston, MA 02111-1307, USA.
|
|
|
|
;;; Commentary
|
|
|
|
;; InnoSetup is an Application Installer for Windows
|
|
;; See: http://www.jrsoftware.org/isinfo.php
|
|
;; This version of iss-mode.el is tested with InnoSetup v5.0
|
|
|
|
;; iss-mode provides the following features:
|
|
;; * Syntax coloring for InnoSetup scripts
|
|
;; * Integration of the InnoSetup commandline compiler iscc.exe
|
|
;; - Compilation via M-x iss-compile
|
|
;; - Jump to compilation error via M-x next-error
|
|
;; * Start Innosetup help via M-x iss-compiler-help
|
|
;; * Test the installation via M-x iss-run-installer
|
|
|
|
;; Of course you can bind this commands to keys (e.g. in the iss-mode-hook)
|
|
|
|
;; My initialization for InnoSetup looks like this:
|
|
;; (autoload 'iss-mode "iss-mode" "Innosetup Script Mode" t)
|
|
;; (setq auto-mode-alist (append '(("\\.iss$" . iss-mode)) auto-mode-alist))
|
|
;; (setq iss-compiler-path "c:/Programme/Inno Setup 5/")
|
|
;; (add-hook 'iss-mode-hook 'xsteve-iss-mode-init)
|
|
;; (defun xsteve-iss-mode-init ()
|
|
;; (interactive)
|
|
;; (define-key iss-mode-map [f6] 'iss-compile)
|
|
;; (define-key iss-mode-map [(meta f6)] 'iss-run-installer)))
|
|
|
|
;; The latest version of iss-mode.el can be found at:
|
|
;; http://www.xsteve.at/prg/emacs/iss-mode.el
|
|
|
|
;; Comments / suggestions welcome!
|
|
|
|
;;; Change log:
|
|
;;
|
|
;; Version 1.1e:
|
|
;;
|
|
;; - Add some new flags to keywords
|
|
|
|
;;; Code:
|
|
|
|
(eval-and-compile (require 'compile))
|
|
|
|
(defvar iss-compiler-path nil "Path to the iss compiler")
|
|
|
|
;;; End of user settings
|
|
|
|
(defvar iss-mode-syntax-table
|
|
(let ((table (make-syntax-table)))
|
|
;; ";" starts a comment
|
|
;;(modify-syntax-entry ?\; "<" iss-mode-syntax-table)
|
|
(modify-syntax-entry ?\; ". 12" table)
|
|
;; and \n and \^M end a comment
|
|
(modify-syntax-entry ?\n ">" table)
|
|
(modify-syntax-entry ?\^M ">" table)
|
|
|
|
(modify-syntax-entry ?\" "." table)
|
|
|
|
(modify-syntax-entry ?_ "w" table)
|
|
table)
|
|
"Syntax table in use in iss-mode buffers.")
|
|
|
|
|
|
(defvar iss-font-lock-keywords
|
|
(list
|
|
(cons (concat "^;\.*")
|
|
'font-lock-comment-face)
|
|
(cons (concat "\\sw+: ")
|
|
'font-lock-keyword-face)
|
|
(cons "^[ \t]*\\[\.+\\]" 'font-lock-function-name-face) ;font-lock-constant-face)
|
|
(cons "^[ \t]*#include[ \t]*\".+\"" 'font-lock-preprocessor-face)
|
|
(cons (concat "^[ \t]*\\<\\(appname\\|appvername\\|appversion\\|appcopyright\\|appid\\|"
|
|
"appmutex\\|beveledlabel\\|defaultdirname\\|versioninfoversion"
|
|
"\\|defaultgroupname\\|minversion\\|outputdir\\|outputbasefilename\\|"
|
|
"allownoicons\\|uninstallfilesdir\\|"
|
|
"sourcedir\\|disableprogramgrouppage\\|alwayscreateuninstallicon\\)\\>")
|
|
'font-lock-type-face)
|
|
(cons (concat "\\<\\(alwaysskipifsameorolder\\|uninsneveruninstall\\|"
|
|
"comparetimestampalso\\|restartreplace\\|isreadme\\|"
|
|
"unchecked\\|nowait\\|postinstall\\|skipifsilent\\|ignoreversion\\|"
|
|
"uninsdeletekeyifempty\\|uninsdeletekey\\|"
|
|
"runasoriginaluser\\|runascurrentuser"
|
|
"\\)\\>")
|
|
'font-lock-variable-name-face)
|
|
(cons (concat "\\<\\(HKCU\\|HKLM\\|dirifempty\\|files\\|filesandordirs\\)\\>")
|
|
'font-lock-constant-face)
|
|
(list 'iss-fontify-options '(1 'font-lock-variable-name-face) '(2 'font-lock-keyword-face))
|
|
)
|
|
"Expressions to highlight in iss mode.")
|
|
|
|
(defun iss-fontify-options (bound)
|
|
(message "iss-fontify-options %s" bound)
|
|
(when (re-search-forward "^[ \t]*\\([^=]+\\)[ \t]*\\(=\\)" bound t)
|
|
(match-data)))
|
|
|
|
(defvar iss-mode-map (make-sparse-keymap)
|
|
"Keymap used in iss-mode buffers.")
|
|
|
|
(easy-menu-define
|
|
iss-menu
|
|
iss-mode-map
|
|
"InnoSetup script menu"
|
|
(list
|
|
"ISS"
|
|
["Compile" (iss-compile) t]
|
|
["Run Installer" (iss-run-installer) t]
|
|
["InnoSetup Help" (iss-compiler-help) t]
|
|
))
|
|
(easy-menu-add iss-menu)
|
|
|
|
(defvar compilation-file-regexp-alist) ;; silence compiler, don't know the var.
|
|
|
|
;;;###autoload
|
|
(defun iss-mode ()
|
|
"Major mode for editing InnoSetup script files. Upon startup iss-mode-hook is run."
|
|
(interactive)
|
|
(kill-all-local-variables)
|
|
(use-local-map iss-mode-map)
|
|
(setq major-mode 'iss-mode)
|
|
(setq mode-name "iss")
|
|
(set-syntax-table iss-mode-syntax-table)
|
|
(set (make-local-variable 'comment-start) ";")
|
|
(set (make-local-variable 'comment-end) "")
|
|
(set (make-local-variable 'comment-multi-line) nil)
|
|
|
|
(set (make-local-variable 'compilation-error-regexp-alist)
|
|
'(("\\(Error on line\\) \\([0-9]+\\):" nil 2)))
|
|
(set (make-local-variable 'compilation-file-regexp-alist)
|
|
'(("iscc \\(.*\\)$" 1)))
|
|
|
|
;; Font lock support
|
|
(make-local-variable 'font-lock-defaults)
|
|
(setq font-lock-defaults '(iss-font-lock-keywords nil t))
|
|
(run-hooks 'iss-mode-hook))
|
|
|
|
(defun iss-compiler-help ()
|
|
"Start the online documentation for the InnoSetup compiler"
|
|
(interactive)
|
|
(let ((default-directory (or iss-compiler-path default-directory)))
|
|
(w32-shell-execute 1 "ISetup.chm")))
|
|
|
|
(defun iss-compile ()
|
|
"Compile the actual file with the InnoSetup compiler"
|
|
(interactive)
|
|
(let ((default-directory (or iss-compiler-path default-directory))
|
|
(compilation-process-setup-function 'iss-process-setup))
|
|
(compile (concat "iscc " (buffer-file-name)))))
|
|
|
|
(defun iss-process-setup ()
|
|
"Set up `compilation-exit-message-function' for `iss-compile'."
|
|
(set (make-local-variable 'compilation-exit-message-function)
|
|
'iss-compilation-exit-message-function))
|
|
|
|
(defun iss-compilation-exit-message-function (process-status exit-status msg)
|
|
(interactive)
|
|
(save-excursion
|
|
(let ((buffer-read-only nil))
|
|
(goto-char (point-min))
|
|
;;scroll down one line, so that the compile command is parsed to:
|
|
;; -> get the filename of the compiled file
|
|
(insert "\n")))
|
|
(cons msg exit-status))
|
|
|
|
(defun iss-find-option (option)
|
|
(let ((search-regexp
|
|
(concat option "[ \t]*=[ \t]*\\(.*\\)$")))
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(when (search-forward-regexp search-regexp nil t)
|
|
(buffer-substring-no-properties (match-beginning 1) (match-end 1))))))
|
|
|
|
(defun iss-run-installer ()
|
|
(interactive)
|
|
(let ((executable
|
|
(concat (or (iss-find-option "outputdir") "Output\\")
|
|
(or (iss-find-option "outputbasefilename") "setup")
|
|
".exe")))
|
|
(w32-shell-execute 1 executable)))
|
|
|
|
(provide 'iss-mode)
|
|
|
|
;; arch-tag: b07b7119-d591-465e-927f-d0be0bcf7cab
|