1 ;;; ld-script.el --- GNU linker script editing mode for Emacs
3 ;; Copyright (C) 2003 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., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, 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-face
)
38 (defface ld-script-location-counter-face
39 '((t (:weight bold
:inherit font-lock-builtin-face
)))
40 "Face for location counter in GNU ld script."
44 (defvar ld-script-mode-syntax-table
45 (let ((st (make-syntax-table)))
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 ?\
[ "(]" st
)
52 (modify-syntax-entry ?\
] ")[" st
)
53 (modify-syntax-entry ?_
"w" 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 ??
"." st
)
59 (modify-syntax-entry ?
= "." st
)
60 (modify-syntax-entry ?
* ". 23" st
)
61 (modify-syntax-entry ?
/ ". 14" 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
)
70 (modify-syntax-entry ?|
"." st
)
71 (modify-syntax-entry ?
\" "\"" st
)
73 "Syntax table used while in `ld-script-mode'.")
76 (defvar ld-script-keywords
77 '("ENTRY" "INCLUDE" "INPUT" "GROUP"
78 "OUTPUT" "SEARCH_DIR" "STARTUP"
79 "OUTPUT_FORMAT" "TARGET"
80 "ASSERT" "EXTERN" "FORCE_COMMON_ALLOCATION" "NOCROSSREFS" "OUTPUT_ARCH"
82 "SECTIONS" "SORT" "COMMON" "KEEP"
83 "BYTE" "SHORT" "LONG" "QUAD" "SQAD"
85 "CREATE_OBJECT_SYMBOLS"
87 "NOLOAD" "DSECT" "COPY" "INFO" "OVERLAY"
90 "PHDRS" "FILEHDR" "FLAGS"
91 "PT_NULL" "PT_LOAD" "PT_DYNAMIC" "PT_INTERP" "PT_NONE" "PT_SHLIB" "PT_PHDR"
93 "Keywords used of GNU ld script.")
95 (defvar ld-script-builtins
108 "Builtin functions of GNU ld script.")
110 (defvar ld-script-font-lock-keywords
111 `((,(regexp-opt ld-script-keywords
'words
)
112 1 font-lock-keyword-face
)
113 (,(regexp-opt ld-script-builtins
'words
)
114 1 font-lock-builtin-face
)
115 ("/DISCARD/" . font-lock-warning-face
)
116 ("##\\|#[^#\n]+$" . font-lock-preprocessor-face
)
117 ("\\W\\(\\.\\)\\W" 1 ld-script-location-counter-face
)
119 "Default font-lock-keywords for `ld-script-mode'.")
122 (add-to-list 'auto-mode-alist
'("\\.lds" . ld-script-mode
))
125 (define-derived-mode ld-script-mode nil
"LD-Script"
126 "A major mode to edit GNU ld script files"
127 (set (make-local-variable 'comment-start
) "/* ")
128 (set (make-local-variable 'comment-end
) " */")
129 (set (make-local-variable 'indent-line-function
) #'indent-relative
)
130 (set (make-local-variable 'font-lock-defaults
) '(ld-script-font-lock-keywords nil
)))
134 ;;; arch-tag: 83280b6b-e6fc-4d00-a630-922d7aec5593
135 ;;; ld-script.el ends here