From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Masatake YAMATO Newsgroups: gmane.emacs.devel Subject: ld-script.el Date: Fri, 22 Aug 2003 19:23:10 +0900 (JST) Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <20030822.192310.77039681.jet@gyve.org> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: Text/Plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1061573869 7922 80.91.224.253 (22 Aug 2003 17:37:49 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 22 Aug 2003 17:37:49 +0000 (UTC) Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Fri Aug 22 19:37:48 2003 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19qFr9-0001Cb-00 for ; Fri, 22 Aug 2003 19:37:47 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 19qFvQ-0002PO-00 for ; Fri, 22 Aug 2003 19:42:12 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.20) id 19qF7h-0001ff-AK for emacs-devel@quimby.gnus.org; Fri, 22 Aug 2003 12:50:49 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.20) id 19q9Ne-0001dh-9I for emacs-devel@gnu.org; Fri, 22 Aug 2003 06:42:54 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.20) id 19q9Ji-0000ZT-GN for emacs-devel@gnu.org; Fri, 22 Aug 2003 06:39:21 -0400 Original-Received: from [210.130.136.36] (helo=mo01.spacetown.ne.jp) by monty-python.gnu.org with esmtp (Exim 4.20) id 19q94i-0004rZ-EF for emacs-devel@gnu.org; Fri, 22 Aug 2003 06:23:20 -0400 Original-Received: from r-maa.spacetown.ne.jp (r-maa.spacetown.ne.jp [210.130.136.40]) by mo01.spacetown.ne.jp (8.8.8/MFO1.3) with ESMTP id TAA20323 for ; Fri, 22 Aug 2003 19:22:07 +0900 (JST) Original-Received: from localhost (mx.jp.redhat.com [219.96.218.186]) by r-maa.spacetown.ne.jp (8.11.6) with ESMTP id h7MANCJ19153 for ; Fri, 22 Aug 2003 19:23:13 +0900 (JST) Original-To: emacs-devel@gnu.org X-Mailer: Mew version 3.1.52 on Emacs 21.3 / Mule 5.0 (SAKAKI) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:16069 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:16069 I wrote very cheap GNU ld linker script mode. This provides only font lock keywords. To cheap to add this to emacs? Masatake YAMATO ;;; ld-script.el --- GNU linker script editing mode for Emacs ;;; Copyright (C) 2003 Masatake YAMATO ;; Author: Masatake YAMATO ;; Keywords: languages, faces ;; 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) ;; any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; 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. ;;; Codes: ;; Custom (defgroup ld-script nil "GNU linker script code editing commands for Emacs." :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 :foreground "Blue"))) "Face for location counter in GNU ld script." :group 'ld-script) ;; Syntax rules (defvar ld-script-mode-syntax-table (let ((st (make-syntax-table))) (modify-syntax-entry ?\ "-" st) (modify-syntax-entry ?{ "(}" st) (modify-syntax-entry ?} "){" st) (modify-syntax-entry ?\( "()" st) (modify-syntax-entry ?\) ")(" st) (modify-syntax-entry ?\[ "(]" st) (modify-syntax-entry ?\] ")[" st) (modify-syntax-entry ?_ "w" st) (modify-syntax-entry ?. "_" st) (modify-syntax-entry ?\\ "\\" st) (modify-syntax-entry ?: "." st) (modify-syntax-entry ?, "." st) (modify-syntax-entry ?? "." st) (modify-syntax-entry ?= "." st) (modify-syntax-entry ?* ". 23" st) (modify-syntax-entry ?/ ". 14" st) (modify-syntax-entry ?+ "." st) (modify-syntax-entry ?- "." st) (modify-syntax-entry ?! "." st) (modify-syntax-entry ?~ "." st) (modify-syntax-entry ?% "." st) (modify-syntax-entry ?< "." st) (modify-syntax-entry ?> "." st) (modify-syntax-entry ?& "." st) (modify-syntax-entry ?| "." st) (modify-syntax-entry ?\" "\"" st) st) "Syntax table used while in `ld-script-mode'.") ;; Font lock keywords (defvar ld-script-keywords '("ENTRY" "INCLUDE" "INPUT" "GROUP" "OUTPUT" "SEARCH_DIR" "STARTUP" "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" "NOLOAD" "DSECT" "COPY" "INFO" "OVERLAY" "AT" "MEMORY" "PHDRS" "FILEHDR" "FLAGS" "PT_NULL" "PT_LOAD" "PT_DYNAMIC" "PT_INTERP" "PT_NONE" "PT_SHLIB" "PT_PHDR" "VERSION") "Keywords used of GNU ld script.") (defvar ld-script-builtins '("ABSOLUTE" "ADDR" "ALIGN" "BLOCK" "DEFINED" "LOADADDR" "MAX" "MIN" "NEXT" "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'.") ;;;###autoload (add-to-list 'auto-mode-alist '("\\.lds" . 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))) ;;; ld-script.el ends here