1/* $NetBSD: input.c,v 1.23 2009/05/26 00:00:56 dholland Exp $ */ 2 3/*- 4 * Copyright (c) 1990, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * This code is derived from software contributed to Berkeley by 8 * Ed James. 9 * 10 * Redistribution and use in source and binary forms, with or without 11 * modification, are permitted provided that the following conditions 12 * are met: 13 * 1. Redistributions of source code must retain the above copyright 14 * notice, this list of conditions and the following disclaimer. 15 * 2. Redistributions in binary form must reproduce the above copyright 16 * notice, this list of conditions and the following disclaimer in the 17 * documentation and/or other materials provided with the distribution. 18 * 3. Neither the name of the University nor the names of its contributors 19 * may be used to endorse or promote products derived from this software 20 * without specific prior written permission. 21 * 22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 25 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 32 * SUCH DAMAGE. 33 */ 34 35/* 36 * Copyright (c) 1987 by Ed James, UC Berkeley. All rights reserved. 37 * 38 * Copy permission is hereby granted provided that this notice is 39 * retained on all partial or complete copies. 40 * 41 * For more info on this and all of my stuff, mail edjames@berkeley.edu. 42 */ 43 44#include <sys/cdefs.h> 45#ifndef lint 46#if 0 47static char sccsid[] = "@(#)input.c 8.1 (Berkeley) 5/31/93"; 48#else 49__RCSID("$NetBSD: input.c,v 1.23 2009/05/26 00:00:56 dholland Exp $"); 50#endif 51#endif /* not lint */ 52 53#include "include.h" 54#include "pathnames.h" 55 56static void rezero(void); 57static void noise(void); 58static int gettoken(void); 59static const char *setplane(int); 60static const char *turn(int); 61static const char *circle(int); 62static const char *left(int); 63static const char *right(int); 64static const char *Left(int); 65static const char *Right(int); 66static const char *delayb(int); 67static const char *beacon(int); 68static const char *ex_it(int); 69static const char *airport(int); 70static const char *climb(int); 71static const char *descend(int); 72static const char *setalt(int); 73static const char *setrelalt(int); 74static const char *benum(int); 75static const char *to_dir(int); 76static const char *rel_dir(int); 77static const char *mark(int); 78static const char *unmark(int); 79static const char *ignore(int); 80 81 82 83#define MAXRULES 6 84#define MAXDEPTH 15 85 86#define RETTOKEN '\n' 87#define REDRAWTOKEN '\014' /* CTRL(L) */ 88#define SHELLTOKEN '!' 89#define HELPTOKEN '?' 90#define ALPHATOKEN 256 91#define NUMTOKEN 257 92 93typedef struct { 94 int token; 95 int to_state; 96 const char *str; 97 const char *(*func)(int); 98} RULE; 99 100typedef struct { 101 int num_rules; 102 RULE *rule; 103} STATE; 104 105typedef struct { 106 char str[20]; 107 int state; 108 int rule; 109 int ch; 110 int pos; 111} STACK; 112 113#define T_RULE stack[level].rule 114#define T_STATE stack[level].state 115#define T_STR stack[level].str 116#define T_POS stack[level].pos 117#define T_CH stack[level].ch 118 119#define NUMELS(a) (sizeof (a) / sizeof (*(a))) 120 121#define NUMSTATES NUMELS(st) 122 123static 124RULE state0[] = { { ALPHATOKEN, 1, "%c:", setplane}, 125 { RETTOKEN, -1, "", NULL }, 126 { HELPTOKEN, 12, " [a-z]<ret>", NULL }}, 127 state1[] = { { 't', 2, " turn", turn }, 128 { 'a', 3, " altitude:", NULL }, 129 { 'c', 4, " circle", circle }, 130 { 'm', 7, " mark", mark }, 131 { 'u', 7, " unmark", unmark }, 132 { 'i', 7, " ignore", ignore }, 133 { HELPTOKEN, 12, " tacmui", NULL }}, 134 state2[] = { { 'l', 6, " left", left }, 135 { 'r', 6, " right", right }, 136 { 'L', 4, " left 90", Left }, 137 { 'R', 4, " right 90", Right }, 138 { 't', 11, " towards", NULL }, 139 { 'w', 4, " to 0", to_dir }, 140 { 'e', 4, " to 45", to_dir }, 141 { 'd', 4, " to 90", to_dir }, 142 { 'c', 4, " to 135", to_dir }, 143 { 'x', 4, " to 180", to_dir }, 144 { 'z', 4, " to 225", to_dir }, 145 { 'a', 4, " to 270", to_dir }, 146 { 'q', 4, " to 315", to_dir }, 147 { HELPTOKEN, 12, " lrLRt<dir>", NULL }}, 148 state3[] = { { '+', 10, " climb", climb }, 149 { 'c', 10, " climb", climb }, 150 { '-', 10, " descend", descend }, 151 { 'd', 10, " descend", descend }, 152 { NUMTOKEN, 7, " %c000 feet", setalt }, 153 { HELPTOKEN, 12, " +-cd[0-9]", NULL }}, 154 state4[] = { { '@', 9, " at", NULL }, 155 { 'a', 9, " at", NULL }, 156 { RETTOKEN, -1, "", NULL }, 157 { HELPTOKEN, 12, " @a<ret>", NULL }}, 158 state5[] = { { NUMTOKEN, 7, "%c", delayb }, 159 { HELPTOKEN, 12, " [0-9]", NULL }}, 160 state6[] = { { '@', 9, " at", NULL }, 161 { 'a', 9, " at", NULL }, 162 { 'w', 4, " 0", rel_dir }, 163 { 'e', 4, " 45", rel_dir }, 164 { 'd', 4, " 90", rel_dir }, 165 { 'c', 4, " 135", rel_dir }, 166 { 'x', 4, " 180", rel_dir }, 167 { 'z', 4, " 225", rel_dir }, 168 { 'a', 4, " 270", rel_dir }, 169 { 'q', 4, " 315", rel_dir }, 170 { RETTOKEN, -1, "", NULL }, 171 { HELPTOKEN, 12, " @a<dir><ret>",NULL }}, 172 state7[] = { { RETTOKEN, -1, "", NULL }, 173 { HELPTOKEN, 12, " <ret>", NULL }}, 174 state8[] = { { NUMTOKEN, 4, "%c", benum }, 175 { HELPTOKEN, 12, " [0-9]", NULL }}, 176 state9[] = { { 'b', 5, " beacon #", NULL }, 177 { '*', 5, " beacon #", NULL }, 178 { HELPTOKEN, 12, " b*", NULL }}, 179 state10[] = { { NUMTOKEN, 7, " %c000 ft", setrelalt}, 180 { HELPTOKEN, 12, " [0-9]", NULL }}, 181 state11[] = { { 'b', 8, " beacon #", beacon }, 182 { '*', 8, " beacon #", beacon }, 183 { 'e', 8, " exit #", ex_it }, 184 { 'a', 8, " airport #", airport }, 185 { HELPTOKEN, 12, " b*ea", NULL }}, 186 state12[] = { { -1, -1, "", NULL }}; 187 188#define DEF_STATE(s) { NUMELS(s), (s) } 189 190static STATE st[] = { 191 DEF_STATE(state0), DEF_STATE(state1), DEF_STATE(state2), 192 DEF_STATE(state3), DEF_STATE(state4), DEF_STATE(state5), 193 DEF_STATE(state6), DEF_STATE(state7), DEF_STATE(state8), 194 DEF_STATE(state9), DEF_STATE(state10), DEF_STATE(state11), 195 DEF_STATE(state12) 196}; 197 198static PLANE p; 199static STACK stack[MAXDEPTH]; 200static int level; 201static int tval; 202static int dest_type, dest_no, dir; 203 204static int 205pop(void) 206{ 207 if (level == 0) 208 return (-1); 209 level--; 210 211 ioclrtoeol(T_POS); 212 213 (void)strcpy(T_STR, ""); 214 T_RULE = -1; 215 T_CH = -1; 216 return (0); 217} 218 219static void 220rezero(void) 221{ 222 iomove(0); 223 224 level = 0; 225 T_STATE = 0; 226 T_RULE = -1; 227 T_CH = -1; 228 T_POS = 0; 229 (void)strcpy(T_STR, ""); 230} 231 232static void 233push(int ruleno, int ch) 234{ 235 int newstate, newpos; 236 237 assert(level < (MAXDEPTH - 1)); 238 (void)snprintf(T_STR, sizeof(T_STR), 239 st[T_STATE].rule[ruleno].str, tval); 240 T_RULE = ruleno; 241 T_CH = ch; 242 newstate = st[T_STATE].rule[ruleno].to_state; 243 newpos = T_POS + strlen(T_STR); 244 245 ioaddstr(T_POS, T_STR); 246 247 if (level == 0) 248 ioclrtobot(); 249 level++; 250 T_STATE = newstate; 251 T_POS = newpos; 252 T_RULE = -1; 253 (void)strcpy(T_STR, ""); 254} 255 256int 257getcommand(void) 258{ 259 int c, i, done; 260 const char *s, *(*func)(int); 261 PLANE *pp; 262 263 rezero(); 264 265 do { 266 c = gettoken(); 267 if (c == tty_new.c_cc[VERASE]) { 268 if (pop() < 0) 269 noise(); 270 } else if (c == tty_new.c_cc[VKILL]) { 271 while (pop() >= 0) 272 ; 273 } else { 274 done = 0; 275 for (i = 0; i < st[T_STATE].num_rules; i++) { 276 if (st[T_STATE].rule[i].token == c || 277 st[T_STATE].rule[i].token == tval) { 278 push(i, (c >= ALPHATOKEN) ? tval : c); 279 done = 1; 280 break; 281 } 282 } 283 if (!done) 284 noise(); 285 } 286 } while (T_STATE != -1); 287 288 if (level == 1) 289 return (1); /* forced update */ 290 291 dest_type = T_NODEST; 292 293 for (i = 0; i < level; i++) { 294 func = st[stack[i].state].rule[stack[i].rule].func; 295 if (func != NULL) 296 if ((s = (*func)(stack[i].ch)) != NULL) { 297 ioerror(stack[i].pos, 298 (int)strlen(stack[i].str), s); 299 return (-1); 300 } 301 } 302 303 pp = findplane(p.plane_no); 304 if (pp->new_altitude != p.new_altitude) 305 pp->new_altitude = p.new_altitude; 306 else if (pp->status != p.status) 307 pp->status = p.status; 308 else { 309 pp->new_dir = p.new_dir; 310 pp->delayd = p.delayd; 311 pp->delayd_no = p.delayd_no; 312 } 313 return (0); 314} 315 316static void 317noise(void) 318{ 319 (void)putchar('\07'); 320 (void)fflush(stdout); 321} 322 323static int 324gettoken(void) 325{ 326 while ((tval = getAChar()) == REDRAWTOKEN || tval == SHELLTOKEN) 327 { 328 if (tval == SHELLTOKEN) 329 { 330#ifdef BSD 331 struct itimerval itv; 332 itv.it_value.tv_sec = 0; 333 itv.it_value.tv_usec = 0; 334 (void)setitimer(ITIMER_REAL, &itv, NULL); 335#endif 336#ifdef SYSV 337 int aval; 338 aval = alarm(0); 339#endif 340 if (fork() == 0) /* child */ 341 { 342 char *shell, *base; 343 344 done_screen(); 345 346 /* run user's favorite shell */ 347 if ((shell = getenv("SHELL")) != NULL) 348 { 349 base = strrchr(shell, '/'); 350 if (base == NULL) 351 base = shell; 352 else 353 base++; 354 (void)execl(shell, base, (char *) 0); 355 } 356 else 357 (void)execl(_PATH_BSHELL, "sh", 358 (char *) 0); 359 360 exit(0); /* oops */ 361 } 362 363 (void)wait(0); 364 (void)tcsetattr(fileno(stdin), TCSADRAIN, &tty_new); 365#ifdef BSD 366 itv.it_value.tv_sec = 0; 367 itv.it_value.tv_usec = 1; 368 itv.it_interval.tv_sec = sp->update_secs; 369 itv.it_interval.tv_usec = 0; 370 (void)setitimer(ITIMER_REAL, &itv, NULL); 371#endif 372#ifdef SYSV 373 alarm(aval); 374#endif 375 } 376 (void)redraw(); 377 } 378 379 if (isdigit(tval)) 380 return (NUMTOKEN); 381 else if (isalpha(tval)) 382 return (ALPHATOKEN); 383 else 384 return (tval); 385} 386 387static const char * 388setplane(int c) 389{ 390 PLANE *pp; 391 392 pp = findplane(number(c)); 393 if (pp == NULL) 394 return ("Unknown Plane"); 395 (void)memcpy(&p, pp, sizeof (p)); 396 p.delayd = 0; 397 return (NULL); 398} 399 400/* ARGSUSED */ 401static const char * 402turn(int c __unused) 403{ 404 if (p.altitude == 0) 405 return ("Planes at airports may not change direction"); 406 return (NULL); 407} 408 409/* ARGSUSED */ 410static const char * 411circle(int c __unused) 412{ 413 if (p.altitude == 0) 414 return ("Planes cannot circle on the ground"); 415 p.new_dir = MAXDIR; 416 return (NULL); 417} 418 419/* ARGSUSED */ 420static const char * 421left(int c __unused) 422{ 423 dir = D_LEFT; 424 p.new_dir = p.dir - 1; 425 if (p.new_dir < 0) 426 p.new_dir += MAXDIR; 427 return (NULL); 428} 429 430/* ARGSUSED */ 431static const char * 432right(int c __unused) 433{ 434 dir = D_RIGHT; 435 p.new_dir = p.dir + 1; 436 if (p.new_dir >= MAXDIR) 437 p.new_dir -= MAXDIR; 438 return (NULL); 439} 440 441/* ARGSUSED */ 442static const char * 443Left(int c __unused) 444{ 445 p.new_dir = p.dir - 2; 446 if (p.new_dir < 0) 447 p.new_dir += MAXDIR; 448 return (NULL); 449} 450 451/* ARGSUSED */ 452static const char * 453Right(int c __unused) 454{ 455 p.new_dir = p.dir + 2; 456 if (p.new_dir >= MAXDIR) 457 p.new_dir -= MAXDIR; 458 return (NULL); 459} 460 461static const char * 462delayb(int c) 463{ 464 int xdiff, ydiff; 465 466 c -= '0'; 467 468 if (c >= sp->num_beacons) 469 return ("Unknown beacon"); 470 xdiff = sp->beacon[(int)c].x - p.xpos; 471 xdiff = SGN(xdiff); 472 ydiff = sp->beacon[(int)c].y - p.ypos; 473 ydiff = SGN(ydiff); 474 if (xdiff != displacement[p.dir].dx || ydiff != displacement[p.dir].dy) 475 return ("Beacon is not in flight path"); 476 p.delayd = 1; 477 p.delayd_no = c; 478 479 if (dest_type != T_NODEST) { 480 switch (dest_type) { 481 case T_BEACON: 482 xdiff = sp->beacon[dest_no].x - sp->beacon[(int)c].x; 483 ydiff = sp->beacon[dest_no].y - sp->beacon[(int)c].y; 484 break; 485 case T_EXIT: 486 xdiff = sp->exit[dest_no].x - sp->beacon[(int)c].x; 487 ydiff = sp->exit[dest_no].y - sp->beacon[(int)c].y; 488 break; 489 case T_AIRPORT: 490 xdiff = sp->airport[dest_no].x - sp->beacon[(int)c].x; 491 ydiff = sp->airport[dest_no].y - sp->beacon[(int)c].y; 492 break; 493 default: 494 return ("Bad case in delayb! Get help!"); 495 } 496 if (xdiff == 0 && ydiff == 0) 497 return ("Would already be there"); 498 p.new_dir = DIR_FROM_DXDY(xdiff, ydiff); 499 if (p.new_dir == p.dir) 500 return ("Already going in that direction"); 501 } 502 return (NULL); 503} 504 505/* ARGSUSED */ 506static const char * 507beacon(int c __unused) 508{ 509 dest_type = T_BEACON; 510 return (NULL); 511} 512 513/* ARGSUSED */ 514static const char * 515ex_it(int c __unused) 516{ 517 dest_type = T_EXIT; 518 return (NULL); 519} 520 521/* ARGSUSED */ 522static const char * 523airport(int c __unused) 524{ 525 dest_type = T_AIRPORT; 526 return (NULL); 527} 528 529/* ARGSUSED */ 530static const char * 531climb(int c __unused) 532{ 533 dir = D_UP; 534 return (NULL); 535} 536 537/* ARGSUSED */ 538static const char * 539descend(int c __unused) 540{ 541 dir = D_DOWN; 542 return (NULL); 543} 544 545static const char * 546setalt(int c) 547{ 548 int newalt = c - '0'; 549 if ((p.altitude == newalt) && (p.new_altitude == p.altitude)) 550 return ("Already at that altitude"); 551 if (p.new_altitude == newalt) { 552 return ("Already going to that altitude"); 553 } 554 p.new_altitude = newalt; 555 return (NULL); 556} 557 558static const char * 559setrelalt(int c) 560{ 561 int newalt; 562 563 if (c == 0) 564 return ("altitude not changed"); 565 566 switch (dir) { 567 case D_UP: 568 newalt = p.altitude + c - '0'; 569 break; 570 case D_DOWN: 571 newalt = p.altitude - (c - '0'); 572 break; 573 default: 574 return ("Unknown case in setrelalt! Get help!"); 575 } 576 577 if (p.new_altitude == newalt) 578 return ("Already going to that altitude"); 579 580 p.new_altitude = newalt; 581 582 if (p.new_altitude < 0) 583 return ("Altitude would be too low"); 584 else if (p.new_altitude > 9) 585 return ("Altitude would be too high"); 586 return (NULL); 587} 588 589static const char * 590benum(int c) 591{ 592 dest_no = c -= '0'; 593 594 switch (dest_type) { 595 case T_BEACON: 596 if (c >= sp->num_beacons) 597 return ("Unknown beacon"); 598 p.new_dir = DIR_FROM_DXDY(sp->beacon[(int)c].x - p.xpos, 599 sp->beacon[(int)c].y - p.ypos); 600 break; 601 case T_EXIT: 602 if (c >= sp->num_exits) 603 return ("Unknown exit"); 604 p.new_dir = DIR_FROM_DXDY(sp->exit[(int)c].x - p.xpos, 605 sp->exit[(int)c].y - p.ypos); 606 break; 607 case T_AIRPORT: 608 if (c >= sp->num_airports) 609 return ("Unknown airport"); 610 p.new_dir = DIR_FROM_DXDY(sp->airport[(int)c].x - p.xpos, 611 sp->airport[(int)c].y - p.ypos); 612 break; 613 default: 614 return ("Unknown case in benum! Get help!"); 615 } 616 return (NULL); 617} 618 619static const char * 620to_dir(int c) 621{ 622 p.new_dir = dir_no(c); 623 return (NULL); 624} 625 626static const char * 627rel_dir(int c) 628{ 629 int angle; 630 631 angle = dir_no(c); 632 switch (dir) { 633 case D_LEFT: 634 p.new_dir = p.dir - angle; 635 if (p.new_dir < 0) 636 p.new_dir += MAXDIR; 637 break; 638 case D_RIGHT: 639 p.new_dir = p.dir + angle; 640 if (p.new_dir >= MAXDIR) 641 p.new_dir -= MAXDIR; 642 break; 643 default: 644 return ("Bizarre direction in rel_dir! Get help!"); 645 } 646 return (NULL); 647} 648 649/* ARGSUSED */ 650static const char * 651mark(int c __unused) 652{ 653 if (p.altitude == 0) 654 return ("Cannot mark planes on the ground"); 655 if (p.status == S_MARKED) 656 return ("Already marked"); 657 p.status = S_MARKED; 658 return (NULL); 659} 660 661/* ARGSUSED */ 662static const char * 663unmark(int c __unused) 664{ 665 if (p.altitude == 0) 666 return ("Cannot unmark planes on the ground"); 667 if (p.status == S_UNMARKED) 668 return ("Already unmarked"); 669 p.status = S_UNMARKED; 670 return (NULL); 671} 672 673/* ARGSUSED */ 674static const char * 675ignore(int c __unused) 676{ 677 if (p.altitude == 0) 678 return ("Cannot ignore planes on the ground"); 679 if (p.status == S_IGNORED) 680 return ("Already ignored"); 681 p.status = S_IGNORED; 682 return (NULL); 683} 684 685int 686dir_no(int ch) 687{ 688 int dirno; 689 690 dirno = -1; 691 switch (ch) { 692 case 'w': dirno = 0; break; 693 case 'e': dirno = 1; break; 694 case 'd': dirno = 2; break; 695 case 'c': dirno = 3; break; 696 case 'x': dirno = 4; break; 697 case 'z': dirno = 5; break; 698 case 'a': dirno = 6; break; 699 case 'q': dirno = 7; break; 700 default: 701 (void)fprintf(stderr, "bad character in dir_no\n"); 702 break; 703 } 704 return (dirno); 705} 706