497 lines
9.1 KiB
C
497 lines
9.1 KiB
C
/*
|
|
* $Id$
|
|
*
|
|
Copyright 2006-2014 Chung, Hyung-Hwan.
|
|
This file is part of QSE.
|
|
|
|
QSE is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU Lesser General Public License as
|
|
published by the Free Software Foundation, either version 3 of
|
|
the License, or (at your option) any later version.
|
|
|
|
QSE is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public
|
|
License along with QSE. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
#include <qse/cmn/str.h>
|
|
#include <qse/cmn/chr.h>
|
|
|
|
qse_mchar_t* qse_mbstok (
|
|
const qse_mchar_t* s, const qse_mchar_t* delim, qse_mcstr_t* tok)
|
|
{
|
|
const qse_mchar_t* p = s, *d;
|
|
const qse_mchar_t* sp = QSE_NULL, * ep = QSE_NULL;
|
|
qse_mchar_t c;
|
|
int delim_mode;
|
|
|
|
/* skip preceding space characters */
|
|
while (/* *p != QSE_MT('\0') && */ QSE_ISMSPACE(*p)) p++;
|
|
|
|
if (delim == QSE_NULL) delim_mode = 0;
|
|
else
|
|
{
|
|
delim_mode = 1;
|
|
for (d = delim; *d != QSE_MT('\0'); d++)
|
|
if (!QSE_ISMSPACE(*d)) delim_mode = 2;
|
|
}
|
|
|
|
if (delim_mode == 0)
|
|
{
|
|
/* when QSE_NULL is given as "delim", it has an effect of
|
|
* cutting preceding and trailing space characters off "s". */
|
|
while ((c = *p) != QSE_MT('\0'))
|
|
{
|
|
if (!QSE_ISMSPACE(c))
|
|
{
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p;
|
|
}
|
|
p++;
|
|
}
|
|
}
|
|
else if (delim_mode == 1)
|
|
{
|
|
while ((c = *p) != QSE_MT('\0'))
|
|
{
|
|
if (QSE_ISMSPACE(c)) break;
|
|
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p++;
|
|
}
|
|
}
|
|
else /* if (delim_mode == 2) */
|
|
{
|
|
while ((c = *p) != QSE_MT('\0'))
|
|
{
|
|
if (QSE_ISMSPACE(c))
|
|
{
|
|
p++;
|
|
continue;
|
|
}
|
|
for (d = delim; *d; d++)
|
|
{
|
|
if (c == *d) goto exit_loop;
|
|
}
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p++;
|
|
}
|
|
}
|
|
|
|
exit_loop:
|
|
if (sp == QSE_NULL)
|
|
{
|
|
tok->ptr = QSE_NULL;
|
|
tok->len = (qse_size_t)0;
|
|
}
|
|
else
|
|
{
|
|
tok->ptr = (qse_mchar_t*)sp;
|
|
tok->len = ep - sp + 1;
|
|
}
|
|
return (c == QSE_MT('\0'))? QSE_NULL: ((qse_mchar_t*)++p);
|
|
}
|
|
|
|
qse_mchar_t* qse_mbsxtok (
|
|
const qse_mchar_t* s, qse_size_t len,
|
|
const qse_mchar_t* delim, qse_mcstr_t* tok)
|
|
{
|
|
const qse_mchar_t* p = s, *d;
|
|
const qse_mchar_t* end = s + len;
|
|
const qse_mchar_t* sp = QSE_NULL, * ep = QSE_NULL;
|
|
qse_mchar_t c;
|
|
int delim_mode;
|
|
|
|
/* skip preceding space characters */
|
|
while (p < end && QSE_ISMSPACE(*p)) p++;
|
|
|
|
if (delim == QSE_NULL) delim_mode = 0;
|
|
else
|
|
{
|
|
delim_mode = 1;
|
|
for (d = delim; *d != QSE_MT('\0'); d++)
|
|
if (!QSE_ISMSPACE(*d)) delim_mode = 2;
|
|
}
|
|
|
|
if (delim_mode == 0)
|
|
{
|
|
/* when QSE_NULL is given as "delim", it has an effect of
|
|
* cutting preceding and trailing space characters off "s". */
|
|
while (p < end)
|
|
{
|
|
c = *p;
|
|
if (!QSE_ISMSPACE(c))
|
|
{
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p;
|
|
}
|
|
p++;
|
|
}
|
|
}
|
|
else if (delim_mode == 1)
|
|
{
|
|
while (p < end)
|
|
{
|
|
c = *p;
|
|
if (QSE_ISMSPACE(c)) break;
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p++;
|
|
}
|
|
}
|
|
else
|
|
{ /* if (delim_mode == 2) { */
|
|
while (p < end)
|
|
{
|
|
c = *p;
|
|
if (QSE_ISMSPACE(c))
|
|
{
|
|
p++;
|
|
continue;
|
|
}
|
|
for (d = delim; *d; d++)
|
|
{
|
|
if (c == *d) goto exit_loop;
|
|
}
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p++;
|
|
}
|
|
}
|
|
|
|
exit_loop:
|
|
if (sp == QSE_NULL)
|
|
{
|
|
tok->ptr = QSE_NULL;
|
|
tok->len = (qse_size_t)0;
|
|
}
|
|
else
|
|
{
|
|
tok->ptr = (qse_mchar_t*)sp;
|
|
tok->len = ep - sp + 1;
|
|
}
|
|
|
|
return (p >= end)? QSE_NULL: ((qse_mchar_t*)++p);
|
|
}
|
|
|
|
qse_mchar_t* qse_mbsxntok (
|
|
const qse_mchar_t* s, qse_size_t len,
|
|
const qse_mchar_t* delim, qse_size_t delim_len, qse_mcstr_t* tok)
|
|
{
|
|
const qse_mchar_t* p = s, *d;
|
|
const qse_mchar_t* end = s + len;
|
|
const qse_mchar_t* sp = QSE_NULL, * ep = QSE_NULL;
|
|
const qse_mchar_t* delim_end = delim + delim_len;
|
|
qse_mchar_t c;
|
|
int delim_mode;
|
|
|
|
/* skip preceding space characters */
|
|
while (p < end && QSE_ISMSPACE(*p)) p++;
|
|
|
|
if (delim == QSE_NULL) delim_mode = 0;
|
|
else
|
|
{
|
|
delim_mode = 1;
|
|
for (d = delim; d < delim_end; d++)
|
|
if (!QSE_ISMSPACE(*d)) delim_mode = 2;
|
|
}
|
|
|
|
if (delim_mode == 0)
|
|
{
|
|
/* when QSE_NULL is given as "delim", it has an effect of
|
|
* cutting preceding and trailing space characters off "s". */
|
|
while (p < end)
|
|
{
|
|
c = *p;
|
|
if (!QSE_ISMSPACE(c))
|
|
{
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p;
|
|
}
|
|
p++;
|
|
}
|
|
}
|
|
else if (delim_mode == 1)
|
|
{
|
|
while (p < end)
|
|
{
|
|
c = *p;
|
|
if (QSE_ISMSPACE(c)) break;
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p++;
|
|
}
|
|
}
|
|
else /* if (delim_mode == 2) */
|
|
{
|
|
while (p < end)
|
|
{
|
|
c = *p;
|
|
if (QSE_ISMSPACE(c))
|
|
{
|
|
p++;
|
|
continue;
|
|
}
|
|
for (d = delim; d < delim_end; d++)
|
|
{
|
|
if (c == *d) goto exit_loop;
|
|
}
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p++;
|
|
}
|
|
}
|
|
|
|
exit_loop:
|
|
if (sp == QSE_NULL)
|
|
{
|
|
tok->ptr = QSE_NULL;
|
|
tok->len = (qse_size_t)0;
|
|
}
|
|
else
|
|
{
|
|
tok->ptr = (qse_mchar_t*)sp;
|
|
tok->len = ep - sp + 1;
|
|
}
|
|
|
|
return (p >= end)? QSE_NULL: ((qse_mchar_t*)++p);
|
|
}
|
|
|
|
|
|
qse_wchar_t* qse_wcstok (
|
|
const qse_wchar_t* s, const qse_wchar_t* delim, qse_wcstr_t* tok)
|
|
{
|
|
const qse_wchar_t* p = s, *d;
|
|
const qse_wchar_t* sp = QSE_NULL, * ep = QSE_NULL;
|
|
qse_wchar_t c;
|
|
int delim_mode;
|
|
|
|
/* skip preceding space characters */
|
|
while (/* *p != QSE_WT('\0') && */ QSE_ISWSPACE(*p)) p++;
|
|
|
|
if (delim == QSE_NULL) delim_mode = 0;
|
|
else
|
|
{
|
|
delim_mode = 1;
|
|
for (d = delim; *d != QSE_WT('\0'); d++)
|
|
if (!QSE_ISWSPACE(*d)) delim_mode = 2;
|
|
}
|
|
|
|
if (delim_mode == 0)
|
|
{
|
|
/* when QSE_NULL is given as "delim", it has an effect of
|
|
* cutting preceding and trailing space characters off "s". */
|
|
while ((c = *p) != QSE_WT('\0'))
|
|
{
|
|
if (!QSE_ISWSPACE(c))
|
|
{
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p;
|
|
}
|
|
p++;
|
|
}
|
|
}
|
|
else if (delim_mode == 1)
|
|
{
|
|
while ((c = *p) != QSE_WT('\0'))
|
|
{
|
|
if (QSE_ISWSPACE(c)) break;
|
|
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p++;
|
|
}
|
|
}
|
|
else
|
|
{ /* if (delim_mode == 2) { */
|
|
while ((c = *p) != QSE_WT('\0'))
|
|
{
|
|
if (QSE_ISWSPACE(c))
|
|
{
|
|
p++;
|
|
continue;
|
|
}
|
|
for (d = delim; *d; d++)
|
|
{
|
|
if (c == *d) goto exit_loop;
|
|
}
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p++;
|
|
}
|
|
}
|
|
|
|
exit_loop:
|
|
if (sp == QSE_NULL)
|
|
{
|
|
tok->ptr = QSE_NULL;
|
|
tok->len = (qse_size_t)0;
|
|
}
|
|
else
|
|
{
|
|
tok->ptr = (qse_wchar_t*)sp;
|
|
tok->len = ep - sp + 1;
|
|
}
|
|
return (c == QSE_WT('\0'))? QSE_NULL: ((qse_wchar_t*)++p);
|
|
}
|
|
|
|
qse_wchar_t* qse_wcsxtok (
|
|
const qse_wchar_t* s, qse_size_t len,
|
|
const qse_wchar_t* delim, qse_wcstr_t* tok)
|
|
{
|
|
const qse_wchar_t* p = s, *d;
|
|
const qse_wchar_t* end = s + len;
|
|
const qse_wchar_t* sp = QSE_NULL, * ep = QSE_NULL;
|
|
qse_wchar_t c;
|
|
int delim_mode;
|
|
|
|
/* skip preceding space characters */
|
|
while (p < end && QSE_ISWSPACE(*p)) p++;
|
|
|
|
if (delim == QSE_NULL) delim_mode = 0;
|
|
else
|
|
{
|
|
delim_mode = 1;
|
|
for (d = delim; *d != QSE_WT('\0'); d++)
|
|
if (!QSE_ISWSPACE(*d)) delim_mode = 2;
|
|
}
|
|
|
|
if (delim_mode == 0)
|
|
{
|
|
/* when QSE_NULL is given as "delim", it has an effect of
|
|
* cutting preceding and trailing space characters off "s". */
|
|
while (p < end)
|
|
{
|
|
c = *p;
|
|
if (!QSE_ISWSPACE(c))
|
|
{
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p;
|
|
}
|
|
p++;
|
|
}
|
|
}
|
|
else if (delim_mode == 1)
|
|
{
|
|
while (p < end)
|
|
{
|
|
c = *p;
|
|
if (QSE_ISWSPACE(c)) break;
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p++;
|
|
}
|
|
}
|
|
else
|
|
{ /* if (delim_mode == 2) { */
|
|
while (p < end)
|
|
{
|
|
c = *p;
|
|
if (QSE_ISWSPACE(c))
|
|
{
|
|
p++;
|
|
continue;
|
|
}
|
|
for (d = delim; *d; d++)
|
|
{
|
|
if (c == *d) goto exit_loop;
|
|
}
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p++;
|
|
}
|
|
}
|
|
|
|
exit_loop:
|
|
if (sp == QSE_NULL)
|
|
{
|
|
tok->ptr = QSE_NULL;
|
|
tok->len = (qse_size_t)0;
|
|
}
|
|
else
|
|
{
|
|
tok->ptr = (qse_wchar_t*)sp;
|
|
tok->len = ep - sp + 1;
|
|
}
|
|
|
|
return (p >= end)? QSE_NULL: ((qse_wchar_t*)++p);
|
|
}
|
|
|
|
qse_wchar_t* qse_wcsxntok (
|
|
const qse_wchar_t* s, qse_size_t len,
|
|
const qse_wchar_t* delim, qse_size_t delim_len, qse_wcstr_t* tok)
|
|
{
|
|
const qse_wchar_t* p = s, *d;
|
|
const qse_wchar_t* end = s + len;
|
|
const qse_wchar_t* sp = QSE_NULL, * ep = QSE_NULL;
|
|
const qse_wchar_t* delim_end = delim + delim_len;
|
|
qse_wchar_t c;
|
|
int delim_mode;
|
|
|
|
/* skip preceding space characters */
|
|
while (p < end && QSE_ISWSPACE(*p)) p++;
|
|
|
|
if (delim == QSE_NULL) delim_mode = 0;
|
|
else
|
|
{
|
|
delim_mode = 1;
|
|
for (d = delim; d < delim_end; d++)
|
|
if (!QSE_ISWSPACE(*d)) delim_mode = 2;
|
|
}
|
|
|
|
if (delim_mode == 0)
|
|
{
|
|
/* when QSE_NULL is given as "delim", it has an effect of
|
|
* cutting preceding and trailing space characters off "s". */
|
|
while (p < end)
|
|
{
|
|
c = *p;
|
|
if (!QSE_ISWSPACE(c))
|
|
{
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p;
|
|
}
|
|
p++;
|
|
}
|
|
}
|
|
else if (delim_mode == 1)
|
|
{
|
|
while (p < end)
|
|
{
|
|
c = *p;
|
|
if (QSE_ISWSPACE(c)) break;
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p++;
|
|
}
|
|
}
|
|
else /* if (delim_mode == 2) */
|
|
{
|
|
while (p < end)
|
|
{
|
|
c = *p;
|
|
if (QSE_ISWSPACE(c))
|
|
{
|
|
p++;
|
|
continue;
|
|
}
|
|
for (d = delim; d < delim_end; d++)
|
|
{
|
|
if (c == *d) goto exit_loop;
|
|
}
|
|
if (sp == QSE_NULL) sp = p;
|
|
ep = p++;
|
|
}
|
|
}
|
|
|
|
exit_loop:
|
|
if (sp == QSE_NULL)
|
|
{
|
|
tok->ptr = QSE_NULL;
|
|
tok->len = (qse_size_t)0;
|
|
}
|
|
else
|
|
{
|
|
tok->ptr = (qse_wchar_t*)sp;
|
|
tok->len = ep - sp + 1;
|
|
}
|
|
|
|
return (p >= end)? QSE_NULL: ((qse_wchar_t*)++p);
|
|
}
|
|
|