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
|
|
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
|
19
|
|
20 /* Define these variables that serve as global parameters to termcap,
|
|
21 so that we do not need to conditionalize the places in Emacs
|
|
22 that set them. */
|
|
23
|
|
24 char *UP, *BC, PC;
|
|
25 short ospeed;
|
|
26
|
|
27 static buffer[512];
|
|
28
|
|
29 /* Interface to curses/terminfo library.
|
|
30 Turns out that all of the terminfo-level routines look
|
|
31 like their termcap counterparts except for tparm, which replaces
|
|
32 tgoto. Not only is the calling sequence different, but the string
|
|
33 format is different too.
|
|
34 */
|
|
35
|
|
36 char *
|
|
37 tparam (string, outstring, len, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9)
|
|
38 char *string;
|
|
39 char *outstring;
|
|
40 int arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9;
|
|
41 {
|
|
42 char *temp;
|
|
43 extern char *tparm();
|
|
44
|
|
45 temp = tparm (string, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9);
|
|
46 if (outstring == 0)
|
|
47 outstring = ((char *) (malloc ((strlen (temp)) + 1)));
|
|
48 strcpy (outstring, temp);
|
|
49 return outstring;
|
|
50 }
|