![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to SUN-SUPPORT CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / emacs / etc|
Return to SUN-SUPPORT CVS log | Up to [Apple XNU] / GNUtools / emacs / etc |
1.1 root 1: NOTE: the Free Software Foundation agreed to put this file, and the
2: programs it describes, into the Emacs distribution ONLY on the
3: condition that we would not lift a finger to maintain them! We are
4: willing to *pass along* support for Sun windows, but we are not
5: willing to let it distract us from what we are trying to do. If you
6: have complaints or suggestions about Sun windows support, send them to
7: [email protected], who is the maintainer.
8:
9:
10: The interface between GNU Emacs and Sun windows consists of the program
11: etc/emacstool, the Lisp programs lisp/sun-*.el and lisp/term/sun.el,
12: and the C source file src/sunfns.c. It is documented with a man page,
13: etc/emacstool.1.
14:
15: To enable use of these files and programs, define the configuration
16: switch HAVE_SUN_WINDOWS in src/config.h before compiling Emacs.
17: The definition of HAVE_SUN_WINDOWS must precede the #include m-sun3.h
18: or #include m-sun4.h.
19: If you must change PURESIZE, do so after the #include m-sun3.h
20:
21: This software is based on SunView for Sun UNIX 4.2 Release 3.2,
22: and will not work "as is" on previous releases, eg 3.0 or 3.1.
23:
24: Using Emacstool with GNU Emacs:
25:
26: The GNU Emacs files lisp/term/sun.el, lisp/sun-mouse.el,
27: lisp/sun-fns.el, and src/sunfns.c provide emacs support for the
28: Emacstool and function keys. If your terminal type is SUN (that is,
29: if your environment variable TERM is set to SUN), then Emacs will
30: automatically load the file lisp/term/sun.el. This, in turn, will
31: ensure that sun-mouse.el is autoloaded when any mouse events are
32: detected. It is suggested that sun-mouse and sun-fns be
33: included in your site-init.el file, so that they will always be loaded
34: when running on a Sun workstation. [Increase PURESIZE to 154000].
35:
36: Support for the Sun function keys requires disconnecting the standard
37: Emacs command Meta-[. Therefore, the function keys are supported only
38: if you do (setq sun-esc-bracket t) in your .emacs file.
39:
40: The file src/sunfns.c defines several useful functions for emacs on
41: the Sun. Among these are procedures to pop-up SunView menus, put and
42: get from the SunView selection [STUFF] buffer, and a procedure for
43: changing the cursor icon. If you want to define cursor icons, try
44: using the functions in lisp/sun-cursors.el.
45:
46: The file lisp/sun-mouse.el includes a mass of software for defining
47: bindings for mouse events. Any function can be called or any form
48: evaluated as a result of a mouse event. If you want a pop-up menu,
49: your function can call sun-menu-evaluate. This will bring up a
50: SunView walking menu of your choice.
51:
52: Use the macro (defmenu menu-name &rest menu-items) to define menu
53: objects. Each menu item is a cons of ("string" . VALUE), VALUE is
54: evaluated when the string item is picked. If VALUE is a menu, then a
55: pullright item is created.
56:
57: This version also includes support for copying to and from the
58: sun-windows "stuff" selection. The keyboard bindings defined in
59: lisp/sun-fns.el let you move the current region to the "STUFF"
60: selection and vice versa. Just set point with the left button, set
61: mark with the middle button, (the region is automatically copied to
62: "STUFF") then switch to a shelltool, and "Stuff" will work. Going the
63: other way, the main right button menu contains a "Stuff Selection"
64: command that works just like in shelltool. [The Get and Put function
65: keys are also assigned to these functions, so you don't need the mouse
66: or even emacstool to make this work.]
67:
68: Until someone write code to read the textsw "Selection Shelf", it is
69: not possible to copy directly from a textsw to emacs, you must go through
70: the textsw "STUFF" selection.
71:
72: The Scroll-bar region is not a SunView scrollbar. It really should
73: be called the "Right-Margin" region. The scroll bar region is basically
74: the rightmost five columns (see documentation on variable scrollbar-width).
75: Mouse hits in this region can have special bindings, currently those binding
76: effect scrolling of the window, and so are refered to as the "Scroll-bar"
77: region.
78:
79: For information on what mouse bindings are in effect, use the command
80: M-x Describe-mouse-bindings, or the quick pop-up menu item "Mouse-Help".
81:
82:
83: GNU Emacs EXAMPLES:
84: See definitions in lisp/sun-fns.el for examples.
85:
86: You can redefine the cursor that is displayed in the emacs window.
87: On initialization, it is set to a right arrow. See lisp/sun-cursors.el
88: for additional cursors, how to define them, how to edit them.
89:
90: BUGS:
91: It takes a few milliseconds to create a menu before it pops up.
92: Someone who understands the GNU Garbage Collector might see if it
93: is possible for defmenu to create a SunView menu struct that does
94: not get destroyed by Garbage Collection.
95:
96: An outline of the files used to support Sun Windows and the mouse.
97:
98: etc/SUN-SUPPORT.
99: This document.
100:
101: etc/emacstool.1:
102: Added: an nroff'able man page for emacstool.
103:
104: etc/emacstool.c:
105: Encodes all the function keys internally, and passes non-window
106: system arguments to emacs.
107:
108: etc/emacs.icon:
109: The "Kitchen Sink" GNU Emacs icon.
110:
111: src/sunfns.c:
112: This contains the auxilary functions that allow elisp code to interact
113: with the sunwindows, selection, and menu functions.
114:
115: lisp/sun-mouse.el:
116: Defines the lisp function which is called when a mouse hit is found
117: in the input queue. This handler decodes the mouse hit via a keymap-like
118: structure sensitive to a particular window and where in the window the
119: hit occured (text-region, right-margin, mode-line). Three variables
120: are bound (*mouse-window* *mouse-x* *mouse-y*) and the selected function
121: is called.
122: See documentation on "define-mouse" or look at lisp/sun-fns.el
123: to see how this is done.
124: Defines two functions to pass between region and sun-selection
125: Defines functions for interfacing with the Menu.
126: During menu evaluation, the variables *menu-window* *menu-x* *menu-y* are bound.
127:
128: lisp/sun-fns.el
129: The definition of the default menu and mouse function bindings.
130:
131: lisp/sun-cursors.el
132: Defines a number of alternate cursors, and an editor for them.
133: The editor is also a demonstration of mouse/menu utilization.
134:
135: lisp/term/sun.el
136: Sets up the keymap to make the sun function keys do useful things.
137: Also includes the setup/initialization code for running under emacstool,
138: which makes "\C-Z" just close the emacstool window (-WI emacs.icon).
139:
140: Jeff Peck, Sun Microsystems, Inc <[email protected]>
141:
142:
143: Subject: Making multi-line scrolling really work:
144:
145: In your .defaults file, include the line:
146: /Tty/Retained "Yes"
147: That way, the terminal emulator can do text moves using bitblt,
148: instead of repaint.
149:
150: If that's not enough for you, then tell unix and emacs that
151: the sun terminal supports multi-line and multi-character insert/delete.
152: Add this patch to your /etc/termcap file:
153:
154: *** /etc/termcap.~1~ Mon Sep 15 12:34:23 1986
155: --- /etc/termcap Mon Feb 9 17:34:08 1987
156: ***************
157: *** 32,39 ****
158: --- 32,40 ----
159: Mu|sun|Sun Microsystems Workstation console:\
160: :am:bs:km:mi:ms:pt:li#34:co#80:cl=^L:cm=\E[%i%d;%dH:\
161: :ce=\E[K:cd=\E[J:so=\E[7m:se=\E[m:rs=\E[s:\
162: :al=\E[L:dl=\E[M:im=:ei=:ic=\E[@:dc=\E[P:\
163: + :AL=\E[%dL:DL=\E[%dM:IC=\E[%d@:DC=\E[%dP:\
164: :up=\E[A:nd=\E[C:ku=\E[A:kd=\E[B:kr=\E[C:kl=\E[D:\
165: :k1=\E[224z:k2=\E[225z:k3=\E[226z:k4=\E[227z:k5=\E[228z:\
166: :k6=\E[229z:k7=\E[230z:k8=\E[231z:k9=\E[232z:
167: M-|sun-nic|sune|Sun Microsystems Workstation console without insert character:\
168:
169:
170: If you don't have the program "patch", just add the line:
171: :AL=\E[%dL:DL=\E[%dM:IC=\E[%d@:DC=\E[%dP:\
172:
173: [email protected] says:
174:
175: Those of you using GNU Emacs on Sun workstations under
176: 3.2 may be interested in reducing memory utilization in
177: the emacstool via the Sun toolmerge facility. The technique
178: is described in the Release 3.2 Manual starting on page
179: 71. The following is a summary of how it would apply
180: to merging emacstool into the basetools.
181:
182: 1) Change the main procedure declaration in emacstool.c to:
183:
184: #ifdef SUN_TOOLMERGE
185: emacstool_main (argc, argv);
186: #else
187: main (argc, argv)
188: #endif
189:
190: This will allow creation of either standard or toolmerge
191: versions.
192:
193: 2) Copy emacstool.o into directory /usr/src/sun/suntool.
194: 3) make CFLAGS="-g -DSUN_TOOLMERGE" emacstool.o
195: 4) Add the following line to basetools.h
196:
197: "emacstool",emacstool_main,
198:
199: 5) Add the following line to toolmerge.c.
200:
201: extern emacstool_main();
202:
203: 6) make basetools MOREOBJS="emacstool.o"
204: 7) make install_bins
205:
206: To invoke the toolmerged version, you must exit suntools and
207: re-start it. Make sure that /usr/bin occurs before the directory
208: in which you installed the standard (non-toolmerged) version.
209:
210:
211: Subject: Moving selections between OW and Emacstool/xvetool
212: Date: Wed, 26 Jun 91 18:58:24 PDT
213: From: Jeff Peck <peck>
214:
215: The short answer is that we can Cut and Paste between Emacstool
216: and TTYSW (shelltool) and we can Paste between Emacstool and TEXTSW(cmdtool)
217: and somewhat more slowly move from TEXTSW to Emacstool.
218:
219: **** This interaction with the TTYSW selection is a HACK! ****
220:
221: At end of this message is the code that should be in your sun-mouse.el or .emacs
222:
223: Here's the restrictions on using it:
224:
225: 1. from Shelltool to Emacstool:
226: select text in shelltool and hit COPY.
227: move to Emacstool, hit PASTE. (simple, eh?)
228:
229: For any other movement, you must remember this:
230: "The window system must believe that a shelltool has the current selection."
231: If you do that, then this will all work painlessly.
232: [that will also explain why you can not make a selection in a cmdtool
233: and then directly PASTE it into Emacstool]
234:
235: 2. from Emacstool to Shelltool
236: ensure that a shelltool has the selection: (select something and hit COPY)
237: in emacstool select a region and hit COPY
238: in shelltool hit PASTE. (not too bad, yet)
239:
240: 3. from Emacstool to Cmdtool
241: ensure that a shelltool has the selection:
242: (in a *shelltool* select something and hit COPY)
243: in emacstool select a region and hit COPY
244: in shelltool hit PASTE. (ok, its getting crufty)
245:
246: 4. from Cmdtool to Emacstool
247: select in Cmdtool, hit COPY
248: in a shelltool, % cat > /dev/null
249: then hit PASTE
250: Select the text again, from the shelltool this time. hit COPY
251: in emacstool, hit PASTE
252:
253: 4a. from Cmdtool (or shelltool) to Emacstool
254: the function "sunview-yank-any-selection" should be bound to Meta-PASTE
255: If so, then just:
256: select in Cmdtool
257: in emacstool, hit Meta-PASTE
258:
259: This uses the function "sunview-yank-current-selection"
260: which relies one the (supported) utility "get_selection"
261: As such, it is *not* a hack, but it *IS* SLOW (or slower)
262:
263:
264: If you know that a shelltool *still* has the selection
265: (note: nothing you do with Emacstool or the PASTE key will affect that)
266: then the "ensure..." line is a NO-OP.
267:
268: Note that using COPY in emacstool will change the *value* of the selection
269: behind the window systems back:
270: the holder of the selection doesn't know of this,
271: the window system doesn't know of this,
272: and the highlighted text *WILL NOT CHANGE*
273:
274: Turns out the selection value is written into a /tmp/ttyselection file
275: and emacs just rewrites that file, clever, eh?
276:
277:
278: Your version of sun-mouse.el should include these functions
279: (or put them into your .emacs)
280:
281:
282: ;;; define the selection file used by this emacs
283: ;;; if not local machine, then automounter must find /net/<host>/tmp
284: (defconst owselectionfile
285: (let ((display (getenv "DISPLAY")))
286: (if (null display)
287: nil ; no DISPLAY variable -- return nil
288: (let ((colon_at (string-match ":" display)))
289: (if (null colon_at)
290: nil ; no colon in environment variable -- return nil
291: (if (zerop colon_at)
292: "/tmp/ttyselection" ; colon is first character
293: (concat "/net/" (substring display 0 colon_at) "/tmp/ttyselection")
294: )))))
295: )
296:
297: (defun xv-yank-selection ()
298: "Set mark and yank the contents of the current Xview selection
299: into the current buffer at point. The STUFF selection contains the currently
300: or previously highlighted text from a TTYSW."
301: (interactive "*")
302: (insert-file owselectionfile)
303: (exchange-point-and-mark)
304: )
305:
306: (defun xv-select-region (beg end)
307: "Set the TTYSW selection to the region in the current buffer."
308: (interactive "r")
309: (write-region beg end owselectionfile nil 'noprint)
310: )
311:
312: You can then bind these to Copy and Paste in your .emacs
313:
314: (setq suntool-map-hooks '( ; not your usual hook list
315: (define-key suntool-map "fl" 'xv-select-region) ; L6 Copy
316: (define-key suntool-map "hl" 'xv-yank-selection) ; L8 Paste
317: )
318: )
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.