added qse_strspn() and qse_strcspn()
This commit is contained in:
@ -223,18 +223,23 @@ int scm_main (int argc, qse_char_t* argv[])
|
||||
qse_scm_io_t io = { get_input, put_output };
|
||||
qse_scm_attachio (scm, &io);
|
||||
}
|
||||
|
||||
|
||||
|
||||
{
|
||||
int i;
|
||||
for (i = 0; i<200; i++)
|
||||
|
||||
|
||||
{
|
||||
int i;
|
||||
for (i = 0; i<2; i++)
|
||||
pio1 (QSE_T("pstat.exe /c"), QSE_PIO_READOUT|QSE_PIO_WRITEIN|/*QSE_PIO_SHELL|*/QSE_PIO_DROPERR, QSE_PIO_OUT);
|
||||
}
|
||||
|
||||
{
|
||||
qse_printf (QSE_T("%d\n"), (int)qse_strspn (QSE_T("abcdefg"), QSE_T("cdab")));
|
||||
qse_printf (QSE_T("%d\n"), (int)qse_strcspn (QSE_T("abcdefg"), QSE_T("fg")));
|
||||
}
|
||||
|
||||
{
|
||||
qse_scm_ent_t* x1, * x2;
|
||||
|
||||
|
||||
qse_printf (QSE_T("QSESCM> "));
|
||||
x1 = qse_scm_read (scm);
|
||||
if (x1 == QSE_NULL)
|
||||
|
Reference in New Issue
Block a user