ncurses 6.1 - patch 20190810
[ncurses.git] / ncurses / base / lib_initscr.c
index 1b7750d5ac9fd252c7876dd576d774194c15f019..60f5e4d0d3932384c715af791727ef2ed87c4930 100644 (file)
@@ -1,5 +1,5 @@
 /****************************************************************************
- * Copyright (c) 1998-2001,2002 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 */
 #endif
 
-MODULE_ID("$Id: lib_initscr.c,v 1.32 2002/10/12 15:24:34 tom Exp $")
+MODULE_ID("$Id: lib_initscr.c,v 1.44 2019/06/22 00:02:01 tom Exp $")
 
 NCURSES_EXPORT(WINDOW *)
 initscr(void)
 {
-    static bool initialized = FALSE;
-    NCURSES_CONST char *name;
-    int value;
+    WINDOW *result;
 
     START_TRACE();
     T((T_CALLED("initscr()")));
+
+    _nc_init_pthreads();
+    _nc_lock_global(curses);
+
     /* Portable applications must not call initscr() more than once */
-    if (!initialized) {
-       initialized = TRUE;
+    if (!_nc_globals.init_screen) {
+       const char *env;
+       char *name;
+
+       _nc_globals.init_screen = TRUE;
 
-       if ((name = getenv("TERM")) == 0
-           || *name == '\0')
-           name = "unknown";
+       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
@@ -71,9 +81,9 @@ initscr(void)
         * core when attempting to write to stdout.  Opening /dev/tty
         * explicitly seems to fix the problem.
         */
-       if (isatty(fileno(stdout))) {
+       if (NC_ISATTY(fileno(stdout))) {
            FILE *fp = fopen("/dev/tty", "w");
-           if (fp != 0 && isatty(fileno(fp))) {
+           if (fp != 0 && NC_ISATTY(fileno(fp))) {
                fclose(stdout);
                dup2(fileno(fp), STDOUT_FILENO);
                stdout = fdopen(STDOUT_FILENO, "w");
@@ -82,16 +92,19 @@ initscr(void)
 #endif
        if (newterm(name, stdout, stdin) == 0) {
            fprintf(stderr, "Error opening terminal: %s.\n", name);
-           exit(EXIT_FAILURE);
-       }
-
-       /* allow user to set maximum escape delay from the environment */
-       if ((value = _nc_getenv_num("ESCDELAY")) >= 0) {
-           ESCDELAY = value;
+           ExitProgram(EXIT_FAILURE);
        }
 
        /* 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);
     }
-    returnWin(stdscr);
+    result = stdscr;
+    _nc_unlock_global(curses);
+
+    returnWin(result);
 }