-;;; pspp-mode-el -- Major mode for editing PSPP files
+;;; pspp-mode.el --- Major mode for editing PSPP files
-
-;; Author: John Darrington <john@darrington.wattle.id.au>
+;; Copyright (C) 2005,2018,2020 Free Software Foundation
+;; Author: Scott Andrew Borton <scott@pp.htv.fi>
;; Created: 05 March 2005
+;; Version: 1.1
;; Keywords: PSPP major-mode
+;; This file is not part of GNU Emacs.
-;; Copyright (C) 2005 John Darrington
-;;
+;;; Commentary:
;; Based on the example wpdl-mode.el by Scott Borton
-;; Author: Scott Andrew Borton <scott@pp.htv.fi>
;; Copyright (C) 2000, 2003 Scott Andrew Borton <scott@pp.htv.fi>
-;; 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 2 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, write to the Free
-;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
-;; MA 02110-1301 USA
+;; 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/>.
;;; Code:
(defvar pspp-mode-hook nil)
+
+
(defvar pspp-mode-map
(let ((pspp-mode-map (make-keymap)))
(define-key pspp-mode-map "\C-j" 'newline-and-indent)
pspp-mode-map)
"Keymap for PSPP major mode")
+
+;;;###autoload
(add-to-list 'auto-mode-alist '("\\.sps\\'" . pspp-mode))
-(defun pspp-data-block ()
+(defun pspp-data-block-p ()
"Returns t if current line is inside a data block."
- (interactive)
+ (save-excursion
+ (let ((pspp-end-of-block-found nil)
+ (pspp-start-of-block-found nil))
+ (beginning-of-line)
+ (while (not (or
+ (or (bobp) pspp-end-of-block-found)
+ pspp-start-of-block-found))
+ (set 'pspp-end-of-block-found
+ (looking-at "^[ \t]*\\(END\\|end\\)[\t ]+\\(DATA\\|data\\)\."))
+ (set 'pspp-start-of-block-found
+ (looking-at "^[ \t]*\\(BEGIN\\|begin\\)[\t ]+\\(DATA\\|data\\)"))
+ (forward-line -1))
- (let (
- (end-data-found nil)
- (begin-data-found nil)
- (inside-block nil)
- )
+ (and pspp-start-of-block-found (not pspp-end-of-block-found)))))
+
+
+(defconst pspp-indent-width
+ 2
+ "size of indent")
+
+
+(defun downcase-list (l)
+ "Takes a list of strings and returns that list with all elements downcased"
+ (if l
+ (cons (downcase (car l)) (downcase-list (cdr l)))
+ nil))
+
+
+(defun upcase-list (l)
+ "Takes a list of strings and returns that list with all elements upcased"
+ (if l
+ (cons (upcase (car l)) (upcase-list (cdr l)))
+ nil))
- (save-excursion
- (beginning-of-line)
- (while (not (or (bobp) end-data-found) )
- (if (looking-at "^[ \t]*END +DATA\.")
- (setq end-data-found t)
- )
+(defun updown-list (l)
+ "Takes a list of strings and returns that list with all elements upcased
+and downcased"
+ (append (upcase-list l) (downcase-list l)))
- (forward-line -1)
- (if (looking-at "^[ \t]*BEGIN +DATA\.")
- (setq begin-data-found t)
- )
-
- )
- )
+(defconst pspp-indenters
+ (concat "^[\t ]*"
+ (regexp-opt (updown-list '("DO"
+ "BEGIN"
+ "LOOP"
+ "INPUT")) t)
+ "[\t ]+")
+ "constructs which cause indentation")
- (setq inside-block (and begin-data-found (not end-data-found)))
- inside-block
- )
-
- )
+(defconst pspp-unindenters
+ (concat "^[\t ]*\\(END\\|end\\)[\t ]+"
+ (regexp-opt (updown-list '("IF"
+ "DATA"
+ "LOOP"
+ "REPEAT"
+ "INPUT")) t)
+ "[\t ]*")
+ ;; Note that "END CASE" and "END FILE" do not unindent.
+ "constructs which cause end of indentation")
(defun pspp-indent-line ()
"Indent current line as PSPP code."
- (interactive)
(beginning-of-line)
- (let (
- (verbatim nil)
- (the-indent 0) ; Default indent to column 0
- )
-
+ (let ((verbatim nil)
+ (the-indent 0) ; Default indent to column 0
+ (case-fold-search t))
(if (bobp)
- (setq the-indent 0) ; First line is always non-indented
- )
-
-
- (let (
- (within-command nil)
- (blank-line t)
- )
-
+ (setq the-indent 0)) ; First line is always non-indented
+ (let ((within-command nil) (blank-line t))
;; If the most recent non blank line ended with a `.' then
;; we're at the start of a new command.
+ (save-excursion
+ (while (and blank-line (not (bobp)))
+ (forward-line -1)
+
+ (if (and (not (pspp-data-block-p)) (not (looking-at "^[ \t]*$")))
+ (progn
+ (setq blank-line nil)
+
+ (if (not (looking-at ".*\\.[ \t]*$"))
+ (setq within-command t))))))
+ ;; If we're not at the start of a new command, then add an indent.
+ (if within-command
+ (set 'the-indent (+ 1 the-indent))))
+ ;; Set the indentation according to the DO - END blocks
+ (save-excursion
+ (beginning-of-line)
+ (while (not (bobp))
+ (beginning-of-line)
+ (if (not (pspp-comment-p))
+ (cond ((save-excursion
+ (forward-line -1)
+ (looking-at pspp-indenters))
+ (set 'the-indent (+ the-indent 1)))
+
+ ((looking-at pspp-unindenters)
+ (set 'the-indent (- the-indent 1)))))
+ (forward-line -1)))
+
+ (save-excursion
+ (beginning-of-line)
+ (if (looking-at "^[\t ]*ELSE")
+ (set 'the-indent (- the-indent 1))))
+
+ ;; Stuff in the data-blocks should be untouched
+ (if (not (pspp-data-block-p)) (indent-line-to (* pspp-indent-width the-indent)))))
- (save-excursion
- (while (and blank-line (not (bobp)))
- (forward-line -1)
-
- (if (and (not (pspp-data-block)) (not (looking-at "^[ \t]*$")))
- (progn
- (setq blank-line nil)
-
- (if (not (looking-at ".*\\.[ \t]*$"))
- (setq within-command t)
- )
- )
- )
- )
-
- (if within-command (setq the-indent 8) )
- )
-
- )
-
- (if (not (pspp-data-block)) (indent-line-to the-indent))
-))
+(defun pspp-comment-start-line-p ()
+ "Returns t if the current line is the first line of a comment, nil otherwise"
+ (beginning-of-line)
+ (or (looking-at "^\*")
+ (looking-at "^[\t ]*comment[\t ]")
+ (looking-at "^[\t ]*COMMENT[\t ]")))
+
+
+(defun pspp-comment-end-line-p ()
+ "Returns t if the current line is the candidate for the last line of a comment, nil otherwise"
+ (beginning-of-line)
+ (looking-at ".*\\.[\t ]*$"))
+
+
+(defun pspp-comment-p ()
+ "Returns t if point is in a comment. Nil otherwise."
+ (if (pspp-data-block-p)
+ nil
+ (let ((pspp-comment-start-found nil)
+ (pspp-comment-end-found nil)
+ (pspp-single-line-comment nil)
+ (lines 1))
+ (save-excursion
+ (end-of-line)
+ (while (and (>= lines 0)
+ (not pspp-comment-start-found)
+ (not pspp-comment-end-found))
+ (beginning-of-line)
+ (if (pspp-comment-start-line-p) (set 'pspp-comment-start-found t))
+ (if (bobp)
+ (set 'pspp-comment-end-found nil)
+ (save-excursion
+ (forward-line -1)
+ (if (pspp-comment-end-line-p) (set 'pspp-comment-end-found t))))
+ (set 'lines (forward-line -1))))
+
+ (save-excursion
+ (set 'pspp-single-line-comment (and
+ (pspp-comment-start-line-p)
+ (pspp-comment-end-line-p))))
+
+ (or pspp-single-line-comment
+ (and pspp-comment-start-found (not pspp-comment-end-found))))))
(defvar pspp-mode-syntax-table
- (let (
- (x-pspp-mode-syntax-table (make-syntax-table))
- )
-
- (modify-syntax-entry ?_ "w" x-pspp-mode-syntax-table)
- (modify-syntax-entry ?. "w" x-pspp-mode-syntax-table)
- (modify-syntax-entry ?\" "|" x-pspp-mode-syntax-table)
- (modify-syntax-entry ?\' "|" x-pspp-mode-syntax-table)
+ (let ((x-pspp-mode-syntax-table (make-syntax-table)))
- ;; Comment definitions
- (modify-syntax-entry ?* "<\n" x-pspp-mode-syntax-table)
+ ;; Special chars allowed in variables
+ (modify-syntax-entry ?# "w" x-pspp-mode-syntax-table)
+ (modify-syntax-entry ?@ "w" x-pspp-mode-syntax-table)
+ (modify-syntax-entry ?$ "w" x-pspp-mode-syntax-table)
-;; (modify-syntax-entry ?\n "- 1" x-pspp-mode-syntax-table)
-;; (modify-syntax-entry ?* ". 2" x-pspp-mode-syntax-table)
+ ;; Comment syntax
+ ;; This is incomplete, because:
+ ;; a) Comments can also be given by COMMENT
+ ;; b) The sequence .\n* is interpreted incorrectly.
- (modify-syntax-entry ?\n ">*" x-pspp-mode-syntax-table)
+ (modify-syntax-entry ?* ". 2" x-pspp-mode-syntax-table)
+ (modify-syntax-entry ?. ". 3" x-pspp-mode-syntax-table)
+ (modify-syntax-entry ?\n "- 41" x-pspp-mode-syntax-table)
+
+ ;; String delimiters
+ (modify-syntax-entry ?' "\"" x-pspp-mode-syntax-table)
+ (modify-syntax-entry ?\" "\"" x-pspp-mode-syntax-table)
x-pspp-mode-syntax-table)
-
- "Syntax table for pspp-mode")
-
+
+ "Syntax table for pspp-mode")
+
+
+(defconst pspp-font-lock-keywords
+ (list (cons
+ (concat "\\<"
+ (regexp-opt (updown-list '(
+ "END DATA"
+ "ACF"
+ "ADD FILES"
+ "ADD VALUE LABELS"
+ "AGGREGATE"
+ "ANOVA"
+ "APPLY DICTIONARY"
+ "AREG"
+ "ARIMA"
+ "AUTORECODE"
+ "BEGIN DATA"
+ "BREAK"
+ "CASEPLOT"
+ "CASESTOVARS"
+ "CCF"
+ "CLEAR TRANSFORMATIONS"
+ "CLUSTER"
+ "COMPUTE"
+ "CONJOINT"
+ "CORRELATIONS"
+ "COXREG"
+ "COUNT"
+ "CREATE"
+ "CROSSTABS"
+ "CURVEFIT"
+ "DATA LIST"
+ "DATE"
+ "DEBUG CASEFILE"
+ "DEBUG EVALUATE"
+ "DEBUG MOMENTS"
+ "DEBUG POOL"
+ "DELETE VARIABLES"
+ "DESCRIPTIVES"
+ "DISCRIMINANT"
+ "DISPLAY"
+ "DOCUMENT"
+ "DO IF"
+ "DO REPEAT"
+ "DROP DOCUMENTS"
+ "ECHO"
+ "EDIT"
+ "ELSE"
+ "ELSE IF"
+ "END CASE"
+ "END FILE"
+ "END FILE TYPE"
+ "END IF"
+ "END INPUT PROGRAM"
+ "END LOOP"
+ "END REPEAT"
+ "ERASE"
+ "EXAMINE"
+ "EXECUTE"
+ "EXIT"
+ "EXPORT"
+ "FACTOR"
+ "FILE HANDLE"
+ "FILE LABEL"
+ "FILE TYPE"
+ "FILTER"
+ "FINISH"
+ "FIT"
+ "FLIP"
+ "FORMATS"
+ "FREQUENCIES"
+ "GENLOG"
+ "GET"
+ "GET TRANSLATE"
+ "GLM"
+ "GRAPH"
+ "HILOGLINEAR"
+ "HOST"
+ "IF"
+ "IGRAPH"
+ "IMPORT"
+ "INCLUDE"
+ "INFO"
+ "INPUT MATRIX"
+ "INPUT PROGRAM"
+ "KEYED DATA LIST"
+ "LEAVE"
+ "LIST"
+ "LOGLINEAR"
+ "LOGISITIC REGRESSION"
+ "LOOP"
+ "MATCH FILES"
+ "MATRIX DATA"
+ "MCONVERT"
+ "MEANS"
+ "MISSING VALUES"
+ "MODIFY VARS"
+ "MULT RESPONSE"
+ "MVA"
+ "NEW FILE"
+ "N"
+ "N OF CASES"
+ "NLR"
+ "NONPAR CORR"
+ "NPAR TESTS"
+ "NUMBERED"
+ "NUMERIC"
+ "OLAP CUBES"
+ "OMS"
+ "ONEWAY"
+ "ORTHOPLAN"
+ "PACF"
+ "PARTIAL CORR"
+ "PEARSON CORRELATIONS"
+ "PERMISSIONS"
+ "PLOT"
+ "POINT"
+ "PPLOT"
+ "PREDICT"
+ "PRESERVE"
+ "PRINT EJECT"
+ "PRINT"
+ "PRINT FORMATS"
+ "PRINT SPACE"
+ "PROCEDURE OUTPUT"
+ "PROXIMITIES"
+ "Q"
+ "QUICK CLUSTER"
+ "QUIT"
+ "RANK"
+ "RECODE"
+ "RECORD TYPE"
+ "REFORMAT"
+ "REGRESSION"
+ "RENAME VARIABLES"
+ "REPEATING DATA"
+ "REPORT"
+ "REREAD"
+ "RESTORE"
+ "RMV"
+ "SAMPLE"
+ "SAVE"
+ "SAVE TRANSLATE"
+ "SCRIPT"
+ "SELECT IF"
+ "SET"
+ "SHOW"
+ "SORT CASES"
+ "SORT"
+ "SPCHART"
+ "SPLIT FILE"
+ "STRING"
+ "SUBTITLE"
+ "SUMMARIZE"
+ "SURVIVAL"
+ "SYSFILE INFO"
+ "TEMPORARY"
+ "TITLE"
+ "TSET"
+ "TSHOW"
+ "TSPLOT"
+ "T-TEST"
+ "UNIANOVA"
+ "UNNUMBERED"
+ "UPDATE"
+ "USE"
+ "VALUE LABELS"
+ "VARIABLE ALIGNMENT"
+ "VARIABLE LABELS"
+ "VARIABLE LEVEL"
+ "VARIABLE WIDTH"
+ "VARSTOCASES"
+ "VECTOR"
+ "VERIFY"
+ "WEIGHT"
+ "WRITE"
+ "WRITE FORMATS"
+ "XSAVE")) t) "\\>")
+ 'font-lock-builtin-face)
+
+ (cons
+ (concat "\\<" (regexp-opt (updown-list
+ '("ALL" "AND" "BY" "EQ" "GE" "GT" "LE" "LT" "NE" "NOT" "OR" "TO" "WITH"))
+ t) "\\>")
+ 'font-lock-keyword-face)
+
+ (cons
+ (concat "\\<"
+ (regexp-opt (updown-list '(
+ "ABS"
+ "ACOS"
+ "ANY"
+ "ANY"
+ "ARCOS"
+ "ARSIN"
+ "ARTAN"
+ "ASIN"
+ "ATAN"
+ "CDF.BERNOULLI"
+ "CDF.BETA"
+ "CDF.BINOM"
+ "CDF.BVNOR"
+ "CDF.CAUCHY"
+ "CDF.CHISQ"
+ "CDF.EXP"
+ "CDF.F"
+ "CDF.GAMMA"
+ "CDF.GEOM"
+ "CDF.HALFNRM"
+ "CDF.HYPER"
+ "CDF.IGAUSS"
+ "CDF.LAPLACE"
+ "CDF.LNORMAL"
+ "CDF.LOGISTIC"
+ "CDF.NEGBIN"
+ "CDF.NORMAL"
+ "CDF.PARETO"
+ "CDF.POISSON"
+ "CDF.RAYLEIGH"
+ "CDF.SMOD"
+ "CDF.SRANGE"
+ "CDF.T"
+ "CDF.T1G"
+ "CDF.T2G"
+ "CDF.UNIFORM"
+ "CDF.WEIBULL"
+ "CDFNORM"
+ "CFVAR"
+ "CONCAT"
+ "COS"
+ "CTIME.DAYS"
+ "CTIME.HOURS"
+ "CTIME.MINUTES"
+ "CTIME.SECONDS"
+ "DATE.DMY"
+ "DATE.MDY"
+ "DATE.MOYR"
+ "DATE.QYR"
+ "DATE.WKYR"
+ "DATE.YRDAY"
+ "EXP"
+ "IDF.BETA"
+ "IDF.CAUCHY"
+ "IDF.CHISQ"
+ "IDF.EXP"
+ "IDF.F"
+ "IDF.GAMMA"
+ "IDF.HALFNRM"
+ "IDF.IGAUSS"
+ "IDF.LAPLACE"
+ "IDF.LNORMAL"
+ "IDF.LOGISTIC"
+ "IDF.NORMAL"
+ "IDF.PARETO"
+ "IDF.RAYLEIGH"
+ "IDF.SMOD"
+ "IDF.SRANGE"
+ "IDF.T"
+ "IDF.T1G"
+ "IDF.T2G"
+ "IDF.UNIFORM"
+ "IDF.WEIBULL"
+ "INDEX"
+ "INDEX"
+ "LAG"
+ "LAG"
+ "LAG"
+ "LAG"
+ "LENGTH"
+ "LG10"
+ "LN"
+ "LNGAMMA"
+ "LOWER"
+ "LPAD"
+ "LPAD"
+ "LTRIM"
+ "LTRIM"
+ "MAX"
+ "MAX"
+ "MBLEN.BYTE"
+ "MEAN"
+ "MIN"
+ "MIN"
+ "MISSING"
+ "MOD"
+ "MOD10"
+ "NCDF.BETA"
+ "NCDF.CHISQ"
+ "NCDF.F"
+ "NCDF.T"
+ "NMISS"
+ "NORMAL"
+ "NPDF.BETA"
+ "NPDF.CHISQ"
+ "NPDF.F"
+ "NPDF.T"
+ "NUMBER"
+ "NVALID"
+ "PDF.BERNOULLI"
+ "PDF.BETA"
+ "PDF.BINOM"
+ "PDF.BVNOR"
+ "PDF.CAUCHY"
+ "PDF.CHISQ"
+ "PDF.EXP"
+ "PDF.F"
+ "PDF.GAMMA"
+ "PDF.GEOM"
+ "PDF.HALFNRM"
+ "PDF.HYPER"
+ "PDF.IGAUSS"
+ "PDF.LANDAU"
+ "PDF.LAPLACE"
+ "PDF.LNORMAL"
+ "PDF.LOG"
+ "PDF.LOGISTIC"
+ "PDF.NEGBIN"
+ "PDF.NORMAL"
+ "PDF.NTAIL"
+ "PDF.PARETO"
+ "PDF.POISSON"
+ "PDF.RAYLEIGH"
+ "PDF.RTAIL"
+ "PDF.T"
+ "PDF.T1G"
+ "PDF.T2G"
+ "PDF.UNIFORM"
+ "PDF.WEIBULL"
+ "PDF.XPOWER"
+ "PROBIT"
+ "RANGE"
+ "RANGE"
+ "RINDEX"
+ "RINDEX"
+ "RND"
+ "RPAD"
+ "RPAD"
+ "RTRIM"
+ "RTRIM"
+ "RV.BERNOULLI"
+ "RV.BETA"
+ "RV.BINOM"
+ "RV.CAUCHY"
+ "RV.CHISQ"
+ "RV.EXP"
+ "RV.F"
+ "RV.GAMMA"
+ "RV.GEOM"
+ "RV.HALFNRM"
+ "RV.HYPER"
+ "RV.IGAUSS"
+ "RV.LANDAU"
+ "RV.LAPLACE"
+ "RV.LEVY"
+ "RV.LNORMAL"
+ "RV.LOG"
+ "RV.LOGISTIC"
+ "RV.LVSKEW"
+ "RV.NEGBIN"
+ "RV.NORMAL"
+ "RV.NTAIL"
+ "RV.PARETO"
+ "RV.POISSON"
+ "RV.RAYLEIGH"
+ "RV.RTAIL"
+ "RV.T"
+ "RV.T1G"
+ "RV.T2G"
+ "RV.UNIFORM"
+ "RV.WEIBULL"
+ "RV.XPOWER"
+ "SD"
+ "SIG.CHISQ"
+ "SIG.F"
+ "SIN"
+ "SQRT"
+ "STRING"
+ "SUBSTR"
+ "SUBSTR"
+ "SUM"
+ "SYSMIS"
+ "SYSMIS"
+ "TAN"
+ "TIME.DAYS"
+ "TIME.HMS"
+ "TRUNC"
+ "UNIFORM"
+ "UPCASE"
+ "VALUE"
+ "VARIANCE"
+ "XDATE.DATE"
+ "XDATE.HOUR"
+ "XDATE.JDAY"
+ "XDATE.MDAY"
+ "XDATE.MINUTE"
+ "XDATE.MONTH"
+ "XDATE.QUARTER"
+ "XDATE.SECOND"
+ "XDATE.TDAY"
+ "XDATE.TIME"
+ "XDATE.WEEK"
+ "XDATE.WKDAY"
+ "XDATE.YEAR"
+ "YRMODA"))
+ t) "\\>") 'font-lock-function-name-face)
+
+ '( "\\<[#$@a-zA-Z][a-zA-Z0-9_]*\\>" . font-lock-variable-name-face))
+ "Highlighting expressions for PSPP mode.")
+
+
+;;;###autoload
(defun pspp-mode ()
(interactive)
(kill-all-local-variables)
(use-local-map pspp-mode-map)
(set-syntax-table pspp-mode-syntax-table)
- (setq comment-start "* ")
- ;; Register our indentation function
- (set (make-local-variable 'indent-line-function) 'pspp-indent-line)
+
+ (set (make-local-variable 'font-lock-keywords-case-fold-search) t)
+ (set (make-local-variable 'font-lock-defaults) '(pspp-font-lock-keywords))
+
+ (set (make-local-variable 'indent-line-function) 'pspp-indent-line)
+ (set (make-local-variable 'comment-start) "* ")
+ (set (make-local-variable 'compile-command)
+ (concat "pspp "
+ buffer-file-name))
+
(setq major-mode 'pspp-mode)
(setq mode-name "PSPP")
(run-hooks 'pspp-mode-hook))
(provide 'pspp-mode)
;;; pspp-mode.el ends here
-
projects / pspp / blobdiff