lua/src/lparser.c

40 ** nodes for block list (list of active blocks)
44   short firstlabel;  /* index of first label in this block */
45   short firstgoto;  /* index of first pending goto in this block */
46   lu_byte nactvar;  /* # active locals outside the block */
47   lu_byte upval;  /* true if some variable in the block is an upvalue */
48   lu_byte isloop;  /* true if `block' is a loop */
257   Mark block where variable at given level was defined
369   /* check labels in current block for a match */
400 ** block; solves forward jumps
416 ** outer labels; if the block being exited has upvalues, and
423   /* correct pending gotos to current block and try to close it
488   if (bl->previous)  /* inner block? */
489     movegotosout(fs, bl);  /* update pending gotos to outer block */
490   else if (bl->firstgoto < ls->dyd->gt.n)  /* pending gotos in outer block? */
589 ** check whether current token is in the follow set of a block.
789   /* body ->  `(' parlist `)' block END */
1082 static void block (LexState *ls) {
1083   /* block -> statlist */
1194 /* check for repeated labels on the same block */
1225   if (block_follow(ls, 0)) {  /* label is last no-op statement in the block? */
1234   /* whilestat -> WHILE cond DO block END */
1244   block(ls);
1253   /* repeatstat -> REPEAT block UNTIL cond */
1258   enterblock(fs, &bl1, 1);  /* loop block */
1259   enterblock(fs, &bl2, 0);  /* scope block */
1263   condexit = cond(ls);  /* read condition (inside scope block) */
1284   /* forbody -> DO block */
1294   block(ls);
1375   /* test_then_block -> [IF | ELSEIF] cond THEN block */
1385     enterblock(fs, &bl, 0);  /* must enter block before 'goto' */
1388     if (block_follow(ls, 0)) {  /* 'goto' is the entire block? */
1396     luaK_goiftrue(ls->fs, &v);  /* skip over block if condition is false */
1410   /* ifstat -> IF cond THEN block {ELSEIF cond THEN block} [ELSE block] END */
1413   test_then_block(ls, &escapelist);  /* IF cond THEN block */
1415     test_then_block(ls, &escapelist);  /* ELSEIF cond THEN block */
1417     block(ls);  /* `else' part */
1545     case TK_DO: {  /* stat -> DO block END */
1547       block(ls);