Mercurial > emacs
annotate vms/make-mms-derivative.el @ 82988:f82e3a6f5ccb
A few more bugfixes and new features.
(Sigh.) I obviously need to remember to separate individual changes
to multiple commits.
src/emacsclient.c: Improved error handling.
(decode_options): Changed frame option (again) from -f to -t.
(print_help_and_exit): Ditto.
(copy_from_to): Check EINTR after write, not EAGAIN. Removed SIGIO hack.
(pty_conversation): Handle errors transmitted through the socket.
Handle pty errors by not reading from it anymore.
(main): Restore correct errno after socket_status failed. Send -tty
on -t, not -pty.
lisp/server.el (server-process-filter): Watch -tty, not -pty.
Use make-frame-on-tty instead of make-terminal-frame.
Don't set newframe to t if make-frame-on-tty failed.
Don't delete frames here. Print correct message when there are no
files to edit, but a new frame was requested.
(server-sentinel): Delete the frame after the process.
(server-handle-delete-frame): New function for delete-frame-functions.
(server-start): Add server-handle-delete-frame to delete-frame-functions.
(server-buffer-done): Don't delete frames here.
src/alloc.c (mark_ttys): Add prototype.
(Fgarbage_collect): Call mark_ttys.
src/emacs.c: (shut_down_emacs): Don't flush stdout before
reset_sys_modes().
src/process.c (add_keyboard_wait_descriptor_called_flag): Removed.
(add_keyboard_wait_descriptor): Removed stdin hack.
src/sysdep.c: Unconditionally include sysselect.h.
(old_fcntl_flags): Changed to an array.
(init_sigio, reset_sigio): Use it.
(narrow_foreground_group, widen_foreground_group): Use setpgid, not
setpgrp.
(old_fcntl_owner): Changed to an array.
(init_sys_modes, reset_sys_modes): Use it. Fix fsync() and reset_sigio() calls.
src/term.c (Qframe_tty_name, Qframe_tty_type): New variables.
(syms_of_term): Initialize them.
(Fframe_tty_name, Fframe_tty_type): New functions.
(term_init): Call add_keyboard_wait_descriptor().
(Fdelete_tty): New function.
(delete_tty): Call delete_keyboard_wait_descriptor().
(get_current_tty): Removed.
(mark_ttys): New function.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-28
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Wed, 31 Dec 2003 05:09:29 +0000 |
parents | d6dc58f9beaa |
children | e5d5ea6a58f1 |
rev | line source |
---|---|
53152 | 1 ;;; make-mms-derivative.el --- framework to do horrible things for VMS support |
2 | |
3 ;; Copyright (C) 2003 Free Software Foundation, Inc. | |
4 | |
5 ;; Author: Thien-Thi Nguyen <ttn@gnu.org> | |
6 ;; Keywords: maint build vms mms makefile levitte autoconf war-is-a-lose | |
7 ;; Favorite-TV-Game-Show: L'Eredità | |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs 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 ;; GNU Emacs 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 GNU Emacs; 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 ;;; Commentary: | |
27 | |
28 ;; Under OpenVMS the standard make-like program is called MMS, which | |
29 ;; looks for an input file in the default directory named DESCRIP.MMS | |
30 ;; and runs the DCL command rules therein. As of 2003, the build | |
31 ;; process requires a hand translation of the Makefile.in and related | |
32 ;; Emacs-specific methodology to DCL and TPU commands, so to alleviate | |
33 ;; this pain, we provide `make-mms-derivative', which given a source | |
34 ;; FILENAME (under `make-mms-derivative-root-dir'), inserts the file | |
53153
95cc51c7ff64
(make-mms-derivative): Use suffix "-2mms"
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53152
diff
changeset
|
35 ;; contents in a new buffer and loads FILENAME-2mms. The elisp in the |
95cc51c7ff64
(make-mms-derivative): Use suffix "-2mms"
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53152
diff
changeset
|
36 ;; -2mms file can (do whatever -- it's emacs -- and) arrange to write |
95cc51c7ff64
(make-mms-derivative): Use suffix "-2mms"
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53152
diff
changeset
|
37 ;; out the modified buffer after FILENAME-2mms loading by using: |
53152 | 38 ;; |
39 ;; (make-mms-derivative-data 'write-under-root RELATIVE-FILENAME) | |
40 ;; | |
41 ;; where RELATIVE-FILENAME is something like "src/descrip.mms_in_in". | |
42 ;; Over the long run, the convenience procedures provided (see source) | |
53153
95cc51c7ff64
(make-mms-derivative): Use suffix "-2mms"
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53152
diff
changeset
|
43 ;; will be augmented by factoring maximally the -2mms files, squeezing |
53152 | 44 ;; as much algorithm out of those nasty heuristics as possible. What |
45 ;; makes them nasty is not that they rely on the conventions of the | |
46 ;; Emacs makefiles; that's no big deal. What makes them nasty is that | |
47 ;; they rely on the conventions of separately maintained tools (namely | |
48 ;; Autoconf 1.11 under OpenVMS and the rest of GNU), and the separation | |
49 ;; of conventions is how people drift apart, dragging their software | |
50 ;; behind mercilessly. | |
51 ;; | |
52 ;; In general, codified thought w/o self-synchronization is doomed. | |
53 ;; That a generation would eat its young (most discriminatingly, even) | |
54 ;; is no reason GNU cannot build around such woe. | |
55 | |
56 ;;; Code: | |
57 | |
53186
d6dc58f9beaa
(make-mms-derivative-root-dir): Update.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53156
diff
changeset
|
58 (defvar make-mms-derivative-root-dir "AXPA:[TTN.EMACS.EMACS212_3]" |
53152 | 59 "Source tree root directory.") |
60 | |
61 (defvar make-mms-derivative-data nil | |
62 "Alist of data specific to `make-mms-derivative'.") | |
63 | |
64 (defun make-mms-derivative-data (key &optional newval) | |
65 (if newval | |
66 (setq make-mms-derivative-data | |
67 (cons (cons key newval) make-mms-derivative-data)) | |
68 (cdr (assq key make-mms-derivative-data)))) | |
69 | |
70 (defun make-mms-derivative-write-under-root (rel-filename) | |
71 (write-file (expand-file-name rel-filename make-mms-derivative-root-dir))) | |
72 | |
73 (defmacro make-mms-derivative-progn (msg &rest body) | |
74 `(progn | |
75 (message "(%s) %s" (point) ,msg) | |
76 ,@body)) | |
77 | |
78 (put 'make-mms-derivative-progn 'lisp-indent-function 1) | |
79 | |
80 (defun make-mms-derivative-load-edits-file (name) | |
81 (make-mms-derivative-data 'edits-filename name) | |
53156
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
82 (let (raw-data |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
83 (cur (current-buffer)) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
84 (wbuf (get-buffer-create "*make-mms-derivative-load-edits-file work"))) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
85 (set-buffer wbuf) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
86 (insert-file-contents name) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
87 (keep-lines "^;;;[0-9]+;;") |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
88 (goto-char (point-max)) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
89 (while (re-search-backward "^;;;\\([0-9]+\\);;\\(.*\\)$" (point-min) t) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
90 (let* ((i (string-to-number (match-string 1))) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
91 (line (match-string 2)) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
92 (look (assq i raw-data))) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
93 (if look |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
94 (setcdr look (cons line (cdr look))) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
95 (setq raw-data (cons (list i line) raw-data))))) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
96 (kill-buffer wbuf) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
97 (set-buffer cur) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
98 (mapcar '(lambda (ent) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
99 (setcdr ent (mapconcat '(lambda (line) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
100 (concat line "\n")) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
101 (cdr ent) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
102 ""))) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
103 raw-data) |
4d79ab10fd56
(make-mms-derivative-load-edits-file): Rewrite
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53155
diff
changeset
|
104 (make-mms-derivative-data 'raw-data raw-data)) |
53152 | 105 (load name)) |
106 | |
107 (defun make-mms-derivative-insert-raw-data (n) | |
108 (insert (cdr (assq n (make-mms-derivative-data 'raw-data))))) | |
109 | |
110 (defun make-mms-derivative (file) | |
111 (interactive "fSource File: ") | |
112 (let ((root (expand-file-name make-mms-derivative-root-dir)) | |
113 (file (expand-file-name file))) | |
53186
d6dc58f9beaa
(make-mms-derivative-root-dir): Update.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53156
diff
changeset
|
114 (when (file-name-absolute-p (file-relative-name file root)) |
53152 | 115 (error "Not under root (%s)" root)) |
53153
95cc51c7ff64
(make-mms-derivative): Use suffix "-2mms"
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53152
diff
changeset
|
116 (let ((edits-filename (concat file "-2mms"))) |
53152 | 117 (unless (file-exists-p edits-filename) |
118 (error "Could not find %s" edits-filename)) | |
53186
d6dc58f9beaa
(make-mms-derivative-root-dir): Update.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53156
diff
changeset
|
119 (let ((buf (get-buffer-create |
d6dc58f9beaa
(make-mms-derivative-root-dir): Update.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53156
diff
changeset
|
120 (format "*mms-derivative: %s" |
d6dc58f9beaa
(make-mms-derivative-root-dir): Update.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
53156
diff
changeset
|
121 (file-relative-name file root))))) |
53152 | 122 (message "Munging ...") |
123 (switch-to-buffer buf) | |
124 (erase-buffer) | |
125 (make-variable-buffer-local 'make-mms-derivative-data) | |
126 (insert-file file) | |
127 (make-mms-derivative-load-edits-file edits-filename) | |
128 (let ((out (make-mms-derivative-data 'write-under-root))) | |
129 (when out (make-mms-derivative-write-under-root out)) | |
130 (kill-buffer buf) | |
131 (unless out (message "Munging ... done"))))))) | |
132 | |
133 (provide 'make-mms-derivative) | |
134 | |
53155 | 135 ;;; arch-tag: a5b08625-3952-4053-be16-296220e27bb0 |
53152 | 136 ;;; make-mms-derivative.el ends here |