minix/lib/libcurses/EXAMPLES/ex1.c

343 lines
11 KiB
C
Raw Normal View History

/* $NetBSD: ex1.c,v 1.5 2007/05/28 15:01:58 blymn Exp $ */
/*
* Copyright (c) 1992, 1993
* The Regents of the University of California. All rights reserved.
*
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
#ifndef lint
static char copyright[] =
"@(#) Copyright (c) 1992, 1993\n\
The Regents of the University of California. All rights reserved.\n";
#endif /* not lint */
#ifndef lint
static char sccsid[] = "@(#)ex1.c 8.1 (Berkeley) 6/4/93";
#endif /* not lint */
#include <sys/types.h>
#include <curses.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <signal.h>
#include <locale.h>
#include <assert.h>
#define YSIZE 4
#define XSIZE 30
void quit( int );
main()
{
int i, j, c, n = 0, ac = 0;
size_t len;
char id[100];
FILE *fp;
char *s;
cchar_t cc, ncc, cstr[ 128 ], icc, icstr[ 128 ], bcc;
int wc_on = 0, wgc_on = 0;
char mbs[] = "<EFBFBD><EFBFBD>";
char mbstr[] = "<EFBFBD><EFBFBD>ѧ֮<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>£<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֹ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ơ<EFBFBD> (Liji)";
wchar_t wstr[ 128 ], owstr[ 4 ], gwstr[ 128 ], iwstr[ 128 ];
int wslen = 0;
wint_t wc;
char nostr[ 128 ];
attr_t al[ 15 ] = { WA_BLINK,
WA_BOLD,
WA_DIM,
WA_LOW,
WA_TOP,
WA_INVIS,
WA_HORIZONTAL,
WA_VERTICAL,
WA_LEFT,
WA_RIGHT,
WA_PROTECT,
WA_REVERSE,
WA_STANDOUT,
WA_UNDERLINE };
fprintf( stderr, "Current locale: %s\n", setlocale(LC_ALL, ""));
if (( wslen = mbstowcs( &cc.vals[ 0 ], mbs, strlen( mbs ))) < 0 ) {
fprintf( stderr, "mbstowcs() failed\n" );
return -1;
}
fprintf( stderr, "WC string length: %d\n", wslen );
fprintf( stderr, "WC width: %d\n", wcwidth( cc.vals[ 0 ]));
cc.elements = ncc.elements = 8;
cc.attributes = ncc.attributes = 0;
ncc.vals[ 0 ] = 0xda00;
cc.vals[ 1 ] = ncc.vals[ 1 ] = 0xda01;
cc.vals[ 2 ] = ncc.vals[ 2 ] = 0xda02;
cc.vals[ 3 ] = ncc.vals[ 3 ] = 0xda03;
cc.vals[ 4 ] = ncc.vals[ 4 ] = 0xda04;
cc.vals[ 5 ] = ncc.vals[ 5 ] = 0xda05;
cc.vals[ 6 ] = ncc.vals[ 6 ] = 0xda06;
cc.vals[ 7 ] = ncc.vals[ 7 ] = 0xda07;
if (( wslen = mbstowcs( wstr, mbstr, strlen( mbstr ))) < 0 ) {
fprintf( stderr, "mbstowcs() failed\n" );
return -1;
}
for ( i = 0; i < wslen; i++ ) {
cstr[ i ].vals[ 0 ] = wstr[ i ];
}
cstr[ wslen ].vals[ 0 ] = 0;
bcc.elements = 8;
bcc.attributes = 0;
bcc.vals[ 0 ] = L'_';
bcc.vals[ 1 ] = 0xda01;
bcc.vals[ 2 ] = 0xda02;
bcc.vals[ 3 ] = 0xda03;
bcc.vals[ 4 ] = 0xda04;
bcc.vals[ 5 ] = 0xda05;
bcc.vals[ 6 ] = 0xda06;
bcc.vals[ 7 ] = 0xda07;
initscr(); /* Always call initscr() first */
signal(SIGINT, quit); /* Make sure wou have a 'cleanup' fn */
crmode(); /* We want cbreak mode */
noecho(); /* We want to have control of chars */
delwin(stdscr); /* Create our own stdscr */
stdscr = newwin(YSIZE, XSIZE, 1, 1);
flushok(stdscr, TRUE); /* Enable flushing of stdout */
scrollok(stdscr, TRUE); /* Enable scrolling */
erase(); /* Initially, clear the screen */
standout();
move(0,0);
while (1) {
if ( !wgc_on ) {
c = getchar();
switch(c) {
case 'q': /* Quit on 'q' */
quit( 0 );
break;
case 'p':
keypad( stdscr, TRUE );
break;
case 'P':
keypad( stdscr, FALSE );
break;
case 'g':
wgc_on = 1;
echo();
break;
case 'b':
get_wstr( gwstr );
move( 1, 0 );
addstr( "Input:" );
addwstr( gwstr );
refresh();
break;
case 'h':
move( 0, 0 );
in_wch( &icc );
move( 1, 0 );
add_wch( &icc );
refresh();
break;
case 'y':
move( 0, 0 );
in_wchstr( icstr );
move( 1, 0 );
add_wchstr( icstr );
refresh();
break;
case 'u':
move( 0, 0 );
inwstr( iwstr );
move( 1, 0 );
addwstr( iwstr );
refresh();
break;
case 'i':
move( 0, 0 );
hline_set( &cc, 20 );
move( 0, 0 );
vline_set( &cc, 20 );
refresh();
break;
case 'o':
clrtobot();
refresh();
break;
case 's': /* Go into standout mode on 's' */
standout();
break;
case 'e': /* Exit standout mode on 'e' */
standend();
break;
case 'r': /* Force a refresh on 'r' */
wrefresh(curscr);
break;
case 'w': /* Turn on/off add_wch() tests */
wc_on = 1 - wc_on;
break;
case 'd':
add_wchstr(( const cchar_t *)&cstr );
refresh();
break;
case 'c':
addwstr(( const wchar_t *)&wstr );
refresh();
break;
case 'z':
move( 0, 1 );
if ( wc_on )
add_wch( &cc );
else
addch( c );
refresh();
break;
case 'x':
move( 0, 3 );
if ( wc_on )
add_wch( &cc );
else
addch( c );
refresh();
break;
case 'n':
add_wch( &ncc );
refresh();
break;
case 'm':
//border( 0, 0, 0, 0, 0, 0, 0, 0 );
border_set( NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL );
refresh();
break;
case 'j':
box_set( stdscr, &cc, &cc );
refresh();
break;
case 'k':
erase();
refresh();
break;
case '1':
move( 0, 0 );
clrtoeol();
refresh();
break;
case '2':
move( 0, 0 );
sprintf( nostr, "Orig:%x", al[ ac ]);
addstr( nostr );
ac = ( ac + 1 ) % 16;
bcc.attributes = al[ ac ];
bkgrnd( &bcc );
move( 1, 0 );
sprintf( nostr, "New:%x", al[ ac ]);
//addstr( nostr );
insstr( nostr );
refresh();
break;
case 'v':
if ( wc_on )
ins_wch( &cc );
else
insch( c );
refresh();
break;
case 'f':
ins_wstr(( const wchar_t *)&wstr );
refresh();
break;
case 't':
for ( i = 0; i < 4; i++ ) {
owstr[ i ] = wstr[ i + 5 ];
wstr[ i + 5 ] = i + 0xda05;
}
ins_wstr(( const wchar_t *)&wstr );
refresh();
for ( i = 0; i < 4; i++ )
wstr[ i + 5 ] = owstr[ i ];
break;
default: /* By default output the character */
if ( wc_on )
add_wch( &cc );
else {
if ( c < 0x7F )
addch( c );
else {
addstr( keyname( c ));
}
}
refresh();
}
} else {
get_wch( &wc );
switch ( wc ) {
case L'w':
wgc_on = 0;
noecho();
break;
case L'q':
quit( 0 );
break;
case L't':
notimeout( stdscr, TRUE );
break;
case L'T':
notimeout( stdscr, FALSE );
break;
case L'd':
nodelay( stdscr, TRUE );
break;
case L'D':
nodelay( stdscr, FALSE );
break;
case L'p':
keypad( stdscr, TRUE );
break;
case L'P':
keypad( stdscr, FALSE );
break;
default:
break;
}
}
}
}
void quit( int sig )
{
erase(); /* Terminate by erasing the screen */
refresh();
endwin(); /* Always end with endwin() */
delwin(curscr); /* Return storage */
delwin(stdscr);
putchar('\n');
exit( sig );
}