Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing parserm.h

NounWord (lines 3373-3395)

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 web site has not been fully supported since April 2008. Information may be out of date. This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.