~nxhtml/nxhtml/main

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; 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