Mercurial > emacs
view lisp/progmodes/ld-script.el @ 83619:5da6a46ddbd6
* s/darwin.h (SYSTEM_PURESIZE_EXTRA): Define here.
* termhooks.h (union display_info): Add mac_display_info.
* term.c (init_tty): Only use terminal->kboard when MULTI_KBOARD
is defined.
* macterm.h (struct mac_display_info): Add terminal.
* w32term.c (w32_initialize): Make static.
* macterm.c (XTset_terminal_modes): Add a terminal parameter.
(XTreset_terminal_modes): Likewise.
(x_clear_frame): Add a frame parameter.
(note_mouse_movement): Get rif from the frame.
(mac_term_init): Initialize the terminal.
(mac_initialize): Make static and move terminal initialization ...
(mac_create_terminal): ... in this new function.
* macmenu.c: Reorder includes.
(Fx_popup_menu): Use terminal specific mouse_position_hook.
* macfns.c (x_set_mouse_color): Get rif from the frame.
(x_set_tool_bar_lines): Don't use updating_frame.
(mac_window): Add 2 new parameters for consistency with other
systems.
(Fx_create_frame): Fix doc string. Rename the parameter.
(Fx_create_frame): Set the frame parameters following what is done
in X11 and w32.
(Fx_open_connection): Remove window-system check.
(start_hourglass): Likewise.
(x_create_tip_frame): Get the keyboard from the terminal.
* w32fns.c (Fx_create_frame): Use kboard from the terminal.
* term/mac-win.el: Provide mac-win.
(mac-initialized): New variable.
(mac-initialize-window-system): New function. Move global setup
here.
(handle-args-function-alist, frame-creation-function-alist):
(window-system-initialization-alist): Add mac entries.
* loadup.el: Load mac-win on a Mac.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Sat, 19 May 2007 19:08:02 +0000 |
parents | e3694f1cb928 |
children | c1ec1c8a8d2e 95d0cdf160ea |
line wrap: on
line source
;;; ld-script.el --- GNU linker script editing mode for Emacs ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007 ;; 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) ;; 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., 51 Franklin Street, Fifth Floor, ;; Boston, MA 02110-1301, USA. ;;; Commentary: ;; Major mode for editing GNU linker (ld) scripts. ;;; Code: ;; 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) (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 (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 ;; (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" ;; 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_HIDDEN" ;; 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.") ;; 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 (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 '("\\.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 'font-lock-defaults) '(ld-script-font-lock-keywords nil))) (provide 'ld-script) ;; arch-tag: 83280b6b-e6fc-4d00-a630-922d7aec5593 ;;; ld-script.el ends here