Mercurial > emacs
annotate lisp/progmodes/ld-script.el @ 89943:4c90ffeb71c5
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-15
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-218
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-220
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-221
Restore deleted tagline in etc/TUTORIAL.ru
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-222
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-228
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-229
Remove TeX output files from the archive
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-230
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-247
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
src/lisp.h (CYCLE_CHECK): Macro moved from xfaces.c
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-249
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-256
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-258
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-263
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-264
Update from CVS: lispref/display.texi: emacs -> Emacs.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-265
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-274
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-275
Update from CVS: man/makefile.w32-in: Revert last change
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-276
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-295
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-296
Allow restarting an existing debugger session that's exited
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-297
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-299
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-300
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-327
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-328
Update from CVS: src/.gdbinit (xsymbol): Fix last change.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-329
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-344
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-345
Tweak source regexps so that building in place won't cause problems
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-346
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-351
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-352
Update from CVS: lisp/flymake.el: New file.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-353
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-361
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-362
Support " [...]" style defaults in minibuffer-electric-default-mode
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-363
(read-number): Use canonical format for default in prompt.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-364
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-367
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-368
Improve display-supports-face-attributes-p on non-ttys
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-369
Rewrite face-differs-from-default-p
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-370
Move `display-supports-face-attributes-p' entirely into C code
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-371
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-372
Simplify face-differs-from-default-p; don't consider :stipple.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-373
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-374
(tty_supports_face_attributes_p): Ensure attributes differ from default
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-375
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-376
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-377
(Fdisplay_supports_face_attributes_p): Work around bootstrapping problem
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-378
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-380
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-381
Face merging cleanups
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-382
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-384
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-385
src/xfaces.c (push_named_merge_point): Return 0 if a cycle is detected
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-386
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-395
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-396
Tweak arch tagging to make build/install-in-place less annoying
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-397
Work around vc-arch problems when building eshell
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-398
Tweak permissions
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-399
Tweak directory permissions
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-400
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-401
More build-in-place tweaking of arch tagging
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-402
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-403
Yet more build-in-place tweaking of arch tagging
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-404
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-409
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-410
Make sure image types are initialized for lookup too
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-411
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-416
Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 28 Jun 2004 07:56:49 +0000 |
parents | 68c22ea6027c |
children | a1b34dec1104 |
rev | line source |
---|---|
89909 | 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 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
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 | |
25 ;;; Commentary: | |
26 | |
27 ;; Major mode for editing GNU linker (ld) scripts. | |
28 | |
29 ;;; Code: | |
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 | |
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) | |
72 st) | |
73 "Syntax table used while in `ld-script-mode'.") | |
74 | |
75 ;; Font lock keywords | |
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" | |
81 "PROVIDE" | |
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 | |
95 (defvar ld-script-builtins | |
96 '("ABSOLUTE" | |
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 ) | |
119 "Default font-lock-keywords for `ld-script-mode'.") | |
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 | |
132 (provide 'ld-script) | |
133 | |
134 ;;; arch-tag: 83280b6b-e6fc-4d00-a630-922d7aec5593 | |
135 ;;; ld-script.el ends here |