[nongnu] elpa/julia-mode 5c4c793 003/352: renaming vector type to buffer, to avoid confusion

[ELPA Syncer]

branch: elpa/julia-mode
commit 5c4c793e86c4670a82a1e2351a8a3a0009e38715
Author: Jeff Bezanson <bezanson@post.harvard.edu>
Commit: Yichao Yu <yyc1992@gmail.com>

    renaming vector type to buffer, to avoid confusion
    straw-man generic function code
    implementing very basic evaluator and repl
    adding more of the needed syntax to parser
    adding simple emacs mode hastily adapted from julia 1
      put (require 'julia-mode "/path/to/julia-mode.el") in your .emacs file
---
 julia-mode.el | 164 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 164 insertions(+)

diff --git a/julia-mode.el b/julia-mode.el
new file mode 100644
index 0000000..5861f93
--- /dev/null
+++ b/julia-mode.el
@@ -0,0 +1,164 @@
+;
+; Emacs mode for Julia
+;
+
+(defvar julia-mode-hook nil)
+
+(add-to-list 'auto-mode-alist '("\\.j\\'\\|\\.jl\\'" . julia-mode))
+
+(defvar julia-mode-syntax-table
+  (let ((table (make-syntax-table)))
+    (modify-syntax-entry ?_ "w" table)   ; underscores in words
+    (modify-syntax-entry ?? "w" table)   ; ? in words
+    (modify-syntax-entry ?\\ "w" table)  ; \ is a symbol char outside quotes
+    (modify-syntax-entry ?# "<" table)   ; #  single-line comment start
+    (modify-syntax-entry ?\n ">" table)  ; \n single-line comment end
+    (modify-syntax-entry ?\{ "(} " table)
+    (modify-syntax-entry ?\} "){ " table)
+    (modify-syntax-entry ?\[ "(] " table)
+    (modify-syntax-entry ?\] ")[ " table)
+    (modify-syntax-entry ?\( "() " table)
+    (modify-syntax-entry ?\) ")( " table)
+    (modify-syntax-entry ?$ "." table)
+    (modify-syntax-entry ?& "." table)
+    (modify-syntax-entry ?* "." table)
+    (modify-syntax-entry ?+ "." table)
+    (modify-syntax-entry ?- "." table)
+    (modify-syntax-entry ?< "." table)
+    (modify-syntax-entry ?> "." table)
+    (modify-syntax-entry ?= "." table)
+    (modify-syntax-entry ?% "." table)
+    table)
+  "Syntax table for julia-mode")
+
+; syntax table that holds within strings (uses default emacs behavior)
+(defvar julia-mode-string-syntax-table
+  (let ((table (make-syntax-table)))
+    table)
+  "Syntax table for julia-mode")
+
+(defconst julia-font-lock-keywords
+  (list 
'("\\<\\(null\\|true\\|false\\|\\(c?\\(u?int\\(8\\|16\\|32\\)\\|float\\|double\\|bool\\|uint1\\)\\)\\)\\>"
 .
+      font-lock-type-face)
+    (cons
+     (concat "\\<\\("
+         (mapconcat
+          'identity
+          '("if" "else" "elseif" "while" "for" "begin" "end" "block"
+            "try" "return" "local" "type" "function" "new" "quote" "typename"
+           "typealias")
+          "\\|") "\\)\\>")
+     'font-lock-keyword-face)
+    '("\\\\\\s-*\".*?\"" . font-lock-string-face)))
+
+(defconst julia-block-start-keywords
+  (list "if" "while" "for" "begin" "try" "type" "function"))
+
+(defconst julia-block-other-keywords
+  (list "else" "elseif"))
+
+(defun member (item lst)
+  (if (null lst)
+      nil
+    (or (equal item (car lst))
+       (member item (cdr lst)))))
+
+; get the column of the last open block
+(defun last-open-block (min count)
+  (cond ((> count 0) (+ 4 (current-indentation)))
+        ((<= (point) min) nil)
+        (t (backward-word 1)
+           (cond ((member (current-word) julia-block-start-keywords)
+                  (last-open-block min (+ count 1)))
+                 ((equal (current-word) "end")
+                  (last-open-block min (- count 1)))
+                 (t (last-open-block min count))))))
+
+; return indent implied by a special form opening on the previous line, if any
+(defun form-indent ()
+  (forward-line -1)
+  (end-of-line)
+  (backward-sexp)
+  (if (member (current-word) julia-block-other-keywords)
+      (+ 4 (current-indentation))
+    (if (char-equal (char-after (point)) ?\()
+        (progn
+          (backward-word 1)
+          (let ((cur (current-indentation))
+                (cw (current-word)))
+            (if (member cw julia-block-start-keywords)
+                (+ 4 cur)
+              nil)))
+      nil)))
+
+;(defun far-back ()
+;  (max (point-min) (- (point) 2000)))
+
+(defmacro error2nil (body) `(condition-case nil ,body (error nil)))
+
+(defun paren-indent ()
+  (let* ((p (parse-partial-sexp (point-min) (progn (beginning-of-line)
+                                                   (point))))
+         (pos (cadr p)))
+    (if (or (= 0 (car p)) (null pos))
+        nil
+      (progn (goto-char pos) (+ 1 (current-column))))))
+;  (forward-line -1)
+;  (end-of-line)
+;  (let ((pos (condition-case nil
+;                (scan-lists (point) -1 1)
+;              (error nil))))
+;   (if pos
+;       (progn (goto-char pos) (+ 1 (current-column)))
+;     nil)))
+
+(defun julia-indent-line ()
+  "Indent current line of julia code"
+  (interactive)
+;  (save-excursion
+    (end-of-line)
+    (indent-line-to
+     (or (save-excursion (error2nil (form-indent)))
+         (save-excursion (error2nil (paren-indent)))
+         (save-excursion
+           (let ((endtok (progn
+                           (beginning-of-line)
+                           (forward-to-indentation 0)
+                           (equal (current-word) "end"))))
+             (error2nil (+ (last-open-block (point-min) 0)
+                           (if endtok -4 0)))))
+; take same indentation as previous line
+;      (save-excursion (beginning-of-line)
+;                      (forward-line -1)
+;                      (forward-to-indentation 0)
+;                      (current-column))
+                (save-excursion
+                  (if (and (not (equal (point-min) (line-beginning-position)))
+                                       (progn
+                                         (forward-line -1)
+                                         (end-of-line) (backward-char 1)
+                                         (equal (char-after (point)) ?=)))
+                          4 nil))
+         0))
+       (when (equal (current-word) "end") (forward-word 1)))
+
+(defun julia-mode ()
+  "Major mode for editing julia code"
+  (interactive)
+  (kill-all-local-variables)
+  (set-syntax-table julia-mode-syntax-table)
+  (set (make-local-variable 'font-lock-defaults) '(julia-font-lock-keywords))
+;  (set (make-local-variable 'font-lock-syntactic-keywords)
+;      (list
+;       (list "\\(\\\\\\)\\s-*\".*?\"" 1 julia-mode-char-syntax-table)))
+  (set (make-local-variable 'font-lock-syntactic-keywords)
+       (list
+        (list "\\(\"\\(.\\|\\s-\\)*?[^\\\\]\"\\|\"\"\\)" 0
+              julia-mode-string-syntax-table)))
+  (set (make-local-variable 'indent-line-function) 'julia-indent-line)
+  (setq indent-tabs-mode nil)
+  (setq major-mode 'julia-mode)
+  (setq mode-name "julia")
+  (run-hooks 'julia-mode-hook))
+
+(provide 'julia-mode)