|
|
1.1 root 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
8: the Free Software Foundation; either version 1, or (at your option)
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: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.