NounWord (lines 4133-4158)
Back to List
Browsing parserm.h
4133 #Endif; ! TARGET_
4134
4135 ! ----------------------------------------------------------------------------
4136 ! NounWord (which takes no arguments) returns:
4137 !
4138 ! 0 if the next word is unrecognised or does not carry the "noun" bit in
4139 ! its dictionary entry,
4140 ! 1 if a word meaning "me",
4141 ! the index in the pronoun table (plus 2) of the value field of a pronoun,
4142 ! if the word is a pronoun,
4143 ! the address in the dictionary if it is a recognised noun.
4144 !
4145 ! The "current word" marker moves on one.
4146 ! ----------------------------------------------------------------------------
4147
4148 [ NounWord i j s;
4149 i = NextWord();
4150 if (i == 0) rfalse;
4151 if (i == ME1__WD or ME2__WD or ME3__WD) return 1;
4152 s = LanguagePronouns-->0;
4153 for (j=1 : j<=s : j=j+3)
4154 if (i == LanguagePronouns-->j)
4155 return j+2;
4156 if ((i->#dict_par1)&128 == 0) rfalse;
4157 return i;
4158 ];
Last updated 27 February 2004. The librarian in charge of this page is Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight. Please email any comments, suggestions or corrections to cedenqs@inform-fiction.org.