From fe18d21be4bb5d92eb45b10a5fe37b2d908c706f Mon Sep 17 00:00:00 2001 From: "Arnold D. Robbins" Date: Mon, 24 Oct 2011 05:53:12 +0200 Subject: Additional VMS fixes. --- dfa.c | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) (limited to 'dfa.c') diff --git a/dfa.c b/dfa.c index 96bba214..789c6b91 100644 --- a/dfa.c +++ b/dfa.c @@ -79,7 +79,6 @@ #define iswalnum isalnum #define iswalpha isalpha #define iswupper isupper -#define wcscoll strcmp #endif /* ! MBS_SUPPORT */ #endif /* GAWK */ @@ -147,7 +146,19 @@ static int iswctype(wint_t wc, wctype_t desc) } } -static +static int wcscoll(const wchar_t *ws1, const wchar_t *ws2) +{ + size_t i; + + for (i = 0; ws1[i] != 0 && ws2[i] != 0; i++) { + if (ws1[i] < ws2[i]) + return -1; + else if (ws1[i] > ws2[i]) + return 1; + } + + return (ws1[i] - ws2[i]); +} #endif /* ! MBS_SUPPORT */ #endif /* GAWK */ -- cgit v1.2.3