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 {
 128    wclrtoeol(conio_scr);
 129    wrefresh(conio_scr);
 130 }
 131
 132 void clrscr (void)
 133 {
 134    wclear(conio_scr);
 135    wmove(conio_scr,0,0);
 136    wrefresh(conio_scr);
 137 }
 138
 139 int cprintf (char *format, ... )
 140 {
 141    int i;
 142    char buffer[BUFSIZ]; /* Well, BUFSIZ is from ncurses...  */
 143    va_list argp;
 144    va_start(argp,format);
 145    vsprintf(buffer,format,argp);
 146    va_end(argp);
 147    i=waddstr(conio_scr,buffer);
 148    wrefresh(conio_scr);
 149    return(i);
 150 }
 151
 152 void cputs (char *str)
 153 {
 154    waddstr(conio_scr,str);
 155    wrefresh(conio_scr);
 156 }
 157
 158 int cscanf (const char *format, ...)
 159 {
 160    int i;
 161    char buffer[BUFSIZ]; /* See cprintf */
 162    va_list argp;
 163    echo();
 164    if (wgetstr(conio_scr,buffer)==ERR) return(-1);
 165    va_start(argp,format);
 166    i=vsscanf(buffer,format,argp);
 167    va_end(argp);
 168    noecho();
 169    return(i);
 170 }
 171
 172 void delline (void)
 173 {
 174    wdeleteln(conio_scr);
 175    wrefresh(conio_scr);
 176 }
 177
 178 int getche (void)
 179 {
 180    int i;
 181    echo();
 182    i=wgetch(conio_scr);
 183    if (i==-1) i=0;
 184    noecho();
 185    return(i);
 186 }
 187
 188 void gettextinfo(struct text_info *inforec)
 189 {
 190    short pair;
 191    unsigned char xp,yp;
 192    unsigned char x1,x2,y1,y2;
 193    attr_t dattr,dnattr,a; /* The "d" stands for DOS */
 194    getyx(conio_scr,yp,xp);
 195    getbegyx(conio_scr,y1,x1);
 196    getmaxyx(conio_scr,y2,x2);
 197    dattr=(bgc*16)+fgc;
 198    wattr_get(conio_scr,&a,&pair,NULL);
 199    if (a==(a & A_BLINK)) dattr=dattr+128;
 200    dnattr=oldattr;  /* Well, this cannot be right,
 201                        because we don't know the COLORPAIR values from before initconio() !*/
 202    inforec->winleft=x1+1;
 203    inforec->wintop=y1+1;
 204    if (x1==0) x2--;
 205    if (y1==0) y2--;
 206    inforec->winright=x1+x2+1;
 207    inforec->winbottom=y1+y2+1;
 208    inforec->curx=xp+1;
 209    inforec->cury=yp+1;
 210    inforec->screenheight=y2+1;
 211    inforec->screenwidth=x2+1;
 212    inforec->currmode=3; /* This is C80 */
 213    inforec->normattr=dnattr; /* Don't use this ! */
 214    inforec->attribute=dattr;
 215 }
 216
 217 void gotoxy (int x, int y)
 218 {
 219    y--;
 220    x--;
 221    wmove(conio_scr,y,x);
 222    wrefresh(conio_scr);
 223 }
 224
 225 void highvideo (void)
 226 {
 227    textcolor(15); /* White */
 228    textbackground(0); /* Black */
 229 }
 230
 231 void insline (void)
 232 {
 233    winsertln(conio_scr);
 234    wrefresh(conio_scr);
 235 }
 236
 237 int kbhit (void)
 238 {
 239    int i;
 240    nodelay(conio_scr,TRUE);
 241    i=wgetch(conio_scr);
 242    nodelay(conio_scr,FALSE);
 243    if (i==-1) i=0;
 244    return(i);
 245 }
 246
 247 void lowvideo (void)
 248 {
 249    textbackground(0); /* Black */
 250    textcolor(8); /* Should be darkgray */
 251 }
 252
 253 void normvideo (void)
 254 {
 255    wattrset(conio_scr,oldattr);
 256 }
 257
 258 int putch (int c)
 259 {
 260    if (waddch(conio_scr,c)!=ERR) {
 261       wrefresh(conio_scr);
 262       return(c);
 263    }
 264    return(0);
 265 }
 266
 267 void textattr (int attr)
 268 {
 269    docolor(attr);
 270 }
 271
 272 void textbackground (int color)
 273 {
 274    bgc=color;
 275    color=(bgc*16)+fgc;
 276    docolor(color);
 277 }
 278
 279 void textcolor (int color)
 280 {
 281    fgc=color;
 282    color=(bgc*16)+fgc;
 283    docolor(color);
 284 }
 285
 286 void textmode (int mode)
 287 {
 288    /* Ignored */
 289 }
 290
 291 int wherex (void)
 292 {
 293    int y;
 294    int x;
 295    getyx(conio_scr,y,x);
 296    x++;
 297    return(x);
 298 }
 299
 300 int wherey (void)
 301 {
 302    int y;
 303    int x;
 304    getyx(conio_scr,y,x);
 305    y++;
 306    return(y);
 307 }
 308
 309 void window (int left,int top,int right,int bottom)
 310 {
 311    int nlines,ncols;
 312    delwin(conio_scr);
 313    top--;
 314    left--;
 315    right--;
 316    bottom--;
 317    nlines=bottom-top;
 318    ncols=right-left;
 319    if (top==0) nlines++;
 320    if (left==0) ncols++;
 321    if ((nlines<1) | (ncols<1)) return;
 322    conio_scr=newwin(nlines,ncols,top,left);
 323    keypad(conio_scr,TRUE);
 324    meta(conio_scr,TRUE);
 325    idlok(conio_scr,TRUE);
 326    scrollok(conio_scr,TRUE);
 327    wrefresh(conio_scr);
 328 }
 329
 330 /* Linux is cool */