-------------------------------------------------------------------------*\ * Throws error when argument does not have correct type. * Used to be part

** check whether current token is in the follow set of a block. ** 'until' closes syntactical blocks, but do not close scope, ** so it is handled in s

-------------------------------------------------------------------------*\ * Skips a given number of bytes from read buffer. No data is read from the

** clear entries with unmarked values from all weaktables in list 'l' up ** to element 'f' */

** Read an integer numeral and raises an error if it is larger ** than the maximum size for integers. */

-------------------------------------------------------------------------*\ * I/O error strings \*----------------------------------------------------

** advances the garbage collector until it reaches a state allowed ** by 'statemask' */

** Finishes a function call: calls hook if necessary, removes CallInfo, ** moves current number of results to proper place; returns 0 iff call ** want

** Prepares a function call: checks the stack, creates a new CallInfo ** entry, fills in the relevant information, calls hook if needed. ** If functio

** Look for n-th local variable at line 'line' in function 'func'. ** Returns NULL if not found. */

** Emit a "load constant" instruction, using either 'OP_LOADK' ** (if constant index 'k' fits in 18 bits) or an 'OP_LOADKX' ** instruction with "extra

** Path all jumps in 'list' to close upvalues up to given 'level' ** (The assertion checks that jumps either were closing nothing ** or were closing h

** this function handles only '%d', '%c', '%f', '%p', and '%s' conventional formats, plus Lua-specific '%I' and '%U' */

** Main operation for concatenation: concat 'total' values in the stack, ** from 'L->top - total' up to 'L->top - 1'. */

** Shift left operation. (Shift right just negates 'y'.) */

** creates a new string and anchors it in scanner's table so that ** it will not be collected until the end of the compilation ** (by that time it sho

** Let x = AB, where A is a prefix of length 'n'. Then, ** rotate x n == BA. But BA == (A^r . B^r)^r. */

** Traverse a list of tests, patching their destination address and ** registers: tests producing values jump to 'vtarget' (and put their ** values in

-------------------------------------------------------------------------*\ * Output one character in form =XX \*-------------------------------------

-------------------------------------------------------------------------*\ * Put socket into blocking mode \*----------------------------------------

-------------------------------------------------------------------------*\ * Put socket into blocking mode \*----------------------------------------

-------------------------------------------------------------------------*\ * Sets timeout values for IO operations * Lua Input: base, time [, mode] *

=========================================================================*\ * Lua methods \*==========================================================

** add length modifier into formats */

** Calls the 'close' function from a file handle. The 'volatile' avoids ** a bug in some versions of the Clang compiler (e.g., clang 3.0 for ** 32 bit

-------------------------------------------------------------------------*\ * Return any data available in buffer, or get more data from transport lay

-------------------------------------------------------------------------*\ * object:getstats() interface \*------------------------------------------

-------------------------------------------------------------------------*\ * object:receive() interface \*-------------------------------------------

-------------------------------------------------------------------------*\ * object:send() interface \*----------------------------------------------

-------------------------------------------------------------------------*\ * object:setstats() interface \*------------------------------------------

** Check whether current char is in set 'set' (with two chars) and ** saves it */

** Check whether a given upvalue from a given closure exists and ** returns its index */