static _NIL_TYPE_ scan_store_next_ch(_NIL_TYPE_) { _TEXT_BUF_[scan_index++] = scan_ch; if (scan_index == _BUF_SIZE_) _scan_error_(_BUF_ERROR_); else SCAN_NEXT_CH(); }
static _TKN_TYPE_ scan_Quo(_NIL_TYPE_) { SCAN_NEXT_CH(); while (SCAN_UNCHECK(eol_quo_mask)) scan_store_next_ch(); if (SCAN_CHECK(quo_mask)) SCAN_NEXT_CH(); else _scan_error_(_TXT_ERROR_); scan_terminate_text(); return _TXT_TOKEN_; }
static _TKN_TYPE_ scan_exponent(_NIL_TYPE_) { scan_store_next_ch(); if (SCAN_CHECK(sign_mask)) scan_store_next_ch(); if (SCAN_CHECK(digit_mask)) do scan_store_next_ch(); while (SCAN_CHECK(digit_mask)); else _scan_error_(_DIG_ERROR_); scan_terminate_text(); return _FRC_TOKEN_; }
static _TKN_TYPE_ scan_Ill(_NIL_TYPE_) { _scan_error_(_ILL_ERROR_); return _END_TOKEN_; }