ncurses 6.2 - patch 20200404

[ncurses.git] / ncurses / base / lib_dft_fgbg.c

diff --git a/ncurses/base/lib_dft_fgbg.c b/ncurses/base/lib_dft_fgbg.c
index a2dfbd218f740293eb22b0ed82383ceb6a1eb63c..95dc0c224035bc19a0e1c5893fc35f22b32498b4 100644 (file)
--- a/ncurses/base/lib_dft_fgbg.c
+++ b/ncurses/base/lib_dft_fgbg.c
@@ -1,5 +1,6 @@
 /****************************************************************************
- * Copyright (c) 1998 Free Software Foundation, Inc.                        *
+ * Copyright 2020 Thomas E. Dickey                                          *
+ * Copyright 1998-2014,2017 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            *
@@ -27,34 +28,75 @@
  ****************************************************************************/
 
 /****************************************************************************
- *  Author: Thomas E. Dickey <dickey@clark.net> 1997                        *
+ *  Author: Thomas E. Dickey          1998-on                               *
+ *          Juergen Pfeifer           2009                                  *
  ****************************************************************************/
+
 #include <curses.priv.h>
-#include <term.h>
 
-MODULE_ID("$Id: lib_dft_fgbg.c,v 1.3 1998/02/11 12:13:54 tom Exp $")
+#ifndef CUR
+#define CUR SP_TERMTYPE
+#endif
+
+MODULE_ID("$Id: lib_dft_fgbg.c,v 1.30 2020/02/02 23:34:34 tom Exp $")
 
 /*
  * Modify the behavior of color-pair 0 so that the library doesn't assume that
- * it is black on white.  This is an extension to XSI curses.
- *
- * Invoke this function after 'start_color()'.
+ * it is white on black.  This is an extension to XSI curses.
  */
-int
+NCURSES_EXPORT(int)
+NCURSES_SP_NAME(use_default_colors) (NCURSES_SP_DCL0)
+{
+    T((T_CALLED("use_default_colors(%p)"), (void *) SP_PARM));
+    returnCode(NCURSES_SP_NAME(assume_default_colors) (NCURSES_SP_ARGx -1, -1));
+}
+
+#if NCURSES_SP_FUNCS
+NCURSES_EXPORT(int)
 use_default_colors(void)
 {
-       T((T_CALLED("use_default_colors()")));
+    return NCURSES_SP_NAME(use_default_colors) (CURRENT_SCREEN);
+}
+#endif
 
-       if (!SP->_coloron)
-               returnCode(ERR);
+/*
+ * Modify the behavior of color-pair 0 so that the library assumes that it
+ * is something specific, possibly not white on black.
+ */
+NCURSES_EXPORT(int)
+NCURSES_SP_NAME(assume_default_colors) (NCURSES_SP_DCLx int fg, int bg)
+{
+    int code = ERR;
 
-       if (!orig_pair && !orig_colors)
-               returnCode(ERR);
+    T((T_CALLED("assume_default_colors(%p,%d,%d)"), (void *) SP_PARM, fg, bg));
+    if (SP_PARM != 0) {
+#ifdef USE_TERM_DRIVER
+       code = CallDriver_2(SP_PARM, td_defaultcolors, fg, bg);
+#else
+       if ((orig_pair || orig_colors) && !initialize_pair) {
 
-       if (initialize_pair)    /* don't know how to handle this */
-               returnCode(ERR);
+           SP_PARM->_default_color = isDefaultColor(fg) || isDefaultColor(bg);
+           SP_PARM->_has_sgr_39_49 = (tigetflag("AX") == TRUE);
+           SP_PARM->_default_fg = isDefaultColor(fg) ? COLOR_DEFAULT : fg;
+           SP_PARM->_default_bg = isDefaultColor(bg) ? COLOR_DEFAULT : bg;
+           if (SP_PARM->_color_pairs != 0) {
+               bool save = SP_PARM->_default_color;
+               SP_PARM->_assumed_color = TRUE;
+               SP_PARM->_default_color = TRUE;
+               init_pair(0, (short) fg, (short) bg);
+               SP_PARM->_default_color = save;
+           }
+           code = OK;
+       }
+#endif
+    }
+    returnCode(code);
+}
 
-       SP->_default_color = TRUE;
-       SP->_color_pairs[0] = PAIR_OF(C_MASK, C_MASK);
-       returnCode(OK);
+#if NCURSES_SP_FUNCS
+NCURSES_EXPORT(int)
+assume_default_colors(int fg, int bg)
+{
+    return NCURSES_SP_NAME(assume_default_colors) (CURRENT_SCREEN, fg, bg);
 }
+#endif