1 ;;; ld-script.el --- GNU linker script editing mode for Emacs
3 ;; Copyright (C) 2003, 2005 Free Software Foundation, Inc.
5 ;; Author: Masatake YAMATO<jet@gyve.org>
6 ;; Keywords: languages, faces
8 ;; This file is part of GNU Emacs.
10 ;; This program 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 2, or (at your option)
15 ;; This program 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 this program; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 ;; Boston, MA 02110-1301, USA.
27 ;; Major mode for editing GNU linker (ld) scripts.
32 (defgroup ld-script nil
33 "GNU linker script code editing commands for Emacs."
37 (defvar ld-script-location-counter-face
'ld-script-location-counter
)
38 (defface ld-script-location-counter
39 '((t (:weight bold
:inherit font-lock-builtin-face
)))
40 "Face for location counter in GNU ld script."
42 ;; backward-compatibility alias
43 (put 'ld-script-location-counter-face
'face-alias
'ld-script-location-counter
)
46 (defvar ld-script-mode-syntax-table
47 (let ((st (make-syntax-table)))
48 (modify-syntax-entry ?\
"-" st
)
49 (modify-syntax-entry ?
{ "(}" st
)
50 (modify-syntax-entry ?
} "){" st
)
51 (modify-syntax-entry ?\
( "()" st
)
52 (modify-syntax-entry ?\
) ")(" st
)
53 (modify-syntax-entry ?\
[ "(]" st
)
54 (modify-syntax-entry ?\
] ")[" st
)
55 (modify-syntax-entry ?_
"w" st
)
56 (modify-syntax-entry ?.
"_" st
)
57 (modify-syntax-entry ?
\\ "\\" st
)
58 (modify-syntax-entry ?
: "." st
)
59 (modify-syntax-entry ?
, "." st
)
60 (modify-syntax-entry ??
"." st
)
61 (modify-syntax-entry ?
= "." st
)
62 (modify-syntax-entry ?
* ". 23" st
)
63 (modify-syntax-entry ?
/ ". 14" 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
)
70 (modify-syntax-entry ?
> "." st
)
71 (modify-syntax-entry ?
& "." st
)
72 (modify-syntax-entry ?|
"." st
)
73 (modify-syntax-entry ?
\" "\"" st
)
75 "Syntax table used while in `ld-script-mode'.")
78 (defvar ld-script-keywords
79 '("ENTRY" "INCLUDE" "INPUT" "GROUP"
80 "OUTPUT" "SEARCH_DIR" "STARTUP"
81 "OUTPUT_FORMAT" "TARGET"
82 "ASSERT" "EXTERN" "FORCE_COMMON_ALLOCATION" "NOCROSSREFS" "OUTPUT_ARCH"
84 "SECTIONS" "SORT" "COMMON" "KEEP"
85 "BYTE" "SHORT" "LONG" "QUAD" "SQAD"
87 "CREATE_OBJECT_SYMBOLS"
89 "NOLOAD" "DSECT" "COPY" "INFO" "OVERLAY"
92 "PHDRS" "FILEHDR" "FLAGS"
93 "PT_NULL" "PT_LOAD" "PT_DYNAMIC" "PT_INTERP" "PT_NONE" "PT_SHLIB" "PT_PHDR"
95 "Keywords used of GNU ld script.")
97 (defvar ld-script-builtins
110 "Builtin functions of GNU ld script.")
112 (defvar ld-script-font-lock-keywords
113 `((,(regexp-opt ld-script-keywords
'words
)
114 1 font-lock-keyword-face
)
115 (,(regexp-opt ld-script-builtins
'words
)
116 1 font-lock-builtin-face
)
117 ("/DISCARD/" . font-lock-warning-face
)
118 ("##\\|#[^#\n]+$" . font-lock-preprocessor-face
)
119 ("\\W\\(\\.\\)\\W" 1 ld-script-location-counter-face
)
121 "Default font-lock-keywords for `ld-script-mode'.")
124 (add-to-list 'auto-mode-alist
'("\\.lds" . ld-script-mode
))
127 (define-derived-mode ld-script-mode nil
"LD-Script"
128 "A major mode to edit GNU ld script files"
129 (set (make-local-variable 'comment-start
) "/* ")
130 (set (make-local-variable 'comment-end
) " */")
131 (set (make-local-variable 'indent-line-function
) #'indent-relative
)
132 (set (make-local-variable 'font-lock-defaults
) '(ld-script-font-lock-keywords nil
)))
136 ;;; arch-tag: 83280b6b-e6fc-4d00-a630-922d7aec5593
137 ;;; ld-script.el ends here