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
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
|
;;; dynare.el --- major mode for editing Dynare mod files
;; Copyright © 2010 Yannick Kalantzis
;; Copyright © 2019 Dynare Team
;;
;; This program 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 3 of the License, or
;; (at your option) any later version.
;; This program 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 this program. If not, see
;; <http://www.gnu.org/licenses/>.
;;; Installation:
;;
;; Put this file somewhere on your load path. The mode will be automatically
;; loaded and selected when you open a file with the "mod" extension.
;;; TODO:
;; - font-locking:
;; + external functions (font-lock-function-name-face),
;; + change face for macroprocessor?
;; + handle dates?
;; + multi-line macro-commands/exprs
;; - M-a and M-e should skip statements (separated with ;)
;; - improve indentation
;; + w.r.t. to statements/equations/macro-commands split on several lines
;; + for macro-statements (insert space between @# and the keyword, with
;; an option for controlling this offset)
;; + add option for controlling whether macrocommands are indented at 0 or
;; at same level as Dynare code
;; - basically deactivate the mode within verbatim blocks?
;; - blocks templates "model/end", "initval/end", etc.
;; - functions to insert main keywords, with shortcuts in the keymap
;; - make font-locking case insensitive (as is Dynare lexer)
(defgroup dynare nil
"Editing Dynare mod files."
:link '(url-link "https://www.dynare.org")
:link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
:group 'languages)
(defcustom dynare-block-offset 2
"Extra indentation applied to statements in Dynare block structures."
:type 'integer)
;; Those keywords that makes the lexer enter the DYNARE_STATEMENT start
;; condition
;; Also include "end" in this list
(defvar dynare-statements
'("var" "varexo" "varexo_det" "trend_var" "log_trend_var"
"predetermined_variables" "parameters" "model_local_variable" "periods"
"model_info" "estimation" "var_estimation" "set_time" "data" "varobs"
"varexobs" "unit_root_vars" "rplot" "osr_params" "osr" "dynatype"
"dynasave" "model_comparison" "change_type" "load_params_and_steady_state"
"save_params_and_steady_state" "write_latex_dynamic_model"
"write_latex_static_model" "write_latex_original_model"
"write_latex_steady_state_model" "steady" "check" "simul" "stoch_simul"
"var_model" "trend_component_model" "var_expectation_model" "pac_model"
"dsample" "Sigma_e" "planner_objective" "ramsey_model" "ramsey_policy"
"evaluate_planner_objective"
"discretionary_policy" "identification" "bvar_density" "bvar_forecast"
"dynare_sensitivity" "initval_file" "histval_file" "forecast"
"shock_decomposition" "realtime_shock_decomposition"
"plot_shock_decomposition" "initial_condition_decomposition"
"squeeze_shock_decomposition" "sbvar"
"ms_estimation" "ms_simulation" "ms_compute_mdd" "ms_compute_probabilities"
"ms_forecast" "ms_irf" "ms_variance_decomposition" "conditional_forecast"
"plot_conditional_forecast" "gmm_estimation" "smm_estimation"
"markov_switching" "svar" "svar_global_identification_check"
"external_function" "calib_smoother" "model_diagnostics" "extended_path"
"smoother2histval" "perfect_foresight_setup" "perfect_foresight_solver"
"det_cond_forecast" "std" "corr" "prior_function" "posterior_function" "end")
"Dynare statement keywords.")
;; Keywords that may appear in blocks, and that begin a statement which will be
;; closed by a semicolon
(defvar dynare-statements-like
'("stderr" "values" "restriction" "exclusion" "equation" "crossequations"
"covariance" "upper_cholesky" "lower_cholesky")
"Dynare statements-like keywords.")
;; Those keywords that makes the lexer enter the DYNARE_BLOCK start condition
;; Also include "verbatim" in this list
;; Needs to be enclosed within eval-when-compile, because this variable is
;; referenced in another eval-when-compile statement in dynare-calculate-indentation
(eval-when-compile
(defvar dynare-blocks
'("model" "steady_state_model" "initval" "endval" "histval" "shocks"
"shock_groups" "init2shocks" "mshocks" "estimated_params" "epilogue" "priors"
"estimated_params_init" "estimated_params_bounds" "osr_params_bounds"
"observation_trends" "optim_weights" "homotopy_setup"
"conditional_forecast_paths" "svar_identification" "moment_calibration"
"irf_calibration" "ramsey_constraints" "restrictions" "generate_irfs"
"verbatim")
"Dynare block keywords."))
;; Mathematical functions and operators used in model equations (see "hand_side" in Bison file)
(defvar dynare-functions
'("expectation" "var_expectation" "pac_expectation" "exp" "diff" "adl" "log"
"ln" "log10" "sin" "cos" "tan" "asin" "acos" "atan" "sqrt" "cbrt" "abs"
"sign" "max" "min" "normcdf" "normpdf" "erf" "steady_state")
"Dynare mathematical functions and operators.")
(defvar dynare-constants
'("nan" "inf")
"Dynare constants.")
(defvar dynare-type-attributes
'("|e" "|x" "|p")
"Dynare attributes for on-the-fly type declarations.")
(defvar dynare-macro-keywords
'("line" "include" "includepath" "define" "echo" "error" "if" "ifdef" "ifndef"
"elseif" "else" "endif" "for" "endfor" "echomacrovars" "in" "when" "save"
"true" "false" "exp" "log" "ln" "log10" "sin" "cos" "tan" "asin" "acos"
"atan" "sqrt" "cbrt" "sign" "max" "min" "floor" "ceil" "trunc" "mod" "sum"
"erf" "erfc" "gamma" "lgamma" "round" "length" "normpdf" "normcdf" "isempty"
"isboolean" "isreal" "isstring" "istuple" "isarray" "bool" "real" "string"
"tuple" "array" "defined" "nan" "inf")
"Dynare macroprocessor keywords.")
(defvar dynare-font-lock-keywords
`(("@#" . font-lock-variable-name-face) ; Beginning of macro-statement
("@#" ,(regexp-opt dynare-macro-keywords 'symbols)
nil nil (0 font-lock-variable-name-face)) ; Keywords in macro-statements
("@{[^}]*}" . font-lock-variable-name-face) ; For macro-substitutions
;;; Below is an alternative way of dealing with macro-substitutions
;;; Only the delimiters and the keywords are colorized
;; ("@{" . font-lock-variable-name-face)
;; ("@{" "[^}]*\\(}\\)" nil nil (1 font-lock-variable-name-face))
;; ("@{" ,(concat (regexp-opt dynare-macro-keywords 'symbols) "[^}]*}") nil nil (1 font-lock-variable-name-face))
("^[ \t]*#" . font-lock-warning-face) ; For model-local variables
(,(regexp-opt (append dynare-statements dynare-statements-like dynare-blocks) 'symbols) . font-lock-keyword-face)
(,(regexp-opt dynare-functions 'symbols) . font-lock-builtin-face)
(,(regexp-opt dynare-constants 'symbols) . font-lock-constant-face)
(,(concat (regexp-opt dynare-type-attributes) "\\_>") . font-lock-type-face))
"Keyword highlighting specification for `dynare-mode'.")
(defvar dynare-mode-map
(let ((map (make-sparse-keymap)))
;; TODO: To be filled
map))
(defvar dynare-mode-syntax-table
(let ((st (make-syntax-table)))
;; mathematical operators are treated as punctuation
;; "*" is treated further below
(modify-syntax-entry ?+ "." st)
(modify-syntax-entry ?- "." st)
(modify-syntax-entry ?/ "." st)
(modify-syntax-entry ?^ "." st)
;; symbols for the macrolanguage
(modify-syntax-entry ?@ "." st)
(modify-syntax-entry ?# "." st)
;; underscores are symbol constituents
(modify-syntax-entry ?_ "_" st)
;; Single-quoted strings
(modify-syntax-entry ?' "\"" st)
;; define C++ style comment “/* ... */” and “// ...”
;; "/" is the 1st and 2nd char of /* and */ (a-style) and the 2nd char of //
;; (b-style)
(modify-syntax-entry ?\/ ". 124" st)
;; "*" is the 2nd and 1st char of /* and */ (a-style only)
(modify-syntax-entry ?* ". 23b" st)
;; "%" starts a MATLAB-style comment
(modify-syntax-entry ?% "<" st)
;; newline is the comment-end sequence of b-style and MATLAB-style comments
(modify-syntax-entry ?\n ">" st)
st)
"Syntax table for `dynare-mode'")
(defun dynare-indent-line ()
"Indent current line of Dynare mod file."
(interactive)
(let ((savep (> (current-column) (current-indentation)))
(indent (max (dynare-calculate-indentation) 0)))
(if savep
(save-excursion (indent-line-to indent))
(indent-line-to indent))))
(defun dynare-calculate-indentation ()
"Return the column to which the current line should be indented."
(save-excursion
(beginning-of-line)
(cond
((bobp)
0)
((looking-at "^[ \t]*end[ \t]*;")
;; This is an "end" keyword: decrease the indentation level
(forward-line -1)
(max (- (current-indentation) dynare-block-offset)
0))
(t
(let (cur-indent)
(while (null cur-indent) ; Iterate backwards until we find an indentation hint
(forward-line -1)
(cond
((looking-at "^[ \t]*end[ \t]*;")
;; An "end" was matched: indent at the same level
(setq cur-indent (current-indentation)))
((looking-at (concat "^[ \t]*" (eval-when-compile (regexp-opt
dynare-blocks))
"[ \t]*;"))
;; A block opening keyword was found: we need to indent an extra level
(setq cur-indent (+ (current-indentation) dynare-block-offset))) ; Do the actual indenting
((bobp)
;; No hint was found: indent at 0
(setq cur-indent 0))))
cur-indent)))))
;;;###autoload
(define-derived-mode dynare-mode prog-mode "Dynare"
"Major mode for editing Dynare mod files."
:syntax-table dynare-mode-syntax-table
(setq-local comment-start "// ") ; For comment-dwim
(setq-local font-lock-defaults '(dynare-font-lock-keywords))
(setq-local indent-line-function 'dynare-indent-line))
;;;###autoload
(add-to-list 'auto-mode-alist '("\\.mod$" . dynare-mode))
(provide 'dynare)
;; The following line is for ELPA compatibility (in particular needed for Debian)
;;; dynare.el ends here
|
