1 files changed, 235 insertions, 0 deletions
diff --git a/set_color.c b/set_color.c
new file mode 100644
index 00000000..a50a15ae
--- /dev/null
+++ b/set_color.c
@@ -0,0 +1,235 @@
+#include "config.h"
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <termios.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <unistd.h>
+
+#if HAVE_NCURSES_H
+#include <ncurses.h>
+#else
+#include <curses.h>
+#endif
+
+
+#if HAVE_TERMIO_H
+#include <termio.h>
+#endif
+
+#include <term.h>
+#include <errno.h>
+
+#ifdef HAVE_GETOPT_H
+#include <getopt.h>
+#endif
+
+/*
+  Small utility for setting the color.
+  Usage: set_color COLOR
+  where COLOR is either an integer from 0 to seven or one of the strings in the col array.
+*/
+
+#define COLORS (sizeof(col)/sizeof(char *))
+
+char *col[]=
+{
+	"black",
+	"red",
+	"green",
+	"brown",
+	"yellow",
+	"blue",
+	"magenta",
+	"purple",
+	"cyan",
+	"white",
+	"normal"
+}
+;
+
+int col_idx[]=
+{
+	0, 
+	1,
+	2,
+	3,
+	3,
+	4,
+	5,
+	5,
+	6,
+	7,
+	8
+}
+;
+
+void print_help();
+
+int translate_color( char *str )
+{
+	char *endptr;
+	int color;
+
+	if( !str )
+		return -1;
+	
+
+	color = strtol( str, &endptr, 10 );
+	if(endptr<=str)
+	{
+		int i;
+		color = -1;
+		for( i=0; i<COLORS; i++ )
+		{
+			
+			if( strcasecmp( col[i], str ) == 0 )
+			{
+				color = col_idx[i];				
+				break;
+			}
+		}
+	}	
+	return color;
+	
+}
+
+int main( int argc, char **argv )
+{
+	char *bgcolor=0;
+	char *fgcolor=0;
+	int fg, bg;
+	
+	while( 1 )
+	{
+#ifdef __GLIBC__
+		static struct option
+			long_options[] =
+			{
+				{
+					"background", required_argument, 0, 'b' 
+				}
+				,
+				{
+					"help", no_argument, 0, 'h' 
+				}
+				,
+				{
+					"version", no_argument, 0, 'v' 
+				}
+				,
+				{ 
+					0, 0, 0, 0 
+				}
+			}
+		;		
+		
+		int opt_index = 0;
+		
+		int opt = getopt_long( argc,
+							   argv, 
+							   "b:hv", 
+							   long_options, 
+							   &opt_index );
+#else
+		int opt = getopt( argc,
+						  argv, 
+						  "b:hv" );
+#endif
+		if( opt == -1 )
+			break;
+			
+		switch( opt )
+		{
+			case 0:
+				break;
+				
+			case 'b':				
+				bgcolor = optarg;
+				break;
+			case 'h':
+				print_help();
+				exit(0);				
+								
+			case 'v':
+				fprintf( stderr, "set_color, version %s\n", PACKAGE_VERSION );
+				exit( 0 );								
+
+			case '?':
+				return 1;
+				
+		}
+		
+	}		
+	
+	switch( argc-optind)
+	{
+		case 0:
+//			printf( "no fg\n" );
+			break;
+			
+		case 1:
+			fgcolor=argv[optind];
+//			printf( "fg %s\n", fgcolor );
+			break;
+			
+		default:
+			printf( "set_color: Too many arguments\n" );
+			return 1;
+	}
+
+	if( !fgcolor && !bgcolor )
+	{
+		print_help();		
+		return 1;
+	}
+	
+		
+	fg = translate_color(fgcolor);
+	if( fgcolor && (fg==-1))
+	{
+		fprintf( stderr, "set_color: Unknown color %s\n", fgcolor );
+		return 1;		
+	}
+
+	bg = translate_color(bgcolor);
+	if( bgcolor && (bg==-1))
+	{
+		fprintf( stderr, "set_color: Unknown color %s\n", bgcolor );
+		return 1;		
+	}
+
+	setupterm( 0, STDOUT_FILENO, 0);
+	if( bgcolor )
+	{
+		if( bg == 8 )
+		{
+			putp( tparm( set_a_background, 0) );
+			putp( tparm(exit_attribute_mode) );		
+		}	
+	}
+
+	if( fgcolor )
+	{
+		if( fg == 8 )
+		{
+			putp( tparm( set_a_foreground, 0) );
+			putp( tparm(exit_attribute_mode) );		
+		}	
+		else
+		{
+			putp( tparm( set_a_foreground, fg) );
+		}
+	}
+	
+	if( bgcolor )
+	{
+		if( bg != 8 )
+		{
+			putp( tparm( set_a_background, bg) );
+		}
+	}
+	del_curterm( cur_term );
+}