1: /*      $NetBSD: io.c,v 1.9 2005/02/15 12:58:21 jsm Exp $    */
    2: 
    3: /*
    4:  * io.c - input/output routines for Phantasia
    5:  */
    6: 
    7: #include "include.h"
    8: #undef bool
    9: #include <curses.h>
   10: 
   11: void
   12: getstring(cp, mx)
   13:         char   *cp;
   14:         int     mx;
   15: {
   16:         char   *inptr;         /* pointer into string for next string */
   17:         int     x, y;          /* original x, y coordinates on screen */
   18:         int     ch;            /* input */
   19: 
   20:         getyx(stdscr, y, x);   /* get coordinates on screen */
   21:         inptr = cp;
   22:         *inptr = '\0';         /* clear string to start */
   23:         --mx;                  /* reserve room in string for nul terminator */
   24: 
   25:         do
   26:                 /* get characters and process */
   27:         {
   28:                 if (Echo)
   29:                         mvaddstr(y, x, cp);  /* print string on screen */
   30:                 clrtoeol();   /* clear any data after string */
   31:                 refresh();    /* update screen */
   32: 
   33:                 ch = getchar();       /* get character */
   34: 
   35:                 switch (ch) {
   36:                 case CH_ERASE:        /* back up one character */
   37:                         if (inptr > cp)
   38:                                 --inptr;
   39:                         break;
   40: 
   41:                 case CH_KILL: /* back up to original location */
   42:                         inptr = cp;
   43:                         break;
   44: 
   45:                 case CH_NEWLINE:      /* terminate string */
   46:                         break;
   47: 
   48:                 case CH_REDRAW:/* redraw screen */
   49:                         clearok(stdscr, TRUE);
   50:                         continue;
   51: 
   52:                 default:      /* put data in string */
   53:                         if (ch >= ' ' || Wizard)
   54:                                 /* printing char; put in string */
   55:                                 *inptr++ = ch;
   56:                 }
   57: 
   58:                 *inptr = '\0';        /* terminate string */
   59:         }
   60:         while (ch != CH_NEWLINE && inptr < cp + mx);
   61: }
   62: 
   63: void
   64: more(where)
   65:         int     where;
   66: {
   67:         mvaddstr(where, 0, "-- more --");
   68:         getanswer(" ", FALSE);
   69: }
   70: 
   71: double
   72: infloat()
   73: {
   74:         double  result;                /* return value */
   75: 
   76:         getstring(Databuf, SZ_DATABUF);
   77:         if (sscanf(Databuf, "%lf", &result) < 1)
   78:                 /* no valid number entered */
   79:                 result = 0.0;
   80: 
   81:         return (result);
   82: }
   83: 
   84: int
   85: inputoption()
   86: {
   87:         ++Player.p_age;                /* increase age */
   88: 
   89:         if (Player.p_ring.ring_type != R_SPOILED)
   90:                 /* ring ok */
   91:                 return (getanswer("T ", TRUE));
   92:         else
   93:                 /* bad ring */
   94:         {
   95:                 getanswer(" ", TRUE);
   96:                 return ((int) ROLL(0.0, 5.0) + '0');
   97:         }
   98: }
   99: 
  100: void
  101: interrupt()
  102: {
  103:         char    line[81];      /* a place to store data already on screen */
  104:         int     loop;          /* counter */
  105:         int     x, y;          /* coordinates on screen */
  106:         int     ch;            /* input */
  107:         unsigned savealarm;    /* to save alarm value */
  108: 
  109: #ifdef SYS3
  110:         signal(SIGINT, SIG_IGN);
  111: #endif
  112: #ifdef SYS5
  113:         signal(SIGINT, SIG_IGN);
  114: #endif
  115: 
  116:         savealarm = alarm(0);  /* turn off any alarms */
  117: 
  118:         getyx(stdscr, y, x);   /* save cursor location */
  119: 
  120:         for (loop = 0; loop < 80; ++loop) {    /* save line on screen */
  121:                 move(4, loop);
  122:                 line[loop] = inch();
  123:         }
  124:         line[80] = '\0';       /* nul terminate */
  125: 
  126:         if (Player.p_status == S_INBATTLE || Player.p_status == S_MONSTER)
  127:                 /* in midst of fighting */
  128:         {
  129:                 mvaddstr(4, 0, "Quitting now will automatically kill your character.  Still want to ? ");
  130:                 ch = getanswer("NY", FALSE);
  131:                 if (ch == 'Y')
  132:                         death("Bailing out");
  133:                 /* NOTREACHED */
  134:         } else {
  135:                 mvaddstr(4, 0, "Do you really want to quit ? ");
  136:                 ch = getanswer("NY", FALSE);
  137:                 if (ch == 'Y')
  138:                         leavegame();
  139:                 /* NOTREACHED */
  140:         }
  141: 
  142:         mvaddstr(4, 0, line);  /* restore data on screen */
  143:         move(y, x);            /* restore cursor */
  144:         refresh();
  145: 
  146: #ifdef SYS3
  147:         signal(SIGINT, interrupt);
  148: #endif
  149: #ifdef SYS5
  150:         signal(SIGINT, interrupt);
  151: #endif
  152: 
  153:         alarm(savealarm);      /* restore alarm */
  154: }
  155: 
  156: int
  157: getanswer(choices, def)
  158:         const char   *choices;
  159:         phbool  def;
  160: {
  161:         int     ch;            /* input */
  162:         volatile int   loop;     /* counter */
  163:         volatile int   oldx, oldy;       /* original coordinates on screen */
  164: 
  165:         getyx(stdscr, oldy, oldx);
  166:         alarm(0);              /* make sure alarm is off */
  167: 
  168:         for (loop = 3; loop; --loop)
  169:                 /* try for 3 times */
  170:         {
  171:                 if (setjmp(Timeoenv) != 0)
  172:                         /* timed out waiting for response */
  173:                 {
  174:                         if (def || loop <= 1)
  175:                                 /* return default answer */
  176:                                 break;
  177:                         else
  178:                                 /* prompt, and try again */
  179:                                 goto YELL;
  180:                 } else
  181:                         /* wait for response */
  182:                 {
  183:                         clrtoeol();
  184:                         refresh();
  185: #ifdef BSD41
  186:                         sigset(SIGALRM, catchalarm);
  187: #else
  188:                         signal(SIGALRM, catchalarm);
  189: #endif
  190:                         /* set timeout */
  191:                         if (Timeout)
  192:                                 alarm(7);   /* short */
  193:                         else
  194:                                 alarm(600); /* long */
  195: 
  196:                         ch = getchar();
  197: 
  198:                         alarm(0);    /* turn off timeout */
  199: 
  200:                         if (ch < 0)
  201:                                 /* caught some signal */
  202:                         {
  203:                                 ++loop;
  204:                                 continue;
  205:                         } else
  206:                                 if (ch == CH_REDRAW)
  207:                                         /* redraw screen */
  208:                                 {
  209:                                         clearok(stdscr, TRUE);     /* force clear screen */
  210:                                         ++loop;    /* don't count this input */
  211:                                         continue;
  212:                                 } else
  213:                                         if (Echo) {
  214:                                                 addch(ch);        /* echo character */
  215:                                                 refresh();
  216:                                         }
  217:                         if (islower(ch))
  218:                                 /* convert to upper case */
  219:                                 ch = toupper(ch);
  220: 
  221:                         if (def || strchr(choices, ch) != NULL)
  222:                                 /* valid choice */
  223:                                 return (ch);
  224:                         else
  225:                                 if (!def && loop > 1)
  226:                                         /* bad choice; prompt, and try again */
  227:                                 {
  228:                         YELL:                mvprintw(oldy + 1, 0, "Please choose one of : [%s]\n", choices);
  229:                                         move(oldy, oldx);
  230:                                         clrtoeol();
  231:                                         continue;
  232:                                 } else
  233:                                         /* return default answer */
  234:                                         break;
  235:                 }
  236:         }
  237: 
  238:         return (*choices);
  239: }
  240: 
  241: void
  242: catchalarm(dummy)
  243:         int dummy __attribute__((__unused__));
  244: {
  245:         longjmp(Timeoenv, 1);
  246: }