1 ;;; ld-script.el --- GNU linker script editing mode for Emacs
3 ;; Copyright (C) 2001-2011 Free Software Foundation, Inc.
5 ;; Author: Masatake YAMATO<jet@gyve.org>
6 ;; Keywords: languages, faces
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
25 ;; Major mode for editing GNU linker (ld) scripts.
30 (defgroup ld-script nil
31 "GNU linker script code editing commands for Emacs."
35 (defvar ld-script-location-counter-face
'ld-script-location-counter
)
36 (defface ld-script-location-counter
37 '((t :weight bold
:inherit font-lock-builtin-face
))
38 "Face for location counter in GNU ld script."
42 (defvar ld-script-mode-syntax-table
43 (let ((st (make-syntax-table)))
44 (modify-syntax-entry ?\
"-" st
)
45 (modify-syntax-entry ?
{ "(}" st
)
46 (modify-syntax-entry ?
} "){" st
)
47 (modify-syntax-entry ?\
( "()" st
)
48 (modify-syntax-entry ?\
) ")(" st
)
49 (modify-syntax-entry ?\
[ "(]" st
)
50 (modify-syntax-entry ?\
] ")[" st
)
51 (modify-syntax-entry ?_
"w" st
)
52 (modify-syntax-entry ?.
"_" st
)
53 (modify-syntax-entry ?
\\ "\\" st
)
54 (modify-syntax-entry ?
: "." st
)
55 (modify-syntax-entry ?
, "." st
)
56 (modify-syntax-entry ??
"." st
)
57 (modify-syntax-entry ?
= "." st
)
58 (modify-syntax-entry ?
* ". 23" st
)
59 (modify-syntax-entry ?
/ ". 14" st
)
60 (modify-syntax-entry ?
+ "." st
)
61 (modify-syntax-entry ?-
"." st
)
62 (modify-syntax-entry ?
! "." st
)
63 (modify-syntax-entry ?~
"." st
)
64 (modify-syntax-entry ?%
"." st
)
65 (modify-syntax-entry ?
< "." st
)
66 (modify-syntax-entry ?
> "." st
)
67 (modify-syntax-entry ?
& "." st
)
68 (modify-syntax-entry ?|
"." st
)
69 (modify-syntax-entry ?
\" "\"" st
)
71 "Syntax table used while in `ld-script-mode'.")
74 ;; (The section number comes from ld's info.)
75 (defvar ld-script-keywords
77 ;; 3.4.1 Setting the Entry Point
79 ;; 3.4.2 Commands Dealing with Files
80 "INCLUDE" "INPUT" "GROUP" "AS_NEEDED" "OUTPUT" "SEARCH_DIR" "STARTUP"
81 ;; 3.4.3 Commands Dealing with Object File Formats
82 "OUTPUT_FORMAT" "TARGET"
83 ;; 3.4.3 Other Linker Script Commands
84 "ASSERT" "EXTERN" "FORCE_COMMON_ALLOCATION"
85 "INHIBIT_COMMON_ALLOCATION" "NOCROSSREFS" "OUTPUT_ARCH"
88 ;; 3.5.3 PROVIDE_HIDDEN
90 ;; 3.6 SECTIONS Command
92 ;; 3.6.4.2 Input Section Wildcard Patterns
93 "SORT" "SORT_BY_NAME" "SORT_BY_ALIGNMENT"
94 ;; 3.6.4.3 Input Section for Common Symbols
96 ;; 3.6.4.4 Input Section and Garbage Collection
98 ;; 3.6.5 Output Section Data
99 "BYTE" "SHORT" "LONG" "QUAD" "SQUAD" "FILL"
100 ;; 3.6.6 Output Section Keywords
101 "CREATE_OBJECT_SYMBOLS" "CONSTRUCTORS"
102 "__CTOR_LIST__" "__CTOR_END__" "__DTOR_LIST__" "__DTOR_END__"
103 ;; 3.6.7 Output Section Discarding
104 ;; See `ld-script-font-lock-keywords'
105 ;; 3.6.8.1 Output Section Type
106 "NOLOAD" "DSECT" "COPY" "INFO" "OVERLAY"
107 ;; 3.6.8.2 Output Section LMA
109 ;; 3.6.8.4 Forced Input Alignment
111 ;; 3.6.8.6 Output Section Phdr
113 ;; 3.7 MEMORY Command
116 "PHDRS" "FILEHDR" "FLAGS"
117 "PT_NULL" "PT_LOAD" "PT_DYNAMIC" "PT_INTERP" "PT_NONE" "PT_SHLIB" "PT_PHDR"
118 ;; 3.9 VERSION Command
120 "Keywords used of GNU ld script.")
122 ;; 3.10.8 Builtin Functions
123 (defvar ld-script-builtins
130 "DATA_SEGMENT_RELRO_END"
142 "Builtin functions of GNU ld script.")
144 (defvar ld-script-font-lock-keywords
146 `((,(regexp-opt ld-script-keywords
'words
)
147 1 font-lock-keyword-face
)
148 (,(regexp-opt ld-script-builtins
'words
)
149 1 font-lock-builtin-face
)
150 ;; 3.6.7 Output Section Discarding
151 ;; 3.6.4.1 Input Section Basics
152 ;; 3.6.8.6 Output Section Phdr
153 ("/DISCARD/\\|EXCLUDE_FILE\\|:NONE" . font-lock-warning-face
)
154 ("\\W\\(\\.\\)\\W" 1 ld-script-location-counter-face
)
156 cpp-font-lock-keywords
)
157 "Default font-lock-keywords for `ld-script-mode'.")
160 (define-derived-mode ld-script-mode nil
"LD-Script"
161 "A major mode to edit GNU ld script files"
162 (set (make-local-variable 'comment-start
) "/* ")
163 (set (make-local-variable 'comment-end
) " */")
164 (set (make-local-variable 'font-lock-defaults
)
165 '(ld-script-font-lock-keywords nil
)))
169 ;;; ld-script.el ends here