Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing parserm.h

UnpackGrammarLine (lines 546-567)

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.