home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume2 / advsys / part03 / newadv.pch < prev    next >
Internet Message Format  |  1987-10-23  |  2KB
  1. Date: 22 Sep 1987 09:35 EDT
  2. From: Marc Russell Pawliger <mp1w+@andrew.cmu.edu>
  3. To: Bill Randle <billr%tekred.tek.com@relay.cs.net>
  4. Subject: Re: advcom submission
  5. In-Reply-To: <8709211623.AA29413@tekred.TEK.COM>
  6.  
  7. OK, some of our enhancements haven't really been acid tested, so I'll
  8. send you the tame one that is nice, but not wizzo fantastic.  It adds a
  9. new class called smarticles, for smart articles, that makes `a` and
  10. `an` work correctly for nouns.  Not great, but it did get us into the
  11. code for a start.
  12.  
  13. *** /cmu/misc/cl0x/src/test/advexe.c    Tue Sep 22 09:26:26 1987
  14. --- /cmu/misc/cl0x/src/advsys/advexe.c    Tue Jul 28 13:32:00 1987
  15. ***************
  16. *** 253,258 ****
  17. --- 253,263 ----
  18.           setrand(time(0L));
  19.           *sp = NIL;
  20.           break;
  21. + 
  22. +     case OP_VOWEL:
  23. +         *sp = vowel(*sp);
  24. +         break;
  25. + 
  26.       default:
  27.           if (opcode >= OP_XVAR && opcode < OP_XSET)
  28.           *sp = getvalue(opcode - OP_XVAR);
  29. ***************
  30. *** 293,298 ****
  31. --- 298,320 ----
  32.       msg_open(msg);
  33.       while (ch = msg_byte())
  34.       trm_chr(ch);
  35. + }
  36. + 
  37. + /* vowel - check for vowel */
  38. + vowel(msg)
  39. +   int msg;
  40. + {
  41. +     int ch,r;
  42. + 
  43. +     msg_open(msg);
  44. +     ch = msg_byte();
  45. +     if (ch=='a'||ch=='e'||ch=='i'||ch=='o'||ch=='u')
  46. +     r = T;
  47. +     else
  48. +     r = NIL;
  49. +     while (ch)
  50. +     ch = msg_byte();
  51. +     return (r);
  52.   }
  53.   
  54.   /* pnumber - print a number */
  55. diff -c /cmu/misc/cl0x/src/test/advexp.c /cmu/misc/cl0x/src/advsys/advexp.c
  56. *** /cmu/misc/cl0x/src/test/advexp.c    Tue Sep 22 09:25:53 1987
  57. --- /cmu/misc/cl0x/src/advsys/advexp.c    Tue Jul 28 13:32:06 1987
  58. ***************
  59. *** 54,59 ****
  60. --- 54,60 ----
  61.       "yes-or-no",    OP_YORN,    0,
  62.       "rand",        OP_RAND,    1,
  63.       "randomize",    OP_RNDMIZE,    0,
  64. +     "vowel",    OP_VOWEL,    1,
  65.       0
  66.   };
  67.   static struct { char *ft_name; int (*ft_fcn)(); } *fptr,ftab[] = {
  68.  
  69.  
  70.