ncurses 6.1 - patch 20190810
[ncurses.git] / ncurses / base / lib_initscr.c
index 9a89a077cd44822bf0baf696f4477d8d670ec18c..60f5e4d0d3932384c715af791727ef2ed87c4930 100644 (file)
@@ -1,5 +1,5 @@
 /****************************************************************************
- * Copyright (c) 1998 Free Software Foundation, Inc.                        *
+ * Copyright (c) 1998-2017,2019 Free Software Foundation, Inc.              *
  *                                                                          *
  * Permission is hereby granted, free of charge, to any person obtaining a  *
  * copy of this software and associated documentation files (the            *
@@ -29,6 +29,7 @@
 /****************************************************************************
  *  Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995               *
  *     and: Eric S. Raymond <esr@snark.thyrsus.com>                         *
+ *     and: Thomas E. Dickey                        1996-on                 *
  ****************************************************************************/
 
 /*
 */
 
 #include <curses.priv.h>
-#include <tic.h>       /* for MAX_ALIAS */
 
 #if HAVE_SYS_TERMIO_H
-#include <sys/termio.h>        /* needed for ISC */
+#include <sys/termio.h>                /* needed for ISC */
 #endif
 
-MODULE_ID("$Id: lib_initscr.c,v 1.26 1998/12/19 23:10:09 tom Exp $")
+MODULE_ID("$Id: lib_initscr.c,v 1.44 2019/06/22 00:02:01 tom Exp $")
 
-WINDOW *initscr(void)
+NCURSES_EXPORT(WINDOW *)
+initscr(void)
 {
-static bool initialized = FALSE;
-NCURSES_CONST char *name;
-int value;
+    WINDOW *result;
 
-       T((T_CALLED("initscr()")));
-       /* Portable applications must not call initscr() more than once */
-       if (!initialized) {
-               initialized = TRUE;
+    START_TRACE();
+    T((T_CALLED("initscr()")));
 
-               if ((name = getenv("TERM")) == 0
-                || *name == '\0')
-                       name = "unknown";
-               if (newterm(name, stdout, stdin) == 0) {
-                       fprintf(stderr, "Error opening terminal: %s.\n", name);
-                       exit(EXIT_FAILURE);
-               }
+    _nc_init_pthreads();
+    _nc_lock_global(curses);
 
-               /* allow user to set maximum escape delay from the environment */
-               if ((value = _nc_getenv_num("ESCDELAY")) >= 0) {
-                       ESCDELAY = value;
-               }
+    /* Portable applications must not call initscr() more than once */
+    if (!_nc_globals.init_screen) {
+       const char *env;
+       char *name;
 
-               /* def_shell_mode - done in newterm/_nc_setupscreen */
-               def_prog_mode();
+       _nc_globals.init_screen = TRUE;
+
+       if ((env = getenv("TERM")) == 0
+           || *env == '\0') {
+           env = "unknown";
+       }
+       if ((name = strdup(env)) == NULL) {
+           fprintf(stderr, "Error opening allocating $TERM.\n");
+           ExitProgram(EXIT_FAILURE);
+       }
+#ifdef __CYGWIN__
+       /*
+        * 2002/9/21
+        * Work around a bug in Cygwin.  Full-screen subprocesses run from
+        * bash, in turn spawned from another full-screen process, will dump
+        * core when attempting to write to stdout.  Opening /dev/tty
+        * explicitly seems to fix the problem.
+        */
+       if (NC_ISATTY(fileno(stdout))) {
+           FILE *fp = fopen("/dev/tty", "w");
+           if (fp != 0 && NC_ISATTY(fileno(fp))) {
+               fclose(stdout);
+               dup2(fileno(fp), STDOUT_FILENO);
+               stdout = fdopen(STDOUT_FILENO, "w");
+           }
+       }
+#endif
+       if (newterm(name, stdout, stdin) == 0) {
+           fprintf(stderr, "Error opening terminal: %s.\n", name);
+           ExitProgram(EXIT_FAILURE);
        }
-       returnWin(stdscr);
+
+       /* def_shell_mode - done in newterm/_nc_setupscreen */
+#if NCURSES_SP_FUNCS
+       NCURSES_SP_NAME(def_prog_mode) (CURRENT_SCREEN);
+#else
+       def_prog_mode();
+#endif
+       free(name);
+    }
+    result = stdscr;
+    _nc_unlock_global(curses);
+
+    returnWin(result);
 }