Mercurial > emacs
annotate lisp/progmodes/ld-script.el @ 70323:810cd69c168f
(tool-bar-setup): Put Help and Preferences items in the default tool-bar-map.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 01 May 2006 20:15:56 +0000 |
parents | dc49655f57ae |
children | 25da237ef5a9 4b3d39451150 |
rev | line source |
---|---|
52304 | 1 ;;; ld-script.el --- GNU linker script editing mode for Emacs |
2 | |
68773
dc49655f57ae
Update copyright for 2006.
Nick Roberts <nickrob@snap.net.nz>
parents:
68177
diff
changeset
|
3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006 |
dc49655f57ae
Update copyright for 2006.
Nick Roberts <nickrob@snap.net.nz>
parents:
68177
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
52304 | 5 |
6 ;; Author: Masatake YAMATO<jet@gyve.org> | |
7 ;; Keywords: languages, faces | |
8 | |
52563
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
10 |
52304 | 11 ;; This program is free software; you can redistribute it and/or modify |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; This program is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with this program; see the file COPYING. If not, write to the | |
64085 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
24 ;; Boston, MA 02110-1301, USA. | |
52304 | 25 |
52563
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
26 ;;; Commentary: |
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
27 |
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
28 ;; Major mode for editing GNU linker (ld) scripts. |
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
29 |
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
30 ;;; Code: |
52304 | 31 |
32 ;; Custom | |
33 (defgroup ld-script nil | |
34 "GNU linker script code editing commands for Emacs." | |
35 :prefix "ld-script-" | |
36 :group 'languages) | |
37 | |
63459
fe2fc708f3ef
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-419
Miles Bader <miles@gnu.org>
parents:
52563
diff
changeset
|
38 (defvar ld-script-location-counter-face 'ld-script-location-counter) |
fe2fc708f3ef
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-419
Miles Bader <miles@gnu.org>
parents:
52563
diff
changeset
|
39 (defface ld-script-location-counter |
68177
7341c6ea5e74
(auto-mode-alist): Use \' rather than $.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68162
diff
changeset
|
40 '((t :weight bold :inherit font-lock-builtin-face)) |
52304 | 41 "Face for location counter in GNU ld script." |
42 :group 'ld-script) | |
43 | |
44 ;; Syntax rules | |
52563
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
45 (defvar ld-script-mode-syntax-table |
52304 | 46 (let ((st (make-syntax-table))) |
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 ?\] ")[" st) | |
54 (modify-syntax-entry ?_ "w" 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 ?= "." st) | |
61 (modify-syntax-entry ?* ". 23" st) | |
62 (modify-syntax-entry ?/ ". 14" 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 (modify-syntax-entry ?\" "\"" st) | |
73 st) | |
74 "Syntax table used while in `ld-script-mode'.") | |
75 | |
76 ;; Font lock keywords | |
52563
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
77 (defvar ld-script-keywords |
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
78 '("ENTRY" "INCLUDE" "INPUT" "GROUP" |
52304 | 79 "OUTPUT" "SEARCH_DIR" "STARTUP" |
80 "OUTPUT_FORMAT" "TARGET" | |
81 "ASSERT" "EXTERN" "FORCE_COMMON_ALLOCATION" "NOCROSSREFS" "OUTPUT_ARCH" | |
52563
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
82 "PROVIDE" |
52304 | 83 "SECTIONS" "SORT" "COMMON" "KEEP" |
84 "BYTE" "SHORT" "LONG" "QUAD" "SQAD" | |
85 "FILL" | |
86 "CREATE_OBJECT_SYMBOLS" | |
87 "CONSTRUCTORS" | |
88 "NOLOAD" "DSECT" "COPY" "INFO" "OVERLAY" | |
89 "AT" | |
90 "MEMORY" | |
91 "PHDRS" "FILEHDR" "FLAGS" | |
92 "PT_NULL" "PT_LOAD" "PT_DYNAMIC" "PT_INTERP" "PT_NONE" "PT_SHLIB" "PT_PHDR" | |
93 "VERSION") | |
94 "Keywords used of GNU ld script.") | |
95 | |
52563
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
96 (defvar ld-script-builtins |
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
97 '("ABSOLUTE" |
52304 | 98 "ADDR" |
99 "ALIGN" | |
100 "BLOCK" | |
66613
11e1b8967398
(ld-script-builtins): Add more words: "DATA_SEGMENT_ALIGN",
Masatake YAMATO <jet@gyve.org>
parents:
64993
diff
changeset
|
101 "DATA_SEGMENT_ALIGN" |
11e1b8967398
(ld-script-builtins): Add more words: "DATA_SEGMENT_ALIGN",
Masatake YAMATO <jet@gyve.org>
parents:
64993
diff
changeset
|
102 "DATA_SEGMENT_END" |
11e1b8967398
(ld-script-builtins): Add more words: "DATA_SEGMENT_ALIGN",
Masatake YAMATO <jet@gyve.org>
parents:
64993
diff
changeset
|
103 "DATA_SEGMENT_RELRO_END" |
52304 | 104 "DEFINED" |
66613
11e1b8967398
(ld-script-builtins): Add more words: "DATA_SEGMENT_ALIGN",
Masatake YAMATO <jet@gyve.org>
parents:
64993
diff
changeset
|
105 "LENGTH" |
52304 | 106 "LOADADDR" |
107 "MAX" | |
108 "MIN" | |
109 "NEXT" | |
66613
11e1b8967398
(ld-script-builtins): Add more words: "DATA_SEGMENT_ALIGN",
Masatake YAMATO <jet@gyve.org>
parents:
64993
diff
changeset
|
110 "ORIGIN" |
11e1b8967398
(ld-script-builtins): Add more words: "DATA_SEGMENT_ALIGN",
Masatake YAMATO <jet@gyve.org>
parents:
64993
diff
changeset
|
111 "SEGMENT_START" |
52304 | 112 "SIZEOF" |
113 "SIZEOF_HEADERS" | |
114 "sizeof_headers") | |
115 "Builtin functions of GNU ld script.") | |
116 | |
117 (defvar ld-script-font-lock-keywords | |
68134
48bf79d0aede
2006-01-06 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents:
68072
diff
changeset
|
118 (append |
48bf79d0aede
2006-01-06 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents:
68072
diff
changeset
|
119 `((,(regexp-opt ld-script-keywords 'words) |
48bf79d0aede
2006-01-06 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents:
68072
diff
changeset
|
120 1 font-lock-keyword-face) |
48bf79d0aede
2006-01-06 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents:
68072
diff
changeset
|
121 (,(regexp-opt ld-script-builtins 'words) |
48bf79d0aede
2006-01-06 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents:
68072
diff
changeset
|
122 1 font-lock-builtin-face) |
48bf79d0aede
2006-01-06 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents:
68072
diff
changeset
|
123 ("/DISCARD/" . font-lock-warning-face) |
48bf79d0aede
2006-01-06 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents:
68072
diff
changeset
|
124 ("\\W\\(\\.\\)\\W" 1 ld-script-location-counter-face) |
48bf79d0aede
2006-01-06 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents:
68072
diff
changeset
|
125 ) |
48bf79d0aede
2006-01-06 Masatake YAMATO <jet@gyve.org>
Masatake YAMATO <jet@gyve.org>
parents:
68072
diff
changeset
|
126 cpp-font-lock-keywords) |
52563
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
127 "Default font-lock-keywords for `ld-script-mode'.") |
52304 | 128 |
68148
df4b9089ebe1
* progmodes/ld-script.el (auto-mode-alist): Support suffix conventions used in netbsd and eCos.
Masatake YAMATO <jet@gyve.org>
parents:
68134
diff
changeset
|
129 ;; Linux-2.6.9 uses some different suffix for linker scripts: |
df4b9089ebe1
* progmodes/ld-script.el (auto-mode-alist): Support suffix conventions used in netbsd and eCos.
Masatake YAMATO <jet@gyve.org>
parents:
68134
diff
changeset
|
130 ;; "ld", "lds", "lds.S", "lds.in", "ld.script", and "ld.script.balo". |
df4b9089ebe1
* progmodes/ld-script.el (auto-mode-alist): Support suffix conventions used in netbsd and eCos.
Masatake YAMATO <jet@gyve.org>
parents:
68134
diff
changeset
|
131 ;; eCos uses "ld" and "ldi". |
df4b9089ebe1
* progmodes/ld-script.el (auto-mode-alist): Support suffix conventions used in netbsd and eCos.
Masatake YAMATO <jet@gyve.org>
parents:
68134
diff
changeset
|
132 ;; Netbsd uses "ldscript.*". |
52304 | 133 ;;;###autoload |
68148
df4b9089ebe1
* progmodes/ld-script.el (auto-mode-alist): Support suffix conventions used in netbsd and eCos.
Masatake YAMATO <jet@gyve.org>
parents:
68134
diff
changeset
|
134 (add-to-list 'auto-mode-alist '("\\.ld[si]?\\>" . ld-script-mode)) |
68177
7341c6ea5e74
(auto-mode-alist): Use \' rather than $.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68162
diff
changeset
|
135 (add-to-list 'auto-mode-alist '("ld\\.?script\\>" . ld-script-mode)) |
68148
df4b9089ebe1
* progmodes/ld-script.el (auto-mode-alist): Support suffix conventions used in netbsd and eCos.
Masatake YAMATO <jet@gyve.org>
parents:
68134
diff
changeset
|
136 |
68072
eb21ba2b7c0b
(auto-mode-alist): Recognize linker scripts whose file-name extensions are
Eli Zaretskii <eliz@gnu.org>
parents:
66613
diff
changeset
|
137 ;;;###autoload |
68177
7341c6ea5e74
(auto-mode-alist): Use \' rather than $.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68162
diff
changeset
|
138 (add-to-list 'auto-mode-alist '("\\.x[bdsru]?[cn]?\\'" . ld-script-mode)) |
52304 | 139 |
140 ;;;###autoload | |
141 (define-derived-mode ld-script-mode nil "LD-Script" | |
142 "A major mode to edit GNU ld script files" | |
143 (set (make-local-variable 'comment-start) "/* ") | |
144 (set (make-local-variable 'comment-end) " */") | |
68177
7341c6ea5e74
(auto-mode-alist): Use \' rather than $.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68162
diff
changeset
|
145 (set (make-local-variable 'font-lock-defaults) |
7341c6ea5e74
(auto-mode-alist): Use \' rather than $.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68162
diff
changeset
|
146 '(ld-script-font-lock-keywords nil))) |
52304 | 147 |
52563
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
148 (provide 'ld-script) |
2cb7c7b883e5
Add Commentary section, minor cleanup of file header.
John Paul Wallington <jpw@pobox.com>
parents:
52401
diff
changeset
|
149 |
68162 | 150 ;; arch-tag: 83280b6b-e6fc-4d00-a630-922d7aec5593 |
52304 | 151 ;;; ld-script.el ends here |