| /* Copyright (C) 1991-2016 Free Software Foundation, Inc. | 
 |    This file is part of the GNU C Library. | 
 |  | 
 |    The GNU C Library 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 2.1 of the License, or (at your option) any later version. | 
 |  | 
 |    The GNU C Library 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 the GNU C Library; if not, see | 
 |    <http://www.gnu.org/licenses/>.  */ | 
 |  | 
 | #include <stdlib.h> | 
 | #include <string.h> | 
 | #include <wchar.h> | 
 | #include <gconv.h> | 
 | #include <wcsmbs/wcsmbsload.h> | 
 |  | 
 |  | 
 | /* Internal state.  */ | 
 | static mbstate_t state; | 
 |  | 
 | /* Return the length of the multibyte character (if there is one) | 
 |    at S which is no longer than N characters. | 
 |    The ISO C standard says that the `mblen' function must not change | 
 |    the state of the `mbtowc' function.  */ | 
 | int | 
 | mblen (const char *s, size_t n) | 
 | { | 
 |   int result; | 
 |  | 
 |   /* If S is NULL the function has to return null or not null | 
 |      depending on the encoding having a state depending encoding or | 
 |      not.  */ | 
 |   if (s == NULL) | 
 |     { | 
 |       const struct gconv_fcts *fcts; | 
 |  | 
 |       /* Get the conversion functions.  */ | 
 |       fcts = get_gconv_fcts (_NL_CURRENT_DATA (LC_CTYPE)); | 
 |  | 
 |       /* Reset the state.  */ | 
 |       memset (&state, '\0', sizeof state); | 
 |  | 
 |       result = fcts->towc->__stateful; | 
 |     } | 
 |   else if (*s == '\0') | 
 |     /* According to the ISO C 89 standard this is the expected behaviour.  */ | 
 |     result = 0; | 
 |   else | 
 |     { | 
 |       memset (&state, '\0', sizeof state); | 
 |  | 
 |       result = __mbrtowc (NULL, s, n, &state); | 
 |  | 
 |       /* The `mbrtowc' functions tell us more than we need.  Fold the -1 | 
 | 	 and -2 result into -1.  */ | 
 |       if (result < 0) | 
 | 	result = -1; | 
 |     } | 
 |  | 
 |   return result; | 
 | } |