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