ShowVerbSub (lines 5353-5378)
Back to List
Browsing parserm.h
5353 #Ifnot; ! TARGET_GLULX
5354
5355 [ ShowVerbSub address lines i j meta wd dictlen entrylen;
5356 if (noun == 0 || ((noun->#dict_par1) & 1) == 0)
5357 "Try typing ~showverb~ and then the name of a verb.";
5358 meta = ((noun->#dict_par1) & 2)/2;
5359 i = $ff-(noun->#dict_par2);
5360 address = (#grammar_table)-->(i+1);
5361 lines = address->0;
5362 address++;
5363 print "Verb ";
5364 if (meta) print "meta ";
5365 dictlen = #dictionary_table-->0;
5366 entrylen = DICT_WORD_SIZE + 7;
5367 for (j=0 : j<dictlen : j++) {
5368 wd = #dictionary_table + WORDSIZE + entrylen*j;
5369 if (wd->#dict_par2 == $ff-i)
5370 print "'", (address) wd, "' ";
5371 }
5372 new_line;
5373 if (lines == 0) "has no grammar lines.";
5374 for (: lines>0 : lines--) {
5375 address = UnpackGrammarLine(address);
5376 print " "; DebugGrammarLine(); new_line;
5377 }
5378 ];
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 assisted by C Knight.