UnpackGrammarLine (lines 546-567)
Back to List
Browsing parserm.h
0546 [ UnpackGrammarLine line_address i;
0547 for (i = 0 : i < 32 : i++)
0548 { line_token-->i = ENDIT_TOKEN;
0549 line_ttype-->i = ELEMENTARY_TT;
0550 line_tdata-->i = ENDIT_TOKEN;
0551 }
0552 action_to_be = 256*(line_address->0) + line_address->1;
0553 action_reversed = ((action_to_be & $400) ~= 0);
0554 action_to_be = action_to_be & $3ff;
0555 line_address--;
0556 params_wanted = 0;
0557 for (i=0::i++)
0558 { line_address = line_address + 3;
0559 if (line_address->0 == ENDIT_TOKEN) break;
0560 line_token-->i = line_address;
0561 AnalyseToken(line_address);
0562 if (found_ttype ~= PREPOSITION_TT) params_wanted++;
0563 line_ttype-->i = found_ttype;
0564 line_tdata-->i = found_tdata;
0565 }
0566 return line_address + 1;
0567 ];
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.