|
|
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.