Commit b8313039 authored by John Paul Wallington's avatar John Paul Wallington
Browse files

Add Commentary section, minor cleanup of file header.

(ld-script-font-lock-keywords): Doc fix.
(toplevel): Provide `ld-script' feature.
parent 5b631b6b
2003-09-22 John Paul Wallington <jpw@gnu.org>
* progmodes/ld-script.el: Add Commentary section,
minor cleanup of file header.
(ld-script-font-lock-keywords): Doc fix.
(toplevel): Provide `ld-script' feature.
2003-09-21 Kim F. Storm <storm@cua.dk> 2003-09-21 Kim F. Storm <storm@cua.dk>
   
* scroll-bar.el (set-scroll-bar-mode): Initialize to * scroll-bar.el (set-scroll-bar-mode): Initialize to
......
...@@ -5,6 +5,8 @@ ...@@ -5,6 +5,8 @@
;; Author: Masatake YAMATO<jet@gyve.org> ;; Author: Masatake YAMATO<jet@gyve.org>
;; Keywords: languages, faces ;; Keywords: languages, faces
;; This file is part of GNU Emacs.
;; This program is free software; you can redistribute it and/or modify ;; 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 ;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option) ;; the Free Software Foundation; either version 2, or (at your option)
...@@ -20,7 +22,11 @@ ...@@ -20,7 +22,11 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA. ;; Boston, MA 02111-1307, USA.
;;; Codes: ;;; Commentary:
;; Major mode for editing GNU linker (ld) scripts.
;;; Code:
;; Custom ;; Custom
(defgroup ld-script nil (defgroup ld-script nil
...@@ -35,7 +41,7 @@ ...@@ -35,7 +41,7 @@
:group 'ld-script) :group 'ld-script)
;; Syntax rules ;; Syntax rules
(defvar ld-script-mode-syntax-table (defvar ld-script-mode-syntax-table
(let ((st (make-syntax-table))) (let ((st (make-syntax-table)))
(modify-syntax-entry ?\ "-" st) (modify-syntax-entry ?\ "-" st)
(modify-syntax-entry ?{ "(}" st) (modify-syntax-entry ?{ "(}" st)
...@@ -67,12 +73,12 @@ ...@@ -67,12 +73,12 @@
"Syntax table used while in `ld-script-mode'.") "Syntax table used while in `ld-script-mode'.")
;; Font lock keywords ;; Font lock keywords
(defvar ld-script-keywords (defvar ld-script-keywords
'("ENTRY" "INCLUDE" "INPUT" "GROUP" '("ENTRY" "INCLUDE" "INPUT" "GROUP"
"OUTPUT" "SEARCH_DIR" "STARTUP" "OUTPUT" "SEARCH_DIR" "STARTUP"
"OUTPUT_FORMAT" "TARGET" "OUTPUT_FORMAT" "TARGET"
"ASSERT" "EXTERN" "FORCE_COMMON_ALLOCATION" "NOCROSSREFS" "OUTPUT_ARCH" "ASSERT" "EXTERN" "FORCE_COMMON_ALLOCATION" "NOCROSSREFS" "OUTPUT_ARCH"
"PROVIDE" "PROVIDE"
"SECTIONS" "SORT" "COMMON" "KEEP" "SECTIONS" "SORT" "COMMON" "KEEP"
"BYTE" "SHORT" "LONG" "QUAD" "SQAD" "BYTE" "SHORT" "LONG" "QUAD" "SQAD"
"FILL" "FILL"
...@@ -86,8 +92,8 @@ ...@@ -86,8 +92,8 @@
"VERSION") "VERSION")
"Keywords used of GNU ld script.") "Keywords used of GNU ld script.")
(defvar ld-script-builtins (defvar ld-script-builtins
'("ABSOLUTE" '("ABSOLUTE"
"ADDR" "ADDR"
"ALIGN" "ALIGN"
"BLOCK" "BLOCK"
...@@ -110,7 +116,7 @@ ...@@ -110,7 +116,7 @@
("##\\|#[^#\n]+$" . font-lock-preprocessor-face) ("##\\|#[^#\n]+$" . font-lock-preprocessor-face)
("\\W\\(\\.\\)\\W" 1 ld-script-location-counter-face) ("\\W\\(\\.\\)\\W" 1 ld-script-location-counter-face)
) )
"Default font-lock-keywords for `ld-script mode'.") "Default font-lock-keywords for `ld-script-mode'.")
;;;###autoload ;;;###autoload
(add-to-list 'auto-mode-alist '("\\.lds" . ld-script-mode)) (add-to-list 'auto-mode-alist '("\\.lds" . ld-script-mode))
...@@ -123,5 +129,7 @@ ...@@ -123,5 +129,7 @@
(set (make-local-variable 'indent-line-function) #'indent-relative) (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 ;;; ld-script.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment