|
|
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 distributed in the hope that it will be useful, ! 7: but WITHOUT ANY WARRANTY. No author or distributor ! 8: accepts responsibility to anyone for the consequences of using it ! 9: or for whether it serves any particular purpose or works at all, ! 10: unless he says so in writing. Refer to the GNU Emacs General Public ! 11: License for full details. ! 12: ! 13: Everyone is granted permission to copy, modify and redistribute ! 14: GNU Emacs, but only under the conditions described in the ! 15: GNU Emacs General Public License. A copy of this license is ! 16: supposed to have been given to you along with GNU Emacs so you ! 17: can know your rights and responsibilities. It should be in a ! 18: file named COPYING. Among other things, the copyright notice ! 19: and this notice must be preserved on all copies. */ ! 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: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.