Skip to content
Snippets Groups Projects
Commit 0013635d authored by erwan's avatar erwan
Browse files

install emacs/.el files with lutils

parent 21729ea4
No related branches found
No related tags found
No related merge requests found
OASISFormat: 0.4 OASISFormat: 0.4
Name: lutils Name: lutils
Version: 1.11 Version: 1.12
Authors: Erwan Jahier Authors: Erwan Jahier
Maintainers: erwan.jahier@imag.fr Maintainers: erwan.jahier@imag.fr
License: GPL-3 License: GPL-3
...@@ -17,7 +17,7 @@ Description: ...@@ -17,7 +17,7 @@ Description:
BuildTools: ocamlbuild BuildTools: ocamlbuild
PreBuildCommand: make src/lutilsVersion.ml PreBuildCommand: make src/lutilsVersion.ml
PostInstallCommand: cp emacs/*.el $prefix/lib/$pkg_name
# A simple data visualiser based on gnuplot # A simple data visualiser based on gnuplot
Executable "gnuplot-rif" Executable "gnuplot-rif"
......
\newcommand{\version}{1.11} \newcommand{\version}{1.12}
\newcommand{\sha}{08ab724} \newcommand{\sha}{21729ea}
\newcommand{\versionname}{none} \newcommand{\versionname}{none}
\newcommand{\versiondate}{10-03-17} \newcommand{\versiondate}{20-03-17}
This diff is collapsed.
;;; lutin.el - Major mode for editing lustre source in Emacs
(require 'font-lock)
; version of lutin-mode
(defconst lutin-mode-version "0.0")
;;; Hooks
(defvar lutin-mode-hook nil
"functions called when entering Lutin Mode.")
;;; Key-map for Lutin-mode
(defvar lutin-mode-map nil
"Keymap for lutin major mode.")
;;; Font-lock -----------------------------------------------------
(defvar lutin-font-lock-keywords nil
"Regular expression used by Font-lock mode.")
(setq lutin-font-lock-keywords
'(
("--.*$" . font-lock-comment-face)
("\\<\\(loop\\|fby\\||raise\\|try\\|trap\\|catch\\|do\\)\\>" . font-lock-builtin-face)
("\\<\\(const\\|extern\\|node\\|run\\|include\\|returns\\|type\\)\\>" . font-lock-keyword-face)
("\\<\\(let\\|assert\\|exist\\|in\\|if\\|then\\|else\\)\\>" . font-lock-keyword-face)
("\\<\\(true\\|and\\|or\\|not\\|false\\)\\>" . font-lock-reference-face)
("\\<\\(trace\\|bool\\|int\\|ref\\|real\\)\\(\\^.+\\)?\\>" . font-lock-type-face)
("\\<\\(pre\\)\\>" . font-lock-constant-face)
))
(defun lutin-font-mode ()
"Initialisation of font-lock for Lutin mode."
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults
'(lutin-font-lock-keywords t)))
; font-lock isn't used if in a console
(if window-system
(prog2
(add-hook 'lutin-mode-hook
'turn-on-font-lock)
(add-hook 'lutin-mode-hook
'lutin-font-mode)))
(defun lutin-line-is-comment (&optional arg)
"non-nil means line is only a commentary."
(interactive)
(save-excursion
(beginning-of-line arg)
(skip-chars-forward " \t")
(looking-at "--")))
(setq comment-start "(*")
(setq comment-end "*)")
(setq comment-start "-- ")
(setq comment-end "")
;;; Major-mode
(defun lutin-mode ()
"Major mode for editing Lutin files.
Only keywords colaraition for the moment...
"
(interactive)
(kill-all-local-variables)
(setq major-mode 'lutin-mode)
(setq mode-name "Lutin")
(use-local-map lutin-mode-map)
(run-hooks 'lutin-mode-hook))
(provide 'lutin)
;;; lutin .el ends here...
;;; rif.el - Major mode for rif files in Emacs
;;
;; Very very basic: provides only colors for keywords
;;;; to put in your .emacs:
; (autoload 'rif-mode
; "rif" "Major mode for editing rif file." t)
(require 'font-lock)
; version of rif-mode
(defconst rif-mode-version "0.3")
(defvar rif-mode-map nil
"Keymap for rif major mode.")
;;; Font-lock -----------------------------------------------------
(defvar rif-font-lock-keywords nil
"Regular expression used by Font-lock mode.")
(setq rif-font-lock-keywords
'(("--.*$" . font-lock-comment-face)
("\\<\\(inputs\\|step\\|locs\\|outs\\|inputs\\|outputs\\)\\>" . font-lock-string-face)
("[][#]\\.?\\|\\.\\." . font-lock-function-name-face)
("\\<\\(true\\|T\\|F\\|f\\|t\\|false\\)\\>" . font-lock-reference-face)
("\\<\\(bool\\|int\\|real\\|float\\)\\(\\^.+\\)?\\>" . font-lock-variable-name-face)
("\\(\\<\\(xxx\\|yyy\\)\\>\\|->\\)" .
font-lock-function-name-face)))
(defun rif-font-mode ()
"Initialisation of font-lock for Rif mode."
(make-local-variable 'font-lock-defaults)
(setq font-lock-defaults
'(rif-font-lock-keywords t)))
; font-lock isn't used if in a console
(if window-system
(prog2
(add-hook 'rif-mode-hook
'turn-on-font-lock)
(add-hook 'rif-mode-hook
'rif-font-mode)))
;;; Major-mode
(add-to-list 'auto-mode-alist '("\\.rif$" . rif-mode))
(defun rif-mode ()
" emacs mode for rif programs "
(interactive)
(kill-all-local-variables)
(setq major-mode 'rif-mode)
(setq mode-name "Rif")
(use-local-map rif-mode-map)
(make-local-variable 'indent-line-function)
(setq indent-line-function 'electric-lustre-tab)
(run-hooks 'rif-mode-hook)
)
(setq comment-start "#")
(provide 'rif)
;;; rif .el ends here...
# OASIS_START # OASIS_START
# DO NOT EDIT (digest: f6253f3bb51ae8433d46c85a0b609a5e) # DO NOT EDIT (digest: 159eaafd5948c3973dd3460e28dd0fc1)
version = "1.11" version = "1.12"
description = "shared by Verimag/synchronous tools (lustre, lutin, rdbg)." description = "shared by Verimag/synchronous tools (lustre, lutin, rdbg)."
requires = "unix str camlp4 num" requires = "unix str camlp4 num"
archive(byte) = "lutils.cma" archive(byte) = "lutils.cma"
......
let str="1.11" let str="1.12"
let sha="08ab724" let sha="21729ea"
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment