Moved from ports with several enhancements

1 files changed, 107 insertions, 0 deletions

diff --git a/lib/libncurses/lib_color.c b/lib/libncurses/lib_color.c
new file mode 100644
index 0000000..8ba3ad9
--- /dev/null
+++ b/lib/libncurses/lib_color.c
@@ -0,0 +1,107 @@
+/* This work is copyrighted. See COPYRIGHT.NEW for                   *
+*  details. If they are missing then this copy is in violation of    *
+*  the copyright conditions.                                        */
+
+/* lib_color.c 
+ *  
+ * Handles color emulation of SYS V curses
+ *
+ */
+
+#include "curses.priv.h"
+#include <nterm.h>
+
+int COLOR_PAIRS;
+int COLORS;
+unsigned char color_pairs[64];
+
+int _coloron = 0;
+
+int start_color()
+{
+	T(("start_color() called."));
+
+	if (orig_pair != NULL)
+		tputs(orig_pair, 1, _outc);
+	else return ERR;
+	if (max_pairs != -1)
+		COLOR_PAIRS = max_pairs;
+	else return ERR;
+	if (max_colors != -1)
+		COLORS = max_colors;
+	else return ERR;
+	_coloron = 1;
+
+	T(("started color: COLORS = %d, COLOR_PAIRS = %d", COLORS, COLOR_PAIRS));
+
+	return OK;
+}
+
+int init_pair(short pair, short f, short b)
+{
+	T(("init_pair( %d, %d, %d )", pair, f, b));
+
+	if ((pair < 1) || (pair > COLOR_PAIRS))
+		return ERR;
+	if ((f  < 0) || (f >= COLORS) || (b < 0) || (b >= COLORS))
+		return ERR;
+
+	/* still to do:
+	   if pair was initialized before a screen update is performed
+	   replacing original pair colors with the new ones
+	*/
+
+	color_pairs[pair] = ( (f & 0x0f) | (b & 0x0f) << 4 );
+
+	return color_pairs[pair];
+}
+
+int init_color(short color, short r, short g, short b)
+{
+	if (initialize_color != NULL) {
+		if (color < 0 || color >= COLORS)
+			return ERR;
+		if (hue_lightness_saturation == TRUE)
+			if (r < 0 || r > 360 || g < 0 || g > 100 || b < 0 || b > 100)
+				return ERR;	
+		if (hue_lightness_saturation == FALSE)
+			if (r < 0 || r > 1000 || g < 0 ||  g > 1000 || b < 0 || b > 1000)
+				return ERR;
+				
+		tputs(tparm(initialize_color, color, r, g, b), 1, _outc);
+		return OK;
+	}
+	
+	return ERR;
+}
+
+bool can_change_color()
+{
+	return can_change;
+}
+
+int has_colors()
+{
+	return ((orig_pair != NULL) && (max_colors != -1) && (max_pairs != -1)
+		&& 
+		(((set_foreground != NULL) && (set_background != NULL)) ||
+		((set_a_foreground != NULL) && (set_a_background != NULL)))
+		);
+}
+
+int color_content(short color, short *r, short *g, short *b)
+{
+	return ERR;
+}
+
+int pair_content(short pair, short *f, short *b)
+{
+
+	if ((pair < 1) || (pair > COLOR_PAIRS))
+		return ERR;
+	*f = color_pairs[pair] & 0x0f;
+	*b = color_pairs[pair] & 0xf0;
+	*b >>= 4;
+	return OK;
+}
+