484
|
1 /* Interface from Emacs to terminfo.
|
|
2 Copyright (C) 1985, 1986 Free Software Foundation, Inc.
|
|
3
|
|
4 This file is part of GNU Emacs.
|
|
5
|
|
6 GNU Emacs is free software; you can redistribute it and/or modify
|
|
7 it under the terms of the GNU General Public License as published by
|
3427
|
8 the Free Software Foundation; either version 2, or (at your option)
|
484
|
9 any later version.
|
|
10
|
|
11 GNU Emacs is distributed in the hope that it will be useful,
|
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
14 GNU General Public License for more details.
|
|
15
|
|
16 You should have received a copy of the GNU General Public License
|
|
17 along with GNU Emacs; see the file COPYING. If not, write to
|
14186
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
19 Boston, MA 02111-1307, USA. */
|
484
|
20
|
|
21 /* Define these variables that serve as global parameters to termcap,
|
|
22 so that we do not need to conditionalize the places in Emacs
|
|
23 that set them. */
|
|
24
|
|
25 char *UP, *BC, PC;
|
|
26 short ospeed;
|
|
27
|
|
28 static buffer[512];
|
|
29
|
|
30 /* Interface to curses/terminfo library.
|
|
31 Turns out that all of the terminfo-level routines look
|
|
32 like their termcap counterparts except for tparm, which replaces
|
|
33 tgoto. Not only is the calling sequence different, but the string
|
|
34 format is different too.
|
|
35 */
|
|
36
|
|
37 char *
|
|
38 tparam (string, outstring, len, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9)
|
|
39 char *string;
|
|
40 char *outstring;
|
|
41 int arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9;
|
|
42 {
|
|
43 char *temp;
|
|
44 extern char *tparm();
|
|
45
|
|
46 temp = tparm (string, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9);
|
|
47 if (outstring == 0)
|
|
48 outstring = ((char *) (malloc ((strlen (temp)) + 1)));
|
|
49 strcpy (outstring, temp);
|
|
50 return outstring;
|
|
51 }
|