?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
QUICK CLUSTER: Fix infinite loop on bad command name.
[pspp.git] / pspp-mode.el
blobf992f25cb9ade5bcc346b8e4a28e0f1e5fb68ab9
1 ;;; pspp-mode-el -- Major mode for editing PSPP files
2
3 ;; Copyright (C) 2005 Free Software Foundation
4 ;; Created: 05 March 2005
5 ;; Keywords: PSPP major-mode
6
7
8
9 ;; Based on the example wpdl-mode.el by Scott Borton
10 ;; Author: Scott Andrew Borton <scott@pp.htv.fi>
11
12 ;; Copyright (C) 2000, 2003 Scott Andrew Borton <scott@pp.htv.fi>
13
14 ;; This program is free software: you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by
16 ;; the Free Software Foundation, either version 3 of the License, or
17 ;; (at your option) any later version.
18 ;;
19 ;; This program is distributed in the hope that it will be useful,
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 ;; GNU General Public License for more details.
23 ;;
24 ;; You should have received a copy of the GNU General Public License
25 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
26
27 ;;; Code:
28 (defvar pspp-mode-hook nil)
29 (defvar pspp-mode-map
30 (let ((pspp-mode-map (make-keymap)))
31 (define-key pspp-mode-map "\C-j" 'newline-and-indent)
32 pspp-mode-map)
33 "Keymap for PSPP major mode")
34
35 (add-to-list 'auto-mode-alist '("\\.sps\\'" . pspp-mode))
36
37
38 (defun pspp-data-block-p ()
39 "Returns t if current line is inside a data block."
40 (save-excursion
41 (let (
42 (pspp-end-of-block-found nil)
43 (pspp-start-of-block-found nil)
44 )
45 (beginning-of-line)
46 (while (not (or
47 (or (bobp) pspp-end-of-block-found )
48 pspp-start-of-block-found
49 )
50 )
51 (set 'pspp-end-of-block-found (looking-at "^[ \t]*END[\t ]+DATA\."))
52 (set 'pspp-start-of-block-found (looking-at "^[ \t]*BEGIN[\t ]+DATA"))
53 (forward-line -1)
54 )
55
56 (and pspp-start-of-block-found (not pspp-end-of-block-found))
57 )
58 )
59 )
60
61 (defconst pspp-indent-width
62 2
63 "size of indent"
64 )
65
66
67 (defconst pspp-indenters
68 (concat "^[\t ]*"
69 (regexp-opt '("DO"
70 "BEGIN"
71 "LOOP"
72 "INPUT") t)
73 "[\t ]+")
74 "constructs which cause indentation"
75 )
76
77
78 (defconst pspp-unindenters
79 (concat "^[\t ]*END[\t ]+"
80 (regexp-opt '("IF"
81 "DATA"
82 "LOOP"
83 "REPEAT"
84 "INPUT") t)
85 "[\t ]*")
86
87 ;; Note that "END CASE" and "END FILE" do not unindent.
88
89 "constructs which cause end of indentation"
90 )
91
92
93
94 (defun pspp-indent-line ()
95 "Indent current line as PSPP code."
96
97 (beginning-of-line)
98 (let (
99 (verbatim nil)
100 (the-indent 0) ; Default indent to column 0
101 (case-fold-search t)
102 )
103
104 (if (bobp)
105 (setq the-indent 0) ; First line is always non-indented
106 )
107
108
109 (let (
110 (within-command nil)
111 (blank-line t)
112 )
113
114 ;; If the most recent non blank line ended with a `.' then
115 ;; we're at the start of a new command.
116
117 (save-excursion
118 (while (and blank-line (not (bobp)))
119 (forward-line -1)
120
121 (if (and (not (pspp-data-block-p)) (not (looking-at "^[ \t]*$")))
122 (progn
123 (setq blank-line nil)
124
125 (if (not (looking-at ".*\\.[ \t]*$"))
126 (setq within-command t)
127 )
128 )
129 )
130 )
131 )
132
133
134 ;; If we're not at the start of a new command, then add an indent.
135 (if within-command
136 (set 'the-indent (+ 1 the-indent))
137 )
138 )
139
140
141 ;; Set the indentation according to the DO - END blocks
142 (save-excursion
143 (beginning-of-line)
144 (while (not (bobp))
145 (beginning-of-line)
146 (if (not (pspp-comment-p))
147 (cond
148 (
149 (save-excursion
150 (forward-line -1)
151 (looking-at pspp-indenters)
152 )
153 (set 'the-indent (+ the-indent 1) )
154 )
155
156 ( (looking-at pspp-unindenters)
157 (set 'the-indent (- the-indent 1) )
158 )
159 )
160 )
161 (forward-line -1)
162 )
163 )
164
165 (save-excursion
166 (beginning-of-line)
167 (if (looking-at "^[\t ]*ELSE")
168 (set 'the-indent (- the-indent 1)))
169 )
170
171 ;; Stuff in the data-blocks should be untouched
172 (if (not (pspp-data-block-p)) (indent-line-to (* pspp-indent-width the-indent)))
173 )
174 )
175
176
177 (defun pspp-comment-start-line-p ()
178 "Returns t if the current line is the first line of a comment, nil otherwise"
179 (beginning-of-line)
180 (or (looking-at "^\*")
181 (looking-at "^[\t ]*COMMENT[\t ]")
182 )
183 )
184
185
186 (defun pspp-comment-end-line-p ()
187 "Returns t if the current line is the candidate for the last line of a comment, nil otherwise"
188 (beginning-of-line)
189 (looking-at ".*\\.[\t ]*$")
190 )
191
192
193
194 (defun pspp-comment-p ()
195 "Returns t if point is in a comment. Nil otherwise."
196 (if (pspp-data-block-p)
197 nil
198 (let (
199 (pspp-comment-start-found nil)
200 (pspp-comment-end-found nil)
201 (pspp-single-line-comment nil)
202 (lines 1)
203 )
204 (save-excursion
205 (end-of-line)
206 (while (and (>= lines 0)
207 (not pspp-comment-start-found)
208 (not pspp-comment-end-found)
209 )
210 (beginning-of-line)
211 (if (pspp-comment-start-line-p) (set 'pspp-comment-start-found t))
212 (if (bobp)
213 (set 'pspp-comment-end-found nil)
214 (save-excursion
215 (forward-line -1)
216 (if (pspp-comment-end-line-p) (set 'pspp-comment-end-found t))
217 )
218 )
219 (set 'lines (forward-line -1))
220 )
221 )
222
223 (save-excursion
224 (set 'pspp-single-line-comment (and
225 (pspp-comment-start-line-p)
226 (pspp-comment-end-line-p)))
227 )
228
229
230 (or pspp-single-line-comment
231 (and pspp-comment-start-found (not pspp-comment-end-found)))
232 )
233 )
234 )
235
236 (defvar pspp-mode-syntax-table
237 (let (
238 (x-pspp-mode-syntax-table (make-syntax-table))
239 )
240
241 ;; Special chars allowed in variables
242 (modify-syntax-entry ?# "w" x-pspp-mode-syntax-table)
243 (modify-syntax-entry ?@ "w" x-pspp-mode-syntax-table)
244 (modify-syntax-entry ?$ "w" x-pspp-mode-syntax-table)
245
246 ;; Comment syntax
247 ;; This is incomplete, because:
248 ;; a) Comments can also be given by COMMENT
249 ;; b) The sequence .\n* is interpreted incorrectly.
250
251 (modify-syntax-entry ?* ". 2" x-pspp-mode-syntax-table)
252 (modify-syntax-entry ?. ". 3" x-pspp-mode-syntax-table)
253 (modify-syntax-entry ?\n "- 41" x-pspp-mode-syntax-table)
254
255
256 ;; String delimiters
257 (modify-syntax-entry ?' "\"" x-pspp-mode-syntax-table)
258 (modify-syntax-entry ?" "\"" x-pspp-mode-syntax-table)
259
260 x-pspp-mode-syntax-table)
261
262 "Syntax table for pspp-mode")
263
264
265 (defconst pspp-font-lock-keywords
266 (list
267
268 (cons (concat "\\<"
269 (regexp-opt '(
270 "END DATA"
271 "ACF"
272 "ADD FILES"
273 "ADD VALUE LABELS"
274 "AGGREGATE"
275 "ANOVA"
276 "APPLY DICTIONARY"
277 "AREG"
278 "ARIMA"
279 "AUTORECODE"
280 "BEGIN DATA"
281 "BREAK"
282 "CASEPLOT"
283 "CASESTOVARS"
284 "CCF"
285 "CLEAR TRANSFORMATIONS"
286 "CLUSTER"
287 "COMPUTE"
288 "CONJOINT"
289 "CORRELATIONS"
290 "COXREG"
291 "COUNT"
292 "CREATE"
293 "CROSSTABS"
294 "CURVEFIT"
295 "DATA LIST"
296 "DATE"
297 "DEBUG CASEFILE"
298 "DEBUG EVALUATE"
299 "DEBUG MOMENTS"
300 "DEBUG POOL"
301 "DELETE VARIABLES"
302 "DESCRIPTIVES"
303 "DISCRIMINANT"
304 "DISPLAY"
305 "DOCUMENT"
306 "DO IF"
307 "DO REPEAT"
308 "DROP DOCUMENTS"
309 "ECHO"
310 "EDIT"
311 "ELSE"
312 "ELSE IF"
313 "END CASE"
314 "END FILE"
315 "END FILE TYPE"
316 "END IF"
317 "END INPUT PROGRAM"
318 "END LOOP"
319 "END REPEAT"
320 "ERASE"
321 "EXAMINE"
322 "EXECUTE"
323 "EXIT"
324 "EXPORT"
325 "FACTOR"
326 "FILE HANDLE"
327 "FILE LABEL"
328 "FILE TYPE"
329 "FILTER"
330 "FINISH"
331 "FIT"
332 "FLIP"
333 "FORMATS"
334 "FREQUENCIES"
335 "GENLOG"
336 "GET"
337 "GET TRANSLATE"
338 "GLM"
339 "GRAPH"
340 "HILOGLINEAR"
341 "HOST"
342 "IF"
343 "IGRAPH"
344 "IMPORT"
345 "INCLUDE"
346 "INFO"
347 "INPUT MATRIX"
348 "INPUT PROGRAM"
349 "KEYED DATA LIST"
350 "LEAVE"
351 "LIST"
352 "LOGLINEAR"
353 "LOGISITIC REGRESSION"
354 "LOOP"
355 "MATCH FILES"
356 "MATRIX DATA"
357 "MCONVERT"
358 "MEANS"
359 "MISSING VALUES"
360 "MODIFY VARS"
361 "MULT RESPONSE"
362 "MVA"
363 "NEW FILE"
364 "N"
365 "N OF CASES"
366 "NLR"
367 "NONPAR CORR"
368 "NPAR TESTS"
369 "NUMBERED"
370 "NUMERIC"
371 "OLAP CUBES"
372 "OMS"
373 "ONEWAY"
374 "ORTHOPLAN"
375 "PACF"
376 "PARTIAL CORR"
377 "PEARSON CORRELATIONS"
378 "PERMISSIONS"
379 "PLOT"
380 "POINT"
381 "PPLOT"
382 "PREDICT"
383 "PRESERVE"
384 "PRINT EJECT"
385 "PRINT"
386 "PRINT FORMATS"
387 "PRINT SPACE"
388 "PROCEDURE OUTPUT"
389 "PROXIMITIES"
390 "Q"
391 "QUICK CLUSTER"
392 "QUIT"
393 "RANK"
394 "RECODE"
395 "RECORD TYPE"
396 "REFORMAT"
397 "REGRESSION"
398 "RENAME VARIABLES"
399 "REPEATING DATA"
400 "REPORT"
401 "REREAD"
402 "RESTORE"
403 "RMV"
404 "SAMPLE"
405 "SAVE"
406 "SAVE TRANSLATE"
407 "SCRIPT"
408 "SELECT IF"
409 "SET"
410 "SHOW"
411 "SORT CASES"
412 "SORT"
413 "SPCHART"
414 "SPLIT FILE"
415 "STRING"
416 "SUBTITLE"
417 "SUMMARIZE"
418 "SURVIVAL"
419 "SYSFILE INFO"
420 "TEMPORARY"
421 "TITLE"
422 "TSET"
423 "TSHOW"
424 "TSPLOT"
425 "T-TEST"
426 "UNIANOVA"
427 "UNNUMBERED"
428 "UPDATE"
429 "USE"
430 "VALUE LABELS"
431 "VARIABLE ALIGNMENT"
432 "VARIABLE LABELS"
433 "VARIABLE LEVEL"
434 "VARIABLE WIDTH"
435 "VARSTOCASES"
436 "VECTOR"
437 "VERIFY"
438 "WEIGHT"
439 "WRITE"
440 "WRITE FORMATS"
441 "XSAVE") t) "\\>" )
442 'font-lock-builtin-face)
443
444 (cons
445 (concat "\\<" (regexp-opt '(
446 "ALL" "AND" "BY" "EQ" "GE" "GT" "LE" "LT"
447 "NE" "NOT" "OR" "TO" "WITH"
448 ) t ) "\\>") 'font-lock-keyword-face)
449
450
451 (cons
452 (concat "\\<"
453 (regexp-opt '(
454 "ABS"
455 "ACOS"
456 "ANY"
457 "ANY"
458 "ARCOS"
459 "ARSIN"
460 "ARTAN"
461 "ASIN"
462 "ATAN"
463 "CDF.BERNOULLI"
464 "CDF.BETA"
465 "CDF.BINOM"
466 "CDF.BVNOR"
467 "CDF.CAUCHY"
468 "CDF.CHISQ"
469 "CDF.EXP"
470 "CDF.F"
471 "CDF.GAMMA"
472 "CDF.GEOM"
473 "CDF.HALFNRM"
474 "CDF.HYPER"
475 "CDF.IGAUSS"
476 "CDF.LAPLACE"
477 "CDF.LNORMAL"
478 "CDF.LOGISTIC"
479 "CDF.NEGBIN"
480 "CDF.NORMAL"
481 "CDF.PARETO"
482 "CDF.POISSON"
483 "CDF.RAYLEIGH"
484 "CDF.SMOD"
485 "CDF.SRANGE"
486 "CDF.T"
487 "CDF.T1G"
488 "CDF.T2G"
489 "CDF.UNIFORM"
490 "CDF.WEIBULL"
491 "CDFNORM"
492 "CFVAR"
493 "CONCAT"
494 "COS"
495 "CTIME.DAYS"
496 "CTIME.HOURS"
497 "CTIME.MINUTES"
498 "CTIME.SECONDS"
499 "DATE.DMY"
500 "DATE.MDY"
501 "DATE.MOYR"
502 "DATE.QYR"
503 "DATE.WKYR"
504 "DATE.YRDAY"
505 "EXP"
506 "IDF.BETA"
507 "IDF.CAUCHY"
508 "IDF.CHISQ"
509 "IDF.EXP"
510 "IDF.F"
511 "IDF.GAMMA"
512 "IDF.HALFNRM"
513 "IDF.IGAUSS"
514 "IDF.LAPLACE"
515 "IDF.LNORMAL"
516 "IDF.LOGISTIC"
517 "IDF.NORMAL"
518 "IDF.PARETO"
519 "IDF.RAYLEIGH"
520 "IDF.SMOD"
521 "IDF.SRANGE"
522 "IDF.T"
523 "IDF.T1G"
524 "IDF.T2G"
525 "IDF.UNIFORM"
526 "IDF.WEIBULL"
527 "INDEX"
528 "INDEX"
529 "LAG"
530 "LAG"
531 "LAG"
532 "LAG"
533 "LENGTH"
534 "LG10"
535 "LN"
536 "LNGAMMA"
537 "LOWER"
538 "LPAD"
539 "LPAD"
540 "LTRIM"
541 "LTRIM"
542 "MAX"
543 "MAX"
544 "MBLEN.BYTE"
545 "MEAN"
546 "MIN"
547 "MIN"
548 "MISSING"
549 "MOD"
550 "MOD10"
551 "NCDF.BETA"
552 "NCDF.CHISQ"
553 "NCDF.F"
554 "NCDF.T"
555 "NMISS"
556 "NORMAL"
557 "NPDF.BETA"
558 "NPDF.CHISQ"
559 "NPDF.F"
560 "NPDF.T"
561 "NUMBER"
562 "NVALID"
563 "PDF.BERNOULLI"
564 "PDF.BETA"
565 "PDF.BINOM"
566 "PDF.BVNOR"
567 "PDF.CAUCHY"
568 "PDF.CHISQ"
569 "PDF.EXP"
570 "PDF.F"
571 "PDF.GAMMA"
572 "PDF.GEOM"
573 "PDF.HALFNRM"
574 "PDF.HYPER"
575 "PDF.IGAUSS"
576 "PDF.LANDAU"
577 "PDF.LAPLACE"
578 "PDF.LNORMAL"
579 "PDF.LOG"
580 "PDF.LOGISTIC"
581 "PDF.NEGBIN"
582 "PDF.NORMAL"
583 "PDF.NTAIL"
584 "PDF.PARETO"
585 "PDF.POISSON"
586 "PDF.RAYLEIGH"
587 "PDF.RTAIL"
588 "PDF.T"
589 "PDF.T1G"
590 "PDF.T2G"
591 "PDF.UNIFORM"
592 "PDF.WEIBULL"
593 "PDF.XPOWER"
594 "PROBIT"
595 "RANGE"
596 "RANGE"
597 "RINDEX"
598 "RINDEX"
599 "RND"
600 "RPAD"
601 "RPAD"
602 "RTRIM"
603 "RTRIM"
604 "RV.BERNOULLI"
605 "RV.BETA"
606 "RV.BINOM"
607 "RV.CAUCHY"
608 "RV.CHISQ"
609 "RV.EXP"
610 "RV.F"
611 "RV.GAMMA"
612 "RV.GEOM"
613 "RV.HALFNRM"
614 "RV.HYPER"
615 "RV.IGAUSS"
616 "RV.LANDAU"
617 "RV.LAPLACE"
618 "RV.LEVY"
619 "RV.LNORMAL"
620 "RV.LOG"
621 "RV.LOGISTIC"
622 "RV.LVSKEW"
623 "RV.NEGBIN"
624 "RV.NORMAL"
625 "RV.NTAIL"
626 "RV.PARETO"
627 "RV.POISSON"
628 "RV.RAYLEIGH"
629 "RV.RTAIL"
630 "RV.T"
631 "RV.T1G"
632 "RV.T2G"
633 "RV.UNIFORM"
634 "RV.WEIBULL"
635 "RV.XPOWER"
636 "SD"
637 "SIG.CHISQ"
638 "SIG.F"
639 "SIN"
640 "SQRT"
641 "STRING"
642 "SUBSTR"
643 "SUBSTR"
644 "SUM"
645 "SYSMIS"
646 "SYSMIS"
647 "TAN"
648 "TIME.DAYS"
649 "TIME.HMS"
650 "TRUNC"
651 "UNIFORM"
652 "UPCASE"
653 "VALUE"
654 "VARIANCE"
655 "XDATE.DATE"
656 "XDATE.HOUR"
657 "XDATE.JDAY"
658 "XDATE.MDAY"
659 "XDATE.MINUTE"
660 "XDATE.MONTH"
661 "XDATE.QUARTER"
662 "XDATE.SECOND"
663 "XDATE.TDAY"
664 "XDATE.TIME"
665 "XDATE.WEEK"
666 "XDATE.WKDAY"
667 "XDATE.YEAR"
668 "YRMODA" )
669 t) "\\>" ) 'font-lock-function-name-face)
670
671 '( "\\<[#$@a-zA-Z][a-zA-Z0-9_]*\\>" . font-lock-variable-name-face)
672
673
674
675 )
676 "Highlighting expressions for PSPP mode.")
677
678
679 (defun pspp-mode ()
680 (interactive)
681 (kill-all-local-variables)
682 (use-local-map pspp-mode-map)
683 (set-syntax-table pspp-mode-syntax-table)
684
685 (set (make-local-variable 'font-lock-keywords-case-fold-search) t)
686 (set (make-local-variable 'font-lock-defaults) '(pspp-font-lock-keywords))
687
688 (set (make-local-variable 'indent-line-function) 'pspp-indent-line)
689 (set (make-local-variable 'comment-start ) "* ")
690 (set (make-local-variable 'compile-command)
691 (concat "pspp "
692 buffer-file-name
693 ))
694
695 (setq major-mode 'pspp-mode)
696 (setq mode-name "PSPP")
697 (run-hooks 'pspp-mode-hook))
698
699 (provide 'pspp-mode)
700
701 ;;; pspp-mode.el ends here
702
GNU PSPP