ncurses-5.7/test/inserts.c - nest-learning-thermostat/5.1/ncurses - Git at Google

 /****************************************************************************
  * Copyright (c) 2002-2006,2007 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            *
  * "Software"), to deal in the Software without restriction, including      *
  * without limitation the rights to use, copy, modify, merge, publish,      *
  * distribute, distribute with modifications, sublicense, and/or sell       *
  * copies of the Software, and to permit persons to whom the Software is    *
  * furnished to do so, subject to the following conditions:                 *
  *                                                                          *
  * The above copyright notice and this permission notice shall be included  *
  * in all copies or substantial portions of the Software.                   *
  *                                                                          *
  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
  * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
  * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
  *                                                                          *
  * Except as contained in this notice, the name(s) of the above copyright   *
  * holders shall not be used in advertising or otherwise to promote the     *
  * sale, use or other dealings in this Software without prior written       *
  * authorization.                                                           *
  ****************************************************************************/
 /*
  * $Id: inserts.c,v 1.18 2007/07/21 17:41:55 tom Exp $
  *
  * Demonstrate the winsstr() and winsch functions.
  * Thomas Dickey - 2002/10/19
  */

 #include <test.priv.h>

 #if HAVE_WINSSTR

 #define InsNStr    insnstr
 #define InsStr     insstr
 #define MvInsNStr  mvinsnstr
 #define MvInsStr   mvinsstr
 #define MvWInsNStr mvwinsnstr
 #define MvWInsStr  mvwinsstr
 #define WInsNStr   winsnstr
 #define WInsStr    winsstr

 #define InsCh      insch
 #define MvInsCh    mvinsch
 #define MvWInsCh   mvwinsch
 #define WInsCh     winsch

 #define MY_TABSIZE 8

 typedef enum {
     oDefault = 0,
     oMove = 1,
     oWindow = 2,
     oMoveWindow = 3
 } Options;

 static bool m_opt = FALSE;
 static bool w_opt = FALSE;
 static int n_opt = -1;

 static void
 legend(WINDOW *win, int level, Options state, char *buffer, int length)
 {
     NCURSES_CONST char *showstate;

     switch (state) {
     default:
     case oDefault:
 	showstate = "";
 	break;
     case oMove:
 	showstate = " (mvXXX)";
 	break;
     case oWindow:
 	showstate = " (winXXX)";
 	break;
     case oMoveWindow:
 	showstate = " (mvwinXXX)";
 	break;
     }

     wmove(win, 0, 0);
     wprintw(win,
 	    "The Strings/Chars displays should match.  Enter any characters, except:\n");
     wprintw(win,
 	    "down-arrow or ^N to repeat on next line, 'w' for inner window, 'q' to exit.\n");
     wclrtoeol(win);
     wprintw(win, "Level %d,%s inserted %d characters <%s>", level,
 	    showstate, length, buffer);
 }

 static int
 ColOf(char *buffer, int length, int margin)
 {
     int n;
     int result;

     for (n = 0, result = margin + 1; n < length; ++n) {
 	int ch = UChar(buffer[n]);
 	switch (ch) {
 	case '\n':
 	    /* actually newline should clear the remainder of the line
 	     * and move to the next line - but that seems a little awkward
 	     * in this example.
 	     */
 	case '\r':
 	    result = 0;
 	    break;
 	case '\b':
 	    if (result > 0)
 		--result;
 	    break;
 	case '\t':
 	    result += (MY_TABSIZE - (result % MY_TABSIZE));
 	    break;
 	case '\177':
 	    result += 2;
 	    break;
 	default:
 	    ++result;
 	    if (ch < 32)
 		++result;
 	    break;
 	}
     }
     return result;
 }

 #define LEN(n) ((length - (n) > n_opt) ? n_opt : (length - (n)))
 static void
 test_inserts(int level)
 {
     static bool first = TRUE;

     int ch;
     int limit;
     int row = 1;
     int col;
     int row2, col2;
     int length;
     char buffer[BUFSIZ];
     WINDOW *look = 0;
     WINDOW *work = 0;
     WINDOW *show = 0;
     int margin = (2 * MY_TABSIZE) - 1;
     Options option = (Options) ((unsigned) (m_opt
 					    ? oMove
 					    : oDefault)
 				| (unsigned) ((w_opt || (level > 0))
 					      ? oWindow
 					      : oDefault));

     if (first) {
 	static char cmd[80];
 	setlocale(LC_ALL, "");

 	putenv(strcpy(cmd, "TABSIZE=8"));

 	initscr();
 	(void) cbreak();	/* take input chars one at a time, no wait for \n */
 	(void) noecho();	/* don't echo input */
 	keypad(stdscr, TRUE);
     }

     limit = LINES - 5;
     if (level > 0) {
 	look = newwin(limit, COLS - (2 * (level - 1)), 0, level - 1);
 	work = newwin(limit - 2, COLS - (2 * level), 1, level);
 	show = newwin(4, COLS, limit + 1, 0);
 	box(look, 0, 0);
 	wnoutrefresh(look);
 	limit -= 2;
     } else {
 	work = stdscr;
 	show = derwin(stdscr, 4, COLS, limit + 1, 0);
     }
     keypad(work, TRUE);

     for (col = margin + 1; col < COLS; col += MY_TABSIZE)
 	mvwvline(work, row, col, '.', limit - 2);

     mvwvline(work, row, margin, ACS_VLINE, limit - 2);
     mvwvline(work, row, margin + 1, ACS_VLINE, limit - 2);
     limit /= 2;

     mvwaddstr(work, 1, 2, "String");
     mvwaddstr(work, limit + 1, 2, "Chars");
     wnoutrefresh(work);

     buffer[length = 0] = '\0';
     legend(show, level, option, buffer, length);
     wnoutrefresh(show);

     doupdate();

     /*
      * Show the characters inserted in color, to distinguish from those that
      * are shifted.
      */
     if (has_colors()) {
 	start_color();
 	init_pair(1, COLOR_WHITE, COLOR_BLUE);
 	wbkgdset(work, COLOR_PAIR(1) | ' ');
     }

     while ((ch = wgetch(work)) != 'q') {
 	if (ch == ERR) {
 	    beep();
 	    break;
 	}
 	wmove(work, row, margin + 1);
 	switch (ch) {
 	case 'w':
 	    test_inserts(level + 1);

 	    touchwin(look);
 	    touchwin(work);
 	    touchwin(show);

 	    wnoutrefresh(look);
 	    wnoutrefresh(work);
 	    wnoutrefresh(show);

 	    doupdate();
 	    break;
 	case CTRL('N'):
 	case KEY_DOWN:
 	    if (row < limit) {
 		++row;
 		/* put the whole string in, all at once */
 		col2 = margin + 1;
 		switch (option) {
 		case oDefault:
 		    if (n_opt > 1) {
 			for (col = 0; col < length; col += n_opt) {
 			    col2 = ColOf(buffer, col, margin);
 			    if (move(row, col2) != ERR) {
 				InsNStr(buffer + col, LEN(col));
 			    }
 			}
 		    } else {
 			if (move(row, col2) != ERR) {
 			    InsStr(buffer);
 			}
 		    }
 		    break;
 		case oMove:
 		    if (n_opt > 1) {
 			for (col = 0; col < length; col += n_opt) {
 			    col2 = ColOf(buffer, col, margin);
 			    MvInsNStr(row, col2, buffer + col, LEN(col));
 			}
 		    } else {
 			MvInsStr(row, col2, buffer);
 		    }
 		    break;
 		case oWindow:
 		    if (n_opt > 1) {
 			for (col = 0; col < length; col += n_opt) {
 			    col2 = ColOf(buffer, col, margin);
 			    if (wmove(work, row, col2) != ERR) {
 				WInsNStr(work, buffer + col, LEN(col));
 			    }
 			}
 		    } else {
 			if (wmove(work, row, col2) != ERR) {
 			    WInsStr(work, buffer);
 			}
 		    }
 		    break;
 		case oMoveWindow:
 		    if (n_opt > 1) {
 			for (col = 0; col < length; col += n_opt) {
 			    col2 = ColOf(buffer, col, margin);
 			    MvWInsNStr(work, row, col2, buffer + col, LEN(col));
 			}
 		    } else {
 			MvWInsStr(work, row, col2, buffer);
 		    }
 		    break;
 		}

 		/* do the corresponding single-character insertion */
 		row2 = limit + row;
 		for (col = 0; col < length; ++col) {
 		    col2 = ColOf(buffer, col, margin);
 		    switch (option) {
 		    case oDefault:
 			if (move(row2, col2) != ERR) {
 			    InsCh(UChar(buffer[col]));
 			}
 			break;
 		    case oMove:
 			MvInsCh(row2, col2, UChar(buffer[col]));
 			break;
 		    case oWindow:
 			if (wmove(work, row2, col2) != ERR) {
 			    WInsCh(work, UChar(buffer[col]));
 			}
 			break;
 		    case oMoveWindow:
 			MvWInsCh(work, row2, col2, UChar(buffer[col]));
 			break;
 		    }
 		}
 	    } else {
 		beep();
 	    }
 	    break;
 	case KEY_BACKSPACE:
 	    ch = '\b';
 	    /* FALLTHRU */
 	default:
 	    if (ch <= 0 || ch > 255) {
 		beep();
 		break;
 	    }
 	    buffer[length++] = ch;
 	    buffer[length] = '\0';

 	    /* put the string in, one character at a time */
 	    col = ColOf(buffer, length - 1, margin);
 	    switch (option) {
 	    case oDefault:
 		if (move(row, col) != ERR) {
 		    InsStr(buffer + length - 1);
 		}
 		break;
 	    case oMove:
 		MvInsStr(row, col, buffer + length - 1);
 		break;
 	    case oWindow:
 		if (wmove(work, row, col) != ERR) {
 		    WInsStr(work, buffer + length - 1);
 		}
 		break;
 	    case oMoveWindow:
 		MvWInsStr(work, row, col, buffer + length - 1);
 		break;
 	    }

 	    /* do the corresponding single-character insertion */
 	    switch (option) {
 	    case oDefault:
 		if (move(limit + row, col) != ERR) {
 		    InsCh(UChar(ch));
 		}
 		break;
 	    case oMove:
 		MvInsCh(limit + row, col, UChar(ch));
 		break;
 	    case oWindow:
 		if (wmove(work, limit + row, col) != ERR) {
 		    WInsCh(work, UChar(ch));
 		}
 		break;
 	    case oMoveWindow:
 		MvWInsCh(work, limit + row, col, UChar(ch));
 		break;
 	    }

 	    wnoutrefresh(work);

 	    legend(show, level, option, buffer, length);
 	    wnoutrefresh(show);

 	    doupdate();
 	    break;
 	}
     }
     if (level > 0) {
 	delwin(show);
 	delwin(work);
 	delwin(look);
     }
 }

 static void
 usage(void)
 {
     static const char *tbl[] =
     {
 	"Usage: inserts [options]"
 	,""
 	,"Options:"
 	,"  -n NUM  limit string-inserts to NUM bytes on ^N replay"
 	,"  -m      perform wmove/move separately from insert-functions"
 	,"  -w      use window-parameter even when stdscr would be implied"
     };
     unsigned n;
     for (n = 0; n < SIZEOF(tbl); ++n)
 	fprintf(stderr, "%s\n", tbl[n]);
     ExitProgram(EXIT_FAILURE);
 }

 int
 main(int argc GCC_UNUSED, char *argv[]GCC_UNUSED)
 {
     int ch;

     setlocale(LC_ALL, "");

     while ((ch = getopt(argc, argv, "mn:w")) != -1) {
 	switch (ch) {
 	case 'm':
 	    m_opt = TRUE;
 	    break;
 	case 'n':
 	    n_opt = atoi(optarg);
 	    if (n_opt == 0)
 		n_opt = -1;
 	    break;
 	case 'w':
 	    w_opt = TRUE;
 	    break;
 	default:
 	    usage();
 	    break;
 	}
     }
     if (optind < argc)
 	usage();

     test_inserts(0);
     endwin();
     ExitProgram(EXIT_SUCCESS);
 }
 #else
 int
 main(void)
 {
     printf("This program requires the winsstr function\n");
     ExitProgram(EXIT_FAILURE);
 }
 #endif /* HAVE_WINSSTR */
	/****************************************************************************
	* Copyright (c) 2002-2006,2007 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 *
	* "Software"), to deal in the Software without restriction, including *
	* without limitation the rights to use, copy, modify, merge, publish, *
	* distribute, distribute with modifications, sublicense, and/or sell *
	* copies of the Software, and to permit persons to whom the Software is *
	* furnished to do so, subject to the following conditions: *
	* *
	* The above copyright notice and this permission notice shall be included *
	* in all copies or substantial portions of the Software. *
	* *
	* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS *
	* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF *
	* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. *
	* IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, *
	* DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR *
	* OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR *
	* THE USE OR OTHER DEALINGS IN THE SOFTWARE. *
	* *
	* Except as contained in this notice, the name(s) of the above copyright *
	* holders shall not be used in advertising or otherwise to promote the *
	* sale, use or other dealings in this Software without prior written *
	* authorization. *
	****************************************************************************/
	/*
	* $Id: inserts.c,v 1.18 2007/07/21 17:41:55 tom Exp $
	*
	* Demonstrate the winsstr() and winsch functions.
	* Thomas Dickey - 2002/10/19
	*/

	#include <test.priv.h>

	#if HAVE_WINSSTR

	#define InsNStr insnstr
	#define InsStr insstr
	#define MvInsNStr mvinsnstr
	#define MvInsStr mvinsstr
	#define MvWInsNStr mvwinsnstr
	#define MvWInsStr mvwinsstr
	#define WInsNStr winsnstr
	#define WInsStr winsstr

	#define InsCh insch
	#define MvInsCh mvinsch
	#define MvWInsCh mvwinsch
	#define WInsCh winsch

	#define MY_TABSIZE 8

	typedef enum {
	oDefault = 0,
	oMove = 1,
	oWindow = 2,
	oMoveWindow = 3
	} Options;

	static bool m_opt = FALSE;
	static bool w_opt = FALSE;
	static int n_opt = -1;

	static void
	legend(WINDOW win, int level, Options state, char buffer, int length)
	{
	NCURSES_CONST char *showstate;

	switch (state) {
	default:
	case oDefault:
	showstate = "";
	break;
	case oMove:
	showstate = " (mvXXX)";
	break;
	case oWindow:
	showstate = " (winXXX)";
	break;
	case oMoveWindow:
	showstate = " (mvwinXXX)";
	break;
	}

	wmove(win, 0, 0);
	wprintw(win,
	"The Strings/Chars displays should match. Enter any characters, except:\n");
	wprintw(win,
	"down-arrow or ^N to repeat on next line, 'w' for inner window, 'q' to exit.\n");
	wclrtoeol(win);
	wprintw(win, "Level %d,%s inserted %d characters <%s>", level,
	showstate, length, buffer);
	}

	static int
	ColOf(char *buffer, int length, int margin)
	{
	int n;
	int result;

	for (n = 0, result = margin + 1; n < length; ++n) {
	int ch = UChar(buffer[n]);
	switch (ch) {
	case '\n':
	/* actually newline should clear the remainder of the line
	* and move to the next line - but that seems a little awkward
	* in this example.
	*/
	case '\r':
	result = 0;
	break;
	case '\b':
	if (result > 0)
	--result;
	break;
	case '\t':
	result += (MY_TABSIZE - (result % MY_TABSIZE));
	break;
	case '\177':
	result += 2;
	break;
	default:
	++result;
	if (ch < 32)
	++result;
	break;
	}
	}
	return result;
	}

	#define LEN(n) ((length - (n) > n_opt) ? n_opt : (length - (n)))
	static void
	test_inserts(int level)
	{
	static bool first = TRUE;

	int ch;
	int limit;
	int row = 1;
	int col;
	int row2, col2;
	int length;
	char buffer[BUFSIZ];
	WINDOW *look = 0;
	WINDOW *work = 0;
	WINDOW *show = 0;
	int margin = (2 * MY_TABSIZE) - 1;
	Options option = (Options) ((unsigned) (m_opt
	? oMove
	: oDefault)
	\| (unsigned) ((w_opt \|\| (level > 0))
	? oWindow
	: oDefault));

	if (first) {
	static char cmd[80];
	setlocale(LC_ALL, "");

	putenv(strcpy(cmd, "TABSIZE=8"));

	initscr();
	(void) cbreak(); /* take input chars one at a time, no wait for \n */
	(void) noecho(); /* don't echo input */
	keypad(stdscr, TRUE);
	}

	limit = LINES - 5;
	if (level > 0) {
	look = newwin(limit, COLS - (2 * (level - 1)), 0, level - 1);
	work = newwin(limit - 2, COLS - (2 * level), 1, level);
	show = newwin(4, COLS, limit + 1, 0);
	box(look, 0, 0);
	wnoutrefresh(look);
	limit -= 2;
	} else {
	work = stdscr;
	show = derwin(stdscr, 4, COLS, limit + 1, 0);
	}
	keypad(work, TRUE);

	for (col = margin + 1; col < COLS; col += MY_TABSIZE)
	mvwvline(work, row, col, '.', limit - 2);

	mvwvline(work, row, margin, ACS_VLINE, limit - 2);
	mvwvline(work, row, margin + 1, ACS_VLINE, limit - 2);
	limit /= 2;

	mvwaddstr(work, 1, 2, "String");
	mvwaddstr(work, limit + 1, 2, "Chars");
	wnoutrefresh(work);

	buffer[length = 0] = '\0';
	legend(show, level, option, buffer, length);
	wnoutrefresh(show);

	doupdate();

	/*
	* Show the characters inserted in color, to distinguish from those that
	* are shifted.
	*/
	if (has_colors()) {
	start_color();
	init_pair(1, COLOR_WHITE, COLOR_BLUE);
	wbkgdset(work, COLOR_PAIR(1) \| ' ');
	}

	while ((ch = wgetch(work)) != 'q') {
	if (ch == ERR) {
	beep();
	break;
	}
	wmove(work, row, margin + 1);
	switch (ch) {
	case 'w':
	test_inserts(level + 1);

	touchwin(look);
	touchwin(work);
	touchwin(show);

	wnoutrefresh(look);
	wnoutrefresh(work);
	wnoutrefresh(show);

	doupdate();
	break;
	case CTRL('N'):
	case KEY_DOWN:
	if (row < limit) {
	++row;
	/* put the whole string in, all at once */
	col2 = margin + 1;
	switch (option) {
	case oDefault:
	if (n_opt > 1) {
	for (col = 0; col < length; col += n_opt) {
	col2 = ColOf(buffer, col, margin);
	if (move(row, col2) != ERR) {
	InsNStr(buffer + col, LEN(col));
	}
	}
	} else {
	if (move(row, col2) != ERR) {
	InsStr(buffer);
	}
	}
	break;
	case oMove:
	if (n_opt > 1) {
	for (col = 0; col < length; col += n_opt) {
	col2 = ColOf(buffer, col, margin);
	MvInsNStr(row, col2, buffer + col, LEN(col));
	}
	} else {
	MvInsStr(row, col2, buffer);
	}
	break;
	case oWindow:
	if (n_opt > 1) {
	for (col = 0; col < length; col += n_opt) {
	col2 = ColOf(buffer, col, margin);
	if (wmove(work, row, col2) != ERR) {
	WInsNStr(work, buffer + col, LEN(col));
	}
	}
	} else {
	if (wmove(work, row, col2) != ERR) {
	WInsStr(work, buffer);
	}
	}
	break;
	case oMoveWindow:
	if (n_opt > 1) {
	for (col = 0; col < length; col += n_opt) {
	col2 = ColOf(buffer, col, margin);
	MvWInsNStr(work, row, col2, buffer + col, LEN(col));
	}
	} else {
	MvWInsStr(work, row, col2, buffer);
	}
	break;
	}

	/* do the corresponding single-character insertion */
	row2 = limit + row;
	for (col = 0; col < length; ++col) {
	col2 = ColOf(buffer, col, margin);
	switch (option) {
	case oDefault:
	if (move(row2, col2) != ERR) {
	InsCh(UChar(buffer[col]));
	}
	break;
	case oMove:
	MvInsCh(row2, col2, UChar(buffer[col]));
	break;
	case oWindow:
	if (wmove(work, row2, col2) != ERR) {
	WInsCh(work, UChar(buffer[col]));
	}
	break;
	case oMoveWindow:
	MvWInsCh(work, row2, col2, UChar(buffer[col]));
	break;
	}
	}
	} else {
	beep();
	}
	break;
	case KEY_BACKSPACE:
	ch = '\b';
	/* FALLTHRU */
	default:
	if (ch <= 0 \|\| ch > 255) {
	beep();
	break;
	}
	buffer[length++] = ch;
	buffer[length] = '\0';

	/* put the string in, one character at a time */
	col = ColOf(buffer, length - 1, margin);
	switch (option) {
	case oDefault:
	if (move(row, col) != ERR) {
	InsStr(buffer + length - 1);
	}
	break;
	case oMove:
	MvInsStr(row, col, buffer + length - 1);
	break;
	case oWindow:
	if (wmove(work, row, col) != ERR) {
	WInsStr(work, buffer + length - 1);
	}
	break;
	case oMoveWindow:
	MvWInsStr(work, row, col, buffer + length - 1);
	break;
	}

	/* do the corresponding single-character insertion */
	switch (option) {
	case oDefault:
	if (move(limit + row, col) != ERR) {
	InsCh(UChar(ch));
	}
	break;
	case oMove:
	MvInsCh(limit + row, col, UChar(ch));
	break;
	case oWindow:
	if (wmove(work, limit + row, col) != ERR) {
	WInsCh(work, UChar(ch));
	}
	break;
	case oMoveWindow:
	MvWInsCh(work, limit + row, col, UChar(ch));
	break;
	}

	wnoutrefresh(work);

	legend(show, level, option, buffer, length);
	wnoutrefresh(show);

	doupdate();
	break;
	}
	}
	if (level > 0) {
	delwin(show);
	delwin(work);
	delwin(look);
	}
	}

	static void
	usage(void)
	{
	static const char *tbl[] =
	{
	"Usage: inserts [options]"
	,""
	,"Options:"
	," -n NUM limit string-inserts to NUM bytes on ^N replay"
	," -m perform wmove/move separately from insert-functions"
	," -w use window-parameter even when stdscr would be implied"
	};
	unsigned n;
	for (n = 0; n < SIZEOF(tbl); ++n)
	fprintf(stderr, "%s\n", tbl[n]);
	ExitProgram(EXIT_FAILURE);
	}

	int
	main(int argc GCC_UNUSED, char *argv[]GCC_UNUSED)
	{
	int ch;

	setlocale(LC_ALL, "");

	while ((ch = getopt(argc, argv, "mn:w")) != -1) {
	switch (ch) {
	case 'm':
	m_opt = TRUE;
	break;
	case 'n':
	n_opt = atoi(optarg);
	if (n_opt == 0)
	n_opt = -1;
	break;
	case 'w':
	w_opt = TRUE;
	break;
	default:
	usage();
	break;
	}
	}
	if (optind < argc)
	usage();

	test_inserts(0);
	endwin();
	ExitProgram(EXIT_SUCCESS);
	}
	#else
	int
	main(void)
	{
	printf("This program requires the winsstr function\n");
	ExitProgram(EXIT_FAILURE);
	}
	#endif /* HAVE_WINSSTR */