|
52304
|
1 ;;; ld-script.el --- GNU linker script editing mode for Emacs
|
|
|
2
|
|
|
3 ;; Copyright (C) 2003 Free Software Foundation, Inc.
|
|
|
4
|
|
|
5 ;; Author: Masatake YAMATO<jet@gyve.org>
|
|
|
6 ;; Keywords: languages, faces
|
|
|
7
|
|
52563
|
8 ;; This file is part of GNU Emacs.
|
|
|
9
|
|
52304
|
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)
|
|
|
13 ;; any later version.
|
|
|
14
|
|
|
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.
|
|
|
19
|
|
|
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.
|
|
|
24
|
|
52563
|
25 ;;; Commentary:
|
|
|
26
|
|
|
27 ;; Major mode for editing GNU linker (ld) scripts.
|
|
|
28
|
|
|
29 ;;; Code:
|
|
52304
|
30
|
|
|
31 ;; Custom
|
|
|
32 (defgroup ld-script nil
|
|
|
33 "GNU linker script code editing commands for Emacs."
|
|
|
34 :prefix "ld-script-"
|
|
|
35 :group 'languages)
|
|
|
36
|
|
|
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."
|
|
|
41 :group 'ld-script)
|
|
|
42
|
|
|
43 ;; Syntax rules
|
|
52563
|
44 (defvar ld-script-mode-syntax-table
|
|
52304
|
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)
|
|
|
72 st)
|
|
|
73 "Syntax table used while in `ld-script-mode'.")
|
|
|
74
|
|
|
75 ;; Font lock keywords
|
|
52563
|
76 (defvar ld-script-keywords
|
|
|
77 '("ENTRY" "INCLUDE" "INPUT" "GROUP"
|
|
52304
|
78 "OUTPUT" "SEARCH_DIR" "STARTUP"
|
|
|
79 "OUTPUT_FORMAT" "TARGET"
|
|
|
80 "ASSERT" "EXTERN" "FORCE_COMMON_ALLOCATION" "NOCROSSREFS" "OUTPUT_ARCH"
|
|
52563
|
81 "PROVIDE"
|
|
52304
|
82 "SECTIONS" "SORT" "COMMON" "KEEP"
|
|
|
83 "BYTE" "SHORT" "LONG" "QUAD" "SQAD"
|
|
|
84 "FILL"
|
|
|
85 "CREATE_OBJECT_SYMBOLS"
|
|
|
86 "CONSTRUCTORS"
|
|
|
87 "NOLOAD" "DSECT" "COPY" "INFO" "OVERLAY"
|
|
|
88 "AT"
|
|
|
89 "MEMORY"
|
|
|
90 "PHDRS" "FILEHDR" "FLAGS"
|
|
|
91 "PT_NULL" "PT_LOAD" "PT_DYNAMIC" "PT_INTERP" "PT_NONE" "PT_SHLIB" "PT_PHDR"
|
|
|
92 "VERSION")
|
|
|
93 "Keywords used of GNU ld script.")
|
|
|
94
|
|
52563
|
95 (defvar ld-script-builtins
|
|
|
96 '("ABSOLUTE"
|
|
52304
|
97 "ADDR"
|
|
|
98 "ALIGN"
|
|
|
99 "BLOCK"
|
|
|
100 "DEFINED"
|
|
|
101 "LOADADDR"
|
|
|
102 "MAX"
|
|
|
103 "MIN"
|
|
|
104 "NEXT"
|
|
|
105 "SIZEOF"
|
|
|
106 "SIZEOF_HEADERS"
|
|
|
107 "sizeof_headers")
|
|
|
108 "Builtin functions of GNU ld script.")
|
|
|
109
|
|
|
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)
|
|
|
118 )
|
|
52563
|
119 "Default font-lock-keywords for `ld-script-mode'.")
|
|
52304
|
120
|
|
|
121 ;;;###autoload
|
|
|
122 (add-to-list 'auto-mode-alist '("\\.lds" . ld-script-mode))
|
|
|
123
|
|
|
124 ;;;###autoload
|
|
|
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)))
|
|
|
131
|
|
52563
|
132 (provide 'ld-script)
|
|
|
133
|
|
52401
|
134 ;;; arch-tag: 83280b6b-e6fc-4d00-a630-922d7aec5593
|
|
52304
|
135 ;;; ld-script.el ends here
|
