static _TKN_TYPE_ scan_Col(_NIL_TYPE_)
{ SCAN_NEXT_CH();
if (SCAN_CHECK(equal_mask))
{ SCAN_NEXT_CH();
return _CEQ_TOKEN_; }
else
return _COL_TOKEN_; }
static _TKN_TYPE_ scan_Bkq(_NIL_TYPE_)
{ do
SCAN_NEXT_CH();
while (SCAN_UNCHECK(eol_bkq_mask));
if (SCAN_CHECK(bkq_mask))
SCAN_NEXT_CH();
return _scan_(); }
// Added BRC ==> [: for lazy tabs
static _TKN_TYPE_ scan_Lbr(_NIL_TYPE_)
{ SCAN_NEXT_CH();
if (SCAN_CHECK(col_mask))
{ SCAN_NEXT_CH();
return _BRC_TOKEN_;
}
else
return _LBR_TOKEN_;
}
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 _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();
}
_NIL_TYPE_ _scan_init_(const _STR_TYPE_ str,
const _SGN_TYPE_ tst)
{ scan_start = 0;
scan_stop = 0;
scan_index = 0;
scan_mark = tst;
scan_text = str;
SCAN_NEXT_CH(); }
static _TKN_TYPE_ scan_Wsp(_NIL_TYPE_)
{ do
SCAN_NEXT_CH();
while (SCAN_CHECK(wsp_mask));
if (scan_ch)
return _scan_();
else
return _END_TOKEN_; }
static _TKN_TYPE_ scan_Per(_NIL_TYPE_) //TOEGEVOEGD: Skip de punt en geef een _PER_TOKEN_ terug.
{ SCAN_NEXT_CH();
return _PER_TOKEN_; }
static _TKN_TYPE_ scan_Smc(_NIL_TYPE_)
{ SCAN_NEXT_CH();
return _SMC_TOKEN_; }
static _TKN_TYPE_ scan_Rpr(_NIL_TYPE_)
{ SCAN_NEXT_CH();
return _RPR_TOKEN_; }
static _TKN_TYPE_ scan_Com(_NIL_TYPE_)
{ SCAN_NEXT_CH();
return _COM_TOKEN_; }
static _TKN_TYPE_ scan_Cat(_NIL_TYPE_)
{ SCAN_NEXT_CH();
return _CAT_TOKEN_; }