Mercurial > hg > xemacs-beta
annotate lisp/tty-init.el @ 1330:4542b72c005e
[xemacs-hg @ 2003-03-01 07:25:26 by ben]
build patch
Makefile.in.in: Move src deletions to src/Makefile.in.in.
dump-paths.el, dumped-lisp.el: Delete. Combine stuff into setup-paths.el.
find-paths.el: Removed.
Make this file contain generic routines only. Move stuff to
compute Emacs roots to setup-paths.el.
startup.el: Removed.
Move these variables into setup-paths.el.
setup-paths.el, startup.el: Removed.
Combine all high-level code for computing the paths into
setup-paths.el. Create new function startup-find-load-path to
encapsulate all logic for computing `load-path'. Eliminate
invocation-directory and invocation-name parameters since
there is no point (false generality) -- the code references
other globals, which cannot be specified. Eliminate some code
duplicated between setup-paths.el and startup.el. Clean up
the debug-paths code and output load-path in addition.
Add logic to paths-emacs-root-p to support separated source
and build trees.
loadup.el, make-docfile.el, update-elc-2.el, update-elc.el: Rewrite to allow for separated source and build trees, as may occur
in MS Windows.
NOTE TO BUILD HACKERS:
loadup.el, make-docfile.el, update-elc.el and update-elc-2.el made two
assumptions that are no longer correct:
(1) The source and build trees are in the same place.
(2) They can make assumptions about where `.' is.
These files now compute the locations of the source and build
roots at the top of the file. *ALL* constant file names or path
snippets must now be made absolute using expand-file-name and one
of these roots.
dumped-lisp.el, packages.el: Removed.
Remove some unused lists of Lisp files. packages-hardcoded-lisp
(empty, in any case) moved to dumped-lisp.el.
startup.el: When a compiled init file is out-of-date wrt the uncompiled
version, load the uncompiled version and issue a nasty warning.
update-elc-2.el: Force touching of auto-autoloads files when REBUILD_AUTOLOADS
was set.
update-elc.el: Fix code that checks whether dumping is necessary to check against
xemacs.dmp, not xemacs.exe, when Unix and pdump.
lwlib-Xm.c: Fix compile warning.
README, config.inc.samp, xemacs.mak: -- Major reorganization and cleanup.
-- Add support for separated build tree and source tree.
-- Delete all support for X Windows building, since it's
totally bit-rotten and will never be fixed up. Instruct
people to use Cygwin if they want such support.
make-build-dir: New script to create a skeleton build tree for use with
separated build and source tree compilation.
m/acorn.h, m/alliant-2800.h, m/alliant.h, m/altos.h, m/amdahl.h, m/arm.h, m/att3b.h, m/aviion.h, m/clipper.h, m/cnvrgnt.h, m/convex.h, m/cydra5.h, m/delta.h, m/delta88k.h, m/dpx2.h, m/elxsi.h, m/ews4800r.h, m/gould.h, m/hp800.h, m/hp9000s300.h, m/i860.h, m/ibmps2-aix.h, m/ibmrs6000.h, m/ibmrt-aix.h, m/ibmrt.h, m/intel386.h, m/iris4d.h, m/iris5d.h, m/iris6d.h, m/irist.h, m/m68k.h, m/masscomp.h, m/mg1.h, m/mips-nec.h, m/mips-siemens.h, m/mips.h, m/nh3000.h, m/nh4000.h, m/ns32000.h, m/plexus.h, m/powerpc.h, m/sequent-ptx.h, m/sequent.h, m/sgi-challenge.h, m/stride.h, m/tad68k.h, m/targon31.h, m/tekxd88.h, m/template.h, m/tower32.h, m/tower32v3.h, m/ustation.h, m/wicat.h, m/xps100.h, data.c, doc.c, editfns.c, emacs.c, lrecord.h, ntheap.c, process-unix.c, sysdep.c, unexec.c: Delete all support for bit-rotten CANNOT_DUMP. Just use pdump.
Makefile.in.in: Lots o' cleanup. Use names like LISP, SRC instead of
lispdir, srcdir, for consistency with xemacs.mak and the
conventions in the rest of the file. Eliminate use of ${...}
in favor of $(...), to make it easier to move code between
this file and xemacs.mak. Fix dependency handling wrt
NEEDTODUMP to eliminate problems some people (e.g. Vin) have
been seeing with non-GNU makes. Write a long section about
the subtle but oh-so-important differences in dependency
processing between nmake, make, and GNU make. Add
unicode-encapsulate target, from xemacs.mak.
chartab.c, lrecord.h: Fix crash due to attempt to free objects across dump/undump.
author | ben |
---|---|
date | Sat, 01 Mar 2003 07:25:56 +0000 |
parents | 7039e6323819 |
children | e34711681f30 |
rev | line source |
---|---|
428 | 1 ;;; tty-init.el --- initialization code for tty's |
2 | |
3 ;; Copyright (C) 1994, 1997 Free Software Foundation, Inc. | |
4 ;; Copyright (C) 1996 Ben Wing <ben@xemacs.org>. | |
5 | |
6 ;; Maintainer: XEmacs Development Team | |
7 ;; Keywords: terminals, dumped | |
8 | |
9 ;; This file is part of XEmacs. | |
10 | |
11 ;; XEmacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; XEmacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with XEmacs; see the file COPYING. If not, write to the | |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
25 | |
26 ;;; Synched up with: Not synched. | |
27 | |
28 ;;; Commentary: | |
29 | |
30 ;; This file is dumped with XEmacs (when TTY support is compiled in). | |
31 | |
32 ;;; Code: | |
33 | |
34 (defvar pre-tty-win-initted nil) | |
35 | |
36 ;; called both from init-tty-win and from the C code. | |
37 (defun init-pre-tty-win () | |
38 "Initialize TTY at startup (pre). Don't call this." | |
502 | 39 (with-fboundp 'register-tty-color |
40 (unless pre-tty-win-initted | |
41 (register-tty-color "black" "\e[30m" "\e[40m") | |
42 (register-tty-color "red" "\e[31m" "\e[41m") | |
43 (register-tty-color "green" "\e[32m" "\e[42m") | |
44 (register-tty-color "yellow" "\e[33m" "\e[43m") | |
45 (register-tty-color "blue" "\e[34m" "\e[44m") | |
46 (register-tty-color "magenta" "\e[35m" "\e[45m") | |
47 (register-tty-color "cyan" "\e[36m" "\e[46m") | |
48 (register-tty-color "white" "\e[37m" "\e[47m") | |
428 | 49 |
502 | 50 ;; Define `highlighted' tty colors |
51 (register-tty-color "darkgrey" "\e[1;30m" "\e[1;40m") | |
52 (register-tty-color "brightred" "\e[1;31m" "\e[1;41m") | |
53 (register-tty-color "brightgreen" "\e[1;32m" "\e[1;42m") | |
54 (register-tty-color "brightyellow" "\e[1;33m" "\e[1;43m") | |
55 (register-tty-color "brightblue" "\e[1;34m" "\e[1;44m") | |
56 (register-tty-color "brightmagenta" "\e[1;35m" "\e[1;45m") | |
57 (register-tty-color "brightcyan" "\e[1;36m" "\e[1;46m") | |
58 (register-tty-color "brightwhite" "\e[1;37m" "\e[1;47m") | |
428 | 59 |
502 | 60 (setq pre-tty-win-initted t)))) |
428 | 61 |
62 ;; called both from init-tty-win and from the C code. | |
63 ;; we have to do this for every created TTY console. | |
64 (defun init-post-tty-win (console) | |
65 "Initialize TTY at console creation time (post). Don't call this." | |
66 ;; load the appropriate term-type-specific Lisp file. | |
67 ;; we don't do this at startup here so that the user can | |
68 ;; override term-file-prefix. (startup.el does it after | |
69 ;; loading the init file.) | |
70 (if (featurep 'mule) | |
502 | 71 (declare-fboundp (init-mule-tty-win))) |
428 | 72 (when init-file-loaded |
73 ;; temporarily select the console so that the changes | |
74 ;; to function-key-map are made for the right console. | |
75 (let ((foobar (selected-console))) | |
76 (unwind-protect | |
77 (progn | |
78 (select-console console) | |
79 (load-terminal-library)) | |
80 (select-console foobar))))) | |
81 | |
82 (defvar tty-win-initted nil) | |
83 | |
84 (defun init-tty-win () | |
85 "Initialize TTY at startup. Don't call this." | |
86 (unless tty-win-initted | |
87 (init-pre-tty-win) | |
88 (make-tty-device nil nil) | |
89 (init-post-tty-win (selected-console)) | |
90 (setq tty-win-initted t))) | |
91 | |
92 (defun make-frame-on-tty (tty &optional props) | |
93 "Create a frame on the TTY connection named TTY. | |
94 TTY should be a TTY device name such as \"/dev/ttyp3\" (as returned by | |
95 the `tty' command in that TTY), or nil for the standard input/output | |
96 of the running XEmacs process. | |
97 | |
98 PROPS should be a plist of properties, as in the call to `make-frame'. | |
99 | |
100 This function opens a connection to the TTY or reuses an existing | |
101 connection. | |
102 | |
103 This function is a trivial wrapper around `make-frame-on-device'." | |
104 (interactive "sMake frame on TTY: ") | |
105 (if (equal tty "") (setq tty nil)) | |
106 (make-frame-on-device 'tty tty props)) | |
107 | |
108 ;;; tty-init.el ends here |