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 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.