blob: 7e498c09b4717aaca050dcfa66b52b23f736876d (
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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 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
|
