![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to uifc32.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / src / uifc|
Return to uifc32.c CVS log | Up to [Synchronet] / sbbs / src / uifc |
1.1 ! root 1: /* uifc32.c */ ! 2: ! 3: /* Curses implementation of UIFC (user interface) library based on uifc.c */ ! 4: ! 5: /* $Id: uifc32.c,v 1.177 2006/09/15 21:05:56 deuce Exp $ */ ! 6: ! 7: /**************************************************************************** ! 8: * @format.tab-size 4 (Plain Text/Source Code File Header) * ! 9: * @format.use-tabs true (see http://www.synchro.net/ptsc_hdr.html) * ! 10: * * ! 11: * Copyright 2005 Rob Swindell - http://www.synchro.net/copyright.html * ! 12: * * ! 13: * This library is free software; you can redistribute it and/or * ! 14: * modify it under the terms of the GNU Lesser General Public License * ! 15: * as published by the Free Software Foundation; either version 2 * ! 16: * of the License, or (at your option) any later version. * ! 17: * See the GNU Lesser General Public License for more details: lgpl.txt or * ! 18: * http://www.fsf.org/copyleft/lesser.html * ! 19: * * ! 20: * Anonymous FTP access to the most recent released source is available at * ! 21: * ftp://vert.synchro.net, ftp://cvs.synchro.net and ftp://ftp.synchro.net * ! 22: * * ! 23: * Anonymous CVS access to the development source and modification history * ! 24: * is available at cvs.synchro.net:/cvsroot/sbbs, example: * ! 25: * cvs -d :pserver:[email protected]:/cvsroot/sbbs login * ! 26: * (just hit return, no password is necessary) * ! 27: * cvs -d :pserver:[email protected]:/cvsroot/sbbs checkout src * ! 28: * * ! 29: * For Synchronet coding style and modification guidelines, see * ! 30: * http://www.synchro.net/source.html * ! 31: * * ! 32: * You are encouraged to submit any modifications (preferably in Unix diff * ! 33: * format) via e-mail to [email protected] * ! 34: * * ! 35: * Note: If this box doesn't appear square, then you need to fix your tabs. * ! 36: ****************************************************************************/ ! 37: ! 38: #ifdef __unix__ ! 39: #include <stdio.h> ! 40: #include <unistd.h> ! 41: #ifdef __QNX__ ! 42: #include <strings.h> ! 43: #endif ! 44: #define mswait(x) delay(x) ! 45: #elif defined(_WIN32) ! 46: #include <share.h> ! 47: #include <windows.h> ! 48: #include <malloc.h> ! 49: #define mswait(x) Sleep(x) ! 50: #endif ! 51: ! 52: #include "ciolib.h" ! 53: #include "keys.h" ! 54: #include "uifc.h" ! 55: #define MAX_GETSTR 5120 ! 56: ! 57: #define BLINK 128 ! 58: ! 59: static int cursor; ! 60: static char* helpfile=0; ! 61: static uint helpline=0; ! 62: static size_t blk_scrn_len; ! 63: static char* blk_scrn; ! 64: static uchar* tmp_buffer; ! 65: static uchar* tmp_buffer2; ! 66: static win_t sav[MAX_BUFS]; ! 67: static uifcapi_t* api; ! 68: ! 69: /* Prototypes */ ! 70: static int uprintf(int x, int y, unsigned attr, char *fmt,...); ! 71: static void bottomline(int line); ! 72: static char *utimestr(time_t *intime); ! 73: static void help(void); ! 74: static int ugetstr(int left, int top, int width, char *outstr, int max, long mode, int *lastkey); ! 75: static void timedisplay(BOOL force); ! 76: ! 77: /* API routines */ ! 78: static void uifcbail(void); ! 79: static int uscrn(char *str); ! 80: static int ulist(int mode, int left, int top, int width, int *dflt, int *bar ! 81: ,char *title, char **option); ! 82: static int uinput(int imode, int left, int top, char *prompt, char *str ! 83: ,int len ,int kmode); ! 84: static void umsg(char *str); ! 85: static void upop(char *str); ! 86: static void sethelp(int line, char* file); ! 87: static void showbuf(int mode, int left, int top, int width, int height, char *title ! 88: , char *hbuf, int *curp, int *barp); ! 89: ! 90: /* Dynamic menu support */ ! 91: static int *last_menu_cur=NULL; ! 92: static int *last_menu_bar=NULL; ! 93: static int save_menu_cur=-1; ! 94: static int save_menu_bar=-1; ! 95: static int save_menu_opts=-1; ! 96: ! 97: static void reset_dynamic(void) { ! 98: last_menu_cur=NULL; ! 99: last_menu_bar=NULL; ! 100: save_menu_cur=-1; ! 101: save_menu_bar=-1; ! 102: save_menu_opts=-1; ! 103: } ! 104: ! 105: /****************************************************************************/ ! 106: /* Initialization function, see uifc.h for details. */ ! 107: /* Returns 0 on success. */ ! 108: /****************************************************************************/ ! 109: ! 110: void uifc_mouse_enable(void) ! 111: { ! 112: ciomouse_setevents(0); ! 113: ciomouse_addevent(CIOLIB_BUTTON_1_DRAG_START); ! 114: ciomouse_addevent(CIOLIB_BUTTON_1_DRAG_MOVE); ! 115: ciomouse_addevent(CIOLIB_BUTTON_1_DRAG_END); ! 116: ciomouse_addevent(CIOLIB_BUTTON_1_CLICK); ! 117: ciomouse_addevent(CIOLIB_BUTTON_2_CLICK); ! 118: ciomouse_addevent(CIOLIB_BUTTON_3_CLICK); ! 119: showmouse(); ! 120: } ! 121: ! 122: void uifc_mouse_disable(void) ! 123: { ! 124: ciomouse_setevents(0); ! 125: hidemouse(); ! 126: } ! 127: ! 128: int kbwait(void) { ! 129: int timeout=0; ! 130: while(timeout++<50) { ! 131: if(kbhit()) ! 132: return(TRUE); ! 133: mswait(1); ! 134: } ! 135: return(FALSE); ! 136: } ! 137: ! 138: int inkey(void) ! 139: { ! 140: int c; ! 141: ! 142: c=getch(); ! 143: if(!c || c==0xff) ! 144: c|=(getch()<<8); ! 145: return(c); ! 146: } ! 147: ! 148: int uifcini32(uifcapi_t* uifcapi) ! 149: { ! 150: unsigned i; ! 151: struct text_info txtinfo; ! 152: ! 153: if(uifcapi==NULL || uifcapi->size!=sizeof(uifcapi_t)) ! 154: return(-1); ! 155: ! 156: api=uifcapi; ! 157: ! 158: /* install function handlers */ ! 159: api->bail=uifcbail; ! 160: api->scrn=uscrn; ! 161: api->msg=umsg; ! 162: api->pop=upop; ! 163: api->list=ulist; ! 164: api->input=uinput; ! 165: api->sethelp=sethelp; ! 166: api->showhelp=help; ! 167: api->showbuf=showbuf; ! 168: api->timedisplay=timedisplay; ! 169: api->bottomline=bottomline; ! 170: api->getstrxy=ugetstr; ! 171: api->printf=uprintf; ! 172: ! 173: if(api->scrn_len!=0) { ! 174: switch(api->scrn_len) { ! 175: case 14: ! 176: textmode(C80X14); ! 177: break; ! 178: case 21: ! 179: textmode(C80X21); ! 180: break; ! 181: case 25: ! 182: textmode(C80); ! 183: break; ! 184: case 28: ! 185: textmode(C80X28); ! 186: break; ! 187: case 43: ! 188: textmode(C80X43); ! 189: break; ! 190: case 50: ! 191: textmode(C80X50); ! 192: break; ! 193: case 60: ! 194: textmode(C80X60); ! 195: break; ! 196: default: ! 197: textmode(C4350); ! 198: break; ! 199: } ! 200: } ! 201: ! 202: #if 0 ! 203: clrscr(); ! 204: #endif ! 205: ! 206: gettextinfo(&txtinfo); ! 207: /* unsupported mode? */ ! 208: if(txtinfo.screenheight<MIN_LINES ! 209: /* || txtinfo.screenheight>MAX_LINES */ ! 210: || txtinfo.screenwidth<40) { ! 211: textmode(C80); /* set mode to 80x25*/ ! 212: gettextinfo(&txtinfo); ! 213: } ! 214: window(1,1,txtinfo.screenwidth,txtinfo.screenheight); ! 215: ! 216: api->scrn_len=txtinfo.screenheight; ! 217: if(api->scrn_len<MIN_LINES) { ! 218: cprintf("\7UIFC: Screen length (%u) must be %d lines or greater\r\n" ! 219: ,api->scrn_len,MIN_LINES); ! 220: return(-2); ! 221: } ! 222: api->scrn_len--; /* account for status line */ ! 223: ! 224: if(txtinfo.screenwidth<40) { ! 225: cprintf("\7UIFC: Screen width (%u) must be at least 40 characters\r\n" ! 226: ,txtinfo.screenwidth); ! 227: return(-3); ! 228: } ! 229: api->scrn_width=txtinfo.screenwidth; ! 230: ! 231: if(!(api->mode&UIFC_COLOR) ! 232: && (api->mode&UIFC_MONO ! 233: || txtinfo.currmode==MONO || txtinfo.currmode==BW40 || txtinfo.currmode==BW80 ! 234: || txtinfo.currmode==MONO14 || txtinfo.currmode==BW40X14 || txtinfo.currmode==BW80X14 ! 235: || txtinfo.currmode==MONO21 || txtinfo.currmode==BW40X21 || txtinfo.currmode==BW80X21 ! 236: || txtinfo.currmode==MONO28 || txtinfo.currmode==BW40X28 || txtinfo.currmode==BW80X28 ! 237: || txtinfo.currmode==MONO43 || txtinfo.currmode==BW40X43 || txtinfo.currmode==BW80X43 ! 238: || txtinfo.currmode==MONO50 || txtinfo.currmode==BW40X50 || txtinfo.currmode==BW80X50 ! 239: || txtinfo.currmode==MONO60 || txtinfo.currmode==BW40X60 || txtinfo.currmode==BW80X60)) ! 240: { ! 241: api->bclr=BLACK; ! 242: api->hclr=WHITE; ! 243: api->lclr=LIGHTGRAY; ! 244: api->cclr=LIGHTGRAY; ! 245: api->lbclr=BLACK|(LIGHTGRAY<<4); /* lightbar color */ ! 246: } else { ! 247: api->bclr=BLUE; ! 248: api->hclr=YELLOW; ! 249: api->lclr=WHITE; ! 250: api->cclr=CYAN; ! 251: api->lbclr=BLUE|(LIGHTGRAY<<4); /* lightbar color */ ! 252: } ! 253: ! 254: blk_scrn_len=api->scrn_width*api->scrn_len*2; ! 255: if((blk_scrn=(char *)malloc(blk_scrn_len))==NULL) { ! 256: cprintf("UIFC line %d: error allocating %u bytes." ! 257: ,__LINE__,blk_scrn_len); ! 258: return(-1); ! 259: } ! 260: if((tmp_buffer=(uchar *)malloc(blk_scrn_len))==NULL) { ! 261: cprintf("UIFC line %d: error allocating %u bytes." ! 262: ,__LINE__,blk_scrn_len); ! 263: return(-1); ! 264: } ! 265: if((tmp_buffer2=(uchar *)malloc(blk_scrn_len))==NULL) { ! 266: cprintf("UIFC line %d: error allocating %u bytes." ! 267: ,__LINE__,blk_scrn_len); ! 268: return(-1); ! 269: } ! 270: for(i=0;i<blk_scrn_len;i+=2) { ! 271: blk_scrn[i]='�'; ! 272: blk_scrn[i+1]=api->cclr|(api->bclr<<4); ! 273: } ! 274: ! 275: cursor=_NOCURSOR; ! 276: _setcursortype(cursor); ! 277: ! 278: if(cio_api.mouse) { ! 279: api->mode|=UIFC_MOUSE; ! 280: uifc_mouse_enable(); ! 281: } ! 282: ! 283: /* A esc_delay of less than 10 is stupid... silently override */ ! 284: if(api->esc_delay < 10) ! 285: api->esc_delay=25; ! 286: ! 287: if(cio_api.ESCDELAY) ! 288: *(cio_api.ESCDELAY)=api->esc_delay; ! 289: ! 290: api->initialized=TRUE; ! 291: ! 292: for(i=0; i<MAX_BUFS; i++) ! 293: sav[i].buf=NULL; ! 294: ! 295: return(0); ! 296: } ! 297: ! 298: void docopy(void) ! 299: { ! 300: int key; ! 301: struct mouse_event mevent; ! 302: unsigned char *screen; ! 303: unsigned char *sbuffer; ! 304: int sbufsize=0; ! 305: int x,y,startx,starty,endx,endy,lines; ! 306: int outpos; ! 307: char *copybuf; ! 308: ! 309: sbufsize=api->scrn_width*2*(api->scrn_len+1); ! 310: screen=(unsigned char*)alloca(sbufsize); ! 311: sbuffer=(unsigned char*)alloca(sbufsize); ! 312: gettext(1,1,api->scrn_width,api->scrn_len+1,screen); ! 313: while(1) { ! 314: key=getch(); ! 315: if(key==0 || key==0xff) ! 316: key|=getch()<<8; ! 317: switch(key) { ! 318: case CIO_KEY_MOUSE: ! 319: getmouse(&mevent); ! 320: if(mevent.startx<mevent.endx) { ! 321: startx=mevent.startx; ! 322: endx=mevent.endx; ! 323: } ! 324: else { ! 325: startx=mevent.endx; ! 326: endx=mevent.startx; ! 327: } ! 328: if(mevent.starty<mevent.endy) { ! 329: starty=mevent.starty; ! 330: endy=mevent.endy; ! 331: } ! 332: else { ! 333: starty=mevent.endy; ! 334: endy=mevent.starty; ! 335: } ! 336: switch(mevent.event) { ! 337: case CIOLIB_BUTTON_1_DRAG_MOVE: ! 338: memcpy(sbuffer,screen,sbufsize); ! 339: for(y=starty-1;y<endy;y++) { ! 340: for(x=startx-1;x<endx;x++) { ! 341: int pos=y*api->scrn_width+x; ! 342: if((sbuffer[pos*2+1]&0x70)!=0x10) ! 343: sbuffer[pos*2+1]=sbuffer[pos*2+1]&0x8F|0x10; ! 344: else ! 345: sbuffer[pos*2+1]=sbuffer[pos*2+1]&0x8F|0x60; ! 346: if(((sbuffer[pos*2+1]&0x70)>>4) == (sbuffer[pos*2+1]&0x0F)) { ! 347: sbuffer[pos*2+1]|=0x08; ! 348: } ! 349: } ! 350: } ! 351: puttext(1,1,api->scrn_width,api->scrn_len+1,sbuffer); ! 352: break; ! 353: case CIOLIB_BUTTON_1_DRAG_END: ! 354: lines=abs(mevent.endy-mevent.starty)+1; ! 355: copybuf=alloca((endy-starty+1)*(endx-startx+1)+1+lines*2); ! 356: outpos=0; ! 357: for(y=starty-1;y<endy;y++) { ! 358: for(x=startx-1;x<endx;x++) { ! 359: copybuf[outpos++]=screen[(y*api->scrn_width+x)*2]; ! 360: } ! 361: copybuf[outpos++]='\r'; ! 362: copybuf[outpos++]='\n'; ! 363: } ! 364: copybuf[outpos]=0; ! 365: copytext(copybuf, strlen(copybuf)); ! 366: puttext(1,1,api->scrn_width,api->scrn_len+1,screen); ! 367: return; ! 368: } ! 369: break; ! 370: default: ! 371: puttext(1,1,api->scrn_width,api->scrn_len+1,screen); ! 372: ungetch(key); ! 373: return; ! 374: } ! 375: } ! 376: } ! 377: ! 378: static int uifc_getmouse(struct mouse_event *mevent) ! 379: { ! 380: mevent->startx=0; ! 381: mevent->starty=0; ! 382: mevent->event=0; ! 383: if(api->mode&UIFC_MOUSE) { ! 384: getmouse(mevent); ! 385: if(mevent->event==CIOLIB_BUTTON_3_CLICK) ! 386: return(ESC); ! 387: if(mevent->event==CIOLIB_BUTTON_1_DRAG_START) { ! 388: docopy(); ! 389: return(0); ! 390: } ! 391: if(mevent->starty==api->buttony) { ! 392: if(mevent->startx>=api->exitstart ! 393: && mevent->startx<=api->exitend ! 394: && mevent->event==CIOLIB_BUTTON_1_CLICK) { ! 395: return(ESC); ! 396: } ! 397: if(mevent->startx>=api->helpstart ! 398: && mevent->startx<=api->helpend ! 399: && mevent->event==CIOLIB_BUTTON_1_CLICK) { ! 400: return(CIO_KEY_F(1)); ! 401: } ! 402: } ! 403: return(0); ! 404: } ! 405: return(-1); ! 406: } ! 407: ! 408: void uifcbail(void) ! 409: { ! 410: _setcursortype(_NORMALCURSOR); ! 411: textattr(LIGHTGRAY); ! 412: uifc_mouse_disable(); ! 413: suspendciolib(); ! 414: FREE_AND_NULL(blk_scrn); ! 415: FREE_AND_NULL(tmp_buffer); ! 416: FREE_AND_NULL(tmp_buffer2); ! 417: api->initialized=FALSE; ! 418: } ! 419: ! 420: /****************************************************************************/ ! 421: /* Clear screen, fill with background attribute, display application title. */ ! 422: /* Returns 0 on success. */ ! 423: /****************************************************************************/ ! 424: int uscrn(char *str) ! 425: { ! 426: textattr(api->bclr|(api->cclr<<4)); ! 427: gotoxy(1,1); ! 428: clreol(); ! 429: gotoxy(3,1); ! 430: cputs(str); ! 431: if(!puttext(1,2,api->scrn_width,api->scrn_len,blk_scrn)) ! 432: return(-1); ! 433: gotoxy(1,api->scrn_len+1); ! 434: clreol(); ! 435: reset_dynamic(); ! 436: setname(str); ! 437: return(0); ! 438: } ! 439: ! 440: /****************************************************************************/ ! 441: /****************************************************************************/ ! 442: static void scroll_text(int x1, int y1, int x2, int y2, int down) ! 443: { ! 444: gettext(x1,y1,x2,y2,tmp_buffer2); ! 445: if(down) ! 446: puttext(x1,y1+1,x2,y2,tmp_buffer2); ! 447: else ! 448: puttext(x1,y1,x2,y2-1,tmp_buffer2+(((x2-x1)+1)*2)); ! 449: } ! 450: ! 451: /****************************************************************************/ ! 452: /* Updates time in upper left corner of screen with current time in ASCII/ */ ! 453: /* Unix format */ ! 454: /****************************************************************************/ ! 455: static void timedisplay(BOOL force) ! 456: { ! 457: static time_t savetime; ! 458: time_t now; ! 459: ! 460: now=time(NULL); ! 461: if(force || difftime(now,savetime)>=60) { ! 462: uprintf(api->scrn_width-25,1,api->bclr|(api->cclr<<4),utimestr(&now)); ! 463: savetime=now; ! 464: } ! 465: } ! 466: ! 467: /****************************************************************************/ ! 468: /* Truncates white-space chars off end of 'str' */ ! 469: /****************************************************************************/ ! 470: static void truncsp(char *str) ! 471: { ! 472: uint c; ! 473: ! 474: c=strlen(str); ! 475: while(c && (uchar)str[c-1]<=' ') c--; ! 476: if(str[c]!=0) /* don't write to string constants */ ! 477: str[c]=0; ! 478: } ! 479: ! 480: /****************************************************************************/ ! 481: /* General menu function, see uifc.h for details. */ ! 482: /****************************************************************************/ ! 483: int ulist(int mode, int left, int top, int width, int *cur, int *bar ! 484: , char *initial_title, char **option) ! 485: { ! 486: uchar line[256],shade[256],*ptr ! 487: ,search[MAX_OPLN],bline=0,*win; ! 488: int height,y; ! 489: int i,j,opts=0,s=0; /* s=search index into options */ ! 490: int is_redraw=0; ! 491: int s_top=SCRN_TOP; ! 492: int s_left=SCRN_LEFT; ! 493: int s_right=SCRN_RIGHT; ! 494: int s_bottom=api->scrn_len-3; ! 495: int hbrdrsize=2; ! 496: int lbrdrwidth=1; ! 497: int rbrdrwidth=1; ! 498: int vbrdrsize=4; ! 499: int tbrdrwidth=3; ! 500: int bbrdrwidth=1; ! 501: int title_len; ! 502: struct mouse_event mevnt; ! 503: char *title=NULL; ! 504: int a,b,c,longopt; ! 505: int optheight=0; ! 506: uchar hclr,lclr,bclr,cclr,lbclr; ! 507: ! 508: hclr=api->hclr; ! 509: lclr=api->lclr; ! 510: bclr=api->bclr; ! 511: cclr=api->cclr; ! 512: lbclr=api->lbclr; ! 513: if(mode & WIN_INACT) { ! 514: bclr=api->cclr; ! 515: hclr=api->lclr; ! 516: lclr=api->lclr; ! 517: cclr=api->cclr; ! 518: lbclr=(api->cclr<<4)|api->hclr; ! 519: } ! 520: title=strdup(initial_title==NULL?"":initial_title); ! 521: ! 522: uifc_mouse_disable(); ! 523: ! 524: title_len=strlen(title); ! 525: ! 526: if(mode&WIN_FAT) { ! 527: s_top=1; ! 528: s_left=2; ! 529: s_right=api->scrn_width-3; /* Leave space for the shadow */ ! 530: s_bottom=api->scrn_len-1; /* Leave one for the shadow */ ! 531: } ! 532: if(mode&WIN_NOBRDR) { ! 533: hbrdrsize=0; ! 534: vbrdrsize=0; ! 535: lbrdrwidth=0; ! 536: rbrdrwidth=0; ! 537: tbrdrwidth=0; ! 538: bbrdrwidth=0; ! 539: } ! 540: ! 541: if(mode&WIN_SAV && api->savnum>=MAX_BUFS-1) ! 542: putch(7); ! 543: if(api->helpbuf!=NULL || api->helpixbfile[0]!=0) bline|=BL_HELP; ! 544: if(mode&WIN_INS) bline|=BL_INS; ! 545: if(mode&WIN_DEL) bline|=BL_DEL; ! 546: if(mode&WIN_GET) bline|=BL_GET; ! 547: if(mode&WIN_PUT) bline|=BL_PUT; ! 548: if(mode&WIN_EDIT) bline|=BL_EDIT; ! 549: if(api->bottomline != NULL) ! 550: api->bottomline(bline); ! 551: while(option!=NULL && opts<MAX_OPTS) ! 552: if(option[opts]==NULL || option[opts][0]==0) ! 553: break; ! 554: else opts++; ! 555: if(mode&WIN_XTR && opts<MAX_OPTS) ! 556: opts++; ! 557: optheight=opts+vbrdrsize; ! 558: height=optheight; ! 559: if(mode&WIN_FIXEDHEIGHT) { ! 560: height=api->list_height; ! 561: } ! 562: if(top+height>s_bottom) ! 563: height=(s_bottom)-top; ! 564: if(optheight>height) ! 565: optheight=height; ! 566: if(!width || width<title_len+hbrdrsize+2) { ! 567: width=title_len+hbrdrsize+2; ! 568: for(i=0;i<opts;i++) { ! 569: if(option[i]!=NULL) { ! 570: truncsp(option[i]); ! 571: if((j=strlen(option[i])+hbrdrsize+2+1)>width) ! 572: width=j; ! 573: } ! 574: } ! 575: } ! 576: /* Determine minimum widths here to accomodate mouse "icons" in border */ ! 577: if(!(mode&WIN_NOBRDR) && api->mode&UIFC_MOUSE) { ! 578: if(bline&BL_HELP && width<8) ! 579: width=8; ! 580: else if(width<5) ! 581: width=5; ! 582: } ! 583: if(width>(s_right+1)-s_left) { ! 584: width=(s_right+1)-s_left; ! 585: if(title_len>(width-hbrdrsize-2)) { ! 586: *(title+width-hbrdrsize-2-3)='.'; ! 587: *(title+width-hbrdrsize-2-2)='.'; ! 588: *(title+width-hbrdrsize-2-1)='.'; ! 589: *(title+width-hbrdrsize-2)=0; ! 590: title_len=strlen(title); ! 591: } ! 592: } ! 593: if(mode&WIN_L2R) ! 594: left=(s_right-s_left-width+1)/2; ! 595: else if(mode&WIN_RHT) ! 596: left=s_right-(width+hbrdrsize+2+left); ! 597: if(mode&WIN_T2B) ! 598: top=(api->scrn_len-height+1)/2-2; ! 599: else if(mode&WIN_BOT) ! 600: top=s_bottom-height-top; ! 601: if(left<0) ! 602: left=0; ! 603: if(top<0) ! 604: top=0; ! 605: ! 606: /* Dynamic Menus */ ! 607: if(mode&WIN_DYN ! 608: && cur != NULL ! 609: && bar != NULL ! 610: && last_menu_cur==cur ! 611: && last_menu_bar==bar ! 612: && save_menu_cur==*cur ! 613: && save_menu_bar==*bar ! 614: && save_menu_opts==opts) { ! 615: is_redraw=1; ! 616: } ! 617: ! 618: if(mode&WIN_DYN && mode&WIN_REDRAW) ! 619: is_redraw=1; ! 620: if(mode&WIN_DYN && mode&WIN_NODRAW) ! 621: is_redraw=0; ! 622: ! 623: if(mode&WIN_ORG) { /* Clear all save buffers on WIN_ORG */ ! 624: for(i=0; i< MAX_BUFS; i++) ! 625: FREE_AND_NULL(sav[i].buf); ! 626: api->savnum=0; ! 627: } ! 628: ! 629: if(mode&WIN_SAV) { ! 630: /* Check if this screen (by cur/bar) is already saved */ ! 631: for(i=0; i<MAX_BUFS; i++) { ! 632: if(sav[i].buf!=NULL) { ! 633: if(cur==sav[i].cur && bar==sav[i].bar) { ! 634: /* Yes, it is... */ ! 635: for(j=api->savnum-1; j>i; j--) { ! 636: /* Retore old screens */ ! 637: puttext(sav[j].left,sav[j].top,sav[j].right,sav[j].bot ! 638: ,sav[j].buf); /* put original window back */ ! 639: FREE_AND_NULL(sav[j].buf); ! 640: } ! 641: api->savnum=i; ! 642: } ! 643: } ! 644: } ! 645: /* savnum not the next one - must be a dynamic window or we popped back up the stack */ ! 646: if(sav[api->savnum].buf != NULL) { ! 647: /* Is this even the right window? */ ! 648: if(sav[api->savnum].cur==cur ! 649: && sav[api->savnum].bar==bar) { ! 650: if((sav[api->savnum].left!=s_left+left ! 651: || sav[api->savnum].top!=s_top+top ! 652: || sav[api->savnum].right!=s_left+left+width+1 ! 653: || sav[api->savnum].bot!=s_top+top+height)) { /* dimensions have changed */ ! 654: puttext(sav[api->savnum].left,sav[api->savnum].top,sav[api->savnum].right,sav[api->savnum].bot ! 655: ,sav[api->savnum].buf); /* put original window back */ ! 656: FREE_AND_NULL(sav[api->savnum].buf); ! 657: if((sav[api->savnum].buf=(char *)malloc((width+3)*(height+2)*2))==NULL) { ! 658: cprintf("UIFC line %d: error allocating %u bytes." ! 659: ,__LINE__,(width+3)*(height+2)*2); ! 660: free(title); ! 661: uifc_mouse_enable(); ! 662: return(-1); ! 663: } ! 664: gettext(s_left+left,s_top+top,s_left+left+width+1 ! 665: ,s_top+top+height,sav[api->savnum].buf); /* save again */ ! 666: sav[api->savnum].left=s_left+left; ! 667: sav[api->savnum].top=s_top+top; ! 668: sav[api->savnum].right=s_left+left+width+1; ! 669: sav[api->savnum].bot=s_top+top+height; ! 670: sav[api->savnum].cur=cur; ! 671: sav[api->savnum].bar=bar; ! 672: } ! 673: } ! 674: else { ! 675: /* Find something available... */ ! 676: while(sav[api->savnum].buf!=NULL) ! 677: api->savnum++; ! 678: } ! 679: } ! 680: else { ! 681: if((sav[api->savnum].buf=(char *)malloc((width+3)*(height+2)*2))==NULL) { ! 682: cprintf("UIFC line %d: error allocating %u bytes." ! 683: ,__LINE__,(width+3)*(height+2)*2); ! 684: free(title); ! 685: uifc_mouse_enable(); ! 686: return(-1); ! 687: } ! 688: gettext(s_left+left,s_top+top,s_left+left+width+1 ! 689: ,s_top+top+height,sav[api->savnum].buf); ! 690: sav[api->savnum].left=s_left+left; ! 691: sav[api->savnum].top=s_top+top; ! 692: sav[api->savnum].right=s_left+left+width+1; ! 693: sav[api->savnum].bot=s_top+top+height; ! 694: sav[api->savnum].cur=cur; ! 695: sav[api->savnum].bar=bar; ! 696: } ! 697: } ! 698: ! 699: if(!is_redraw) { ! 700: if(mode&WIN_ORG) { /* Clear around menu */ ! 701: if(top) ! 702: puttext(1,2,api->scrn_width,s_top+top-1,blk_scrn); ! 703: if((unsigned)(s_top+height+top)<=api->scrn_len) ! 704: puttext(1,s_top+height+top,api->scrn_width,api->scrn_len,blk_scrn); ! 705: if(left) ! 706: puttext(1,s_top+top,s_left+left-1,s_top+height+top ! 707: ,blk_scrn); ! 708: if(s_left+left+width<=s_right) ! 709: puttext(s_left+left+width,s_top+top,/* s_right+2 */api->scrn_width ! 710: ,s_top+height+top,blk_scrn); ! 711: } ! 712: ptr=tmp_buffer; ! 713: if(!(mode&WIN_NOBRDR)) { ! 714: *(ptr++)='�'; ! 715: *(ptr++)=hclr|(bclr<<4); ! 716: ! 717: if(api->mode&UIFC_MOUSE) { ! 718: *(ptr++)='['; ! 719: *(ptr++)=hclr|(bclr<<4); ! 720: /* *(ptr++)='�'; */ ! 721: *(ptr++)=0xfe; ! 722: *(ptr++)=lclr|(bclr<<4); ! 723: *(ptr++)=']'; ! 724: *(ptr++)=hclr|(bclr<<4); ! 725: i=3; ! 726: if(bline&BL_HELP) { ! 727: *(ptr++)='['; ! 728: *(ptr++)=hclr|(bclr<<4); ! 729: *(ptr++)='?'; ! 730: *(ptr++)=lclr|(bclr<<4); ! 731: *(ptr++)=']'; ! 732: *(ptr++)=hclr|(bclr<<4); ! 733: i+=3; ! 734: } ! 735: api->buttony=s_top+top; ! 736: api->exitstart=s_left+left+1; ! 737: api->exitend=s_left+left+3; ! 738: api->helpstart=s_left+left+4; ! 739: api->helpend=s_left+left+6; ! 740: } ! 741: else ! 742: i=0; ! 743: ! 744: for(;i<width-2;i++) { ! 745: *(ptr++)='�'; ! 746: *(ptr++)=hclr|(bclr<<4); ! 747: } ! 748: *(ptr++)='�'; ! 749: *(ptr++)=hclr|(bclr<<4); ! 750: *(ptr++)='�'; ! 751: *(ptr++)=hclr|(bclr<<4); ! 752: a=title_len; ! 753: b=(width-a-1)/2; ! 754: for(i=0;i<b;i++) { ! 755: *(ptr++)=' '; ! 756: *(ptr++)=hclr|(bclr<<4); ! 757: } ! 758: for(i=0;i<a;i++) { ! 759: *(ptr++)=title[i]; ! 760: *(ptr++)=hclr|(bclr<<4); ! 761: } ! 762: for(i=0;i<width-(a+b)-2;i++) { ! 763: *(ptr++)=' '; ! 764: *(ptr++)=hclr|(bclr<<4); ! 765: } ! 766: *(ptr++)='�'; ! 767: *(ptr++)=hclr|(bclr<<4); ! 768: *(ptr++)='�'; ! 769: *(ptr++)=hclr|(bclr<<4); ! 770: for(i=0;i<width-2;i++) { ! 771: *(ptr++)='�'; ! 772: *(ptr++)=hclr|(bclr<<4); ! 773: } ! 774: *(ptr++)='�'; ! 775: *(ptr++)=hclr|(bclr<<4); ! 776: } ! 777: ! 778: if((*cur)>=opts) ! 779: (*cur)=opts-1; /* returned after scrolled */ ! 780: ! 781: if(!bar) { ! 782: if((*cur)>height-vbrdrsize-1) ! 783: (*cur)=height-vbrdrsize-1; ! 784: if((*cur)>opts-1) ! 785: (*cur)=opts-1; ! 786: i=0; ! 787: } ! 788: else { ! 789: if((*bar)>=opts) ! 790: (*bar)=opts-1; ! 791: if((*bar)>height-vbrdrsize-1) ! 792: (*bar)=height-vbrdrsize-1; ! 793: if((*cur)==opts-1) ! 794: (*bar)=height-vbrdrsize-1; ! 795: if((*bar)>opts-1) ! 796: (*bar)=opts-1; ! 797: if((*bar)<0) ! 798: (*bar)=0; ! 799: if((*cur)<(*bar)) ! 800: (*cur)=(*bar); ! 801: i=(*cur)-(*bar); ! 802: if(i+(height-vbrdrsize-1)>=opts) { ! 803: i=opts-(height-vbrdrsize); ! 804: if(i<0) ! 805: i=0; ! 806: (*cur)=i+(*bar); ! 807: } ! 808: } ! 809: if((*cur)<0) ! 810: (*cur)=0; ! 811: ! 812: j=0; ! 813: if(i<0) i=0; ! 814: longopt=0; ! 815: while(j<height-vbrdrsize) { ! 816: if(!(mode&WIN_NOBRDR)) { ! 817: *(ptr++)='�'; ! 818: *(ptr++)=hclr|(bclr<<4); ! 819: } ! 820: *(ptr++)=' '; ! 821: *(ptr++)=hclr|(bclr<<4); ! 822: *(ptr++)='�'; ! 823: *(ptr++)=lclr|(bclr<<4); ! 824: if(i==(*cur)) ! 825: a=lbclr; ! 826: else ! 827: a=lclr|(bclr<<4); ! 828: if(i<opts && option[i]!=NULL) { ! 829: b=strlen(option[i]); ! 830: if(b>longopt) ! 831: longopt=b; ! 832: if(b+hbrdrsize+2>width) ! 833: b=width-hbrdrsize-2; ! 834: for(c=0;c<b;c++) { ! 835: *(ptr++)=option[i][c]; ! 836: *(ptr++)=a; ! 837: } ! 838: } ! 839: else ! 840: c=0; ! 841: while(c<width-hbrdrsize-2) { ! 842: *(ptr++)=' '; ! 843: *(ptr++)=a; ! 844: c++; ! 845: } ! 846: if(!(mode&WIN_NOBRDR)) { ! 847: *(ptr++)='�'; ! 848: *(ptr++)=hclr|(bclr<<4); ! 849: } ! 850: i++; ! 851: j++; ! 852: } ! 853: if(!(mode&WIN_NOBRDR)) { ! 854: *(ptr++)='�'; ! 855: *(ptr++)=hclr|(bclr<<4); ! 856: for(i=0;i<width-2;i++) { ! 857: *(ptr++)='�'; ! 858: *(ptr++)=hclr|(bclr<<4); ! 859: } ! 860: *(ptr++)='�'; ! 861: *(ptr)=hclr|(bclr<<4); /* Not incremented to shut ot BCC */ ! 862: } ! 863: puttext(s_left+left,s_top+top,s_left+left+width-1 ! 864: ,s_top+top+height-1,tmp_buffer); ! 865: if(bar) ! 866: y=top+tbrdrwidth+(*bar); ! 867: else ! 868: y=top+tbrdrwidth+(*cur); ! 869: if(opts+vbrdrsize>height && ((!bar && (*cur)!=opts-1) ! 870: || (bar && ((*cur)-(*bar))+(height-vbrdrsize)<opts))) { ! 871: gotoxy(s_left+left+lbrdrwidth,s_top+top+height-bbrdrwidth-1); ! 872: textattr(lclr|(bclr<<4)); ! 873: putch(31); /* put down arrow */ ! 874: textattr(hclr|(bclr<<4)); ! 875: } ! 876: ! 877: if(bar && (*bar)!=(*cur)) { ! 878: gotoxy(s_left+left+lbrdrwidth,s_top+top+tbrdrwidth); ! 879: textattr(lclr|(bclr<<4)); ! 880: putch(30); /* put the up arrow */ ! 881: textattr(hclr|(bclr<<4)); ! 882: } ! 883: ! 884: if(!(mode&WIN_NOBRDR)) { ! 885: /* Shadow */ ! 886: if(bclr==BLUE) { ! 887: gettext(s_left+left+width,s_top+top+1,s_left+left+width+1 ! 888: ,s_top+top+height-1,shade); ! 889: for(i=1;i<height*4;i+=2) ! 890: shade[i]=DARKGRAY; ! 891: puttext(s_left+left+width,s_top+top+1,s_left+left+width+1 ! 892: ,s_top+top+height-1,shade); ! 893: gettext(s_left+left+2,s_top+top+height,s_left+left+width+1 ! 894: ,s_top+top+height,shade); ! 895: for(i=1;i<width*2;i+=2) ! 896: shade[i]=DARKGRAY; ! 897: puttext(s_left+left+2,s_top+top+height,s_left+left+width+1 ! 898: ,s_top+top+height,shade); ! 899: } ! 900: } ! 901: } ! 902: else { /* Is a redraw */ ! 903: if(bar) ! 904: y=top+tbrdrwidth+(*bar); ! 905: else ! 906: y=top+tbrdrwidth+(*cur); ! 907: i=(*cur)+(top+tbrdrwidth-y); ! 908: j=2; ! 909: ! 910: longopt=0; ! 911: while(j<height-bbrdrwidth-1) { ! 912: ptr=tmp_buffer; ! 913: if(i==(*cur)) ! 914: a=lbclr; ! 915: else ! 916: a=lclr|(bclr<<4); ! 917: if(i<opts && option[i]!=NULL) { ! 918: b=strlen(option[i]); ! 919: if(b>longopt) ! 920: longopt=b; ! 921: if(b+hbrdrsize+2>width) ! 922: b=width-hbrdrsize-2; ! 923: for(c=0;c<b;c++) { ! 924: *(ptr++)=option[i][c]; ! 925: *(ptr++)=a; ! 926: } ! 927: } ! 928: else ! 929: c=0; ! 930: while(c<width-hbrdrsize-2) { ! 931: *(ptr++)=' '; ! 932: *(ptr++)=a; ! 933: c++; ! 934: } ! 935: i++; ! 936: j++; ! 937: puttext(s_left+left+lbrdrwidth+2,s_top+top+j,s_left+left+width-rbrdrwidth-1 ! 938: ,s_top+top+j,tmp_buffer); ! 939: } ! 940: } ! 941: free(title); ! 942: ! 943: last_menu_cur=cur; ! 944: last_menu_bar=bar; ! 945: uifc_mouse_enable(); ! 946: ! 947: if(mode&WIN_IMM) { ! 948: return(-2); ! 949: } ! 950: ! 951: if(mode&WIN_ORG) { ! 952: if(api->timedisplay != NULL) ! 953: api->timedisplay(/* force? */TRUE); ! 954: } ! 955: ! 956: while(1) { ! 957: #if 0 /* debug */ ! 958: gotoxy(30,1); ! 959: cprintf("y=%2d h=%2d c=%2d b=%2d s=%2d o=%2d" ! 960: ,y,height,*cur,bar ? *bar :0xff,api->savnum,opts); ! 961: #endif ! 962: if(api->timedisplay != NULL) ! 963: api->timedisplay(/* force? */FALSE); ! 964: i=0; ! 965: if(kbwait()) { ! 966: i=inkey(); ! 967: if(i==CIO_KEY_MOUSE) { ! 968: if((i=uifc_getmouse(&mevnt))==0) { ! 969: /* Clicked in menu */ ! 970: if(mevnt.startx>=s_left+left+lbrdrwidth+2 ! 971: && mevnt.startx<=s_left+left+width-rbrdrwidth-1 ! 972: && mevnt.starty>=s_top+top+tbrdrwidth ! 973: && mevnt.starty<=(s_top+top+optheight)-bbrdrwidth-1 ! 974: && mevnt.event==CIOLIB_BUTTON_1_CLICK) { ! 975: ! 976: (*cur)=((mevnt.starty)-(s_top+top+tbrdrwidth))+(*cur+(top+tbrdrwidth-y)); ! 977: if(bar) ! 978: (*bar)=(*cur); ! 979: y=top+tbrdrwidth+((mevnt.starty)-(s_top+top+tbrdrwidth)); ! 980: ! 981: if(!opts) ! 982: continue; ! 983: ! 984: if(mode&WIN_SAV) ! 985: api->savnum++; ! 986: if(mode&WIN_ACT) { ! 987: uifc_mouse_disable(); ! 988: if((win=(char *)alloca((width+3)*(height+2)*2))==NULL) { ! 989: cprintf("UIFC line %d: error allocating %u bytes." ! 990: ,__LINE__,(width+3)*(height+2)*2); ! 991: return(-1); ! 992: } ! 993: gettext(s_left+left,s_top+top,s_left ! 994: +left+width-1,s_top+top+height-1,win); ! 995: for(i=1;i<(width*height*2);i+=2) ! 996: win[i]=lclr|(cclr<<4); ! 997: j=(((y-top)*width)*2)+7+((width-hbrdrsize-2)*2); ! 998: for(i=(((y-top)*width)*2)+7;i<j;i+=2) ! 999: win[i]=hclr|(cclr<<4); ! 1000: ! 1001: puttext(s_left+left,s_top+top,s_left ! 1002: +left+width-1,s_top+top+height-1,win); ! 1003: uifc_mouse_enable(); ! 1004: } ! 1005: else if(mode&WIN_SAV) { ! 1006: api->savnum--; ! 1007: uifc_mouse_disable(); ! 1008: puttext(sav[api->savnum].left,sav[api->savnum].top ! 1009: ,sav[api->savnum].right,sav[api->savnum].bot ! 1010: ,sav[api->savnum].buf); ! 1011: uifc_mouse_enable(); ! 1012: FREE_AND_NULL(sav[api->savnum].buf); ! 1013: } ! 1014: if(mode&WIN_XTR && (*cur)==opts-1) ! 1015: return(MSK_INS|*cur); ! 1016: return(*cur); ! 1017: } ! 1018: /* Clicked Scroll Up */ ! 1019: else if(mevnt.startx==s_left+left+lbrdrwidth ! 1020: && mevnt.starty==s_top+top+tbrdrwidth ! 1021: && mevnt.event==CIOLIB_BUTTON_1_CLICK) { ! 1022: i=CIO_KEY_PPAGE; ! 1023: } ! 1024: /* Clicked Scroll Down */ ! 1025: else if(mevnt.startx==s_left+left+lbrdrwidth ! 1026: && mevnt.starty==(s_top+top+height)-bbrdrwidth-1 ! 1027: && mevnt.event==CIOLIB_BUTTON_1_CLICK) { ! 1028: i=CIO_KEY_NPAGE; ! 1029: } ! 1030: /* Clicked Outside of Window */ ! 1031: else if((mevnt.startx<s_left+left ! 1032: || mevnt.startx>s_left+left+width-1 ! 1033: || mevnt.starty<s_top+top ! 1034: || mevnt.starty>s_top+top+height-1) ! 1035: && (mevnt.event==CIOLIB_BUTTON_1_CLICK ! 1036: || mevnt.event==CIOLIB_BUTTON_3_CLICK)) { ! 1037: if(mode&WIN_UNGETMOUSE) { ! 1038: ungetmouse(&mevnt); ! 1039: i=CIO_KEY_MOUSE; ! 1040: } ! 1041: else { ! 1042: i=ESC; ! 1043: } ! 1044: } ! 1045: } ! 1046: } ! 1047: /* For compatibility with terminals lacking special keys */ ! 1048: switch(i) { ! 1049: case '\b': ! 1050: i=ESC; ! 1051: break; ! 1052: case '+': ! 1053: i=CIO_KEY_IC; /* insert */ ! 1054: break; ! 1055: case '-': ! 1056: case DEL: ! 1057: i=CIO_KEY_DC; /* delete */ ! 1058: break; ! 1059: case CTRL_B: ! 1060: if(!(api->mode&UIFC_NOCTRL)) ! 1061: i=CIO_KEY_HOME; ! 1062: break; ! 1063: case CTRL_E: ! 1064: if(!(api->mode&UIFC_NOCTRL)) ! 1065: i=CIO_KEY_END; ! 1066: break; ! 1067: case CTRL_U: ! 1068: if(!(api->mode&UIFC_NOCTRL)) ! 1069: i=CIO_KEY_PPAGE; ! 1070: break; ! 1071: case CTRL_D: ! 1072: if(!(api->mode&UIFC_NOCTRL)) ! 1073: i=CIO_KEY_NPAGE; ! 1074: break; ! 1075: case CTRL_Z: ! 1076: if(!(api->mode&UIFC_NOCTRL)) ! 1077: i=CIO_KEY_F(1); /* help */ ! 1078: break; ! 1079: case CTRL_C: ! 1080: if(!(api->mode&UIFC_NOCTRL)) ! 1081: i=CIO_KEY_F(5); /* copy */ ! 1082: break; ! 1083: case CTRL_V: ! 1084: if(!(api->mode&UIFC_NOCTRL)) ! 1085: i=CIO_KEY_F(6); /* paste */ ! 1086: break; ! 1087: } ! 1088: if(i>255) { ! 1089: s=0; ! 1090: switch(i) { ! 1091: /* ToDo extended keys */ ! 1092: case CIO_KEY_HOME: /* home */ ! 1093: if(!opts) ! 1094: break; ! 1095: if(opts+vbrdrsize>optheight) { ! 1096: gotoxy(s_left+left+lbrdrwidth,s_top+top+tbrdrwidth); ! 1097: textattr(lclr|(bclr<<4)); ! 1098: putch(' '); /* Delete the up arrow */ ! 1099: gotoxy(s_left+left+lbrdrwidth,s_top+top+height-bbrdrwidth-1); ! 1100: putch(31); /* put the down arrow */ ! 1101: uprintf(s_left+left+lbrdrwidth+2,s_top+top+tbrdrwidth ! 1102: ,lbclr ! 1103: ,"%-*.*s",width-hbrdrsize-2,width-hbrdrsize-2,option[0]); ! 1104: for(i=1;i<optheight-vbrdrsize;i++) /* re-display options */ ! 1105: uprintf(s_left+left+lbrdrwidth+2,s_top+top+tbrdrwidth+i ! 1106: ,lclr|(bclr<<4) ! 1107: ,"%-*.*s",width-hbrdrsize-2,width-hbrdrsize-2,option[i]); ! 1108: (*cur)=0; ! 1109: if(bar) ! 1110: (*bar)=0; ! 1111: y=top+tbrdrwidth; ! 1112: break; ! 1113: } ! 1114: gettext(s_left+left+lbrdrwidth+2,s_top+y ! 1115: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1116: for(i=1;i<width*2;i+=2) ! 1117: line[i]=lclr|(bclr<<4); ! 1118: puttext(s_left+left+lbrdrwidth+2,s_top+y ! 1119: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1120: (*cur)=0; ! 1121: if(bar) ! 1122: (*bar)=0; ! 1123: y=top+tbrdrwidth; ! 1124: gettext(s_left+lbrdrwidth+2+left,s_top+y ! 1125: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1126: for(i=1;i<width*2;i+=2) ! 1127: line[i]=lbclr; ! 1128: puttext(s_left+lbrdrwidth+2+left,s_top+y ! 1129: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1130: break; ! 1131: case CIO_KEY_UP: /* up arrow */ ! 1132: if(!opts) ! 1133: break; ! 1134: if(!(*cur) && opts+vbrdrsize>optheight) { ! 1135: gotoxy(s_left+left+lbrdrwidth,s_top+top+tbrdrwidth); /* like end */ ! 1136: textattr(lclr|(bclr<<4)); ! 1137: putch(30); /* put the up arrow */ ! 1138: gotoxy(s_left+left+lbrdrwidth,s_top+top+height-bbrdrwidth-1); ! 1139: putch(' '); /* delete the down arrow */ ! 1140: for(i=(opts+vbrdrsize)-optheight,j=0;i<opts;i++,j++) ! 1141: uprintf(s_left+left+lbrdrwidth+2,s_top+top+tbrdrwidth+j ! 1142: ,i==opts-1 ? lbclr ! 1143: : lclr|(bclr<<4) ! 1144: ,"%-*.*s",width-hbrdrsize-2,width-hbrdrsize-2,option[i]); ! 1145: (*cur)=opts-1; ! 1146: if(bar) ! 1147: (*bar)=optheight-vbrdrsize-1; ! 1148: y=top+optheight-bbrdrwidth-1; ! 1149: break; ! 1150: } ! 1151: gettext(s_left+lbrdrwidth+2+left,s_top+y ! 1152: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1153: for(i=1;i<width*2;i+=2) ! 1154: line[i]=lclr|(bclr<<4); ! 1155: puttext(s_left+lbrdrwidth+2+left,s_top+y ! 1156: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1157: if(!(*cur)) { ! 1158: y=top+optheight-bbrdrwidth-1; ! 1159: (*cur)=opts-1; ! 1160: if(bar) ! 1161: (*bar)=optheight-vbrdrsize-1; ! 1162: } ! 1163: else { ! 1164: (*cur)--; ! 1165: y--; ! 1166: if(bar && *bar) ! 1167: (*bar)--; ! 1168: } ! 1169: if(y<top+tbrdrwidth) { /* scroll */ ! 1170: if(!(*cur)) { ! 1171: gotoxy(s_left+left+lbrdrwidth,s_top+top+tbrdrwidth); ! 1172: textattr(lclr|(bclr<<4)); ! 1173: putch(' '); /* delete the up arrow */ ! 1174: } ! 1175: if((*cur)+optheight-vbrdrsize==opts-1) { ! 1176: gotoxy(s_left+left+lbrdrwidth,s_top+top+height-bbrdrwidth-1); ! 1177: textattr(lclr|(bclr<<4)); ! 1178: putch(31); /* put the dn arrow */ ! 1179: } ! 1180: y++; ! 1181: scroll_text(s_left+left+lbrdrwidth+1,s_top+top+tbrdrwidth ! 1182: ,s_left+left+width-rbrdrwidth-1,s_top+top+height-bbrdrwidth-1,1); ! 1183: uprintf(s_left+left+lbrdrwidth+2,s_top+top+tbrdrwidth ! 1184: ,lbclr ! 1185: ,"%-*.*s",width-hbrdrsize-2,width-hbrdrsize-2,option[*cur]); ! 1186: } ! 1187: else { ! 1188: gettext(s_left+lbrdrwidth+2+left,s_top+y ! 1189: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1190: for(i=1;i<width*2;i+=2) ! 1191: line[i]=lbclr; ! 1192: puttext(s_left+lbrdrwidth+2+left,s_top+y ! 1193: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1194: } ! 1195: break; ! 1196: case CIO_KEY_PPAGE: /* PgUp */ ! 1197: if(!opts) ! 1198: break; ! 1199: *cur -= (optheight-vbrdrsize-1); ! 1200: if(*cur<0) ! 1201: *cur = 0; ! 1202: if(bar) ! 1203: *bar=0; ! 1204: y=top+tbrdrwidth; ! 1205: gotoxy(s_left+left+lbrdrwidth,s_top+top+tbrdrwidth); ! 1206: textattr(lclr|(bclr<<4)); ! 1207: if(*cur && opts>height-tbrdrwidth) /* Scroll mode */ ! 1208: putch(30); /* put the up arrow */ ! 1209: else ! 1210: putch(' '); /* delete the up arrow */ ! 1211: gotoxy(s_left+left+lbrdrwidth,s_top+top+height-bbrdrwidth-1); ! 1212: if(opts > height-tbrdrwidth && *cur + height - vbrdrsize < opts) ! 1213: putch(31); /* put the down arrow */ ! 1214: else ! 1215: putch(' '); /* delete the down arrow */ ! 1216: for(i=*cur,j=0;i<=*cur-vbrdrsize-1+optheight;i++,j++) ! 1217: uprintf(s_left+left+lbrdrwidth+2,s_top+top+tbrdrwidth+j ! 1218: ,i==*cur ? lbclr ! 1219: : lclr|(bclr<<4) ! 1220: ,"%-*.*s",width-hbrdrsize-2,width-hbrdrsize-2,option[i]); ! 1221: break; ! 1222: case CIO_KEY_NPAGE: /* PgDn */ ! 1223: if(!opts) ! 1224: break; ! 1225: *cur += (height-vbrdrsize-1); ! 1226: if(*cur>opts-1) ! 1227: *cur = opts-1; ! 1228: if(bar) ! 1229: *bar = optheight-vbrdrsize-1; ! 1230: y=top+optheight-bbrdrwidth-1; ! 1231: gotoxy(s_left+left+lbrdrwidth,s_top+top+tbrdrwidth); ! 1232: textattr(lclr|(bclr<<4)); ! 1233: if(*cur>height-vbrdrsize-1) /* Scroll mode */ ! 1234: putch(30); /* put the up arrow */ ! 1235: else ! 1236: putch(' '); /* delete the up arrow */ ! 1237: gotoxy(s_left+left+lbrdrwidth,s_top+top+height-bbrdrwidth-1); ! 1238: if(*cur < opts-1) ! 1239: putch(31); /* put the down arrow */ ! 1240: else ! 1241: putch(' '); /* delete the down arrow */ ! 1242: for(i=*cur+vbrdrsize+1-optheight,j=0;i<=*cur;i++,j++) ! 1243: uprintf(s_left+left+lbrdrwidth+2,s_top+top+tbrdrwidth+j ! 1244: ,i==*cur ? lbclr ! 1245: : lclr|(bclr<<4) ! 1246: ,"%-*.*s",width-hbrdrsize-2,width-hbrdrsize-2,option[i]); ! 1247: break; ! 1248: case CIO_KEY_END: /* end */ ! 1249: if(!opts) ! 1250: break; ! 1251: if(opts+vbrdrsize>height) { /* Scroll mode */ ! 1252: gotoxy(s_left+left+lbrdrwidth,s_top+top+tbrdrwidth); ! 1253: textattr(lclr|(bclr<<4)); ! 1254: putch(30); /* put the up arrow */ ! 1255: gotoxy(s_left+left+lbrdrwidth,s_top+top+height-bbrdrwidth-1); ! 1256: putch(' '); /* delete the down arrow */ ! 1257: for(i=(opts+vbrdrsize)-height,j=0;i<opts;i++,j++) ! 1258: uprintf(s_left+left+lbrdrwidth+2,s_top+top+tbrdrwidth+j ! 1259: ,i==opts-1 ? lbclr ! 1260: : lclr|(bclr<<4) ! 1261: ,"%-*.*s",width-hbrdrsize-2,width-hbrdrsize-2,option[i]); ! 1262: (*cur)=opts-1; ! 1263: y=top+optheight-bbrdrwidth-1; ! 1264: if(bar) ! 1265: (*bar)=optheight-vbrdrsize-1; ! 1266: break; ! 1267: } ! 1268: gettext(s_left+lbrdrwidth+2+left,s_top+y ! 1269: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1270: for(i=1;i<width*2;i+=2) ! 1271: line[i]=lclr|(bclr<<4); ! 1272: puttext(s_left+lbrdrwidth+2+left,s_top+y ! 1273: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1274: (*cur)=opts-1; ! 1275: y=top+optheight-bbrdrwidth-1; ! 1276: if(bar) ! 1277: (*bar)=optheight-vbrdrsize-1; ! 1278: gettext(s_left+lbrdrwidth+2+left,s_top+y ! 1279: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1280: for(i=1;i<148;i+=2) ! 1281: line[i]=lbclr; ! 1282: puttext(s_left+lbrdrwidth+2+left,s_top+y ! 1283: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1284: break; ! 1285: case CIO_KEY_DOWN: /* dn arrow */ ! 1286: if(!opts) ! 1287: break; ! 1288: if((*cur)==opts-1 && opts+vbrdrsize>height) { /* like home */ ! 1289: gotoxy(s_left+left+lbrdrwidth,s_top+top+tbrdrwidth); ! 1290: textattr(lclr|(bclr<<4)); ! 1291: putch(' '); /* Delete the up arrow */ ! 1292: gotoxy(s_left+left+lbrdrwidth,s_top+top+height-bbrdrwidth-1); ! 1293: putch(31); /* put the down arrow */ ! 1294: uprintf(s_left+left+lbrdrwidth+2,s_top+top+tbrdrwidth ! 1295: ,lbclr ! 1296: ,"%-*.*s",width-hbrdrsize-2,width-hbrdrsize-2,option[0]); ! 1297: for(i=1;i<height-vbrdrsize;i++) /* re-display options */ ! 1298: uprintf(s_left+left+lbrdrwidth+2,s_top+top+tbrdrwidth+i ! 1299: ,lclr|(bclr<<4) ! 1300: ,"%-*.*s",width-hbrdrsize-2,width-hbrdrsize-2,option[i]); ! 1301: (*cur)=0; ! 1302: y=top+tbrdrwidth; ! 1303: if(bar) ! 1304: (*bar)=0; ! 1305: break; ! 1306: } ! 1307: gettext(s_left+lbrdrwidth+2+left,s_top+y ! 1308: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1309: for(i=1;i<width*2;i+=2) ! 1310: line[i]=lclr|(bclr<<4); ! 1311: puttext(s_left+lbrdrwidth+2+left,s_top+y ! 1312: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1313: if((*cur)==opts-1) { ! 1314: (*cur)=0; ! 1315: y=top+tbrdrwidth; ! 1316: if(bar) { ! 1317: /* gotoxy(1,1); cprintf("bar=%08lX ",bar); */ ! 1318: (*bar)=0; ! 1319: } ! 1320: } ! 1321: else { ! 1322: (*cur)++; ! 1323: y++; ! 1324: if(bar && (*bar)<height-vbrdrsize-1) { ! 1325: /* gotoxy(1,1); cprintf("bar=%08lX ",bar); */ ! 1326: (*bar)++; ! 1327: } ! 1328: } ! 1329: if(y==top+height-bbrdrwidth) { /* scroll */ ! 1330: if(*cur==opts-1) { ! 1331: gotoxy(s_left+left+lbrdrwidth,s_top+top+height-bbrdrwidth-1); ! 1332: textattr(lclr|(bclr<<4)); ! 1333: putch(' '); /* delete the down arrow */ ! 1334: } ! 1335: if((*cur)+vbrdrsize==height) { ! 1336: gotoxy(s_left+left+lbrdrwidth,s_top+top+tbrdrwidth); ! 1337: textattr(lclr|(bclr<<4)); ! 1338: putch(30); /* put the up arrow */ ! 1339: } ! 1340: y--; ! 1341: /* gotoxy(1,1); cprintf("\rdebug: %4d ",__LINE__); */ ! 1342: scroll_text(s_left+left+lbrdrwidth+1,s_top+top+tbrdrwidth ! 1343: ,s_left+left+width-rbrdrwidth-1,s_top+top+height-bbrdrwidth-1,0); ! 1344: /* gotoxy(1,1); cprintf("\rdebug: %4d ",__LINE__); */ ! 1345: uprintf(s_left+left+lbrdrwidth+2,s_top+top+height-bbrdrwidth-1 ! 1346: ,lbclr ! 1347: ,"%-*.*s",width-hbrdrsize-2,width-hbrdrsize-2,option[*cur]); ! 1348: } ! 1349: else { ! 1350: gettext(s_left+lbrdrwidth+2+left,s_top+y ! 1351: ,s_left+left+width-rbrdrwidth-1,s_top+y ! 1352: ,line); ! 1353: for(i=1;i<width*2;i+=2) ! 1354: line[i]=lbclr; ! 1355: puttext(s_left+lbrdrwidth+2+left,s_top+y ! 1356: ,s_left+left+width-rbrdrwidth-1,s_top+y ! 1357: ,line); ! 1358: } ! 1359: break; ! 1360: case CIO_KEY_F(1): /* F1 - Help */ ! 1361: api->showhelp(); ! 1362: break; ! 1363: case CIO_KEY_F(2): /* F2 - Edit */ ! 1364: if(mode&WIN_XTR && (*cur)==opts-1) /* can't edit */ ! 1365: break; /* extra line */ ! 1366: if(mode&WIN_EDIT) { ! 1367: if(mode&WIN_EDITACT) { ! 1368: gettext(s_left+left,s_top+top,s_left ! 1369: +left+width-1,s_top+top+height-1,tmp_buffer); ! 1370: for(i=1;i<(width*height*2);i+=2) ! 1371: tmp_buffer[i]=lclr|(cclr<<4); ! 1372: j=(((y-top)*width)*2)+7+((width-hbrdrsize-2)*2); ! 1373: for(i=(((y-top)*width)*2)+7;i<j;i+=2) ! 1374: tmp_buffer[i]=hclr|(cclr<<4); ! 1375: puttext(s_left+left,s_top+top,s_left ! 1376: +left+width-1,s_top+top+height-1,tmp_buffer); ! 1377: } ! 1378: return((*cur)|MSK_EDIT); ! 1379: } ! 1380: break; ! 1381: case CIO_KEY_F(5): /* F5 - Copy */ ! 1382: if(mode&WIN_GET && !(mode&WIN_XTR && (*cur)==opts-1)) ! 1383: return((*cur)|MSK_GET); ! 1384: break; ! 1385: case CIO_KEY_F(6): /* F6 - Paste */ ! 1386: if(mode&WIN_PUT && !(mode&WIN_XTR && (*cur)==opts-1)) ! 1387: return((*cur)|MSK_PUT); ! 1388: break; ! 1389: case CIO_KEY_IC: /* insert */ ! 1390: if(mode&WIN_INS) { ! 1391: if(mode&WIN_INSACT) { ! 1392: gettext(s_left+left,s_top+top,s_left ! 1393: +left+width-1,s_top+top+height-1,tmp_buffer); ! 1394: for(i=1;i<(width*height*2);i+=2) ! 1395: tmp_buffer[i]=lclr|(cclr<<4); ! 1396: if(opts) { ! 1397: j=(((y-top)*width)*2)+7+((width-hbrdrsize-2)*2); ! 1398: for(i=(((y-top)*width)*2)+7;i<j;i+=2) ! 1399: tmp_buffer[i]=hclr|(cclr<<4); ! 1400: } ! 1401: puttext(s_left+left,s_top+top,s_left ! 1402: +left+width-1,s_top+top+height-1,tmp_buffer); ! 1403: } ! 1404: if(!opts) { ! 1405: return(MSK_INS); ! 1406: } ! 1407: return((*cur)|MSK_INS); ! 1408: } ! 1409: break; ! 1410: case CIO_KEY_DC: /* delete */ ! 1411: if(mode&WIN_XTR && (*cur)==opts-1) /* can't delete */ ! 1412: break; /* extra line */ ! 1413: if(mode&WIN_DEL) { ! 1414: if(mode&WIN_DELACT) { ! 1415: gettext(s_left+left,s_top+top,s_left ! 1416: +left+width-1,s_top+top+height-1,tmp_buffer); ! 1417: for(i=1;i<(width*height*2);i+=2) ! 1418: tmp_buffer[i]=lclr|(cclr<<4); ! 1419: j=(((y-top)*width)*2)+7+((width-hbrdrsize-2)*2); ! 1420: for(i=(((y-top)*width)*2)+7;i<j;i+=2) ! 1421: tmp_buffer[i]=hclr|(cclr<<4); ! 1422: puttext(s_left+left,s_top+top,s_left ! 1423: +left+width-1,s_top+top+height-1,tmp_buffer); ! 1424: } ! 1425: return((*cur)|MSK_DEL); ! 1426: } ! 1427: break; ! 1428: default: ! 1429: if(mode&WIN_EXTKEYS) ! 1430: return(-2-i); ! 1431: break; ! 1432: } ! 1433: } ! 1434: else { ! 1435: i&=0xff; ! 1436: if(isalnum(i) && opts>1 && option[0][0]) { ! 1437: search[s]=i; ! 1438: search[s+1]=0; ! 1439: for(j=(*cur)+1,a=b=0;a<2;j++) { /* a = search count */ ! 1440: if(j==opts) { /* j = option count */ ! 1441: j=-1; /* b = letter count */ ! 1442: continue; ! 1443: } ! 1444: if(j==(*cur)) { ! 1445: b++; ! 1446: continue; ! 1447: } ! 1448: if(b>=longopt) { ! 1449: b=0; ! 1450: a++; ! 1451: } ! 1452: if(a==1 && !s) ! 1453: break; ! 1454: if(option[j]!=NULL ! 1455: && strlen(option[j])>(size_t)b ! 1456: && ((!a && s && !strnicmp(option[j]+b,search,s+1)) ! 1457: || ((a || !s) && toupper(option[j][b])==toupper(i)))) { ! 1458: if(a) s=0; ! 1459: else s++; ! 1460: if(y+(j-(*cur))+2>height+top) { ! 1461: (*cur)=j; ! 1462: gotoxy(s_left+left+lbrdrwidth,s_top+top+tbrdrwidth); ! 1463: textattr(lclr|(bclr<<4)); ! 1464: putch(30); /* put the up arrow */ ! 1465: if((*cur)==opts-1) { ! 1466: gotoxy(s_left+left+lbrdrwidth,s_top+top+height-bbrdrwidth-1); ! 1467: putch(' '); /* delete the down arrow */ ! 1468: } ! 1469: for(i=((*cur)+vbrdrsize+1)-height,j=0;i<(*cur)+1;i++,j++) ! 1470: uprintf(s_left+left+lbrdrwidth+2,s_top+top+tbrdrwidth+j ! 1471: ,i==(*cur) ? lbclr ! 1472: : lclr|(bclr<<4) ! 1473: ,"%-*.*s",width-hbrdrsize-2,width-hbrdrsize-2,option[i]); ! 1474: y=top+height-bbrdrwidth-1; ! 1475: if(bar) ! 1476: (*bar)=optheight-vbrdrsize-1; ! 1477: break; ! 1478: } ! 1479: if(y-((*cur)-j)<top+tbrdrwidth) { ! 1480: (*cur)=j; ! 1481: gotoxy(s_left+left+lbrdrwidth,s_top+top+tbrdrwidth); ! 1482: textattr(lclr|(bclr<<4)); ! 1483: if(!(*cur)) ! 1484: putch(' '); /* Delete the up arrow */ ! 1485: gotoxy(s_left+left+lbrdrwidth,s_top+top+height-bbrdrwidth-1); ! 1486: putch(31); /* put the down arrow */ ! 1487: uprintf(s_left+left+lbrdrwidth+2,s_top+top+tbrdrwidth ! 1488: ,lbclr ! 1489: ,"%-*.*s",width-hbrdrsize-2,width-hbrdrsize-2,option[(*cur)]); ! 1490: for(i=1;i<height-vbrdrsize;i++) /* re-display options */ ! 1491: uprintf(s_left+left+lbrdrwidth+2,s_top+top+tbrdrwidth+i ! 1492: ,lclr|(bclr<<4) ! 1493: ,"%-*.*s",width-hbrdrsize-2,width-hbrdrsize-2 ! 1494: ,option[(*cur)+i]); ! 1495: y=top+tbrdrwidth; ! 1496: if(bar) ! 1497: (*bar)=0; ! 1498: break; ! 1499: } ! 1500: gettext(s_left+lbrdrwidth+2+left,s_top+y ! 1501: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1502: for(i=1;i<width*2;i+=2) ! 1503: line[i]=lclr|(bclr<<4); ! 1504: puttext(s_left+lbrdrwidth+2+left,s_top+y ! 1505: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1506: if((*cur)>j) ! 1507: y-=(*cur)-j; ! 1508: else ! 1509: y+=j-(*cur); ! 1510: if(bar) { ! 1511: if((*cur)>j) ! 1512: (*bar)-=(*cur)-j; ! 1513: else ! 1514: (*bar)+=j-(*cur); ! 1515: } ! 1516: (*cur)=j; ! 1517: gettext(s_left+lbrdrwidth+2+left,s_top+y ! 1518: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1519: for(i=1;i<width*2;i+=2) ! 1520: line[i]=lbclr; ! 1521: puttext(s_left+lbrdrwidth+2+left,s_top+y ! 1522: ,s_left+left+width-rbrdrwidth-1,s_top+y,line); ! 1523: break; ! 1524: } ! 1525: } ! 1526: if(a==2) ! 1527: s=0; ! 1528: } ! 1529: else ! 1530: switch(i) { ! 1531: case CR: ! 1532: if(!opts) ! 1533: break; ! 1534: if(mode&WIN_SAV) ! 1535: api->savnum++; ! 1536: if(mode&WIN_ACT) { ! 1537: gettext(s_left+left,s_top+top,s_left ! 1538: +left+width-1,s_top+top+height-1,tmp_buffer); ! 1539: for(i=1;i<(width*height*2);i+=2) ! 1540: tmp_buffer[i]=lclr|(cclr<<4); ! 1541: j=(((y-top)*width)*2)+7+((width-hbrdrsize-2)*2); ! 1542: for(i=(((y-top)*width)*2)+7;i<j;i+=2) ! 1543: tmp_buffer[i]=hclr|(cclr<<4); ! 1544: ! 1545: puttext(s_left+left,s_top+top,s_left ! 1546: +left+width-1,s_top+top+height-1,tmp_buffer); ! 1547: } ! 1548: else if(mode&WIN_SAV) { ! 1549: api->savnum--; ! 1550: puttext(sav[api->savnum].left,sav[api->savnum].top ! 1551: ,sav[api->savnum].right,sav[api->savnum].bot ! 1552: ,sav[api->savnum].buf); ! 1553: FREE_AND_NULL(sav[api->savnum].buf); ! 1554: } ! 1555: if(mode&WIN_XTR && (*cur)==opts-1) ! 1556: return(MSK_INS|*cur); ! 1557: return(*cur); ! 1558: case 3: ! 1559: case ESC: ! 1560: if(mode&WIN_SAV) ! 1561: api->savnum++; ! 1562: if(mode&WIN_ESC || (mode&WIN_CHE && api->changes)) { ! 1563: gettext(s_left+left,s_top+top,s_left ! 1564: +left+width-1,s_top+top+height-1,tmp_buffer); ! 1565: for(i=1;i<(width*height*2);i+=2) ! 1566: tmp_buffer[i]=lclr|(cclr<<4); ! 1567: puttext(s_left+left,s_top+top,s_left ! 1568: +left+width-1,s_top+top+height-1,tmp_buffer); ! 1569: } ! 1570: else if(mode&WIN_SAV) { ! 1571: api->savnum--; ! 1572: puttext(sav[api->savnum].left,sav[api->savnum].top ! 1573: ,sav[api->savnum].right,sav[api->savnum].bot ! 1574: ,sav[api->savnum].buf); ! 1575: FREE_AND_NULL(sav[api->savnum].buf); ! 1576: } ! 1577: return(-1); ! 1578: default: ! 1579: if(mode&WIN_EXTKEYS) ! 1580: return(-2-i); ! 1581: } ! 1582: } ! 1583: } ! 1584: else ! 1585: mswait(1); ! 1586: if(mode&WIN_DYN) { ! 1587: save_menu_cur=*cur; ! 1588: save_menu_bar=*bar; ! 1589: save_menu_opts=opts; ! 1590: return(-2-i); ! 1591: } ! 1592: } ! 1593: } ! 1594: ! 1595: ! 1596: /*************************************************************************/ ! 1597: /* This function is a windowed input string input routine. */ ! 1598: /*************************************************************************/ ! 1599: int uinput(int mode, int left, int top, char *inprompt, char *str, ! 1600: int max, int kmode) ! 1601: { ! 1602: unsigned char save_buf[2048],in_win[2048] ! 1603: ,shade[160]; ! 1604: int width; ! 1605: int height=3; ! 1606: int i,plen,slen,j; ! 1607: int iwidth; ! 1608: int l; ! 1609: char *prompt; ! 1610: int s_top=SCRN_TOP; ! 1611: int s_left=SCRN_LEFT; ! 1612: int s_right=SCRN_RIGHT; ! 1613: int s_bottom=api->scrn_len-3; ! 1614: int hbrdrsize=2; ! 1615: int lbrdrwidth=1; ! 1616: int rbrdrwidth=1; ! 1617: int vbrdrsize=4; ! 1618: int tbrdrwidth=1; ! 1619: int bbrdrwidth=1; ! 1620: ! 1621: reset_dynamic(); ! 1622: ! 1623: if(mode&WIN_FAT) { ! 1624: s_top=1; ! 1625: s_left=2; ! 1626: s_right=api->scrn_width-3; /* Leave space for the shadow */ ! 1627: s_bottom=api->scrn_len-1; /* Leave one for the shadow */ ! 1628: } ! 1629: if(mode&WIN_NOBRDR) { ! 1630: hbrdrsize=0; ! 1631: vbrdrsize=0; ! 1632: lbrdrwidth=0; ! 1633: rbrdrwidth=0; ! 1634: tbrdrwidth=0; ! 1635: bbrdrwidth=0; ! 1636: height=1; ! 1637: } ! 1638: ! 1639: prompt=strdup(inprompt==NULL ? "":inprompt); ! 1640: plen=strlen(prompt); ! 1641: if(!plen) ! 1642: slen=2+hbrdrsize; ! 1643: else ! 1644: slen=4+hbrdrsize; ! 1645: ! 1646: width=plen+slen+max; ! 1647: if(width>(s_right-s_left+1)) ! 1648: width=(s_right-s_left+1); ! 1649: if(mode&WIN_T2B) ! 1650: top=(api->scrn_len-height+1)/2-2; ! 1651: if(mode&WIN_L2R) ! 1652: left=(s_right-s_left-width+1)/2; ! 1653: if(left<=-(s_left)) ! 1654: left=-(s_left)+1; ! 1655: if(top<0) ! 1656: top=0; ! 1657: if(mode&WIN_SAV) ! 1658: gettext(s_left+left,s_top+top,s_left+left+width+1 ! 1659: ,s_top+top+height,save_buf); ! 1660: iwidth=width-plen-slen; ! 1661: while(iwidth<1 && plen>4) { ! 1662: plen=strlen(prompt); ! 1663: prompt[plen-1]=0; ! 1664: prompt[plen-2]='.'; ! 1665: prompt[plen-3]='.'; ! 1666: prompt[plen-4]='.'; ! 1667: plen--; ! 1668: iwidth=width-plen-slen; ! 1669: } ! 1670: ! 1671: i=0; ! 1672: if(!(mode&WIN_NOBRDR)) { ! 1673: in_win[i++]='�'; ! 1674: in_win[i++]=api->hclr|(api->bclr<<4); ! 1675: for(j=1;j<width-1;j++) { ! 1676: in_win[i++]='�'; ! 1677: in_win[i++]=api->hclr|(api->bclr<<4); ! 1678: } ! 1679: if(api->mode&UIFC_MOUSE && width>6) { ! 1680: j=2; ! 1681: in_win[j++]='['; ! 1682: in_win[j++]=api->hclr|(api->bclr<<4); ! 1683: /* in_win[4]='�'; */ ! 1684: in_win[j++]=0xfe; ! 1685: in_win[j++]=api->lclr|(api->bclr<<4); ! 1686: in_win[j++]=']'; ! 1687: in_win[j++]=api->hclr|(api->bclr<<4); ! 1688: l=3; ! 1689: if(api->helpbuf!=NULL || api->helpixbfile[0]!=0) { ! 1690: in_win[j++]='['; ! 1691: in_win[j++]=api->hclr|(api->bclr<<4); ! 1692: in_win[j++]='?'; ! 1693: in_win[j++]=api->lclr|(api->bclr<<4); ! 1694: in_win[j++]=']'; ! 1695: in_win[j++]=api->hclr|(api->bclr<<4); ! 1696: l+=3; ! 1697: } ! 1698: api->buttony=s_top+top; ! 1699: api->exitstart=s_left+left+1; ! 1700: api->exitend=s_left+left+3; ! 1701: api->helpstart=s_left+left+4; ! 1702: api->helpend=s_left+left+l; ! 1703: } ! 1704: ! 1705: in_win[i++]='�'; ! 1706: in_win[i++]=api->hclr|(api->bclr<<4); ! 1707: in_win[i++]='�'; ! 1708: in_win[i++]=api->hclr|(api->bclr<<4); ! 1709: } ! 1710: ! 1711: if(plen) { ! 1712: in_win[i++]=' '; ! 1713: in_win[i++]=api->lclr|(api->bclr<<4); ! 1714: } ! 1715: ! 1716: for(j=0;prompt[j];j++) { ! 1717: in_win[i++]=prompt[j]; ! 1718: in_win[i++]=api->lclr|(api->bclr<<4); ! 1719: } ! 1720: ! 1721: if(plen) { ! 1722: in_win[i++]=':'; ! 1723: in_win[i++]=api->lclr|(api->bclr<<4); ! 1724: } ! 1725: ! 1726: for(j=0;j<iwidth+2;j++) { ! 1727: in_win[i++]=' '; ! 1728: in_win[i++]=api->lclr|(api->bclr<<4); ! 1729: } ! 1730: ! 1731: if(!(mode&WIN_NOBRDR)) { ! 1732: in_win[i++]='�'; ! 1733: in_win[i++]=api->hclr|(api->bclr<<4); ! 1734: in_win[i++]='�'; ! 1735: in_win[i++]=api->hclr|(api->bclr<<4); ! 1736: for(j=1;j<width-1;j++) { ! 1737: in_win[i++]='�'; ! 1738: in_win[i++]=api->hclr|(api->bclr<<4); ! 1739: } ! 1740: in_win[i++]='�'; ! 1741: in_win[i]=api->hclr|(api->bclr<<4); /* I is not incremented to shut up BCC */ ! 1742: } ! 1743: puttext(s_left+left,s_top+top,s_left+left+width-1 ! 1744: ,s_top+top+height-1,in_win); ! 1745: ! 1746: if(!(mode&WIN_NOBRDR)) { ! 1747: /* Shadow */ ! 1748: if(api->bclr==BLUE) { ! 1749: gettext(s_left+left+width,s_top+top+1,s_left+left+width+1 ! 1750: ,s_top+top+(height-1),shade); ! 1751: for(j=1;j<12;j+=2) ! 1752: shade[j]=DARKGRAY; ! 1753: puttext(s_left+left+width,s_top+top+1,s_left+left+width+1 ! 1754: ,s_top+top+(height-1),shade); ! 1755: gettext(s_left+left+2,s_top+top+3,s_left+left+width+1 ! 1756: ,s_top+top+height,shade); ! 1757: for(j=1;j<width*2;j+=2) ! 1758: shade[j]=DARKGRAY; ! 1759: puttext(s_left+left+2,s_top+top+3,s_left+left+width+1 ! 1760: ,s_top+top+height,shade); ! 1761: } ! 1762: } ! 1763: ! 1764: textattr(api->lclr|(api->bclr<<4)); ! 1765: if(!plen) ! 1766: i=ugetstr(s_left+left+2,s_top+top+tbrdrwidth,iwidth,str,max,kmode,NULL); ! 1767: else ! 1768: i=ugetstr(s_left+left+plen+4,s_top+top+tbrdrwidth,iwidth,str,max,kmode,NULL); ! 1769: if(mode&WIN_SAV) ! 1770: puttext(s_left+left,s_top+top,s_left+left+width+1 ! 1771: ,s_top+top+height,save_buf); ! 1772: free(prompt); ! 1773: return(i); ! 1774: } ! 1775: ! 1776: /****************************************************************************/ ! 1777: /* Displays the message 'str' and waits for the user to select "OK" */ ! 1778: /****************************************************************************/ ! 1779: void umsg(char *str) ! 1780: { ! 1781: int i=0; ! 1782: char *ok[2]={"OK",""}; ! 1783: ! 1784: if(api->mode&UIFC_INMSG) /* non-cursive */ ! 1785: return; ! 1786: api->mode|=UIFC_INMSG; ! 1787: ulist(WIN_SAV|WIN_MID,0,0,0,&i,0,str,ok); ! 1788: api->mode&=~UIFC_INMSG; ! 1789: } ! 1790: ! 1791: /***************************************/ ! 1792: /* Private sub - updates a ugetstr box */ ! 1793: /***************************************/ ! 1794: void getstrupd(int left, int top, int width, char *outstr, int cursoffset, int *scrnoffset, int mode) ! 1795: { ! 1796: _setcursortype(_NOCURSOR); ! 1797: if(cursoffset<*scrnoffset) ! 1798: *scrnoffset=cursoffset; ! 1799: ! 1800: if(*scrnoffset+width < cursoffset) ! 1801: *scrnoffset=cursoffset-width; ! 1802: ! 1803: gotoxy(left,top); ! 1804: if(mode&K_PASSWORD) ! 1805: cprintf("%-*.*s",width,width,"********************************************************************************"+(80-strlen(outstr+*scrnoffset))); ! 1806: else ! 1807: cprintf("%-*.*s",width,width,outstr+*scrnoffset); ! 1808: gotoxy(left+(cursoffset-*scrnoffset),top); ! 1809: _setcursortype(cursor); ! 1810: } ! 1811: ! 1812: /****************************************************************************/ ! 1813: /* Gets a string of characters from the user. Turns cursor on. Allows */ ! 1814: /* Different modes - K_* macros. ESC aborts input. */ ! 1815: /****************************************************************************/ ! 1816: int ugetstr(int left, int top, int width, char *outstr, int max, long mode, int *lastkey) ! 1817: { ! 1818: uchar *str,ins=0; ! 1819: int ch; ! 1820: int i,j,k,f=0; /* i=offset, j=length */ ! 1821: BOOL gotdecimal=FALSE; ! 1822: int soffset=0; ! 1823: struct mouse_event mevnt; ! 1824: unsigned char *pastebuf=NULL; ! 1825: unsigned char *pb=NULL; ! 1826: ! 1827: if((str=(uchar *)alloca(max+1))==NULL) { ! 1828: cprintf("UIFC line %d: error allocating %u bytes\r\n" ! 1829: ,__LINE__,(max+1)); ! 1830: _setcursortype(cursor); ! 1831: return(-1); ! 1832: } ! 1833: gotoxy(left,top); ! 1834: cursor=_NORMALCURSOR; ! 1835: _setcursortype(cursor); ! 1836: str[0]=0; ! 1837: if(mode&K_EDIT && outstr[0]) { ! 1838: /*** ! 1839: truncsp(outstr); ! 1840: ***/ ! 1841: outstr[max]=0; ! 1842: i=j=strlen(outstr); ! 1843: textattr(api->lbclr); ! 1844: getstrupd(left, top, width, outstr, i, &soffset, mode); ! 1845: textattr(api->lclr|(api->bclr<<4)); ! 1846: if(strlen(outstr)<(size_t)width) { ! 1847: k=wherex(); ! 1848: f=wherey(); ! 1849: cprintf("%*s",width-strlen(outstr),""); ! 1850: gotoxy(k,f); ! 1851: } ! 1852: strcpy(str,outstr); ! 1853: #if 0 ! 1854: while(kbwait()==0) { ! 1855: mswait(1); ! 1856: } ! 1857: #endif ! 1858: f=inkey(); ! 1859: if(f==CIO_KEY_MOUSE) { ! 1860: f=uifc_getmouse(&mevnt); ! 1861: if(f==0 || (f==ESC && mevnt.event==CIOLIB_BUTTON_3_CLICK)) { ! 1862: if(mode & K_MOUSEEXIT ! 1863: && (mevnt.starty != top ! 1864: || mevnt.startx > left+width ! 1865: || mevnt.startx < left) ! 1866: && mevnt.event==CIOLIB_BUTTON_1_CLICK) { ! 1867: if(lastkey) ! 1868: *lastkey=CIO_KEY_MOUSE; ! 1869: ungetmouse(&mevnt); ! 1870: return(j); ! 1871: } ! 1872: if(mevnt.startx>=left ! 1873: && mevnt.startx<=left+width ! 1874: && mevnt.event==CIOLIB_BUTTON_1_CLICK) { ! 1875: i=mevnt.startx-left+soffset; ! 1876: if(i>j) ! 1877: i=j; ! 1878: } ! 1879: if(mevnt.starty == top ! 1880: && mevnt.startx>=left ! 1881: && mevnt.startx<=left+width ! 1882: && (mevnt.event==CIOLIB_BUTTON_2_CLICK ! 1883: || mevnt.event==CIOLIB_BUTTON_3_CLICK)) { ! 1884: i=mevnt.startx-left+soffset; ! 1885: if(i>j) ! 1886: i=j; ! 1887: pastebuf=getcliptext(); ! 1888: pb=pastebuf; ! 1889: f=0; ! 1890: } ! 1891: } ! 1892: } ! 1893: ! 1894: if(f == CR ! 1895: || (f >= 0xff && f != CIO_KEY_DC) ! 1896: || (f == '\t' && mode&K_TABEXIT) ! 1897: || (f == '%' && mode&K_SCANNING) ! 1898: || f==CTRL_B ! 1899: || f==CTRL_E ! 1900: || f==CTRL_V ! 1901: || f==CTRL_Z ! 1902: || f==0) ! 1903: { ! 1904: getstrupd(left, top, width, str, i, &soffset, mode); ! 1905: } ! 1906: else ! 1907: { ! 1908: getstrupd(left, top, width, str, i, &soffset, mode); ! 1909: i=j=0; ! 1910: } ! 1911: } ! 1912: else ! 1913: i=j=0; ! 1914: ! 1915: ch=0; ! 1916: while(ch!=CR) ! 1917: { ! 1918: if(i>j) j=i; ! 1919: str[j]=0; ! 1920: getstrupd(left, top, width, str, i, &soffset, mode); ! 1921: if(f || pb!=NULL || (ch=inkey())!=0) ! 1922: { ! 1923: if(f) { ! 1924: ch=f; ! 1925: f=0; ! 1926: } ! 1927: else if(pb!=NULL) { ! 1928: ch=*(pb++); ! 1929: if(!*pb) { ! 1930: free(pastebuf); ! 1931: pastebuf=NULL; ! 1932: pb=NULL; ! 1933: } ! 1934: } ! 1935: if(ch==CIO_KEY_MOUSE) { ! 1936: ch=uifc_getmouse(&mevnt); ! 1937: if(ch==0 || (ch==ESC && mevnt.event==CIOLIB_BUTTON_3_CLICK)) { ! 1938: if(mode & K_MOUSEEXIT ! 1939: && (mevnt.starty != top ! 1940: || mevnt.startx > left+width ! 1941: || mevnt.startx < left) ! 1942: && mevnt.event==CIOLIB_BUTTON_1_CLICK) { ! 1943: if(lastkey) ! 1944: *lastkey=CIO_KEY_MOUSE; ! 1945: ungetmouse(&mevnt); ! 1946: ch=CR; ! 1947: continue; ! 1948: } ! 1949: if(mevnt.starty == top ! 1950: && mevnt.startx>=left ! 1951: && mevnt.startx<=left+width ! 1952: && mevnt.event==CIOLIB_BUTTON_1_CLICK) { ! 1953: i=mevnt.startx-left+soffset; ! 1954: if(i>j) ! 1955: i=j; ! 1956: } ! 1957: if(mevnt.starty == top ! 1958: && mevnt.startx>=left ! 1959: && mevnt.startx<=left+width ! 1960: && (mevnt.event==CIOLIB_BUTTON_2_CLICK ! 1961: || mevnt.event==CIOLIB_BUTTON_3_CLICK)) { ! 1962: i=mevnt.startx-left+soffset; ! 1963: if(i>j) ! 1964: i=j; ! 1965: pastebuf=getcliptext(); ! 1966: pb=pastebuf; ! 1967: ch=0; ! 1968: } ! 1969: } ! 1970: } ! 1971: if(lastkey != NULL) ! 1972: *lastkey=ch; ! 1973: switch(ch) ! 1974: { ! 1975: case CTRL_Z: ! 1976: case CIO_KEY_F(1): /* F1 Help */ ! 1977: api->showhelp(); ! 1978: continue; ! 1979: case CIO_KEY_LEFT: /* left arrow */ ! 1980: if(i) ! 1981: { ! 1982: i--; ! 1983: } ! 1984: continue; ! 1985: case CIO_KEY_RIGHT: /* right arrow */ ! 1986: if(i<j) ! 1987: { ! 1988: i++; ! 1989: } ! 1990: continue; ! 1991: case CTRL_B: ! 1992: case CIO_KEY_HOME: /* home */ ! 1993: if(i) ! 1994: { ! 1995: i=0; ! 1996: } ! 1997: continue; ! 1998: case CTRL_E: ! 1999: case CIO_KEY_END: /* end */ ! 2000: if(i<j) ! 2001: { ! 2002: i=j; ! 2003: } ! 2004: continue; ! 2005: case CTRL_V: ! 2006: case CIO_KEY_IC: /* insert */ ! 2007: ins=!ins; ! 2008: if(ins) ! 2009: cursor=_SOLIDCURSOR; ! 2010: else ! 2011: cursor=_NORMALCURSOR; ! 2012: _setcursortype(cursor); ! 2013: continue; ! 2014: case BS: ! 2015: if(i) ! 2016: { ! 2017: if(i==j) ! 2018: { ! 2019: j--; ! 2020: i--; ! 2021: } ! 2022: else { ! 2023: i--; ! 2024: j--; ! 2025: if(str[i]=='.') ! 2026: gotdecimal=FALSE; ! 2027: for(k=i;k<=j;k++) ! 2028: str[k]=str[k+1]; ! 2029: } ! 2030: continue; ! 2031: } ! 2032: case CIO_KEY_DC: /* delete */ ! 2033: if(i<j) ! 2034: { ! 2035: if(str[i]=='.') ! 2036: gotdecimal=FALSE; ! 2037: for(k=i;k<j;k++) ! 2038: str[k]=str[k+1]; ! 2039: j--; ! 2040: } ! 2041: continue; ! 2042: case CTRL_C: ! 2043: case ESC: ! 2044: { ! 2045: cursor=_NOCURSOR; ! 2046: _setcursortype(cursor); ! 2047: if(pastebuf!=NULL) ! 2048: free(pastebuf); ! 2049: return(-1); ! 2050: } ! 2051: case CR: ! 2052: break; ! 2053: case 3840: /* Backtab */ ! 2054: case '\t': ! 2055: if(mode&K_TABEXIT) ! 2056: ch=CR; ! 2057: break; ! 2058: case '%': /* '%' indicates that a UPC is coming next */ ! 2059: if(mode&K_SCANNING) ! 2060: ch=CR; ! 2061: break; ! 2062: case CIO_KEY_F(2): ! 2063: case CIO_KEY_UP: ! 2064: case CIO_KEY_DOWN: ! 2065: if(mode&K_DEUCEEXIT) { ! 2066: ch=CR; ! 2067: break; ! 2068: } ! 2069: continue; ! 2070: case CTRL_X: ! 2071: if(j) ! 2072: { ! 2073: i=j=0; ! 2074: } ! 2075: continue; ! 2076: case CTRL_Y: ! 2077: if(i<j) ! 2078: { ! 2079: j=i; ! 2080: } ! 2081: continue; ! 2082: } ! 2083: if(mode&K_NUMBER && !isdigit(ch)) ! 2084: continue; ! 2085: if(mode&K_DECIMAL && !isdigit(ch)) { ! 2086: if(ch!='.') ! 2087: continue; ! 2088: if(gotdecimal) ! 2089: continue; ! 2090: gotdecimal=TRUE; ! 2091: } ! 2092: if(mode&K_ALPHA && !isalpha(ch)) ! 2093: continue; ! 2094: #if 0 ! 2095: /* This broke swedish chars... */ ! 2096: if((ch>=' ' || (ch==1 && mode&K_MSG)) && i<max && (!ins || j<max) && isprint(ch)) ! 2097: #else ! 2098: if((ch>=' ' || (ch==1 && mode&K_MSG)) && i<max && (!ins || j<max) && ch < 256) ! 2099: #endif ! 2100: { ! 2101: if(mode&K_UPPER) ! 2102: ch=toupper(ch); ! 2103: if(ins) ! 2104: { ! 2105: for(k=++j;k>i;k--) ! 2106: str[k]=str[k-1]; ! 2107: } ! 2108: str[i++]=ch; ! 2109: } ! 2110: } ! 2111: } ! 2112: ! 2113: ! 2114: str[j]=0; ! 2115: if(mode&K_EDIT) ! 2116: { ! 2117: truncsp(str); ! 2118: if(strcmp(outstr,str)) ! 2119: api->changes=1; ! 2120: } ! 2121: else ! 2122: { ! 2123: if(j) ! 2124: api->changes=1; ! 2125: } ! 2126: strcpy(outstr,str); ! 2127: cursor=_NOCURSOR; ! 2128: _setcursortype(cursor); ! 2129: if(pastebuf!=NULL) ! 2130: free(pastebuf); ! 2131: return(j); ! 2132: } ! 2133: ! 2134: /****************************************************************************/ ! 2135: /* Performs printf() through puttext() routine */ ! 2136: /****************************************************************************/ ! 2137: static int uprintf(int x, int y, unsigned attr, char *fmat, ...) ! 2138: { ! 2139: va_list argptr; ! 2140: char str[256],buf[512]; ! 2141: int i,j; ! 2142: ! 2143: va_start(argptr,fmat); ! 2144: vsprintf(str,fmat,argptr); ! 2145: va_end(argptr); ! 2146: for(i=j=0;str[i];i++) { ! 2147: buf[j++]=str[i]; ! 2148: buf[j++]=attr; ! 2149: } ! 2150: puttext(x,y,x+(i-1),y,buf); ! 2151: return(i); ! 2152: } ! 2153: ! 2154: ! 2155: /****************************************************************************/ ! 2156: /* Display bottom line of screen in inverse */ ! 2157: /****************************************************************************/ ! 2158: void bottomline(int line) ! 2159: { ! 2160: int i=0; ! 2161: ! 2162: uprintf(i,api->scrn_len+1,api->bclr|(api->cclr<<4)," "); ! 2163: i+=4; ! 2164: if(line&BL_HELP) { ! 2165: uprintf(i,api->scrn_len+1,api->bclr|(api->cclr<<4),"F1 "); ! 2166: i+=3; ! 2167: uprintf(i,api->scrn_len+1,BLACK|(api->cclr<<4),"Help "); ! 2168: i+=6; ! 2169: } ! 2170: if(line&BL_EDIT) { ! 2171: uprintf(i,api->scrn_len+1,api->bclr|(api->cclr<<4),"F2 "); ! 2172: i+=3; ! 2173: uprintf(i,api->scrn_len+1,BLACK|(api->cclr<<4),"Edit Item "); ! 2174: i+=11; ! 2175: } ! 2176: if(line&BL_GET) { ! 2177: uprintf(i,api->scrn_len+1,api->bclr|(api->cclr<<4),"F5 "); ! 2178: i+=3; ! 2179: uprintf(i,api->scrn_len+1,BLACK|(api->cclr<<4),"Copy Item "); ! 2180: i+=11; ! 2181: } ! 2182: if(line&BL_PUT) { ! 2183: uprintf(i,api->scrn_len+1,api->bclr|(api->cclr<<4),"F6 "); ! 2184: i+=3; ! 2185: uprintf(i,api->scrn_len+1,BLACK|(api->cclr<<4),"Paste "); ! 2186: i+=7; ! 2187: } ! 2188: if(line&BL_INS) { ! 2189: uprintf(i,api->scrn_len+1,api->bclr|(api->cclr<<4),"INS "); ! 2190: i+=4; ! 2191: uprintf(i,api->scrn_len+1,BLACK|(api->cclr<<4),"Add Item "); ! 2192: i+=10; ! 2193: } ! 2194: if(line&BL_DEL) { ! 2195: uprintf(i,api->scrn_len+1,api->bclr|(api->cclr<<4),"DEL "); ! 2196: i+=4; ! 2197: uprintf(i,api->scrn_len+1,BLACK|(api->cclr<<4),"Delete Item "); ! 2198: i+=13; ! 2199: } ! 2200: uprintf(i,api->scrn_len+1,api->bclr|(api->cclr<<4),"ESC "); /* Backspace is no good no way to abort editing */ ! 2201: i+=4; ! 2202: uprintf(i,api->scrn_len+1,BLACK|(api->cclr<<4),"Exit"); ! 2203: i+=4; ! 2204: gotoxy(i,api->scrn_len+1); ! 2205: textattr(BLACK|(api->cclr<<4)); ! 2206: clreol(); ! 2207: } ! 2208: ! 2209: ! 2210: /*****************************************************************************/ ! 2211: /* Generates a 24 character ASCII string that represents the time_t pointer */ ! 2212: /* Used as a replacement for ctime() */ ! 2213: /*****************************************************************************/ ! 2214: char *utimestr(time_t *intime) ! 2215: { ! 2216: static char str[25]; ! 2217: char wday[4],mon[4],mer[3],hour; ! 2218: struct tm *gm; ! 2219: ! 2220: gm=localtime(intime); ! 2221: switch(gm->tm_wday) { ! 2222: case 0: ! 2223: strcpy(wday,"Sun"); ! 2224: break; ! 2225: case 1: ! 2226: strcpy(wday,"Mon"); ! 2227: break; ! 2228: case 2: ! 2229: strcpy(wday,"Tue"); ! 2230: break; ! 2231: case 3: ! 2232: strcpy(wday,"Wed"); ! 2233: break; ! 2234: case 4: ! 2235: strcpy(wday,"Thu"); ! 2236: break; ! 2237: case 5: ! 2238: strcpy(wday,"Fri"); ! 2239: break; ! 2240: case 6: ! 2241: strcpy(wday,"Sat"); ! 2242: break; ! 2243: } ! 2244: switch(gm->tm_mon) { ! 2245: case 0: ! 2246: strcpy(mon,"Jan"); ! 2247: break; ! 2248: case 1: ! 2249: strcpy(mon,"Feb"); ! 2250: break; ! 2251: case 2: ! 2252: strcpy(mon,"Mar"); ! 2253: break; ! 2254: case 3: ! 2255: strcpy(mon,"Apr"); ! 2256: break; ! 2257: case 4: ! 2258: strcpy(mon,"May"); ! 2259: break; ! 2260: case 5: ! 2261: strcpy(mon,"Jun"); ! 2262: break; ! 2263: case 6: ! 2264: strcpy(mon,"Jul"); ! 2265: break; ! 2266: case 7: ! 2267: strcpy(mon,"Aug"); ! 2268: break; ! 2269: case 8: ! 2270: strcpy(mon,"Sep"); ! 2271: break; ! 2272: case 9: ! 2273: strcpy(mon,"Oct"); ! 2274: break; ! 2275: case 10: ! 2276: strcpy(mon,"Nov"); ! 2277: break; ! 2278: case 11: ! 2279: strcpy(mon,"Dec"); ! 2280: break; ! 2281: } ! 2282: if(gm->tm_hour>12) { ! 2283: strcpy(mer,"pm"); ! 2284: hour=gm->tm_hour-12; ! 2285: } ! 2286: else { ! 2287: if(!gm->tm_hour) ! 2288: hour=12; ! 2289: else ! 2290: hour=gm->tm_hour; ! 2291: strcpy(mer,"am"); ! 2292: } ! 2293: sprintf(str,"%s %s %02d %4d %02d:%02d %s",wday,mon,gm->tm_mday,1900+gm->tm_year ! 2294: ,hour,gm->tm_min,mer); ! 2295: return(str); ! 2296: } ! 2297: ! 2298: /****************************************************************************/ ! 2299: /* Status popup/down function, see uifc.h for details. */ ! 2300: /****************************************************************************/ ! 2301: void upop(char *str) ! 2302: { ! 2303: static char sav[26*3*2]; ! 2304: char buf[26*3*2]; ! 2305: int i,j,k; ! 2306: ! 2307: if(!str) { ! 2308: /* puttext(28,12,53,14,sav); */ ! 2309: puttext((api->scrn_width-26+1)/2+1,(api->scrn_len-3+1)/2+1 ! 2310: ,(api->scrn_width+26-1)/2+1,(api->scrn_len+3-1)/2+1,sav); ! 2311: return; ! 2312: } ! 2313: /* gettext(28,12,53,14,sav); */ ! 2314: gettext((api->scrn_width-26+1)/2+1,(api->scrn_len-3+1)/2+1 ! 2315: ,(api->scrn_width+26-1)/2+1,(api->scrn_len+3-1)/2+1,sav); ! 2316: memset(buf,' ',25*3*2); ! 2317: for(i=1;i<26*3*2;i+=2) ! 2318: buf[i]=(api->hclr|(api->bclr<<4)); ! 2319: buf[0]='�'; ! 2320: for(i=2;i<25*2;i+=2) ! 2321: buf[i]='�'; ! 2322: buf[i]='�'; i+=2; ! 2323: buf[i]='�'; i+=2; ! 2324: i+=2; ! 2325: k=strlen(str); ! 2326: i+=(((23-k)/2)*2); ! 2327: for(j=0;j<k;j++,i+=2) { ! 2328: buf[i]=str[j]; ! 2329: buf[i+1]|=BLINK; ! 2330: } ! 2331: i=((25*2)+1)*2; ! 2332: buf[i]='�'; i+=2; ! 2333: buf[i]='�'; i+=2; ! 2334: for(;i<((26*3)-1)*2;i+=2) ! 2335: buf[i]='�'; ! 2336: buf[i]='�'; ! 2337: ! 2338: /* puttext(28,12,53,14,buf); */ ! 2339: puttext((api->scrn_width-26+1)/2+1,(api->scrn_len-3+1)/2+1 ! 2340: ,(api->scrn_width+26-1)/2+1,(api->scrn_len+3-1)/2+1,buf); ! 2341: } ! 2342: ! 2343: /****************************************************************************/ ! 2344: /* Sets the current help index by source code file and line number. */ ! 2345: /****************************************************************************/ ! 2346: void sethelp(int line, char* file) ! 2347: { ! 2348: helpline=line; ! 2349: helpfile=file; ! 2350: } ! 2351: ! 2352: /****************************************************************************/ ! 2353: /* Shows a scrollable text buffer - optionally parsing "help markup codes" */ ! 2354: /****************************************************************************/ ! 2355: void showbuf(int mode, int left, int top, int width, int height, char *title, char *hbuf, int *curp, int *barp) ! 2356: { ! 2357: char inverse=0,high=0; ! 2358: char *textbuf; ! 2359: char *p; ! 2360: char *oldp=NULL; ! 2361: int i,j,k,len; ! 2362: int lines; ! 2363: int pad=1; ! 2364: int is_redraw=0; ! 2365: uint title_len=0; ! 2366: struct mouse_event mevnt; ! 2367: ! 2368: _setcursortype(_NOCURSOR); ! 2369: ! 2370: title_len=strlen(title); ! 2371: if(api->mode&UIFC_MOUSE) ! 2372: title_len+=6; ! 2373: ! 2374: if((unsigned)(top+height)>api->scrn_len-3) ! 2375: height=(api->scrn_len-3)-top; ! 2376: if(!width || (unsigned)width<title_len+6) ! 2377: width=title_len+6; ! 2378: if((unsigned)width>api->scrn_width) ! 2379: width=api->scrn_width; ! 2380: if(mode&WIN_L2R) ! 2381: left=(api->scrn_width-width+2)/2; ! 2382: else if(mode&WIN_RHT) ! 2383: left=SCRN_RIGHT-(width+4+left); ! 2384: if(mode&WIN_T2B) ! 2385: top=(api->scrn_len-height+1)/2; ! 2386: else if(mode&WIN_BOT) ! 2387: top=api->scrn_len-height-3-top; ! 2388: if(left<0) ! 2389: left=0; ! 2390: if(top<0) ! 2391: top=0; ! 2392: ! 2393: if(mode&WIN_PACK) ! 2394: pad=0; ! 2395: ! 2396: /* Dynamic Menus */ ! 2397: if(mode&WIN_DYN ! 2398: && curp != NULL ! 2399: && barp != NULL ! 2400: && last_menu_cur==curp ! 2401: && last_menu_bar==barp ! 2402: && save_menu_cur==*curp ! 2403: && save_menu_bar==*barp) ! 2404: is_redraw=1; ! 2405: if(mode&WIN_DYN && mode&WIN_REDRAW) ! 2406: is_redraw=1; ! 2407: if(mode&WIN_DYN && mode&WIN_NODRAW) ! 2408: is_redraw=0; ! 2409: ! 2410: gettext(1,1,api->scrn_width,api->scrn_len,tmp_buffer); ! 2411: ! 2412: if(!is_redraw) { ! 2413: memset(tmp_buffer2,' ',width*height*2); ! 2414: for(i=1;i<width*height*2;i+=2) ! 2415: tmp_buffer2[i]=(api->hclr|(api->bclr<<4)); ! 2416: tmp_buffer2[0]='�'; ! 2417: j=title_len; ! 2418: if(j>width-6) { ! 2419: *(title+width-6)=0; ! 2420: j=width-6; ! 2421: } ! 2422: for(i=2;i<(width-j);i+=2) ! 2423: tmp_buffer2[i]='�'; ! 2424: if(api->mode&UIFC_MOUSE && !mode&WIN_DYN) { ! 2425: tmp_buffer2[2]='['; ! 2426: tmp_buffer2[3]=api->hclr|(api->bclr<<4); ! 2427: /* tmp_buffer2[4]='�'; */ ! 2428: tmp_buffer2[4]=0xfe; ! 2429: tmp_buffer2[5]=api->lclr|(api->bclr<<4); ! 2430: tmp_buffer2[6]=']'; ! 2431: tmp_buffer2[7]=api->hclr|(api->bclr<<4); ! 2432: /* Buttons are ignored - leave it this way to not confuse stuff from help() */ ! 2433: } ! 2434: tmp_buffer2[i]='�'; i+=4; ! 2435: for(p=title;*p;p++) { ! 2436: tmp_buffer2[i]=*p; ! 2437: i+=2; ! 2438: } ! 2439: i+=2; ! 2440: tmp_buffer2[i]='�'; i+=2; ! 2441: for(j=i;j<((width-1)*2);j+=2) ! 2442: tmp_buffer2[j]='�'; ! 2443: i=j; ! 2444: tmp_buffer2[i]='�'; i+=2; ! 2445: j=i; /* leave i alone */ ! 2446: for(k=0;k<(height-2);k++) { /* the sides of the box */ ! 2447: tmp_buffer2[j]='�'; j+=2; ! 2448: j+=((width-2)*2); ! 2449: tmp_buffer2[j]='�'; j+=2; ! 2450: } ! 2451: tmp_buffer2[j]='�'; j+=2; ! 2452: if(!(mode&WIN_DYN) && (width>31)) { ! 2453: for(k=j;k<j+(((width-4)/2-13)*2);k+=2) ! 2454: tmp_buffer2[k]='�'; ! 2455: tmp_buffer2[k]='�'; k+=4; ! 2456: tmp_buffer2[k]='H'; k+=2; ! 2457: tmp_buffer2[k]='i'; k+=2; ! 2458: tmp_buffer2[k]='t'; k+=4; ! 2459: tmp_buffer2[k]='a'; k+=2; ! 2460: tmp_buffer2[k]='n'; k+=2; ! 2461: tmp_buffer2[k]='y'; k+=4; ! 2462: tmp_buffer2[k]='k'; k+=2; ! 2463: tmp_buffer2[k]='e'; k+=2; ! 2464: tmp_buffer2[k]='y'; k+=4; ! 2465: tmp_buffer2[k]='t'; k+=2; ! 2466: tmp_buffer2[k]='o'; k+=4; ! 2467: tmp_buffer2[k]='c'; k+=2; ! 2468: tmp_buffer2[k]='o'; k+=2; ! 2469: tmp_buffer2[k]='n'; k+=2; ! 2470: tmp_buffer2[k]='t'; k+=2; ! 2471: tmp_buffer2[k]='i'; k+=2; ! 2472: tmp_buffer2[k]='n'; k+=2; ! 2473: tmp_buffer2[k]='u'; k+=2; ! 2474: tmp_buffer2[k]='e'; k+=4; ! 2475: tmp_buffer2[k]='�'; k+=2; ! 2476: for(j=k;j<k+(((width-4)/2-12)*2);j+=2) ! 2477: tmp_buffer2[j]='�'; ! 2478: } ! 2479: else { ! 2480: for(k=j;k<j+((width-2)*2);k+=2) ! 2481: tmp_buffer2[k]='�'; ! 2482: j=k; ! 2483: } ! 2484: tmp_buffer2[j]='�'; ! 2485: puttext(left,top+1,left+width-1,top+height,tmp_buffer2); ! 2486: } ! 2487: len=strlen(hbuf); ! 2488: ! 2489: lines=0; ! 2490: k=0; ! 2491: for(j=0;j<len;j++) { ! 2492: if(mode&WIN_HLP && (hbuf[j]==2 || hbuf[j]=='~' || hbuf[j]==1 || hbuf[j]=='`')) ! 2493: continue; ! 2494: if(hbuf[j]==CR) ! 2495: continue; ! 2496: k++; ! 2497: if((hbuf[j]==LF) || (k>=width-2-pad-pad && (hbuf[j+1]!='\n' && hbuf[j+1]!='\r'))) { ! 2498: k=0; ! 2499: lines++; ! 2500: } ! 2501: } ! 2502: if(k) ! 2503: lines++; ! 2504: if(lines < height-2-pad-pad) ! 2505: lines=height-2-pad-pad; ! 2506: ! 2507: if((textbuf=(char *)malloc((width-2-pad-pad)*lines*2))==NULL) { ! 2508: cprintf("UIFC line %d: error allocating %u bytes\r\n" ! 2509: ,__LINE__,(width-2-pad-pad)*lines*2); ! 2510: _setcursortype(cursor); ! 2511: return; ! 2512: } ! 2513: memset(textbuf,' ',(width-2-pad-pad)*lines*2); ! 2514: for(i=1;i<(width-2-pad-pad)*lines*2;i+=2) ! 2515: textbuf[i]=(api->hclr|(api->bclr<<4)); ! 2516: ! 2517: i=0; ! 2518: ! 2519: for(j=i;j<len;j++,i+=2) { ! 2520: if(hbuf[j]==LF) { ! 2521: i+=2; ! 2522: while(i%((width-2-pad-pad)*2)) i++; i-=2; ! 2523: } ! 2524: else if(mode&WIN_HLP && (hbuf[j]==2 || hbuf[j]=='~')) { /* Ctrl-b toggles inverse */ ! 2525: inverse=!inverse; ! 2526: i-=2; ! 2527: } ! 2528: else if(mode&WIN_HLP && (hbuf[j]==1 || hbuf[j]=='`')) { /* Ctrl-a toggles high intensity */ ! 2529: high=!high; ! 2530: i-=2; ! 2531: } ! 2532: else if(hbuf[j]!=CR) { ! 2533: textbuf[i]=hbuf[j]; ! 2534: textbuf[i+1]=inverse ? (api->bclr|(api->cclr<<4)) ! 2535: : high ? (api->hclr|(api->bclr<<4)) : (api->lclr|(api->bclr<<4)); ! 2536: if((i+2)%((width-2-pad-pad)*2)==0 && (hbuf[j+1]==LF) || (hbuf[j+1]==CR && hbuf[j+2]==LF)) ! 2537: i-=2; ! 2538: } ! 2539: else ! 2540: i-=2; ! 2541: } ! 2542: i=0; ! 2543: p=textbuf; ! 2544: if(mode&WIN_DYN) { ! 2545: puttext(left+1+pad,top+2+pad,left+width-2-pad,top+height-1-pad,p); ! 2546: } ! 2547: else { ! 2548: while(i==0) { ! 2549: if(p!=oldp) { ! 2550: if(p > textbuf+(lines-(height-2-pad-pad))*(width-2-pad-pad)*2) ! 2551: p=textbuf+(lines-(height-2-pad-pad))*(width-2-pad-pad)*2; ! 2552: if(p<textbuf) ! 2553: p=textbuf; ! 2554: if(p!=oldp) { ! 2555: puttext(left+1+pad,top+2+pad,left+width-2-pad,top+height-1-pad,p); ! 2556: oldp=p; ! 2557: } ! 2558: } ! 2559: if(kbwait()) { ! 2560: j=inkey(); ! 2561: if(j==CIO_KEY_MOUSE) { ! 2562: /* Ignores return value to avoid hitting help/exit hotspots */ ! 2563: if(uifc_getmouse(&mevnt)>=0) { ! 2564: /* Clicked Scroll Up */ ! 2565: if(mevnt.startx>=left+pad ! 2566: && mevnt.startx<=left+pad+width-3 ! 2567: && mevnt.starty>=top+pad+1 ! 2568: && mevnt.starty<=top+pad+(height/2)-2 ! 2569: && mevnt.event==CIOLIB_BUTTON_1_CLICK) { ! 2570: p = p-((width-2-pad-pad)*2*(height-5)); ! 2571: continue; ! 2572: } ! 2573: /* Clicked Scroll Down */ ! 2574: else if(mevnt.startx>=left+pad ! 2575: && mevnt.startx<=left+pad+width ! 2576: && mevnt.starty<=top+pad+height-2 ! 2577: && mevnt.starty>=top+pad+height-(height/2+1)-2 ! 2578: && mevnt.event==CIOLIB_BUTTON_1_CLICK) { ! 2579: p=p+(width-2-pad-pad)*2*(height-5); ! 2580: continue; ! 2581: } ! 2582: i=1; ! 2583: } ! 2584: continue; ! 2585: } ! 2586: switch(j) { ! 2587: case CIO_KEY_HOME: /* home */ ! 2588: p=textbuf; ! 2589: break; ! 2590: ! 2591: case CIO_KEY_UP: /* up arrow */ ! 2592: p = p-((width-2-pad-pad)*2); ! 2593: break; ! 2594: ! 2595: case CIO_KEY_PPAGE: /* PgUp */ ! 2596: p = p-((width-2-pad-pad)*2*(height-5)); ! 2597: break; ! 2598: ! 2599: case CIO_KEY_NPAGE: /* PgDn */ ! 2600: p=p+(width-2-pad-pad)*2*(height-5); ! 2601: break; ! 2602: ! 2603: case CIO_KEY_END: /* end */ ! 2604: p=textbuf+(lines-height+1)*(width-2-pad-pad)*2; ! 2605: break; ! 2606: ! 2607: case CIO_KEY_DOWN: /* dn arrow */ ! 2608: p = p+((width-2-pad-pad)*2); ! 2609: break; ! 2610: ! 2611: default: ! 2612: i=1; ! 2613: } ! 2614: } ! 2615: mswait(1); ! 2616: } ! 2617: ! 2618: puttext(1,1,api->scrn_width,api->scrn_len,tmp_buffer); ! 2619: } ! 2620: free(textbuf); ! 2621: if(is_redraw) /* Force redraw of menu also. */ ! 2622: reset_dynamic(); ! 2623: _setcursortype(cursor); ! 2624: } ! 2625: ! 2626: /************************************************************/ ! 2627: /* Help (F1) key function. Uses helpbuf as the help input. */ ! 2628: /************************************************************/ ! 2629: static void help(void) ! 2630: { ! 2631: char hbuf[HELPBUF_SIZE],str[256]; ! 2632: char *p; ! 2633: unsigned short line; /* This must be 16-bits */ ! 2634: long l; ! 2635: FILE *fp; ! 2636: ! 2637: if(api->helpbuf==NULL && api->helpixbfile[0]==0) ! 2638: return; ! 2639: ! 2640: _setcursortype(_NOCURSOR); ! 2641: ! 2642: if(api->helpbuf!=NULL) ! 2643: strcpy(hbuf,api->helpbuf); ! 2644: else { ! 2645: if((fp=fopen(api->helpixbfile,"rb"))==NULL) { ! 2646: sprintf(hbuf,"\2 ERROR \2 Cannot open help index:\r\n %s" ! 2647: ,api->helpixbfile); ! 2648: } ! 2649: else { ! 2650: p=strrchr(helpfile,'/'); ! 2651: if(p==NULL) ! 2652: p=strrchr(helpfile,'\\'); ! 2653: if(p==NULL) ! 2654: p=helpfile; ! 2655: else ! 2656: p++; ! 2657: l=-1L; ! 2658: while(!feof(fp)) { ! 2659: if(!fread(str,12,1,fp)) ! 2660: break; ! 2661: str[12]=0; ! 2662: fread(&line,sizeof(line),1,fp); ! 2663: if(stricmp(str,p) || line!=helpline) { ! 2664: fseek(fp,sizeof(l),SEEK_CUR); ! 2665: continue; ! 2666: } ! 2667: fread(&l,sizeof(l),1,fp); ! 2668: break; ! 2669: } ! 2670: fclose(fp); ! 2671: if(l==-1L) ! 2672: sprintf(hbuf,"\2 ERROR \2 Cannot locate help key (%s:%u) in:\r\n" ! 2673: " %s",p,helpline,api->helpixbfile); ! 2674: else { ! 2675: if((fp=fopen(api->helpdatfile,"rb"))==NULL) ! 2676: sprintf(hbuf,"\2 ERROR \2 Cannot open help file:\r\n %s" ! 2677: ,api->helpdatfile); ! 2678: else { ! 2679: fseek(fp,l,SEEK_SET); ! 2680: fread(hbuf,HELPBUF_SIZE,1,fp); ! 2681: fclose(fp); ! 2682: } ! 2683: } ! 2684: } ! 2685: } ! 2686: ! 2687: showbuf(WIN_MID|WIN_HLP, 0, 0, 76, api->scrn_len, "Online Help", hbuf, NULL, NULL); ! 2688: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.