NounWord (lines 3373-3395)
Back to List
Browsing parserm.h
3373 ! NounWord (which takes no arguments) returns:
3374 !
3375 ! 0 if the next word is unrecognised or does not carry the "noun" bit in
3376 ! its dictionary entry,
3377 ! 1 if a word meaning "me",
3378 ! the index in the pronoun table (plus 2) of the value field of a pronoun,
3379 ! if the word is a pronoun,
3380 ! the address in the dictionary if it is a recognised noun.
3381 !
3382 ! The "current word" marker moves on one.
3383 ! ----------------------------------------------------------------------------
3384
3385 [ NounWord i j s;
3386 i=NextWord();
3387 if (i==0) rfalse;
3388 if (i==ME1__WD or ME2__WD or ME3__WD) return 1;
3389 s = LanguagePronouns-->0;
3390 for (j=1 : j<=s : j=j+3)
3391 if (i == LanguagePronouns-->j)
3392 return j+2;
3393 if ((i->#dict_par1)&128 == 0) rfalse;
3394 return i;
3395 ];
Last updated 27 February 2004.
This site is no longer supported; information may be out of date.
Maintained as a historical archive by the Interactive Fiction Technology Foundation.
Copyright 1993-2018 IFTF, CC-BY-SA unless otherwise noted.
This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.