Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing parserm.h

UnpackGrammarLine (lines 511-533)

0511  [ UnpackGrammarLine line_address i m;
0512    for (i = 0 : i < 32 : i++)
0513    {   line_token-->i = ENDIT_TOKEN;
0514        line_ttype-->i = ELEMENTARY_TT;
0515        line_tdata-->i = ENDIT_TOKEN;
0516    }
0517    for (i = 0: i <= 5 :i++)
0518    {   line_token-->i = line_address->(i+1);
0519        AnalyseToken(line_token-->i);
0520        if ((found_ttype == ELEMENTARY_TT) && (found_tdata == NOUN_TOKEN)
0521            && (m == line_address->0))
0522        {   line_token-->i = ENDIT_TOKEN;
0523            break;
0524        }
0525        line_ttype-->i = found_ttype;
0526        line_tdata-->i = found_tdata;
0527        if (found_ttype ~= PREPOSITION_TT) m++;
0528    }
0529    action_to_be = line_address->7;
0530    action_reversed = false;
0531    params_wanted = line_address->0;
0532    return line_address + 8;
0533  ];


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.