Orkuncakilkaya
2ad6edaae3
`ludic syntax [--json] [-o FILE]` prints what `ludicc --emit-syntax` does (a line per entry, or the JSON). `ludic-dev syntax` writes, between "ludic-dev syntax: begin" / "end" lines, the keyword, type, phase and attribute tables of ludic_syntax.h, LudicVocabulary's sets (JetBrains), ludic-mode.el's lists and the language server's word tests (is_keyword_word and the rest; is_contextual_word is every word the parser does not reserve, and every declaring or modifying one), and every TextMate pattern marked "comment": "ludic-dev syntax: <group>" (shared and the VS Code copy). The grammars gain module uses port bind action reducer dispatch registry def open component prop view alias friend unsafe numbers of as from mut system; import and extern colour as declarations; the phase clause knows Overlay; the bitwise pattern matches | and ^ on their own again. `ludic-dev syntax --check` - and check-vocabulary, whose old parser comparison it replaces, and the regression suite (syntax_cases, one line per file) - fails when a written list is behind, when a grammar lacks a keyword, type or phase, when docs/language has no page for a keyword, type, phase or attribute, or when the parser (a scan of selfhost/frontend: is_id / text == words, a == / ann == attributes) tests a word or reads an attribute vocab.ludic lacks, or the reverse. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
77 lines
3.6 KiB
EmacsLisp
77 lines
3.6 KiB
EmacsLisp
;;; ludic-mode.el --- Major mode for the Ludic game language -*- lexical-binding: t; -*-
|
|
|
|
;; Highlighting here is a deliberate minimum: enough for a file to be readable
|
|
;; with nothing installed. Everything real -- completion, diagnostics, hover,
|
|
;; formatting -- comes from ludic-lsp via eglot (built into Emacs 29) or lsp-mode.
|
|
;;
|
|
;; Usage:
|
|
;; (add-to-list 'load-path "/path/to/gpp/tools/editors/emacs")
|
|
;; (require 'ludic-mode)
|
|
|
|
;;; Code:
|
|
|
|
;; The vocabulary is written by `ludic-dev syntax` from the compiler's own table
|
|
;; (`ludicc --emit-syntax`) between the marked lines.
|
|
;; ludic-dev syntax: begin - generated from `ludicc --emit-syntax` (selfhost/frontend/vocab.ludic); run `ludic-dev syntax`, do not edit
|
|
(defconst ludic--declaration-keywords
|
|
'("program" "module" "import" "property" "state" "event" "action" "reducer" "enum" "model"
|
|
"prefab" "scene" "handler" "ui" "namespace" "alias" "port" "bind" "registry" "def"
|
|
"component" "view" "prop" "const" "var" "function" "fn" "extern" "entry" "test"))
|
|
(defconst ludic--clause-keywords
|
|
'("export" "internal" "friend" "uses" "open" "of" "as" "from" "numbers" "unsafe" "mut" "phase"
|
|
"query" "on" "cancellable" "public" "layer" "start" "shows" "lasts" "then" "loads"
|
|
"system"))
|
|
(defconst ludic--statement-keywords
|
|
'("let" "if" "else" "while" "for" "in" "where" "match" "machine" "become" "return" "break"
|
|
"continue" "new" "spawn" "despawn" "enable" "disable" "attach" "detach" "emit" "cancel"
|
|
"dispatch" "try" "and" "or" "not"))
|
|
(defconst ludic--types
|
|
'("int" "long" "float" "double" "fixed" "bool" "byte" "string" "pointer" "void" "entity"
|
|
"countdown" "words" "floats" "doubles" "fixeds" "pointers" "Vector" "IVec2" "Rect"))
|
|
(defconst ludic--phases
|
|
'("Start" "Input" "FixedUpdate" "Update" "LateUpdate" "Render" "Overlay"))
|
|
;; ludic-dev syntax: end
|
|
|
|
(defconst ludic-font-lock-keywords
|
|
(list
|
|
(cons (regexp-opt ludic--declaration-keywords 'symbols) 'font-lock-keyword-face)
|
|
(cons (regexp-opt ludic--clause-keywords 'symbols) 'font-lock-preprocessor-face)
|
|
(cons (regexp-opt ludic--statement-keywords 'symbols) 'font-lock-keyword-face)
|
|
(cons (regexp-opt ludic--types 'symbols) 'font-lock-type-face)
|
|
(cons (regexp-opt ludic--phases 'symbols) 'font-lock-builtin-face)
|
|
(cons "\\_<\\(true\\|false\\|null\\)\\_>" 'font-lock-constant-face)
|
|
(cons "@[A-Za-z_][A-Za-z0-9_]*" 'font-lock-preprocessor-face)
|
|
;; components, archetypes, scenes and UI handles are Capitalised by convention
|
|
(cons "\\_<[A-Z][A-Za-z0-9_]*\\_>" 'font-lock-type-face)
|
|
(cons "\\_<\\([a-z_][A-Za-z0-9_]*\\)\\s-*(" '(1 font-lock-function-name-face))))
|
|
|
|
(defvar ludic-mode-syntax-table
|
|
(let ((table (make-syntax-table)))
|
|
(modify-syntax-entry ?# "<" table)
|
|
(modify-syntax-entry ?\n ">" table)
|
|
(modify-syntax-entry ?_ "_" table)
|
|
(modify-syntax-entry ?\" "\"" table)
|
|
table)
|
|
"Syntax table for `ludic-mode'.")
|
|
|
|
;;;###autoload
|
|
(define-derived-mode ludic-mode prog-mode "Ludic"
|
|
"Major mode for editing Ludic source."
|
|
:syntax-table ludic-mode-syntax-table
|
|
(setq-local font-lock-defaults '(ludic-font-lock-keywords))
|
|
(setq-local comment-start "# ")
|
|
(setq-local comment-end "")
|
|
(setq-local indent-tabs-mode nil)
|
|
(setq-local tab-width 2)
|
|
(setq-local standard-indent 2))
|
|
|
|
;;;###autoload
|
|
(add-to-list 'auto-mode-alist '("\\.ludic\\'" . ludic-mode))
|
|
|
|
;; eglot: one line, and the server does the rest. Markdown is registered too so
|
|
;; that ```ludic fences are analysed in prose files.
|
|
(with-eval-after-load 'eglot
|
|
(add-to-list 'eglot-server-programs '(ludic-mode . ("ludic-lsp" "--stdio"))))
|
|
|
|
(provide 'ludic-mode)
|
|
;;; ludic-mode.el ends here
|