blob: 90173ec17e223731074958710d1879d4d104f22c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
;; Copyright 2019 The Amber Authors.
;;
;; Licensed under the Apache License, Version 2.0 (the "License");
;; you may not use this file except in compliance with the License.
;; You may obtain a copy of the License at
;;
;; https://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing, software
;; distributed under the License is distributed on an "AS IS" BASIS,
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;; See the License for the specific language governing permissions and
;; limitations under the License.
;; Emacs mode for Amber script
;; https://github.com/google/amber
(defvar amber-mode-hook nil)
(defvar amber-mode-map
(let ((map (make-keymap)))
;; Add key bindings here
(define-key map "\C-j" 'newline-and-indent)
map)
"Keymap for Amber major mode")
;;;###autoload
(add-to-list 'auto-mode-alist '("\\.amber\\'" . amber-mode))
;; Evaluate the following to create optimized regex used for highlighting
;; (regexp-opt '(
;; "END" "SHADER" "BUFFER" "DATA_TYPE" "SIZE" "DATA" "FILL"
;; "SERIES_FROM" "PASSTHROUGH" "PIPELINE" "ATTACH" "ENTRY_POINT"
;; "DESCRIPTOR_SET" "INC_BY" "BINDING" "IDX" "TO" "RUN" "DRAW_RECT"
;; "POS" "DRAW_ARRAY" "IN" "AS" "START_IDX" "COUNT" "CLEAR_COLOR"
;; "CLEAR" "EXPECT" "TYPE" "FRAMEBUFFER" "SHADER_OPTIMIZATION"
;; "FORMAT" "FRAMEBUFFER_SIZE" "BIND" "SAMPLER" "VERTEX_DATA"
;; "INDEX_DATA" "INDEXED" "IMAGE_ATTACHMENT"
;; "DEPTH_STENCIL_ATTACHMENT" "LOCATION" "DEVICE_FEATURE"
;; "DERIVE_PIPELINE" "FROM" "COPY" "TOLERANCE" "REPEAT"
;; ) t)
;; (regexp-opt '(
;; "vertex" "fragment" "compute" "geometry" "tessellation_evaluation"
;; "tessellation_control" "multi" "framebuffer" "graphics" "uniform"
;; "storage" "push_constant" "color" "depth_stencil" "EQ" "NE" "LT"
;; "LE" "GT" "GE" "EQ_RGB" "EQ_RGBA" "EQ_BUFFER" "GLSL" "HLSL"
;; "SPIRV-ASM" "SPIRV-HEX" "OPENCL-C"
;; ) t)
;; (regexp-opt '(
;; "point_list" "line_list" "line_list_with_adjacency" "line_strip"
;; "line_strip_with_adjacency" "triangle_list"
;; "triangle_list_with_adjacency" "triangle_strip"
;; "triangle_strip_with_adjacency" "triangle_fan" "patch_list"
;; "float" "double"
;; ) t)
(defconst amber-font-lock-keywords-1
(list
'("\\<\\(A\\(?:S\\|TTACH\\)\\|B\\(?:IND\\(?:ING\\)?\\|UFFER\\)\\|C\\(?:LEAR\\(?:_COLOR\\)?\\|O\\(?:PY\\|UNT\\)\\)\\|D\\(?:ATA\\(?:_TYPE\\)?\\|E\\(?:PTH_STENCIL_ATTACHMENT\\|RIVE_PIPELINE\\|SCRIPTOR_SET\\|VICE_FEATURE\\)\\|RAW_\\(?:ARRAY\\|RECT\\)\\)\\|E\\(?:N\\(?:D\\|TRY_POINT\\)\\|XPECT\\)\\|F\\(?:ILL\\|ORMAT\\|R\\(?:AMEBUFFER\\(?:_SIZE\\)?\\|OM\\)\\)\\|I\\(?:DX\\|MAGE_ATTACHMENT\\|N\\(?:C_BY\\|DEX\\(?:ED\\|_DATA\\)\\)?\\)\\|LOCATION\\|P\\(?:ASSTHROUGH\\|IPELINE\\|OS\\)\\|R\\(?:EPEAT\\|UN\\)\\|S\\(?:AMPLER\\|ERIES_FROM\\|HADER\\(?:_OPTIMIZATION\\)?\\|IZE\\|TART_IDX\\)\\|T\\(?:O\\(?:LERANCE\\)?\\|YPE\\)\\|VERTEX_DATA\\)\\>" . font-lock-builtin-face)
'("\\<\\(EQ\\(?:_\\(?:BUFFER\\|RGBA?\\)\\)?\\|G\\(?:LSL\\|[ET]\\)\\|HLSL\\|L[ET]\\|NE\\|OPENCL-C\\|SPIRV-\\(?:ASM\\|HEX\\)\\|co\\(?:lor\\|mpute\\)\\|depth_stencil\\|fra\\(?:gment\\|mebuffer\\)\\|g\\(?:eometry\\|raphics\\)\\|multi\\|push_constant\\|storage\\|tessellation_\\(?:control\\|evaluation\\)\\|uniform\\|vertex\\)\\>" . font-lock-constant-face)
'("\\<\\(double\\|float\\|line_\\(?:list\\(?:_with_adjacency\\)?\\|strip\\(?:_with_adjacency\\)?\\)\\|p\\(?:\\(?:atch\\|oint\\)_list\\)\\|triangle_\\(?:fan\\|list\\(?:_with_adjacency\\)?\\|strip\\(?:_with_adjacency\\)?\\)\\)\\>" . font-lock-type-face)
;; This one is hand-written, not generated by regexp-opt
'("\\<\\(u?int\\|vec\\|mat\\)[[:digit:]]*\\>" . font-lock-type-face)
)
"Minimal highlighting expressions for Amber mode")
(defvar amber-font-lock-keywords amber-font-lock-keywords-1
"Default highlighting expressions for Amber mode")
(defvar amber-mode-syntax-table
(let ((st (make-syntax-table)))
(modify-syntax-entry ?_ "w" st)
(modify-syntax-entry ?# "<" st)
(modify-syntax-entry ?\n ">" st)
(modify-syntax-entry ?\" "\"" st)
st)
"Syntax table for amber-mode")
(defun amber-mode ()
"Major mode for editing Amber Script files"
(interactive)
(kill-all-local-variables)
(set-syntax-table amber-mode-syntax-table)
(use-local-map amber-mode-map)
(set (make-local-variable 'font-lock-defaults) '(amber-font-lock-keywords))
(setq major-mode 'amber-mode)
(setq mode-name "amber")
(run-hooks 'amber-mode-hook))
(provide 'amber-mode)
|
