Example #1
0
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();
}
Example #2
0
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_; }
Example #3
0
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_; }
Example #4
0
static _TKN_TYPE_ scan_Ill(_NIL_TYPE_)
 { _scan_error_(_ILL_ERROR_);
   return _END_TOKEN_; }