;;; ld-script.el --- GNU linker script editing mode for Emacs
-;; Copyright (C) 2003 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006
+;; Free Software Foundation, Inc.
;; Author: Masatake YAMATO<jet@gyve.org>
;; Keywords: languages, faces
+;; This file is part of GNU Emacs.
+
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;; Major mode for editing GNU linker (ld) scripts.
-;;; Codes:
+;;; Code:
;; Custom
(defgroup ld-script nil
:prefix "ld-script-"
:group 'languages)
-(defvar ld-script-location-counter-face 'ld-script-location-counter-face)
-(defface ld-script-location-counter-face
- '((t (:weight bold :inherit font-lock-builtin-face)))
+(defvar ld-script-location-counter-face 'ld-script-location-counter)
+(defface ld-script-location-counter
+ '((t :weight bold :inherit font-lock-builtin-face))
"Face for location counter in GNU ld script."
:group 'ld-script)
;; Syntax rules
-(defvar ld-script-mode-syntax-table
+(defvar ld-script-mode-syntax-table
(let ((st (make-syntax-table)))
(modify-syntax-entry ?\ "-" st)
(modify-syntax-entry ?{ "(}" st)
"Syntax table used while in `ld-script-mode'.")
;; Font lock keywords
-(defvar ld-script-keywords
- '("ENTRY" "INCLUDE" "INPUT" "GROUP"
- "OUTPUT" "SEARCH_DIR" "STARTUP"
+;; (The section number comes from ld's info.)
+(defvar ld-script-keywords
+ '(
+ ;; 3.4.1 Setting the Entry Point
+ "ENTRY"
+ ;; 3.4.2 Commands Dealing with Files
+ "INCLUDE" "INPUT" "GROUP" "AS_NEEDED" "OUTPUT" "SEARCH_DIR" "STARTUP"
+ ;; 3.4.3 Commands Dealing with Object File Formats
"OUTPUT_FORMAT" "TARGET"
- "ASSERT" "EXTERN" "FORCE_COMMON_ALLOCATION" "NOCROSSREFS" "OUTPUT_ARCH"
- "PROVIDE"
- "SECTIONS" "SORT" "COMMON" "KEEP"
- "BYTE" "SHORT" "LONG" "QUAD" "SQAD"
- "FILL"
- "CREATE_OBJECT_SYMBOLS"
- "CONSTRUCTORS"
+ ;; 3.4.3 Other Linker Script Commands
+ "ASSERT" "EXTERN" "FORCE_COMMON_ALLOCATION"
+ "INHIBIT_COMMON_ALLOCATION" "NOCROSSREFS" "OUTPUT_ARCH"
+ ;; 3.5.2 PROVIDE
+ "PROVIDE"
+ ;; 3.5.3 PROVIDE_HIDDEN
+ "PROVIDE_HIDEN"
+ ;; 3.6 SECTIONS Command
+ "SECTIONS"
+ ;; 3.6.4.2 Input Section Wildcard Patterns
+ "SORT" "SORT_BY_NAME" "SORT_BY_ALIGNMENT"
+ ;; 3.6.4.3 Input Section for Common Symbols
+ "COMMON"
+ ;; 3.6.4.4 Input Section and Garbage Collection
+ "KEEP"
+ ;; 3.6.5 Output Section Data
+ "BYTE" "SHORT" "LONG" "QUAD" "SQUAD" "FILL"
+ ;; 3.6.6 Output Section Keywords
+ "CREATE_OBJECT_SYMBOLS" "CONSTRUCTORS"
+ "__CTOR_LIST__" "__CTOR_END__" "__DTOR_LIST__" "__DTOR_END__"
+ ;; 3.6.7 Output Section Discarding
+ ;; See `ld-script-font-lock-keywords'
+ ;; 3.6.8.1 Output Section Type
"NOLOAD" "DSECT" "COPY" "INFO" "OVERLAY"
+ ;; 3.6.8.2 Output Section LMA
"AT"
+ ;; 3.6.8.4 Forced Input Alignment
+ "SUBALIGN"
+ ;; 3.6.8.6 Output Section Phdr
+ ":PHDR"
+ ;; 3.7 MEMORY Command
"MEMORY"
+ ;; 3.8 PHDRS Command
"PHDRS" "FILEHDR" "FLAGS"
"PT_NULL" "PT_LOAD" "PT_DYNAMIC" "PT_INTERP" "PT_NONE" "PT_SHLIB" "PT_PHDR"
+ ;; 3.9 VERSION Command
"VERSION")
"Keywords used of GNU ld script.")
-(defvar ld-script-builtins
- '("ABSOLUTE"
+;; 3.10.8 Builtin Functions
+(defvar ld-script-builtins
+ '("ABSOLUTE"
"ADDR"
"ALIGN"
"BLOCK"
+ "DATA_SEGMENT_ALIGN"
+ "DATA_SEGMENT_END"
+ "DATA_SEGMENT_RELRO_END"
"DEFINED"
+ "LENGTH" "len" "l"
"LOADADDR"
"MAX"
"MIN"
"NEXT"
+ "ORIGIN" "org" "o"
+ "SEGMENT_START"
"SIZEOF"
"SIZEOF_HEADERS"
"sizeof_headers")
"Builtin functions of GNU ld script.")
(defvar ld-script-font-lock-keywords
- `((,(regexp-opt ld-script-keywords 'words)
- 1 font-lock-keyword-face)
- (,(regexp-opt ld-script-builtins 'words)
- 1 font-lock-builtin-face)
- ("/DISCARD/" . font-lock-warning-face)
- ("##\\|#[^#\n]+$" . font-lock-preprocessor-face)
- ("\\W\\(\\.\\)\\W" 1 ld-script-location-counter-face)
- )
- "Default font-lock-keywords for `ld-script mode'.")
+ (append
+ `((,(regexp-opt ld-script-keywords 'words)
+ 1 font-lock-keyword-face)
+ (,(regexp-opt ld-script-builtins 'words)
+ 1 font-lock-builtin-face)
+ ;; 3.6.7 Output Section Discarding
+ ;; 3.6.4.1 Input Section Basics
+ ;; 3.6.8.6 Output Section Phdr
+ ("/DISCARD/\\|EXCLUDE_FILE\\|:NONE" . font-lock-warning-face)
+ ("\\W\\(\\.\\)\\W" 1 ld-script-location-counter-face)
+ )
+ cpp-font-lock-keywords)
+ "Default font-lock-keywords for `ld-script-mode'.")
+;; Linux-2.6.9 uses some different suffix for linker scripts:
+;; "ld", "lds", "lds.S", "lds.in", "ld.script", and "ld.script.balo".
+;; eCos uses "ld" and "ldi".
+;; Netbsd uses "ldscript.*".
;;;###autoload
-(add-to-list 'auto-mode-alist '("\\.lds" . ld-script-mode))
+(add-to-list 'auto-mode-alist '("\\.ld[si]?\\>" . ld-script-mode))
+(add-to-list 'auto-mode-alist '("ld\\.?script\\>" . ld-script-mode))
+
+;;;###autoload
+(add-to-list 'auto-mode-alist '("\\.x[bdsru]?[cn]?\\'" . ld-script-mode))
;;;###autoload
(define-derived-mode ld-script-mode nil "LD-Script"
"A major mode to edit GNU ld script files"
(set (make-local-variable 'comment-start) "/* ")
(set (make-local-variable 'comment-end) " */")
- (set (make-local-variable 'indent-line-function) #'indent-relative)
- (set (make-local-variable 'font-lock-defaults) '(ld-script-font-lock-keywords nil)))
+ (set (make-local-variable 'font-lock-defaults)
+ '(ld-script-font-lock-keywords nil)))
+
+(provide 'ld-script)
-;;; arch-tag: 83280b6b-e6fc-4d00-a630-922d7aec5593
+;; arch-tag: 83280b6b-e6fc-4d00-a630-922d7aec5593
;;; ld-script.el ends here
HCoop / bpt / emacs.git / blobdiff