Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing parserm.h

UnpackGrammarLine (lines 684-707)

0684  #Ifdef TARGET_ZCODE;
0685   
0686  [ UnpackGrammarLine line_address i;
0687      for (i=0 : i<32 : i++) {
0688          line_token-->i = ENDIT_TOKEN;
0689          line_ttype-->i = ELEMENTARY_TT;
0690          line_tdata-->i = ENDIT_TOKEN;
0691      }
0692      action_to_be = 256*(line_address->0) + line_address->1;
0693      action_reversed = ((action_to_be & $400) ~= 0);
0694      action_to_be = action_to_be & $3ff;
0695      line_address--;
0696      params_wanted = 0;
0697      for (i=0 : : i++) {
0698          line_address = line_address + 3;
0699          if (line_address->0 == ENDIT_TOKEN) break;
0700          line_token-->i = line_address;
0701          AnalyseToken(line_address);
0702          if (found_ttype ~= PREPOSITION_TT) params_wanted++;
0703          line_ttype-->i = found_ttype;
0704          line_tdata-->i = found_tdata;
0705      }
0706      return line_address + 1;
0707  ];


Last updated 27 February 2004. The librarian in charge of this page is Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight. Please email any comments, suggestions or corrections to cedenqs@inform-fiction.org.