--- /dev/null
+#include <locale.h>
+#include <stdio.h>
+#include <string.h>
+#include <wchar.h>
+
+
+static int do_test (const char *loc);
+
+
+int
+main (void)
+{
+ int result;
+
+ result = do_test ("C");
+ result |= do_test ("de_DE.ISO-8859-1");
+ result |= do_test ("de_DE.UTF-8");
+ result |= do_test ("ja_JP.EUC-JP");
+
+ return result;
+}
+
+
+static const struct
+{
+ const wchar_t *fmt;
+ const wchar_t *wfmt;
+ const wchar_t *arg;
+ const char *res;
+ const wchar_t *wres;
+ int only_C_locale;
+} tests[] =
+ {
+ { L"%[abc]", L"%l[abc]", L"aabbccddaabb", "aabbcc", L"aabbcc", 0 },
+ { L"%[^def]", L"%l[^def]", L"aabbccddaabb", "aabbcc", L"aabbcc", 0 },
+ { L"%[^abc]", L"%l[^abc]", L"aabbccddaabb", "", L"", 0 },
+ { L"%[a-c]", L"%l[a-c]", L"aabbccddaabb", "aabbcc", L"aabbcc", 1 },
+ { L"%[^d-f]", L"%l[^d-f]", L"aabbccddaabb", "aabbcc", L"aabbcc", 1 },
+ { L"%[^a-c]", L"%l[^a-c]", L"aabbccddaabb", "", L"", 1 },
+ { L"%[^a-c]", L"%l[^a-c]", L"bbccddaabb", "", L"", 1 }
+ };
+
+
+static int
+do_test (const char *loc)
+{
+ size_t n;
+ int result = 0;
+
+ if (setlocale (LC_ALL, loc) == NULL)
+ {
+ printf ("cannot set locale \"%s\": %m\n", loc);
+ return 1;
+ }
+
+ printf ("\nnew locale: \"%s\"\n", loc);
+
+ for (n = 0; n < sizeof (tests) / sizeof (tests[0]); ++n)
+ {
+ char buf[100];
+ wchar_t wbuf[100];
+
+ if (tests[n].only_C_locale && strcmp (loc, "C") != 0)
+ continue;
+
+ if (swscanf (tests[n].arg, tests[n].fmt, buf) != 1)
+ {
+ printf ("swscanf (\"%S\", \"%S\", ...) failed\n",
+ tests[n].arg, tests[n].fmt);
+ result = 1;
+ }
+ else if (strcmp (buf, tests[n].res) != 0)
+ {
+ printf ("swscanf (\"%S\", \"%S\", ...) return \"%s\", expected \"%s\"\n",
+ tests[n].arg, tests[n].fmt, buf, tests[n].res);
+ result = 1;
+ }
+ else
+ printf ("swscanf (\"%S\", \"%S\", ...) OK\n",
+ tests[n].arg, tests[n].fmt);
+
+ if (swscanf (tests[n].arg, tests[n].wfmt, wbuf) != 1)
+ {
+ printf ("swscanf (\"%S\", \"%S\", ...) failed\n",
+ tests[n].arg, tests[n].wfmt);
+ result = 1;
+ }
+ else if (wcscmp (wbuf, tests[n].wres) != 0)
+ {
+ printf ("swscanf (\"%S\", \"%S\", ...) return \"%S\", expected \"%S\"\n",
+ tests[n].arg, tests[n].wfmt, wbuf, tests[n].wres);
+ result = 1;
+ }
+ else
+ printf ("swscanf (\"%S\", \"%S\", ...) OK\n",
+ tests[n].arg, tests[n].wfmt);
+ }
+
+ return result;
+}
be punished. */
tw = (wchar_t *) f; /* Marks the beginning. */
- if (*f == ']' || *f == '-')
+ if (*f == L']')
++f;
while ((fc = *f++) != L'\0' && fc != L']');
runp = tw;
while (runp < wp)
{
- if (runp[0] == L'-' && runp[1] != '\0' && runp[1] != ']'
+ if (runp[0] == L'-' && runp[1] != '\0' && runp + 1 != wp
&& runp != tw
&& (unsigned int) runp[-1] <= (unsigned int) runp[1])
{
first and last character of the sequence. */
wchar_t wc;
- for (wc = runp[-1] + 1; wc < runp[1]; ++wc)
+ for (wc = runp[-1] + 1; wc <= runp[1]; ++wc)
if (wc == c)
break;
- if (wc == runp[1] && !not_in)
+ if (wc <= runp[1] && !not_in)
break;
- if (wc == runp[1] && not_in)
+ if (wc <= runp[1] && not_in)
{
/* The current character is not in the
scanset. */
ungetwc (c, s);
goto out;
}
+
+ runp += 2;
}
else
{
- if (*runp == runp[1] && !not_in)
+ if (*runp == c && !not_in)
break;
- if (*runp != runp[1] && not_in)
+ if (*runp == c && not_in)
{
- ungetwc (c ,s);
+ ungetwc (c, s);
goto out;
}
+
+ ++runp;
}
+ }
- ++runp;
+ if (runp == wp && !not_in)
+ {
+ ungetwc (c, s);
+ goto out;
}
if (!(flags & SUPPRESS))
runp = tw;
while (runp < wp)
{
- if (runp[0] == L'-' && runp[1] != '\0' && runp[1] != ']'
+ if (runp[0] == L'-' && runp[1] != '\0' && runp + 1 != wp
&& runp != tw
&& (unsigned int) runp[-1] <= (unsigned int) runp[1])
{
first and last character of the sequence. */
wchar_t wc;
- for (wc = runp[-1] + 1; wc < runp[1]; ++wc)
+ for (wc = runp[-1] + 1; wc <= runp[1]; ++wc)
if (wc == c)
break;
- if (wc == runp[1] && !not_in)
+ if (wc <= runp[1] && !not_in)
break;
- if (wc == runp[1] && not_in)
+ if (wc <= runp[1] && not_in)
{
/* The current character is not in the
scanset. */
ungetwc (c, s);
goto out2;
}
+
+ runp += 2;
}
else
{
- if (*runp == runp[1] && !not_in)
+ if (*runp == c && !not_in)
break;
- if (*runp != runp[1] && not_in)
+ if (*runp == c && not_in)
{
- ungetwc (c ,s);
+ ungetwc (c, s);
goto out2;
}
+
+ ++runp;
}
+ }
- ++runp;
+ if (runp == wp && !not_in)
+ {
+ ungetwc (c, s);
+ goto out2;
}
if (!(flags & SUPPRESS))