void wideTest(WINDOW *win)
{
wchar_t tmp[513];
size_t i;
attrset(A_BOLD);
mvaddstr(1, (COLS - 25) / 2, "Wide Character Input Test");
attrset(A_NORMAL);
mvaddstr(4, 1, "Enter a string: ");
echo();
get_wstr((wint_t *)tmp);
addstr("\n\n String:\n\n ");
addwstr(tmp);
addstr("\n\n\n Hex:\n\n ");
for (i = 0; i < wcslen(tmp); i++)
{
printw("%04x ", tmp[i]);
addnwstr(tmp + i, 1);
addstr(" ");
}
noecho();
Continue2();
}
/*
* Takes a WMO format product which is a
* SAO, SYNOP, SHIP, METAR, or SPECI message, splits it into
* individual observations. The observations are each encapsulated in a
* new product which inherits most of its description from the
* original product.
* The new product pkey is derived from the observation type
* and has the following form:
*
* SAO - "sao tt ccc ddhhmm"
* where:
* tt is SA, SP or RS
* ccc is the station ID like SFO, LXV, etc
* ddhhmm is the time stamp.
*
* SYNOP - "aaxx nnnnn ddhhmm"
* where:
* nnnnn is the WMO station id (5 digit number)
*
* SHIP - "bbxx c* ddhhmm"
* where:
* c* is the call sign
*
* METAR - "metar cccc ddhhmm"
* where:
* cccc is the call sign
*
* SPECI - "speci cccc ddhhmm"
*
* The new product sequence number is original sequence number times 1000
* plus the sequence of the individual observation within the product.
*
* 'doit' is called on each of the new products. It is presumed
* this function return zero upon success.
*
* Returns the number of successful calls to 'doit', eg, the
* number of splits. Returns -1 on error.
*/
int
surf_split(const prod_info *infop, const void *datap,
int (*doit)(const prod_info *, const void *))
{
wmo_header_t hdr;
message_type_t mtype;
dtime dt;
xbuf buf[1];
static unsigned char* dbuf = NULL;
static size_t dbufSize = 0;
char header[50];
int nsplit = 0;
enum {
SURFACE_BOGUS ,
AAXX,
US_AAXX,
BBXX,
SAO,
sMETAR,
sSPECI
} subtype = SURFACE_BOGUS;
hdr.time = &dt;
if(infop->sz > dbufSize || dbuf == NULL) {
size_t size = infop->sz != 0 ? infop->sz : 1;
if (dbuf != NULL)
free(dbuf);
dbuf = malloc(size);
if (dbuf == NULL) {
serror("surf_split(): Couldn't allocate %lu-byte buffer",
(unsigned long)size);
dbufSize = 0;
return -1;
}
dbufSize = size;
}
memcpy(dbuf, datap, infop->sz);
if( cbuftoxbuf(buf, dbuf, infop->sz) == NULL)
return -1;
skipline(buf, 4); /* SOH */
skipline(buf, 12); /* start */
/* inspect header as a string to see if to use PIL processing or not */
if(infop->sz > 48 ) {
memcpy( header, datap, 48 );
header[48] = '\0';
} else {
memcpy( header, datap, infop->sz );
header[infop->sz] = '\0';
}
if( strstr( header, "METAR\r" ) || strstr( header, "SPECI\r" ) ||
strstr( header, "MTR" ) ||
strstr( header, "METAR \r" ) || strstr( header, "SPECI \r" ) ||
strstr( header, "BOYC" )) {
usePil = 1;
} else {
usePil = 0;
}
if( get_wmo_header(buf, &hdr) == NULL)
{
uerror("get_wmo_header: hdr: %s\n", hdr);
return -1;
}
usePil = 1;
#if DEBUG
fputs("\t", stderr);
fprint_wmo_header(stderr, &hdr);
fputs("\n", stderr);
#endif
mtype = decode_type(hdr.TT,hdr.AA,hdr.PIL);
/* #### */
{
char cbuf[8];
int digit;
dtime time;
wind_units_t wind_units = WIND_UNAVAIL;
time = *hdr.time; /* default the ob time to the time in the header */
/* delve into section 0 */
switch(mtype) {
case SYNOP :
if(get_wstr(buf, cbuf, 1) < 0 ) return -1;
if(cbuf[0] == 'A')
{
subtype = AAXX;
if(get_str(buf, &cbuf[1], 3) < 0 ) return -1;
if( cbuf[3] != 'X' )
{
/* punt */
uerror("surface_split: Unknown SYNOP type: %s\n",
cbuf);
return 0;
}
if(get_yygg(buf, &time) < 0 ) return -1; /* YYGG */
if(dget_num(buf, &digit, 1) < 0 ) return -1; /* isubw */
if(digit >= 0 && digit <= 4) wind_units = (wind_units_t)digit;
}
else if(isascii(cbuf[0]) && isdigit(cbuf[0])) /* US Stations 7NNNN */
{
unnextc(buf,cbuf[0]);
subtype = US_AAXX;
/*
* Some US reports leave off AAXX YYGGisubw, so we use the
* time from the wmo header.
*/
wind_units = KNOTS;
}
else
{
unnextc(buf,cbuf[0]);
return 0; /* ?? */
}
break;
case SHIP :
if (hdr.PIL[0] != '\0' && whasSTR(buf, "BOYC")) {
skipline(buf, 4);
}
if(get_wstr(buf, cbuf, 4) < 0 ) return -1;
if(cbuf[0] == 'B')
{
if( cbuf[3] != 'X' )
{
/* punt */
uerror("surface_split: Unknown SHIP type: %s\n", cbuf);
return 0;
}
subtype = BBXX;
/* get time below */
}
else
{
unnextc(buf,cbuf[0]);
return 0;
}
break;
case METAR :
if( hdr.PIL[0] != '\0' &&
(! strstr(hdr.PIL, "METAR") ||
!strstr(hdr.PIL, "MTR"))){
subtype = sMETAR;
} else if(whasSTR(buf, "METAR"))
{
subtype = sMETAR;
get_wyyggZ(buf, &time);
}
else if(whasSTR(buf, "SPECI"))
{
subtype = sSPECI;
get_wyyggZ(buf, &time);
}
else {
subtype = SAO; /* may actually be a METAR, check below */
}
break;
case SPECI :
if(whasSTR(buf, "SPECI"))
{
subtype = sSPECI;
get_wyyggZ(buf, &time);
}
break;
default :
uerror("surface_split: Can't handle %s",
sMessage_type(mtype) );
uerror("HDR + PIL: %s%s %s", hdr.TT, hdr.AA, hdr.PIL ) ;
return -1;
}
{ /* while block */
static char newkey[KEYSIZE];
xbuf subbuf[1];
prod_info newinfo = *infop;
#define MAX_SURF_LEN 511
#undef MIN
#define MIN(a,b) ((a) <= (b) ? (a) : (b))
char pbuf[MAX_SURF_LEN + 1];
int l1, l2;
static char ident[CALL_SIGN_LEN+1];
static char type[4];
char *stype;
u_int subseq = infop->seqno * 1000;
unsigned char *pp;
while( get_weqxbuf(buf, subbuf) > 0 )
{
(void)memset(newkey,0,KEYSIZE);
(void)memset(pbuf,0,MAX_SURF_LEN + 1);
(void)memset(ident,0,CALL_SIGN_LEN+1);
pp = subbuf->base;
switch(subtype) {
case AAXX :
case US_AAXX :
strcpy(newkey, "aaxx ");
strcpy(pbuf, "AAXX");
sprintf(&pbuf[strlen(pbuf)], " %02d%02d%1d\r\r\n",
time.mday, time.hour, (int)wind_units);
/* WMO station no. */
if(get_wstr(subbuf, ident, 5) < 0)
continue;
strcat(newkey, ident);
break;
case BBXX :
strcpy(newkey, "bbxx ");
strcpy(pbuf, "BBXX\r\r\n");
/* call sign */
if(get_wstr(subbuf, ident, CALL_SIGN_LEN) < 0)
continue;
strcat(newkey, ident);
if(get_yygg(subbuf, &time) < 0) continue; /* YYGG */
break;
case sSPECI :
/* call sign */
if(get_wstr(subbuf, ident, CALL_SIGN_LEN) < 0)
continue;
stype = "SPECI";
if(strcmp(ident, "METAR") == 0 ||
strcmp(ident, "SPECI") == 0)
{
if( strcmp(ident, "METAR") == 0) {
stype = "METAR";
}
/* They package each ob with a tag */
pp = (subbuf->get +1);
if(get_wstr(subbuf, ident, CALL_SIGN_LEN) < 0)
continue;
}
if(!whas_yyggZ(subbuf))
{
/* Have to insert the date */
sprintf(pbuf, "%s\r\r\n%s %02d%02dZ ",
stype, ident, time.hour, time.min);
pp = subbuf->get;
}
else {
strcpy(pbuf, stype);
strcat(pbuf, "\r\r\n");
}
if(strcmp(stype, "METAR") == 0 ) {
strcpy(newkey, "metar ");
} else {
strcpy(newkey, "speci ");
}
strcat(newkey, ident);
break;
case sMETAR :
if(has_NIL(subbuf))
continue;
/* call sign */
if(get_wstr(subbuf, ident, CALL_SIGN_LEN) < 0) {
continue;
}
stype = "METAR";
if(strcmp(ident, "METAR") == 0 ||
strcmp(ident, "SPECI") == 0)
{
if( strcmp(ident, "SPECI") == 0) {
stype = "SPECI";
}
/* They package each ob with a tag */
pp = (subbuf->get +1);
if(get_wstr(subbuf, ident, CALL_SIGN_LEN) < 0)
continue;
}
if(!whas_yyggZ(subbuf))
{
/* Have to insert the date */
sprintf(pbuf, "%s\r\r\n%s %02d%02dZ ",
stype, ident, time.hour, time.min);
pp = subbuf->get;
}
else {
strcpy(pbuf, stype);
strcat(pbuf, "\r\r\n");
}
if(strcmp(stype, "METAR") == 0 ) {
strcpy(newkey, "metar ");
} else {
strcpy(newkey, "speci ");
}
strcat(newkey, ident);
break;
case SAO :
/* call sign */
if(get_wstr(subbuf, ident, CALL_SIGN_LEN) < 0)
continue;
if(hdr.AA[0] == 'U' && hdr.AA[1] == 'S'
&& strlen(ident) == 6)
{
/* skip 6 char US "AFOS code" */
if(get_wstr(subbuf, ident, CALL_SIGN_LEN) < 0)
continue;
}
/* SA, SP, RS, USP or XP */
if(get_wstr(subbuf, type, 3) < 0)
continue;
if((type[0] == 'S'
&& (type[1] == 'A' || type[1] == 'P'))
|| (type[0] == 'R' && type[1] == 'S')
|| (type[0] == 'U' && type[1] == 'S'
&& type[2] == 'P')
|| (type[0] == 'X' && type[1] == 'P')
|| (type[0] == 'T' &&
(type[1] == 'A' || type[1] == 'S'))
)
{
strcpy(newkey, "sao ");
strcat(newkey, type);
strcat(newkey, " ");
strcat(newkey, ident);
}
else if(isdigit(type[0]) && isdigit(type[1]))
{
/* it is a METAR really */
subtype = sMETAR;
strcpy(newkey, "metar ");
strcat(newkey, ident);
strcpy(pbuf, "METAR\r\r\n");
}
else
continue; /* don't know what it is, "NIL=" */
break;
}
/* safety net */
if(strlen(ident) == 0)
{
continue;
}
/* else */
sprintf(&newkey[strlen(newkey)], " %02d%02d%02d",
time.mday, time.hour, time.min);
if(hdr.retransmit != ORIGINAL)
sprintf(&newkey[strlen(newkey)], " %s",
sRetransmit(&hdr));
newinfo.ident = newkey;
newinfo.seqno = ++subseq;
l1 = strlen(pbuf);
l2 = MIN(MAX_SURF_LEN - l1 - 4, subbuf->bufsiz - (pp - subbuf->base));
/* N.B.: silent truncation */
strncat(pbuf, (char *)pp, l2 );
strcat(pbuf,"=\r\r\n");
newinfo.sz = l1 + l2 + 4;
#if DEBUG
fprintf(stderr,"\t\t%s\n", newinfo.ident);
#endif
#if PRINT
{
char *cp = pbuf;
char *end = &cp[newinfo.sz];
while(cp < end)
{
putc(*cp, stderr);
cp++;
}
}
putc('\n', stderr);
#endif
MD5Init(md5ctxp);
MD5Update(md5ctxp, (const unsigned char *)pbuf, newinfo.sz);
MD5Final((unsigned char*)newinfo.signature, md5ctxp);
/*
* process the single ob in the requested fashion
*/
if((*doit)(&newinfo, pbuf) == 0)
nsplit++;
} /* end while */
#if PRINT
putc('\n', stderr);
#endif
} /* end while block */
} /* end #### block */
return nsplit;
}
static int
test_get_wstr(int level, char **argv, WINDOW *strwin)
{
WINDOW *txtbox = 0;
WINDOW *txtwin = 0;
FILE *fp;
int ch;
int rc;
int txt_x = 0, txt_y = 0;
int base_y;
int flavor = 0;
int limit = getmaxx(strwin) - 5;
int actual;
wint_t buffer[MAX_COLS];
if (argv[level] == 0) {
beep();
return FALSE;
}
if (level > 1) {
txtbox = newwin(LINES - BASE_Y, COLS - level, BASE_Y, level);
box(txtbox, 0, 0);
wnoutrefresh(txtbox);
txtwin = derwin(txtbox,
getmaxy(txtbox) - 2,
getmaxx(txtbox) - 2,
1, 1);
base_y = 0;
} else {
txtwin = stdscr;
base_y = BASE_Y;
}
keypad(txtwin, TRUE); /* enable keyboard mapping */
(void) cbreak(); /* take input chars one at a time, no wait for \n */
(void) noecho(); /* don't echo input */
txt_y = base_y;
txt_x = 0;
wmove(txtwin, txt_y, txt_x);
if ((fp = fopen(argv[level], "r")) != 0) {
while ((ch = fgetc(fp)) != EOF) {
if (waddch(txtwin, UChar(ch)) != OK) {
break;
}
}
fclose(fp);
} else {
wprintw(txtwin, "Cannot open:\n%s", argv[1]);
}
wmove(txtwin, txt_y, txt_x);
actual = ShowFlavor(strwin, txtwin, flavor, limit);
while (!Quit(ch = mvwgetch(txtwin, txt_y, txt_x))) {
switch (ch) {
case KEY_DOWN:
case 'j':
if (txt_y < getmaxy(txtwin) - 1) {
MovePrompt(txtwin, actual, ++txt_y, txt_x);
} else {
beep();
}
break;
case KEY_UP:
case 'k':
if (txt_y > base_y) {
MovePrompt(txtwin, actual, --txt_y, txt_x);
} else {
beep();
}
break;
case KEY_LEFT:
case 'h':
if (txt_x > 0) {
MovePrompt(txtwin, actual, txt_y, --txt_x);
} else {
beep();
}
break;
case KEY_RIGHT:
case 'l':
if (txt_x < getmaxx(txtwin) - 1) {
MovePrompt(txtwin, actual, txt_y, ++txt_x);
} else {
beep();
}
break;
case 'w':
test_get_wstr(level + 1, argv, strwin);
if (txtbox != 0) {
touchwin(txtbox);
wnoutrefresh(txtbox);
} else {
touchwin(txtwin);
wnoutrefresh(txtwin);
}
break;
case '-':
if (limit > 0) {
actual = ShowFlavor(strwin, txtwin, flavor, --limit);
MovePrompt(txtwin, actual, txt_y, txt_x);
} else {
beep();
}
break;
case '+':
actual = ShowFlavor(strwin, txtwin, flavor, ++limit);
MovePrompt(txtwin, actual, txt_y, txt_x);
break;
case '<':
if (flavor > 0) {
actual = ShowFlavor(strwin, txtwin, --flavor, limit);
MovePrompt(txtwin, actual, txt_y, txt_x);
} else {
beep();
}
break;
case '>':
if (flavor + 1 < eMaxFlavor) {
actual = ShowFlavor(strwin, txtwin, ++flavor, limit);
MovePrompt(txtwin, actual, txt_y, txt_x);
} else {
beep();
}
break;
case ':':
actual = ShowFlavor(strwin, txtwin, flavor, limit);
*buffer = '\0';
rc = ERR;
echo();
(void) wattrset(txtwin, A_REVERSE);
switch (flavor) {
case eGetStr:
if (txtwin != stdscr) {
wmove(txtwin, txt_y, txt_x);
rc = wget_wstr(txtwin, buffer);
} else {
move(txt_y, txt_x);
rc = get_wstr(buffer);
}
break;
case eGetNStr:
if (txtwin != stdscr) {
wmove(txtwin, txt_y, txt_x);
rc = wgetn_wstr(txtwin, buffer, limit);
} else {
move(txt_y, txt_x);
rc = getn_wstr(buffer, limit);
}
break;
case eMvGetStr:
if (txtwin != stdscr) {
rc = mvwget_wstr(txtwin, txt_y, txt_x, buffer);
} else {
rc = mvget_wstr(txt_y, txt_x, buffer);
}
break;
case eMvGetNStr:
if (txtwin != stdscr) {
rc = mvwgetn_wstr(txtwin, txt_y, txt_x, buffer, limit);
} else {
rc = mvgetn_wstr(txt_y, txt_x, buffer, limit);
}
break;
case eMaxFlavor:
break;
}
noecho();
(void) wattrset(txtwin, A_NORMAL);
wprintw(strwin, "%d", rc);
(void) waddwstr(strwin, (wchar_t *) buffer);
wnoutrefresh(strwin);
break;
default:
beep();
break;
}
doupdate();
}
if (level > 1) {
delwin(txtwin);
delwin(txtbox);
}
return TRUE;
}
