procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/progmodes/prolog.el (prolog-smie-forward-token)

Browse source 
(prolog-smie-backward-token): New functions.
(prolog-mode-variables): Use them to parse "!," correctly.
Set up smie-blink-matching for ".".
* test/indent/prolog.prolog: Use normal spacing around !.
This commit is contained in:
Stefan Monnier 2010-09-20 16:22:16 +02:00
parent a9cb95dd4e
commit 549d0e1ec4
3 changed files with 42 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,5 +1,10 @@
2010-09-20 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/prolog.el (prolog-smie-forward-token)
(prolog-smie-backward-token): New functions.
(prolog-mode-variables): Use them to parse "!," correctly.
Set up smie-blink-matching for ".".
* textmodes/ispell.el (ispell-start, ispell-end): Rename from `start'
and `end'.
(ispell-region, ispell-process-line): Update users.

39
lisp/progmodes/prolog.el
View file

@ -99,12 +99,36 @@ When nil, send actual operating system end of file."
(defvar prolog-mode-abbrev-table nil)
(define-abbrev-table 'prolog-mode-abbrev-table ())
(defun prolog-smie-forward-token ()
(forward-comment (point-max))
(buffer-substring-no-properties
(point)
(progn (cond
((looking-at "[!;]") (forward-char 1))
((not (zerop (skip-chars-forward "#&*+-./:<=>?@\\^`~"))))
((not (zerop (skip-syntax-forward "w_'"))))
;; In case of non-ASCII punctuation.
((not (zerop (skip-syntax-forward ".")))))
(point))))
(defun prolog-smie-backward-token ()
(forward-comment (- (point-max)))
(buffer-substring-no-properties
(point)
(progn (cond
((memq (char-before) '(?! ?\;)) (forward-char -1))
((not (zerop (skip-chars-backward "#&*+-./:<=>?@\\^`~"))))
((not (zerop (skip-syntax-backward "w_'"))))
;; In case of non-ASCII punctuation.
((not (zerop (skip-syntax-backward ".")))))
(point))))
(defconst prolog-smie-op-levels
;; Rather than construct the operator levels table from the BNF,
;; we directly provide the operator precedences from GNU Prolog's
;; manual. The only problem is that GNU Prolog's manual uses
;; precedence levels in the opposite sense (higher numbers bind less
;; tightly) than SMIE, so we use negative numbers.
;; manual (7.14.10 op/3). The only problem is that GNU Prolog's
;; manual uses precedence levels in the opposite sense (higher
;; numbers bind less tightly) than SMIE, so we use negative numbers.
'(("." -10000 -10000)
(":-" -1200 -1200)
("-->" -1200 -1200)
@ -162,9 +186,18 @@ When nil, send actual operating system end of file."
(make-local-variable 'imenu-generic-expression)
(setq imenu-generic-expression '((nil "^\\sw+" 0)))
(smie-setup prolog-smie-op-levels prolog-smie-indent-rules)
(set (make-local-variable 'smie-forward-token-function)
#'prolog-smie-forward-token)
(set (make-local-variable 'smie-backward-token-function)
#'prolog-smie-backward-token)
(set (make-local-variable 'forward-sexp-function)
'smie-forward-sexp-command)
(set (make-local-variable 'smie-indent-basic) prolog-indent-width)
(set (make-local-variable 'smie-blink-matching-triggers) '(?.))
(set (make-local-variable 'smie-closer-alist) '((t . ".")))
(add-hook 'post-self-insert-hook #'smie-blink-matching-open 'append 'local)
;; There's no real closer in Prolog anyway.
(set (make-local-variable 'smie-blink-matching-inners) t)
(make-local-variable 'comment-start)
(setq comment-start "%")
(make-local-variable 'comment-start-skip)

2
test/indent/prolog.prolog
View file

@ -150,7 +150,7 @@ generalize(Ee, Te, Env, Eg, Tg) :-
%% instantiate(+X, +T, -E)
%% Utilise la variable X de type T. Le résultat E est X auquel on ajoute
%% tous les arguments implicites (de valeur inconnue).
instantiate(X, T, X) :- var(T), ! .
instantiate(X, T, X) :- var(T), !.
instantiate(X, forall(_, _, T), app(E, _)) :- !, instantiate(X, T, E).
instantiate(X, _, X).