|
|
1.1 ! root 1: /********************************************************************* ! 2: * COPYRIGHT NOTICE * ! 3: ********************************************************************** ! 4: * This software is copyright (C) 1982 by Pavel Curtis * ! 5: * * ! 6: * Permission is granted to reproduce and distribute * ! 7: * this file by any means so long as no fee is charged * ! 8: * above a nominal handling fee and so long as this * ! 9: * notice is always included in the copies. * ! 10: * * ! 11: * Other rights are reserved except as explicitly granted * ! 12: * by written permission of the author. * ! 13: * Pavel Curtis * ! 14: * Computer Science Dept. * ! 15: * 405 Upson Hall * ! 16: * Cornell University * ! 17: * Ithaca, NY 14853 * ! 18: * * ! 19: * Ph- (607) 256-4934 * ! 20: * * ! 21: * Pavel.Cornell@Udel-Relay (ARPAnet) * ! 22: * decvax!cornell!pavel (UUCPnet) * ! 23: *********************************************************************/ ! 24: ! 25: /* ! 26: ** lib_initscr.c ! 27: ** ! 28: ** The routine initscr(). ! 29: ** ! 30: ** $Log: RCS/lib_initscr.v $ ! 31: * Revision 2.1 82/10/25 14:47:36 pavel ! 32: * Added Copyright Notice ! 33: * ! 34: * Revision 2.0 82/10/25 13:45:54 pavel ! 35: * Beta-one Test Release ! 36: * ! 37: ** ! 38: */ ! 39: ! 40: #ifdef RCSHDR ! 41: static char RCSid[] = ! 42: "$Header: RCS/lib_initscr.v Revision 2.1 82/10/25 14:47:36 pavel Exp$"; ! 43: #endif ! 44: ! 45: #include "curses.h" ! 46: #include "curses.priv.h" ! 47: ! 48: ! 49: WINDOW * ! 50: initscr() ! 51: { ! 52: char *getenv(); ! 53: #ifdef TRACE ! 54: _init_trace(); ! 55: ! 56: if (_tracing) ! 57: _tracef("initscr() called"); ! 58: #endif ! 59: ! 60: if (newterm(getenv("TERM"), stdout) == ERR) ! 61: return(ERR); ! 62: else ! 63: return(stdscr); ! 64: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.