conio.c

   1 /****************************************************************************
   2  * This is the implementation file for conio.h - a conio.h for Linux.       *
   3  * It uses ncurses and some internal functions of Linux to simulate the     *
   4  * I/O-functions.                                                           *
   5  * This is copyright (c) 1996,97 by Fractor / Mental eXPlosion (MXP)        *
   6  * Use and distribution is only allowed if you follow the terms of the      *
   7  * GNU Library Public License Version 2.                                    *
   8  * Since this work is based on ncurses please read its copyright notices as *
   9  * well !                                                                   *
  10  * Look into the readme to this file for further information.               *
  11  * Thanx to SubZero / MXP for his little tutorial on the curses library !   *
  12  * Many thanks to Mark Hahn and Rich Cochran for solving the inpw and inpd  *
  13  * mega-bug !!!                                                             *
  14  * Watch out for other MXP releases, too !                                  *
  15  * Send bugreports to: fractor@germanymail.com                              *
  16  ****************************************************************************/
  17
  18 #define _ISOC99_SOURCE
  19 #include <stdio.h>
  20 #include <stdarg.h>
  21 #include <stdlib.h>
  22 #include <string.h>
  23 #include <unistd.h>
  24 #include <sys/io.h>
  25 #include <ncurses.h>
  26 #include "conio.h"
  27
  28 static attr_t txtattr,oldattr;
  29 static int fgc,bgc;
  30 char color_warning=1;
  31 int directvideo;
  32 WINDOW *conio_scr;
  33
  34 #ifdef SERGEEV
  35 /* Some internals... */
  36 static int colortab(int a) /* convert LINUX Color code to DOS-standard */
  37 {
  38    switch(a) {
  39       case 0 : return COLOR_BLACK;
  40       case 1 : return COLOR_BLUE;
  41       case 2 : return COLOR_GREEN;
  42       case 3 : return COLOR_CYAN;
  43       case 4 : return COLOR_RED;
  44       case 5 : return COLOR_MAGENTA;
  45       case 6 : return COLOR_YELLOW;
  46       case 7 : return COLOR_WHITE;
  47    }
  48    return COLOR_BLACK;
  49 }
  50 #endif /* SERGEEV */
  51
  52 static void docolor (int color) /* Set DOS-like text mode colors */
  53 {
  54    wattrset(conio_scr,0); /* My curses-version needs this ... */
  55    if ((color&128)==128) txtattr=A_BLINK; else txtattr=A_NORMAL;
  56    if ((color&15)>7) txtattr|=A_STANDOUT; else txtattr|=A_NORMAL;
  57    txtattr|=COLOR_PAIR((1+(color&7)+(color&112)) >> 1);
  58    if (((color&127)==15) | ((color&127)==7)) txtattr=COLOR_PAIR(0);
  59    if (((color&127)==127) | ((color&127)==119)) txtattr=COLOR_PAIR(8);
  60    wattron(conio_scr,txtattr);
  61    wattron(conio_scr,COLOR_PAIR(1+(color&7)+((color&112)>>1)));
  62 }
  63
  64 #ifdef SERGEEV
  65 /* Call this before any call to linux conio - except the port functions ! */
  66 void __attribute__((constructor)) initconio (void) /* This is needed, because ncurses needs to be initialized */
  67 {
  68    int x,y;
  69    short pair;
  70    if (atexit(doneconio)){
  71       fprintf(stderr,"Unable to register doneconio(), exiting...\n");
  72       exit(1);
  73    }
  74    initscr();
  75    start_color();
  76 //   attr_get(&oldattr,&pair,NULL);
  77    nonl();
  78    raw();
  79    if (!has_colors() & (color_warning>-1))
  80       fprintf(stderr,"Attention: A color terminal may be required to run this application !\n");
  81    noecho();
  82    conio_scr=newwin(0,0,0,0);
  83    keypad(conio_scr,TRUE);
  84    meta(conio_scr,TRUE);
  85    idlok(conio_scr,TRUE);
  86    scrollok(conio_scr,TRUE);
  87    /* Color initialization */
  88    for (y=0;y<=7;y++)
  89       for (x=0;x<=7;x++)
  90          init_pair((8*y)+x+1, colortab(x), colortab(y));
  91    wattr_get(conio_scr,&txtattr,&pair,NULL);
  92    bgc=0;
  93    textcolor(7);
  94    textbackground(0);
  95 }
  96 #endif /* SERGEEV */
  97
  98 /* Call this on exiting your program */
  99 void doneconio (void)
 100 {
 101    endwin();
 102 }
 103
 104 /* Here it starts... */
 105 void _setcursortype (int cur_t)
 106 {
 107    curs_set(cur_t);
 108    wrefresh(conio_scr);
 109 }
 110
 111 char *cgets (char *str) /* ugly function :-( */
 112 {
 113    char strng[257];
 114    unsigned char i=2;
 115    echo();
 116    strncpy(strng,str,1);
 117    wgetnstr(conio_scr,&strng[2],(int) strng[0]);
 118    while (strng[i]!=0) i++;
 119    i=i-2;
 120    strng[1]=i;
 121    memcpy(str,strng,i+3);
 122    noecho();
 123    return(&str[2]);
 124 }
 125
 126 void clreol (void)
 127 /* clear to end of line -- can be a no-op in tty mode */
 128 {
 129 #ifdef SERGEEV
 130    wclrtoeol(conio_scr);
 131    wrefresh(conio_scr);
 132 #endif /* SERGEEV */
 133 }
 134
 135 void clrscr (void)
 136 {
 137    wclear(conio_scr);
 138    wmove(conio_scr,0,0);
 139    wrefresh(conio_scr);
 140 }
 141
 142 int cprintf (char *format, ... )
 143 {
 144    int i;
 145    char buffer[BUFSIZ]; /* Well, BUFSIZ is from ncurses...  */
 146    va_list argp;
 147    va_start(argp,format);
 148    vsprintf(buffer,format,argp);
 149    va_end(argp);
 150    i=waddstr(conio_scr,buffer);
 151    wrefresh(conio_scr);
 152    return(i);
 153 }
 154
 155 void cputs (char *str)
 156 {
 157    waddstr(conio_scr,str);
 158    wrefresh(conio_scr);
 159 }
 160
 161 int cscanf (const char *format, ...)
 162 {
 163    int i;
 164    char buffer[BUFSIZ]; /* See cprintf */
 165    va_list argp;
 166    echo();
 167    if (wgetstr(conio_scr,buffer)==ERR) return(-1);
 168    va_start(argp,format);
 169    i=vsscanf(buffer,format,argp);
 170    va_end(argp);
 171    noecho();
 172    return(i);
 173 }
 174
 175 void delline (void)
 176 {
 177    wdeleteln(conio_scr);
 178    wrefresh(conio_scr);
 179 }
 180
 181 int getche (void)
 182 {
 183    int i;
 184    echo();
 185    i=wgetch(conio_scr);
 186    if (i==-1) i=0;
 187    noecho();
 188    return(i);
 189 }
 190
 191 void gettextinfo(struct text_info *inforec)
 192 {
 193    short pair;
 194    unsigned char xp,yp;
 195    unsigned char x1,x2,y1,y2;
 196    attr_t dattr,dnattr,a; /* The "d" stands for DOS */
 197    getyx(conio_scr,yp,xp);
 198    getbegyx(conio_scr,y1,x1);
 199    getmaxyx(conio_scr,y2,x2);
 200    dattr=(bgc*16)+fgc;
 201    wattr_get(conio_scr,&a,&pair,NULL);
 202    if (a==(a & A_BLINK)) dattr=dattr+128;
 203    dnattr=oldattr;  /* Well, this cannot be right,
 204                        because we don't know the COLORPAIR values from before initconio() !*/
 205    inforec->winleft=x1+1;
 206    inforec->wintop=y1+1;
 207    if (x1==0) x2--;
 208    if (y1==0) y2--;
 209    inforec->winright=x1+x2+1;
 210    inforec->winbottom=y1+y2+1;
 211    inforec->curx=xp+1;
 212    inforec->cury=yp+1;
 213    inforec->screenheight=y2+1;
 214    inforec->screenwidth=x2+1;
 215    inforec->currmode=3; /* This is C80 */
 216    inforec->normattr=dnattr; /* Don't use this ! */
 217    inforec->attribute=dattr;
 218 }
 219
 220 void gotoxy (int x, int y)
 221 /* address cusor -- OK for this to be a no-op in TTY mode */
 222 {
 223 #ifdef SERGEEV
 224    y--;
 225    x--;
 226    wmove(conio_scr,y,x);
 227    wrefresh(conio_scr);
 228 #endif /* SERGEEV */
 229 }
 230
 231 void highvideo (void)
 232 {
 233 #ifdef SERGEEV
 234    textcolor(15); /* White */
 235    textbackground(0); /* Black */
 236 #endif /* SERGEEV */
 237 }
 238
 239 void insline (void)
 240 {
 241    winsertln(conio_scr);
 242    wrefresh(conio_scr);
 243 }
 244
 245 int kbhit (void)
 246 {
 247    int i;
 248    nodelay(conio_scr,TRUE);
 249    i=wgetch(conio_scr);
 250    nodelay(conio_scr,FALSE);
 251    if (i==-1) i=0;
 252    return(i);
 253 }
 254
 255 void lowvideo (void)
 256 {
 257    textbackground(0); /* Black */
 258    textcolor(8); /* Should be darkgray */
 259 }
 260
 261 void normvideo (void)
 262 {
 263    wattrset(conio_scr,oldattr);
 264 }
 265
 266 int putch (int c)
 267 {
 268    if (waddch(conio_scr,c)!=ERR) {
 269       wrefresh(conio_scr);
 270       return(c);
 271    }
 272    return(0);
 273 }
 274
 275 void textattr (int attr)
 276 {
 277    docolor(attr);
 278 }
 279
 280 void textbackground (int color)
 281 {
 282    bgc=color;
 283    color=(bgc*16)+fgc;
 284    docolor(color);
 285 }
 286
 287
 288 void textcolor (int color)
 289 {
 290 #ifdef SERGEEV
 291    fgc=color;
 292    color=(bgc*16)+fgc;
 293    docolor(color);
 294 #endif /* SERGEEV */
 295 }
 296
 297 void textmode (int mode)
 298 {
 299    /* Ignored */
 300 }
 301
 302 int wherex (void)
 303 {
 304    int y;
 305    int x;
 306    getyx(conio_scr,y,x);
 307    x++;
 308    return(x);
 309 }
 310
 311 int wherey (void)
 312 {
 313    int y;
 314    int x;
 315    getyx(conio_scr,y,x);
 316    y++;
 317    return(y);
 318 }
 319
 320 void window (int left,int top,int right,int bottom)
 321 {
 322    int nlines,ncols;
 323    delwin(conio_scr);
 324    top--;
 325    left--;
 326    right--;
 327    bottom--;
 328    nlines=bottom-top;
 329    ncols=right-left;
 330    if (top==0) nlines++;
 331    if (left==0) ncols++;
 332    if ((nlines<1) | (ncols<1)) return;
 333    conio_scr=newwin(nlines,ncols,top,left);
 334    keypad(conio_scr,TRUE);
 335    meta(conio_scr,TRUE);
 336    idlok(conio_scr,TRUE);
 337    scrollok(conio_scr,TRUE);
 338    wrefresh(conio_scr);
 339 }
 340
 341 /* Linux is cool */