NextWord (lines 4161-4181)
Back to List
Browsing parserm.h
4161 ! NextWord (which takes no arguments) returns:
4162 !
4163 ! 0 if the next word is unrecognised,
4164 ! comma_word if a comma
4165 ! THEN1__WD if a full stop
4166 ! or the dictionary address if it is recognised.
4167 ! The "current word" marker is moved on.
4168 !
4169 ! NextWordStopped does the same, but returns -1 when input has run out
4170 ! ----------------------------------------------------------------------------
4171
4172 #Ifdef TARGET_ZCODE;
4173
4174 [ NextWord i j;
4175 if (wn > parse->1) { wn++; rfalse; }
4176 i = wn*2-1; wn++;
4177 j = parse-->i;
4178 if (j == ',//') j = comma_word;
4179 if (j == './/') j = THEN1__WD;
4180 return j;
4181 ];
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.