![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to uifc.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 uifc.c CVS log | Up to [Synchronet] / sbbs / src / uifc |
1.1 root 1: /* uifc.c */
2:
3: /* Original implementation of UIFC (user interface) library based on conio */
4:
5: /* $Id: uifc.c,v 1.30 2005/09/20 05:39:41 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 2003 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: #include "uifc.h"
39: #include <share.h>
40: #include <conio.h>
41:
42: #if defined(__OS2__)
43:
44: #define INCL_BASE
45: #include <os2.h>
46:
47: void mswait(int msec)
48: {
49: DosSleep(msec ? msec : 1);
50: }
51:
52: #elif defined(_WIN32)
53: #include <windows.h>
54: #define mswait(x) Sleep(x)
55: #else
56: #define mswait(x) delay(x)
57: #endif
58:
59: static char hclr,lclr,bclr,cclr,show_free_mem=0;
60: static int cursor;
61: static char* helpfile=0;
62: static uint helpline=0;
63: static char blk_scrn[MAX_BFLN];
64: static win_t sav[MAX_BUFS];
65: static uint max_opts=MAX_OPTS;
66: static uifcapi_t* api;
67:
68: /* Prototypes */
69: static int uprintf(int x, int y, char attr, char *fmt,...);
70: static void bottomline(int line);
71: static char *utimestr(time_t *intime);
72: static void help(void);
73: static int getstr(char *outstr, int max, long mode);
74:
75: /* API routines */
76: static void uifcbail(void);
77: static int uscrn(char *str);
78: static int ulist(int mode, int left, int top, int width, int *dflt, int *bar
79: ,char *title, char **option);
80: static int uinput(int imode, int left, int top, char *prompt, char *str
81: ,int len ,int kmode);
82: static void umsg(char *str);
83: static void upop(char *str);
84: static void sethelp(int line, char* file);
85: static void timedisplay(void);
86:
87: int inkey(int mode)
88: {
89: int c;
90:
91: if(mode)
92: return(kbhit());
93: c=getch();
94: if(!c)
95: c=(getch()<<8);
96: return(c);
97: }
98:
99: static uint mousecursor=0x28;
100:
101: /****************************************************************************/
102: /* Initialization function, see uifc.h for details. */
103: /* Returns 0 on success. */
104: /****************************************************************************/
105: int uifcini(uifcapi_t* uifcapi)
106: {
107: int i;
108: struct text_info txtinfo;
109:
110: if(uifcapi==NULL || uifcapi->size!=sizeof(uifcapi_t))
111: return(-1);
112:
113: api=uifcapi;
114:
115: /* install function handlers */
116: api->bail=uifcbail;
117: api->scrn=uscrn;
118: api->msg=umsg;
119: api->pop=upop;
120: api->list=ulist;
121: api->input=uinput;
122: api->sethelp=sethelp;
123: api->showhelp=help;
124: api->showbuf=NULL;
125: api->timedisplay=timedisplay;
126: api->bottomline=bottomline;
127:
128: if(api->scrn_len!=0) {
129: switch(api->scrn_len) {
130: case 14:
131: textmode(C80X14);
132: break;
133: case 21:
134: textmode(C80X21);
135: break;
136: case 25:
137: textmode(C80);
138: break;
139: case 28:
140: textmode(C80X28);
141: break;
142: case 43:
143: textmode(C80X43);
144: break;
145: case 50:
146: textmode(C80X50);
147: break;
148: case 60:
149: textmode(C80X60);
150: break;
151: default:
152: textmode(C4350);
153: break;
154: }
155: }
156:
157: clrscr();
158: gettextinfo(&txtinfo);
159: /* unsupported mode? */
160: if(txtinfo.screenheight<MIN_LINES
161: || txtinfo.screenheight>MAX_LINES
162: || txtinfo.screenwidth<80) {
163: textmode(C80); /* set mode to 80x25*/
164: gettextinfo(&txtinfo);
165: }
166: window(1,1,txtinfo.screenwidth,txtinfo.screenheight);
167:
168: api->scrn_len=txtinfo.screenheight;
169: if(api->scrn_len<MIN_LINES || api->scrn_len>MAX_LINES) {
170: cprintf("\7UIFC: Screen length (%u) must be between %d and %d lines\r\n"
171: ,api->scrn_len,MIN_LINES,MAX_LINES);
172: return(-2);
173: }
174: api->scrn_len--; /* account for status line */
175:
176: if(txtinfo.screenwidth<80) {
177: cprintf("\7UIFC: Screen width (%u) must be at least 80 characters\r\n"
178: ,txtinfo.screenwidth);
179: return(-3);
180: }
181: api->scrn_width=txtinfo.screenwidth;
182:
183: if(!(api->mode&UIFC_COLOR)
184: && (api->mode&UIFC_MONO
185: || txtinfo.currmode==MONO || txtinfo.currmode==BW80)) {
186: bclr=BLACK;
187: hclr=WHITE;
188: lclr=LIGHTGRAY;
189: cclr=LIGHTGRAY;
190: } else {
191: bclr=BLUE;
192: hclr=YELLOW;
193: lclr=WHITE;
194: cclr=CYAN;
195: }
196: for(i=0;i<MAX_BFLN;i+=2) {
197: blk_scrn[i]='�';
198: blk_scrn[i+1]=cclr|(bclr<<4);
199: }
200:
201: cursor=_NOCURSOR;
202: _setcursortype(cursor);
203:
204: return(0);
205: }
206:
207: static void hidemouse(void)
208: {
209: }
210:
211: static void showmouse(void)
212: {
213: }
214:
215:
216: void uifcbail(void)
217: {
218:
219: hidemouse();
220: _setcursortype(_NORMALCURSOR);
221: textattr(LIGHTGRAY);
222: clrscr();
223: }
224:
225: /****************************************************************************/
226: /* Clear screen, fill with background attribute, display application title. */
227: /* Returns 0 on success. */
228: /****************************************************************************/
229: int uscrn(char *str)
230: {
231: textattr(bclr|(cclr<<4));
232: gotoxy(1,1);
233: clreol();
234: gotoxy(3,1);
235: cputs(str);
236: if(!puttext(1,2,80,api->scrn_len,blk_scrn))
237: return(-1);
238: gotoxy(1,api->scrn_len+1);
239: clreol();
240: return(0);
241: }
242:
243: /****************************************************************************/
244: /****************************************************************************/
245: static void scroll_text(int x1, int y1, int x2, int y2, int down)
246: {
247: uchar buf[MAX_BFLN];
248:
249: gettext(x1,y1,x2,y2,buf);
250: if(down)
251: puttext(x1,y1+1,x2,y2,buf);
252: else
253: puttext(x1,y1,x2,y2-1,buf+(((x2-x1)+1)*2));
254: }
255:
256: /****************************************************************************/
257: /* Updates time in upper left corner of screen with current time in ASCII/ */
258: /* Unix format */
259: /****************************************************************************/
260: static void timedisplay(BOOL force)
261: {
262: static time_t savetime;
263: time_t now;
264:
265: now=time(NULL);
266: if(force || difftime(now,savetime)>=60) {
267: uprintf(55,1,bclr|(cclr<<4),utimestr(&now));
268: savetime=now;
269: }
270: }
271:
272: /****************************************************************************/
273: /* Truncates white-space chars off end of 'str' */
274: /****************************************************************************/
275: static void truncsp(char *str)
276: {
277: uint c;
278:
279: c=strlen(str);
280: while(c && (uchar)str[c-1]<=' ') c--;
281: str[c]=0;
282: }
283:
284: /****************************************************************************/
285: /* General menu function, see uifc.h for details. */
286: /****************************************************************************/
287: int ulist(int mode, int left, int top, int width, int *cur, int *bar
288: , char *title, char **option)
289: {
290: uchar line[256],shade[256],win[MAX_BFLN],*ptr,a,b,c,longopt
291: ,search[MAX_OPLN],bline=0;
292: int height,y;
293: int i,j,opts=0,s=0; /* s=search index into options */
294:
295: if(mode&WIN_SAV && api->savnum>=MAX_BUFS-1)
296: putch(7);
297: i=0;
298: if(mode&WIN_INS) bline|=BL_INS;
299: if(mode&WIN_DEL) bline|=BL_DEL;
300: if(mode&WIN_GET) bline|=BL_GET;
301: if(mode&WIN_PUT) bline|=BL_PUT;
302: if(api->bottomline != NULL)
303: api->bottomline(bline);
304: while(opts<max_opts && opts<MAX_OPTS)
305: if(option[opts]==NULL || option[opts][0]==0)
306: break;
307: else opts++;
308: if(mode&WIN_XTR && opts<max_opts && opts<MAX_OPTS)
309: option[opts++][0]=0;
310: height=opts+4;
311: if(top+height>api->scrn_len-3)
312: height=(api->scrn_len-3)-top;
313: if(!width || width<strlen(title)+6) {
314: width=strlen(title)+6;
315: for(i=0;i<opts;i++) {
316: truncsp(option[i]);
317: if((j=strlen(option[i])+5)>width)
318: width=j; } }
319: if(width>(SCRN_RIGHT+1)-SCRN_LEFT)
320: width=(SCRN_RIGHT+1)-SCRN_LEFT;
321: if(mode&WIN_L2R)
322: left=36-(width/2);
323: else if(mode&WIN_RHT)
324: left=SCRN_RIGHT-(width+4+left);
325: if(mode&WIN_T2B)
326: top=(api->scrn_len/2)-(height/2)-2;
327: else if(mode&WIN_BOT)
328: top=api->scrn_len-height-3-top;
329: if(mode&WIN_SAV && api->savdepth==api->savnum) {
330: if((sav[api->savnum].buf=(char *)malloc((width+3)*(height+2)*2))==NULL) {
331: cprintf("UIFC line %d: error allocating %u bytes."
332: ,__LINE__,(width+3)*(height+2)*2);
333: return(-1); }
334: gettext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT+left+width+1
335: ,SCRN_TOP+top+height,sav[api->savnum].buf);
336: sav[api->savnum].left=SCRN_LEFT+left;
337: sav[api->savnum].top=SCRN_TOP+top;
338: sav[api->savnum].right=SCRN_LEFT+left+width+1;
339: sav[api->savnum].bot=SCRN_TOP+top+height;
340: api->savdepth++; }
341: else if(mode&WIN_SAV
342: && (sav[api->savnum].left!=SCRN_LEFT+left
343: || sav[api->savnum].top!=SCRN_TOP+top
344: || sav[api->savnum].right!=SCRN_LEFT+left+width+1
345: || sav[api->savnum].bot!=SCRN_TOP+top+height)) { /* dimensions have changed */
346: puttext(sav[api->savnum].left,sav[api->savnum].top,sav[api->savnum].right,sav[api->savnum].bot
347: ,sav[api->savnum].buf); /* put original window back */
348: free(sav[api->savnum].buf);
349: if((sav[api->savnum].buf=(char *)malloc((width+3)*(height+2)*2))==NULL) {
350: cprintf("UIFC line %d: error allocating %u bytes."
351: ,__LINE__,(width+3)*(height+2)*2);
352: return(-1); }
353: gettext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT+left+width+1
354: ,SCRN_TOP+top+height,sav[api->savnum].buf); /* save again */
355: sav[api->savnum].left=SCRN_LEFT+left;
356: sav[api->savnum].top=SCRN_TOP+top;
357: sav[api->savnum].right=SCRN_LEFT+left+width+1;
358: sav[api->savnum].bot=SCRN_TOP+top+height; }
359:
360:
361:
362: if(mode&WIN_ORG) { /* Clear around menu */
363: if(top)
364: puttext(SCRN_LEFT,SCRN_TOP,SCRN_RIGHT+2,SCRN_TOP+top-1,blk_scrn);
365: if(SCRN_TOP+height+top<=api->scrn_len)
366: puttext(SCRN_LEFT,SCRN_TOP+height+top,SCRN_RIGHT+2,api->scrn_len,blk_scrn);
367: if(left)
368: puttext(SCRN_LEFT,SCRN_TOP+top,SCRN_LEFT+left-1,SCRN_TOP+height+top
369: ,blk_scrn);
370: if(SCRN_LEFT+left+width<=SCRN_RIGHT)
371: puttext(SCRN_LEFT+left+width,SCRN_TOP+top,SCRN_RIGHT+2
372: ,SCRN_TOP+height+top,blk_scrn); }
373: ptr=win;
374: *(ptr++)='�';
375: *(ptr++)=hclr|(bclr<<4);
376:
377: if(api->mode&UIFC_MOUSE) {
378: *(ptr++)='[';
379: *(ptr++)=hclr|(bclr<<4);
380: *(ptr++)='�';
381: *(ptr++)=lclr|(bclr<<4);
382: *(ptr++)=']';
383: *(ptr++)=hclr|(bclr<<4);
384: *(ptr++)='[';
385: *(ptr++)=hclr|(bclr<<4);
386: *(ptr++)='?';
387: *(ptr++)=lclr|(bclr<<4);
388: *(ptr++)=']';
389: *(ptr++)=hclr|(bclr<<4);
390: i=6; }
391: else
392: i=0;
393: for(;i<width-2;i++) {
394: *(ptr++)='�';
395: *(ptr++)=hclr|(bclr<<4); }
396: *(ptr++)='�';
397: *(ptr++)=hclr|(bclr<<4);
398: *(ptr++)='�';
399: *(ptr++)=hclr|(bclr<<4);
400: a=strlen(title);
401: b=(width-a-1)/2;
402: for(i=0;i<b;i++) {
403: *(ptr++)=' ';
404: *(ptr++)=hclr|(bclr<<4); }
405: for(i=0;i<a;i++) {
406: *(ptr++)=title[i];
407: *(ptr++)=hclr|(bclr<<4); }
408: for(i=0;i<width-(a+b)-2;i++) {
409: *(ptr++)=' ';
410: *(ptr++)=hclr|(bclr<<4); }
411: *(ptr++)='�';
412: *(ptr++)=hclr|(bclr<<4);
413: *(ptr++)='�';
414: *(ptr++)=hclr|(bclr<<4);
415: for(i=0;i<width-2;i++) {
416: *(ptr++)='�';
417: *(ptr++)=hclr|(bclr<<4); }
418: *(ptr++)='�';
419: *(ptr++)=hclr|(bclr<<4);
420:
421: if((*cur)>=opts)
422: (*cur)=opts-1; /* returned after scrolled */
423:
424: if(!bar) {
425: if((*cur)>height-5)
426: (*cur)=height-5;
427: i=0; }
428: else {
429: if((*bar)>=opts)
430: (*bar)=opts-1;
431: if((*bar)>height-5)
432: (*bar)=height-5;
433: if((*cur)==opts-1)
434: (*bar)=height-5;
435: if((*bar)<0)
436: (*bar)=0;
437: if((*cur)<(*bar))
438: (*cur)=(*bar);
439: i=(*cur)-(*bar);
440:
441: if(i+(height-5)>=opts) {
442: i=opts-(height-4);
443: (*cur)=i+(*bar);
444: }
445: }
446: if((*cur)<0)
447: (*cur)=0;
448:
449: j=0;
450: if(i<0) i=0;
451: longopt=0;
452: while(j<height-4 && i<opts) {
453: *(ptr++)='�';
454: *(ptr++)=hclr|(bclr<<4);
455: *(ptr++)=' ';
456: *(ptr++)=hclr|(bclr<<4);
457: *(ptr++)='�';
458: *(ptr++)=lclr|(bclr<<4);
459: if(i==(*cur))
460: a=bclr|(LIGHTGRAY<<4);
461: else
462: a=lclr|(bclr<<4);
463: b=strlen(option[i]);
464: if(b>longopt)
465: longopt=b;
466: if(b+4>width)
467: b=width-4;
468: for(c=0;c<b;c++) {
469: *(ptr++)=option[i][c];
470: *(ptr++)=a; }
471: while(c<width-4) {
472: *(ptr++)=' ';
473: *(ptr++)=a;
474: c++; }
475: *(ptr++)='�';
476: *(ptr++)=hclr|(bclr<<4);
477: i++;
478: j++; }
479: *(ptr++)='�';
480: *(ptr++)=hclr|(bclr<<4);
481: for(i=0;i<width-2;i++) {
482: *(ptr++)='�';
483: *(ptr++)=hclr|(bclr<<4); }
484: *(ptr++)='�';
485: *(ptr++)=hclr|(bclr<<4);
486: puttext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT+left+width-1
487: ,SCRN_TOP+top+height-1,win);
488: if(bar)
489: y=top+3+(*bar);
490: else
491: y=top+3+(*cur);
492: if(opts+4>height && ((!bar && (*cur)!=opts-1)
493: || (bar && ((*cur)-(*bar))+(height-4)<opts))) {
494: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+height-2);
495: textattr(lclr|(bclr<<4));
496: putch(31); /* put down arrow */
497: textattr(hclr|(bclr<<4)); }
498:
499: if(bar && (*bar)!=(*cur)) {
500: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+3);
501: textattr(lclr|(bclr<<4));
502: putch(30); /* put the up arrow */
503: textattr(hclr|(bclr<<4)); }
504:
505: if(bclr==BLUE) {
506: gettext(SCRN_LEFT+left+width,SCRN_TOP+top+1,SCRN_LEFT+left+width+1
507: ,SCRN_TOP+top+height-1,shade);
508: for(i=1;i<height*4;i+=2)
509: shade[i]=DARKGRAY;
510: puttext(SCRN_LEFT+left+width,SCRN_TOP+top+1,SCRN_LEFT+left+width+1
511: ,SCRN_TOP+top+height-1,shade);
512: gettext(SCRN_LEFT+left+2,SCRN_TOP+top+height,SCRN_LEFT+left+width+1
513: ,SCRN_TOP+top+height,shade);
514: for(i=1;i<width*2;i+=2)
515: shade[i]=DARKGRAY;
516: puttext(SCRN_LEFT+left+2,SCRN_TOP+top+height,SCRN_LEFT+left+width+1
517: ,SCRN_TOP+top+height,shade); }
518: showmouse();
519: while(1) {
520: #if 0 /* debug */
521: gotoxy(30,1);
522: cprintf("y=%2d h=%2d c=%2d b=%2d s=%2d o=%2d"
523: ,y,height,*cur,bar ? *bar :0xff,api->savdepth,opts);
524: #endif
525: if(!show_free_mem) {
526: if(api->timedisplay != NULL)
527: api->timedisplay(FALSE);
528: }
529:
530: if(inkey(1)) {
531: i=inkey(0);
532: if(!(i&0xff)) {
533: s=0;
534: switch(i>>8) {
535: case 71: /* home */
536: if(!opts)
537: break;
538: if(opts+4>height) {
539: hidemouse();
540: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+3);
541: textattr(lclr|(bclr<<4));
542: putch(' '); /* Delete the up arrow */
543: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+height-2);
544: putch(31); /* put the down arrow */
545: uprintf(SCRN_LEFT+left+3,SCRN_TOP+top+3
546: ,bclr|(LIGHTGRAY<<4)
547: ,"%-*.*s",width-4,width-4,option[0]);
548: for(i=1;i<height-4;i++) /* re-display options */
549: uprintf(SCRN_LEFT+left+3,SCRN_TOP+top+3+i
550: ,lclr|(bclr<<4)
551: ,"%-*.*s",width-4,width-4,option[i]);
552: (*cur)=0;
553: if(bar)
554: (*bar)=0;
555: y=top+3;
556: showmouse();
557: break; }
558: hidemouse();
559: gettext(SCRN_LEFT+3+left,SCRN_TOP+y
560: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
561: for(i=1;i<width*2;i+=2)
562: line[i]=lclr|(bclr<<4);
563: puttext(SCRN_LEFT+3+left,SCRN_TOP+y
564: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
565: (*cur)=0;
566: if(bar)
567: (*bar)=0;
568: y=top+3;
569: gettext(SCRN_LEFT+3+left,SCRN_TOP+y
570: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
571: for(i=1;i<width*2;i+=2)
572: line[i]=bclr|(LIGHTGRAY<<4);
573: puttext(SCRN_LEFT+3+left,SCRN_TOP+y
574: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
575: showmouse();
576: break;
577: case 72: /* up arrow */
578: if(!opts)
579: break;
580: if(!(*cur) && opts+4>height) {
581: hidemouse();
582: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+3); /* like end */
583: textattr(lclr|(bclr<<4));
584: putch(30); /* put the up arrow */
585: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+height-2);
586: putch(' '); /* delete the down arrow */
587: for(i=(opts+4)-height,j=0;i<opts;i++,j++)
588: uprintf(SCRN_LEFT+left+3,SCRN_TOP+top+3+j
589: ,i==opts-1 ? bclr|(LIGHTGRAY<<4)
590: : lclr|(bclr<<4)
591: ,"%-*.*s",width-4,width-4,option[i]);
592: (*cur)=opts-1;
593: if(bar)
594: (*bar)=height-5;
595: y=top+height-2;
596: showmouse();
597: break; }
598: hidemouse();
599: gettext(SCRN_LEFT+3+left,SCRN_TOP+y
600: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
601: for(i=1;i<width*2;i+=2)
602: line[i]=lclr|(bclr<<4);
603: puttext(SCRN_LEFT+3+left,SCRN_TOP+y
604: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
605: showmouse();
606: if(!(*cur)) {
607: y=top+height-2;
608: (*cur)=opts-1;
609: if(bar)
610: (*bar)=height-5; }
611: else {
612: (*cur)--;
613: y--;
614: if(bar && *bar)
615: (*bar)--; }
616: if(y<top+3) { /* scroll */
617: hidemouse();
618: if(!(*cur)) {
619: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+3);
620: textattr(lclr|(bclr<<4));
621: putch(' '); } /* delete the up arrow */
622: if((*cur)+height-4==opts-1) {
623: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+height-2);
624: textattr(lclr|(bclr<<4));
625: putch(31); } /* put the dn arrow */
626: y++;
627: scroll_text(SCRN_LEFT+left+2,SCRN_TOP+top+3
628: ,SCRN_LEFT+left+width-3,SCRN_TOP+top+height-2,1);
629: uprintf(SCRN_LEFT+left+3,SCRN_TOP+top+3
630: ,bclr|(LIGHTGRAY<<4)
631: ,"%-*.*s",width-4,width-4,option[*cur]);
632: showmouse(); }
633: else {
634: hidemouse();
635: gettext(SCRN_LEFT+3+left,SCRN_TOP+y
636: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
637: for(i=1;i<width*2;i+=2)
638: line[i]=bclr|(LIGHTGRAY<<4);
639: puttext(SCRN_LEFT+3+left,SCRN_TOP+y
640: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
641: showmouse(); }
642: break;
643: #if 0
644: case 0x49; /* PgUp */
645: case 0x51; /* PgDn */
646: if(!opts || (*cur)==(opts-1))
647: break;
648: (*cur)+=(height-4);
649: if((*cur)>(opts-1))
650: (*cur)=(opts-1);
651:
652: hidemouse();
653: gettext(SCRN_LEFT+3+left,SCRN_TOP+y
654: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
655: for(i=1;i<width*2;i+=2)
656: line[i]=lclr|(bclr<<4);
657: puttext(SCRN_LEFT+3+left,SCRN_TOP+y
658: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
659:
660: for(i=(opts+4)-height,j=0;i<opts;i++,j++)
661: uprintf(SCRN_LEFT+left+3,SCRN_TOP+top+3+j
662: ,i==(*cur) bclr|(LIGHTGRAY<<4) : lclr|(bclr<<4)
663: ,"%-*.*s",width-4,width-4,option[i]);
664: y=top+height-2;
665: if(bar)
666: (*bar)=height-5;
667: gettext(SCRN_LEFT+3+left,SCRN_TOP+y
668: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
669: for(i=1;i<148;i+=2)
670: line[i]=bclr|(LIGHTGRAY<<4);
671: puttext(SCRN_LEFT+3+left,SCRN_TOP+y
672: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
673: showmouse();
674: break;
675: #endif
676: case 79: /* end */
677: if(!opts)
678: break;
679: if(opts+4>height) { /* Scroll mode */
680: hidemouse();
681: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+3);
682: textattr(lclr|(bclr<<4));
683: putch(30); /* put the up arrow */
684: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+height-2);
685: putch(' '); /* delete the down arrow */
686: for(i=(opts+4)-height,j=0;i<opts;i++,j++)
687: uprintf(SCRN_LEFT+left+3,SCRN_TOP+top+3+j
688: ,i==opts-1 ? bclr|(LIGHTGRAY<<4)
689: : lclr|(bclr<<4)
690: ,"%-*.*s",width-4,width-4,option[i]);
691: (*cur)=opts-1;
692: y=top+height-2;
693: if(bar)
694: (*bar)=height-5;
695: showmouse();
696: break; }
697: hidemouse();
698: gettext(SCRN_LEFT+3+left,SCRN_TOP+y
699: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
700: for(i=1;i<width*2;i+=2)
701: line[i]=lclr|(bclr<<4);
702: puttext(SCRN_LEFT+3+left,SCRN_TOP+y
703: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
704: (*cur)=opts-1;
705: y=top+height-2;
706: if(bar)
707: (*bar)=height-5;
708: gettext(SCRN_LEFT+3+left,SCRN_TOP+y
709: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
710: for(i=1;i<148;i+=2)
711: line[i]=bclr|(LIGHTGRAY<<4);
712: puttext(SCRN_LEFT+3+left,SCRN_TOP+y
713: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
714: showmouse();
715: break;
716: case 80: /* dn arrow */
717: if(!opts)
718: break;
719: if((*cur)==opts-1 && opts+4>height) { /* like home */
720: hidemouse();
721: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+3);
722: textattr(lclr|(bclr<<4));
723: putch(' '); /* Delete the up arrow */
724: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+height-2);
725: putch(31); /* put the down arrow */
726: uprintf(SCRN_LEFT+left+3,SCRN_TOP+top+3
727: ,bclr|(LIGHTGRAY<<4)
728: ,"%-*.*s",width-4,width-4,option[0]);
729: for(i=1;i<height-4;i++) /* re-display options */
730: uprintf(SCRN_LEFT+left+3,SCRN_TOP+top+3+i
731: ,lclr|(bclr<<4)
732: ,"%-*.*s",width-4,width-4,option[i]);
733: (*cur)=0;
734: y=top+3;
735: if(bar)
736: (*bar)=0;
737: showmouse();
738: break; }
739: hidemouse();
740: gettext(SCRN_LEFT+3+left,SCRN_TOP+y
741: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
742: for(i=1;i<width*2;i+=2)
743: line[i]=lclr|(bclr<<4);
744: puttext(SCRN_LEFT+3+left,SCRN_TOP+y
745: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
746: showmouse();
747: if((*cur)==opts-1) {
748: (*cur)=0;
749: y=top+3;
750: if(bar) {
751: /* gotoxy(1,1); cprintf("bar=%08lX ",bar); */
752: (*bar)=0; } }
753: else {
754: (*cur)++;
755: y++;
756: if(bar && (*bar)<height-5) {
757: /* gotoxy(1,1); cprintf("bar=%08lX ",bar); */
758: (*bar)++; } }
759: if(y==top+height-1) { /* scroll */
760: hidemouse();
761: if(*cur==opts-1) {
762: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+height-2);
763: textattr(lclr|(bclr<<4));
764: putch(' '); } /* delete the down arrow */
765: if((*cur)+4==height) {
766: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+3);
767: textattr(lclr|(bclr<<4));
768: putch(30); } /* put the up arrow */
769: y--;
770: /* gotoxy(1,1); cprintf("\rdebug: %4d ",__LINE__); */
771: scroll_text(SCRN_LEFT+left+2,SCRN_TOP+top+3
772: ,SCRN_LEFT+left+width-3,SCRN_TOP+top+height-2,0);
773: /* gotoxy(1,1); cprintf("\rdebug: %4d ",__LINE__); */
774: uprintf(SCRN_LEFT+left+3,SCRN_TOP+top+height-2
775: ,bclr|(LIGHTGRAY<<4)
776: ,"%-*.*s",width-4,width-4,option[*cur]);
777: showmouse(); }
778: else {
779: hidemouse();
780: gettext(SCRN_LEFT+3+left,SCRN_TOP+y
781: ,SCRN_LEFT+left+width-2,SCRN_TOP+y
782: ,line);
783: for(i=1;i<width*2;i+=2)
784: line[i]=bclr|(LIGHTGRAY<<4);
785: puttext(SCRN_LEFT+3+left,SCRN_TOP+y
786: ,SCRN_LEFT+left+width-2,SCRN_TOP+y
787: ,line);
788: showmouse(); }
789: break;
790: case 0x3b: /* F1 */
791: help();
792: break;
793: case 0x3f: /* F5 */
794: if(mode&WIN_GET && !(mode&WIN_XTR && (*cur)==opts-1))
795: return((*cur)|MSK_GET);
796: break;
797: case 0x40: /* F6 */
798: if(mode&WIN_PUT && !(mode&WIN_XTR && (*cur)==opts-1))
799: return((*cur)|MSK_PUT);
800: break;
801: case 82: /* insert */
802: if(mode&WIN_INS) {
803: if(mode&WIN_INSACT) {
804: hidemouse();
805: gettext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT
806: +left+width-1,SCRN_TOP+top+height-1,win);
807: for(i=1;i<(width*height*2);i+=2)
808: win[i]=lclr|(cclr<<4);
809: if(opts) {
810: j=(((y-top)*width)*2)+7+((width-4)*2);
811: for(i=(((y-top)*width)*2)+7;i<j;i+=2)
812: win[i]=hclr|(cclr<<4); }
813: puttext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT
814: +left+width-1,SCRN_TOP+top+height-1,win);
815: showmouse(); }
816: if(!opts)
817: return(MSK_INS);
818: return((*cur)|MSK_INS); }
819: break;
820: case 83: /* delete */
821: if(mode&WIN_XTR && (*cur)==opts-1) /* can't delete */
822: break; /* extra line */
823: if(mode&WIN_DEL) {
824: if(mode&WIN_DELACT) {
825: hidemouse();
826: gettext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT
827: +left+width-1,SCRN_TOP+top+height-1,win);
828: for(i=1;i<(width*height*2);i+=2)
829: win[i]=lclr|(cclr<<4);
830: j=(((y-top)*width)*2)+7+((width-4)*2);
831: for(i=(((y-top)*width)*2)+7;i<j;i+=2)
832: win[i]=hclr|(cclr<<4);
833: puttext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT
834: +left+width-1,SCRN_TOP+top+height-1,win);
835: showmouse(); }
836: return((*cur)|MSK_DEL); }
837: break; } }
838: else {
839: i&=0xff;
840: if(isalnum(i) && opts && option[0][0]) {
841: search[s]=i;
842: search[s+1]=0;
843: for(j=(*cur)+1,a=b=0;a<2;j++) { /* a = search count */
844: if(j==opts) { /* j = option count */
845: j=-1; /* b = letter count */
846: continue; }
847: if(j==(*cur)) {
848: b++;
849: continue; }
850: if(b>=longopt) {
851: b=0;
852: a++; }
853: if(a==1 && !s)
854: break;
855: if(strlen(option[j])>b
856: && ((!a && s && !strncmpi(option[j]+b,search,s+1))
857: || ((a || !s) && toupper(option[j][b])==toupper(i)))) {
858: if(a) s=0;
859: else s++;
860: if(y+(j-(*cur))+2>height+top) {
861: (*cur)=j;
862: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+3);
863: textattr(lclr|(bclr<<4));
864: putch(30); /* put the up arrow */
865: if((*cur)==opts-1) {
866: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+height-2);
867: putch(' '); } /* delete the down arrow */
868: for(i=((*cur)+5)-height,j=0;i<(*cur)+1;i++,j++)
869: uprintf(SCRN_LEFT+left+3,SCRN_TOP+top+3+j
870: ,i==(*cur) ? bclr|(LIGHTGRAY<<4)
871: : lclr|(bclr<<4)
872: ,"%-*.*s",width-4,width-4,option[i]);
873: y=top+height-2;
874: if(bar)
875: (*bar)=height-5;
876: break; }
877: if(y-((*cur)-j)<top+3) {
878: (*cur)=j;
879: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+3);
880: textattr(lclr|(bclr<<4));
881: if(!(*cur))
882: putch(' '); /* Delete the up arrow */
883: gotoxy(SCRN_LEFT+left+1,SCRN_TOP+top+height-2);
884: putch(31); /* put the down arrow */
885: uprintf(SCRN_LEFT+left+3,SCRN_TOP+top+3
886: ,bclr|(LIGHTGRAY<<4)
887: ,"%-*.*s",width-4,width-4,option[(*cur)]);
888: for(i=1;i<height-4;i++) /* re-display options */
889: uprintf(SCRN_LEFT+left+3,SCRN_TOP+top+3+i
890: ,lclr|(bclr<<4)
891: ,"%-*.*s",width-4,width-4
892: ,option[(*cur)+i]);
893: y=top+3;
894: if(bar)
895: (*bar)=0;
896: break; }
897: hidemouse();
898: gettext(SCRN_LEFT+3+left,SCRN_TOP+y
899: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
900: for(i=1;i<width*2;i+=2)
901: line[i]=lclr|(bclr<<4);
902: puttext(SCRN_LEFT+3+left,SCRN_TOP+y
903: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
904: if((*cur)>j)
905: y-=(*cur)-j;
906: else
907: y+=j-(*cur);
908: if(bar) {
909: if((*cur)>j)
910: (*bar)-=(*cur)-j;
911: else
912: (*bar)+=j-(*cur); }
913: (*cur)=j;
914: gettext(SCRN_LEFT+3+left,SCRN_TOP+y
915: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
916: for(i=1;i<width*2;i+=2)
917: line[i]=bclr|(LIGHTGRAY<<4);
918: puttext(SCRN_LEFT+3+left,SCRN_TOP+y
919: ,SCRN_LEFT+left+width-2,SCRN_TOP+y,line);
920: showmouse();
921: break; } }
922: if(a==2)
923: s=0; }
924: else
925: switch(i) {
926: case CR:
927: if(!opts || (mode&WIN_XTR && (*cur)==opts-1))
928: break;
929: if(mode&WIN_ACT) {
930: hidemouse();
931: gettext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT
932: +left+width-1,SCRN_TOP+top+height-1,win);
933: for(i=1;i<(width*height*2);i+=2)
934: win[i]=lclr|(cclr<<4);
935: j=(((y-top)*width)*2)+7+((width-4)*2);
936: for(i=(((y-top)*width)*2)+7;i<j;i+=2)
937: win[i]=hclr|(cclr<<4);
938:
939: puttext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT
940: +left+width-1,SCRN_TOP+top+height-1,win);
941: showmouse(); }
942: else if(mode&WIN_SAV) {
943: hidemouse();
944: puttext(sav[api->savnum].left,sav[api->savnum].top
945: ,sav[api->savnum].right,sav[api->savnum].bot
946: ,sav[api->savnum].buf);
947: showmouse();
948: free(sav[api->savnum].buf);
949: api->savdepth--; }
950: return(*cur);
951: case ESC:
952: case '\b': /* backspace */
953: if(mode&WIN_ESC || (mode&WIN_CHE && api->changes)
954: && !(mode&WIN_SAV)) {
955: hidemouse();
956: gettext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT
957: +left+width-1,SCRN_TOP+top+height-1,win);
958: for(i=1;i<(width*height*2);i+=2)
959: win[i]=lclr|(cclr<<4);
960: puttext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT
961: +left+width-1,SCRN_TOP+top+height-1,win);
962: showmouse(); }
963: else if(mode&WIN_SAV) {
964: hidemouse();
965: puttext(sav[api->savnum].left,sav[api->savnum].top
966: ,sav[api->savnum].right,sav[api->savnum].bot
967: ,sav[api->savnum].buf);
968: showmouse();
969: free(sav[api->savnum].buf);
970: api->savdepth--; }
971: return(-1); } } }
972: else
973: mswait(1);
974: }
975: }
976:
977:
978: /*************************************************************************/
979: /* This function is a windowed input string input routine. */
980: /*************************************************************************/
981: int uinput(int mode, int left, int top, char *prompt, char *str,
982: int max, int kmode)
983: {
984: unsigned char c,tmp[81],save_buf[2048],in_win[2048]
985: ,shade[160],width,height=3;
986: int i,j,plen,slen;
987:
988: hidemouse();
989: plen=strlen(prompt);
990: if(!plen)
991: slen=4;
992: else
993: slen=6;
994: width=plen+slen+max;
995: if(mode&WIN_T2B)
996: top=(api->scrn_len/2)-(height/2)-2;
997: if(mode&WIN_L2R)
998: left=36-(width/2);
999: if(mode&WIN_SAV)
1000: gettext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT+left+width+1
1001: ,SCRN_TOP+top+height,save_buf);
1002: i=0;
1003: in_win[i++]='�';
1004: in_win[i++]=hclr|(bclr<<4);
1005: for(c=1;c<width-1;c++) {
1006: in_win[i++]='�';
1007: in_win[i++]=hclr|(bclr<<4); }
1008: in_win[i++]='�';
1009: in_win[i++]=hclr|(bclr<<4);
1010: in_win[i++]='�';
1011: in_win[i++]=hclr|(bclr<<4);
1012:
1013: if(plen) {
1014: in_win[i++]=' ';
1015: in_win[i++]=lclr|(bclr<<4); }
1016:
1017: for(c=0;prompt[c];c++) {
1018: in_win[i++]=prompt[c];
1019: in_win[i++]=lclr|(bclr<<4); }
1020:
1021: if(plen) {
1022: in_win[i++]=':';
1023: in_win[i++]=lclr|(bclr<<4);
1024: c++; }
1025:
1026: for(c=0;c<max+2;c++) {
1027: in_win[i++]=' ';
1028: in_win[i++]=lclr|(bclr<<4); }
1029:
1030: in_win[i++]='�';
1031: in_win[i++]=hclr|(bclr<<4);
1032: in_win[i++]='�';
1033: in_win[i++]=hclr|(bclr<<4);
1034: for(c=1;c<width-1;c++) {
1035: in_win[i++]='�';
1036: in_win[i++]=hclr|(bclr<<4); }
1037: in_win[i++]='�';
1038: in_win[i++]=hclr|(bclr<<4);
1039: puttext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT+left+width-1
1040: ,SCRN_TOP+top+height-1,in_win);
1041:
1042: if(bclr==BLUE) {
1043: gettext(SCRN_LEFT+left+width,SCRN_TOP+top+1,SCRN_LEFT+left+width+1
1044: ,SCRN_TOP+top+(height-1),shade);
1045: for(c=1;c<12;c+=2)
1046: shade[c]=DARKGRAY;
1047: puttext(SCRN_LEFT+left+width,SCRN_TOP+top+1,SCRN_LEFT+left+width+1
1048: ,SCRN_TOP+top+(height-1),shade);
1049: gettext(SCRN_LEFT+left+2,SCRN_TOP+top+3,SCRN_LEFT+left+width+1
1050: ,SCRN_TOP+top+height,shade);
1051: for(c=1;c<width*2;c+=2)
1052: shade[c]=DARKGRAY;
1053: puttext(SCRN_LEFT+left+2,SCRN_TOP+top+3,SCRN_LEFT+left+width+1
1054: ,SCRN_TOP+top+height,shade); }
1055:
1056: textattr(lclr|(bclr<<4));
1057: if(!plen)
1058: gotoxy(SCRN_LEFT+left+2,SCRN_TOP+top+1);
1059: else
1060: gotoxy(SCRN_LEFT+left+plen+4,SCRN_TOP+top+1);
1061: i=getstr(str,max,kmode);
1062: if(mode&WIN_SAV)
1063: puttext(SCRN_LEFT+left,SCRN_TOP+top,SCRN_LEFT+left+width+1
1064: ,SCRN_TOP+top+height,save_buf);
1065: showmouse();
1066: return(i);
1067: }
1068:
1069: /****************************************************************************/
1070: /* Displays the message 'str' and waits for the user to select "OK" */
1071: /****************************************************************************/
1072: void umsg(char *str)
1073: {
1074: int i=0;
1075: char *ok[2]={"OK",""};
1076:
1077: if(api->mode&UIFC_INMSG) /* non-cursive */
1078: return;
1079: api->mode|=UIFC_INMSG;
1080: if(api->savdepth) api->savnum++;
1081: ulist(WIN_SAV|WIN_MID,0,0,0,&i,0,str,ok);
1082: if(api->savdepth) api->savnum--;
1083: api->mode&=~UIFC_INMSG;
1084: }
1085:
1086: /****************************************************************************/
1087: /* Gets a string of characters from the user. Turns cursor on. Allows */
1088: /* Different modes - K_* macros. ESC aborts input. */
1089: /* Cursor should be at END of where string prompt will be placed. */
1090: /****************************************************************************/
1091: static int getstr(char *outstr, int max, long mode)
1092: {
1093: uchar ch,str[256],ins=0,buf[256],y;
1094: int i,j,k,f=0; /* i=offset, j=length */
1095:
1096: cursor=_NORMALCURSOR;
1097: _setcursortype(cursor);
1098: y=wherey();
1099: if(mode&K_EDIT) {
1100: /***
1101: truncsp(outstr);
1102: ***/
1103: outstr[max]=0;
1104: textattr(bclr|(LIGHTGRAY<<4));
1105: cputs(outstr);
1106: textattr(lclr|(bclr<<4));
1107: strcpy(str,outstr);
1108: i=j=strlen(str);
1109: while(inkey(1)==0) {
1110: mswait(1);
1111: }
1112: f=inkey(0);
1113: gotoxy(wherex()-i,y);
1114: if(!isprint(f&0xff) && f!=0x5300)
1115: cputs(outstr);
1116: else {
1117: cprintf("%*s",i,"");
1118: gotoxy(wherex()-i,y);
1119: i=j=0; } }
1120: else
1121: i=j=0;
1122:
1123:
1124: while(1) {
1125:
1126:
1127: if(i>j) j=i;
1128: if(f || inkey(1)) {
1129: if(f) k=f; /* First key */
1130: else k=inkey(0);
1131: f=0;
1132: ch=k&0xff;
1133: if(!ch) {
1134: switch(k>>8) {
1135: case 0x3b: /* F1 Help */
1136: help();
1137: continue;
1138: case 0x4b: /* left arrow */
1139: if(i) {
1140: gotoxy(wherex()-1,y);
1141: i--; }
1142: continue;
1143: case 0x4d: /* right arrow */
1144: if(i<j) {
1145: gotoxy(wherex()+1,y);
1146: i++; }
1147: continue;
1148: case 0x47: /* home */
1149: if(i) {
1150: gotoxy(wherex()-i,y);
1151: i=0; }
1152: continue;
1153: case 0x4f: /* end */
1154: if(i<j) {
1155: gotoxy(wherex()+(j-i),y);
1156: i=j; }
1157: continue;
1158: case 0x52: /* insert */
1159: ins=!ins;
1160: if(ins)
1161: cursor=_SOLIDCURSOR;
1162: else
1163: cursor=_NORMALCURSOR;
1164: _setcursortype(cursor);
1165: continue;
1166: case 0x53: /* delete */
1167: if(i<j) {
1168: gettext(wherex()+1,y,wherex()+(j-i),y,buf);
1169: puttext(wherex(),y,wherex()+(j-i)-1,y,buf);
1170: gotoxy(wherex()+(j-i),y);
1171: putch(' ');
1172: gotoxy(wherex()-((j-i)+1),y);
1173: for(k=i;k<j;k++)
1174: str[k]=str[k+1];
1175: j--; }
1176: continue; }
1177: continue; }
1178: if(ch==03 || ch==ESC) {
1179: cursor=_NOCURSOR;
1180: _setcursortype(cursor);
1181: return(-1); }
1182: if(ch==BS && i) {
1183: if(i==j) {
1184: cputs("\b \b");
1185: j--;
1186: i--; }
1187: else {
1188: gettext(wherex(),y,wherex()+(j-i),y,buf);
1189: puttext(wherex()-1,y,wherex()+(j-i)-1,y,buf);
1190: gotoxy(wherex()+(j-i),y);
1191: putch(' ');
1192: gotoxy(wherex()-((j-i)+2),y);
1193: i--;
1194: j--;
1195: for(k=i;k<j;k++)
1196: str[k]=str[k+1]; }
1197: continue; }
1198: if(ch==CR)
1199: break;
1200: if(ch==24) { /* ctrl-x */
1201: if(j) {
1202: gotoxy(wherex()-i,y);
1203: cprintf("%*s",j,"");
1204: gotoxy(wherex()-j,y);
1205: i=j=0; }
1206: continue; }
1207: if(ch==25) { /* ctrl-y */
1208: if(i<j) {
1209: cprintf("%*s",(j-i),"");
1210: gotoxy(wherex()-(j-i),y);
1211: j=i; }
1212: continue; }
1213: if(mode&K_NUMBER && !isdigit(ch))
1214: continue;
1215: if(mode&K_ALPHA && !isalpha(ch))
1216: continue;
1217: if((ch>=' ' || (ch==1 && mode&K_MSG)) && i<max && (!ins || j<max)) {
1218: if(mode&K_UPPER)
1219: ch=toupper(ch);
1220: if(ins) {
1221: gettext(wherex(),y,wherex()+(j-i),y,buf);
1222: puttext(wherex()+1,y,wherex()+(j-i)+1,y,buf);
1223: for(k=++j;k>i;k--)
1224: str[k]=str[k-1]; }
1225: putch(ch);
1226: str[i++]=ch; } }
1227: else
1228: mswait(1);
1229: }
1230: str[j]=0;
1231: if(mode&K_EDIT) {
1232: truncsp(str);
1233: if(strcmp(outstr,str))
1234: api->changes=1; }
1235: else {
1236: if(j)
1237: api->changes=1; }
1238: strcpy(outstr,str);
1239: cursor=_NOCURSOR;
1240: _setcursortype(cursor);
1241: return(j);
1242: }
1243:
1244: /****************************************************************************/
1245: /* Performs printf() through puttext() routine */
1246: /****************************************************************************/
1247: static int uprintf(int x, int y, char attr, char *fmat, ...)
1248: {
1249: va_list argptr;
1250: char str[256],buf[512];
1251: int i,j;
1252:
1253: va_start(argptr,fmat);
1254: vsprintf(str,fmat,argptr);
1255: va_end(argptr);
1256: for(i=j=0;str[i];i++) {
1257: buf[j++]=str[i];
1258: buf[j++]=attr; }
1259: puttext(x,y,x+(i-1),y,buf);
1260: return(i);
1261: }
1262:
1263:
1264: /****************************************************************************/
1265: /* Display bottom line of screen in inverse */
1266: /****************************************************************************/
1267: void bottomline(int line)
1268: {
1269: int i=0;
1270: uprintf(i,api->scrn_len+1,bclr|(cclr<<4)," ");
1271: i+=4;
1272: uprintf(i,api->scrn_len+1,bclr|(cclr<<4),"F1 ");
1273: i+=3;
1274: uprintf(i,api->scrn_len+1,BLACK|(cclr<<4),"Help ");
1275: i+=6;
1276: if(line&BL_GET) {
1277: uprintf(i,api->scrn_len+1,bclr|(cclr<<4),"F5 ");
1278: i+=3;
1279: uprintf(i,api->scrn_len+1,BLACK|(cclr<<4),"Copy Item ");
1280: i+=11; }
1281: if(line&BL_PUT) {
1282: uprintf(i,api->scrn_len+1,bclr|(cclr<<4),"F6 ");
1283: i+=3;
1284: uprintf(i,api->scrn_len+1,BLACK|(cclr<<4),"Paste ");
1285: i+=7; }
1286: if(line&BL_INS) {
1287: uprintf(i,api->scrn_len+1,bclr|(cclr<<4),"INS ");
1288: i+=4;
1289: uprintf(i,api->scrn_len+1,BLACK|(cclr<<4),"Add Item ");
1290: i+=10; }
1291: if(line&BL_DEL) {
1292: uprintf(i,api->scrn_len+1,bclr|(cclr<<4),"DEL ");
1293: i+=4;
1294: uprintf(i,api->scrn_len+1,BLACK|(cclr<<4),"Delete Item ");
1295: i+=13; }
1296: uprintf(i,api->scrn_len+1,bclr|(cclr<<4),"ESC ");
1297: i+=4;
1298: uprintf(i,api->scrn_len+1,BLACK|(cclr<<4),"Exit");
1299: i+=4;
1300: gotoxy(i,api->scrn_len+1);
1301: textattr(BLACK|(cclr<<4));
1302: clreol();
1303: }
1304:
1305:
1306: /*****************************************************************************/
1307: /* Generates a 24 character ASCII string that represents the time_t pointer */
1308: /* Used as a replacement for ctime() */
1309: /*****************************************************************************/
1310: char *utimestr(time_t *intime)
1311: {
1312: static char str[25];
1313: char wday[4],mon[4],mer[3],hour;
1314: struct tm *gm;
1315:
1316: gm=localtime(intime);
1317: switch(gm->tm_wday) {
1318: case 0:
1319: strcpy(wday,"Sun");
1320: break;
1321: case 1:
1322: strcpy(wday,"Mon");
1323: break;
1324: case 2:
1325: strcpy(wday,"Tue");
1326: break;
1327: case 3:
1328: strcpy(wday,"Wed");
1329: break;
1330: case 4:
1331: strcpy(wday,"Thu");
1332: break;
1333: case 5:
1334: strcpy(wday,"Fri");
1335: break;
1336: case 6:
1337: strcpy(wday,"Sat");
1338: break; }
1339: switch(gm->tm_mon) {
1340: case 0:
1341: strcpy(mon,"Jan");
1342: break;
1343: case 1:
1344: strcpy(mon,"Feb");
1345: break;
1346: case 2:
1347: strcpy(mon,"Mar");
1348: break;
1349: case 3:
1350: strcpy(mon,"Apr");
1351: break;
1352: case 4:
1353: strcpy(mon,"May");
1354: break;
1355: case 5:
1356: strcpy(mon,"Jun");
1357: break;
1358: case 6:
1359: strcpy(mon,"Jul");
1360: break;
1361: case 7:
1362: strcpy(mon,"Aug");
1363: break;
1364: case 8:
1365: strcpy(mon,"Sep");
1366: break;
1367: case 9:
1368: strcpy(mon,"Oct");
1369: break;
1370: case 10:
1371: strcpy(mon,"Nov");
1372: break;
1373: case 11:
1374: strcpy(mon,"Dec");
1375: break; }
1376: if(gm->tm_hour>12) {
1377: strcpy(mer,"pm");
1378: hour=gm->tm_hour-12; }
1379: else {
1380: if(!gm->tm_hour)
1381: hour=12;
1382: else
1383: hour=gm->tm_hour;
1384: strcpy(mer,"am"); }
1385: sprintf(str,"%s %s %02d %4d %02d:%02d %s",wday,mon,gm->tm_mday,1900+gm->tm_year
1386: ,hour,gm->tm_min,mer);
1387: return(str);
1388: }
1389:
1390: /****************************************************************************/
1391: /* Status popup/down function, see uifc.h for details. */
1392: /****************************************************************************/
1393: void upop(char *str)
1394: {
1395: static char sav[26*3*2];
1396: char buf[26*3*2];
1397: int i,j,k;
1398:
1399: hidemouse();
1400: if(!str) {
1401: puttext(28,12,53,14,sav);
1402: showmouse();
1403: return; }
1404: gettext(28,12,53,14,sav);
1405: memset(buf,' ',25*3*2);
1406: for(i=1;i<26*3*2;i+=2)
1407: buf[i]=(hclr|(bclr<<4));
1408: buf[0]='�';
1409: for(i=2;i<25*2;i+=2)
1410: buf[i]='�';
1411: buf[i]='�'; i+=2;
1412: buf[i]='�'; i+=2;
1413: i+=2;
1414: k=strlen(str);
1415: i+=(((23-k)/2)*2);
1416: for(j=0;j<k;j++,i+=2) {
1417: buf[i]=str[j];
1418: buf[i+1]|=BLINK; }
1419: i=((25*2)+1)*2;
1420: buf[i]='�'; i+=2;
1421: buf[i]='�'; i+=2;
1422: for(;i<((26*3)-1)*2;i+=2)
1423: buf[i]='�';
1424: buf[i]='�';
1425:
1426: puttext(28,12,53,14,buf);
1427: showmouse();
1428: }
1429:
1430: /****************************************************************************/
1431: /* Sets the current help index by source code file and line number. */
1432: /****************************************************************************/
1433: void sethelp(int line, char* file)
1434: {
1435: helpline=line;
1436: helpfile=file;
1437: }
1438:
1439: /************************************************************/
1440: /* Help (F1) key function. Uses helpbuf as the help input. */
1441: /************************************************************/
1442: void help()
1443: {
1444: char *savscrn,*buf,inverse=0,high=0
1445: ,hbuf[HELPBUF_SIZE],str[256];
1446: char *p;
1447: uint i,j,k,len;
1448: unsigned short line;
1449: long l;
1450: FILE *fp;
1451:
1452: _setcursortype(_NOCURSOR);
1453:
1454: if((savscrn=(char *)malloc(80*25*2))==NULL) {
1455: cprintf("UIFC line %d: error allocating %u bytes\r\n"
1456: ,__LINE__,80*25*2);
1457: _setcursortype(cursor);
1458: return; }
1459: if((buf=(char *)malloc(76*21*2))==NULL) {
1460: cprintf("UIFC line %d: error allocating %u bytes\r\n"
1461: ,__LINE__,76*21*2);
1462: free(savscrn);
1463: _setcursortype(cursor);
1464: return; }
1465: hidemouse();
1466: gettext(1,1,80,25,savscrn);
1467: memset(buf,' ',76*21*2);
1468: for(i=1;i<76*21*2;i+=2)
1469: buf[i]=(hclr|(bclr<<4));
1470: buf[0]='�';
1471: for(i=2;i<30*2;i+=2)
1472: buf[i]='�';
1473: buf[i]='�'; i+=4;
1474: buf[i]='O'; i+=2;
1475: buf[i]='n'; i+=2;
1476: buf[i]='l'; i+=2;
1477: buf[i]='i'; i+=2;
1478: buf[i]='n'; i+=2;
1479: buf[i]='e'; i+=4;
1480: buf[i]='H'; i+=2;
1481: buf[i]='e'; i+=2;
1482: buf[i]='l'; i+=2;
1483: buf[i]='p'; i+=4;
1484: buf[i]='�'; i+=2;
1485: for(j=i;j<i+(30*2);j+=2)
1486: buf[j]='�';
1487: i=j;
1488: buf[i]='�'; i+=2;
1489: j=i; /* leave i alone */
1490: for(k=0;k<19;k++) { /* the sides of the box */
1491: buf[j]='�'; j+=2;
1492: j+=(74*2);
1493: buf[j]='�'; j+=2; }
1494: buf[j]='�'; j+=2;
1495: for(k=j;k<j+(23*2);k+=2)
1496: buf[k]='�';
1497: buf[k]='�'; k+=4;
1498: buf[k]='H'; k+=2;
1499: buf[k]='i'; k+=2;
1500: buf[k]='t'; k+=4;
1501: buf[k]='a'; k+=2;
1502: buf[k]='n'; k+=2;
1503: buf[k]='y'; k+=4;
1504: buf[k]='k'; k+=2;
1505: buf[k]='e'; k+=2;
1506: buf[k]='y'; k+=4;
1507: buf[k]='t'; k+=2;
1508: buf[k]='o'; k+=4;
1509: buf[k]='c'; k+=2;
1510: buf[k]='o'; k+=2;
1511: buf[k]='n'; k+=2;
1512: buf[k]='t'; k+=2;
1513: buf[k]='i'; k+=2;
1514: buf[k]='n'; k+=2;
1515: buf[k]='u'; k+=2;
1516: buf[k]='e'; k+=4;
1517: buf[k]='�'; k+=2;
1518: for(j=k;j<k+(24*2);j+=2)
1519: buf[j]='�';
1520: buf[j]='�';
1521:
1522: if(!api->helpbuf) {
1523: if((fp=_fsopen(api->helpixbfile,"rb",SH_DENYWR))==NULL)
1524: sprintf(hbuf," ERROR Cannot open help index:\r\n %s"
1525: ,api->helpixbfile);
1526: else {
1527: p=strrchr(helpfile,'/');
1528: if(p==NULL)
1529: p=strrchr(helpfile,'\\');
1530: if(p==NULL)
1531: p=helpfile;
1532: else
1533: p++;
1534: l=-1L;
1535: while(!feof(fp)) {
1536: if(!fread(str,12,1,fp))
1537: break;
1538: str[12]=0;
1539: fread(&line,2,1,fp);
1540: if(stricmp(str,p) || line!=helpline) {
1541: fseek(fp,4,SEEK_CUR);
1542: continue; }
1543: fread(&l,4,1,fp);
1544: break; }
1545: fclose(fp);
1546: if(l==-1L)
1547: sprintf(hbuf," ERROR Cannot locate help key (%s:%u) in:\r\n"
1548: " %s",p,helpline,api->helpixbfile);
1549: else {
1550: if((fp=_fsopen(api->helpdatfile,"rb",SH_DENYWR))==NULL)
1551: sprintf(hbuf," ERROR Cannot open help file:\r\n %s"
1552: ,api->helpdatfile);
1553: else {
1554: fseek(fp,l,SEEK_SET);
1555: fread(hbuf,HELPBUF_SIZE,1,fp);
1556: fclose(fp); } } } }
1557: else
1558: strcpy(hbuf,api->helpbuf);
1559:
1560: len=strlen(hbuf);
1561:
1562: i+=78*2;
1563: for(j=0;j<len;j++,i+=2) {
1564: if(hbuf[j]==LF) {
1565: while(i%(76*2)) i++;
1566: i+=2; }
1567: else if(hbuf[j]==2 || hbuf[j]=='~') { /* Ctrl-b toggles inverse */
1568: inverse=!inverse;
1569: i-=2; }
1570: else if(hbuf[j]==1 || hbuf[j]=='`') { /* Ctrl-a toggles high intensity */
1571: high=!high;
1572: i-=2; }
1573: else if(hbuf[j]!=CR) {
1574: buf[i]=hbuf[j];
1575: buf[i+1]=inverse ? (bclr|(cclr<<4))
1576: : high ? (hclr|(bclr<<4)) : (lclr|(bclr<<4)); } }
1577: puttext(3,3,78,23,buf);
1578: showmouse();
1579: while(1) {
1580: if(inkey(1)) {
1581: inkey(0);
1582: break; }
1583: mswait(1);
1584: }
1585:
1586: hidemouse();
1587: puttext(1,1,80,25,savscrn);
1588: showmouse();
1589: free(savscrn);
1590: free(buf);
1591: _setcursortype(cursor);
1592: }
1593:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.