unigbrk: New modules for grapheme clusters.
[gnulib.git] / lib / unigbrk / u32-grapheme-len.c
1 /* Grapheme cluster length function.
2    Copyright (C) 2010 Free Software Foundation, Inc.
3    Written by Ben Pfaff <blp@cs.stanford.edu>, 2010.
4
5    This program is free software: you can redistribute it and/or modify it
6    under the terms of the GNU Lesser General Public License as published
7    by the Free Software Foundation; either version 3 of the License, or
8    (at your option) any later version.
9
10    This program is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Lesser General Public License for more details.
14
15    You should have received a copy of the GNU Lesser General Public License
16    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
17
18 #include <config.h>
19
20 /* Specification.  */
21 #include "unigbrk.h"
22
23 #include "unistr.h"
24
25 size_t
26 u32_grapheme_len (const uint32_t *s, size_t n)
27 {
28   ucs4_t prev;
29   size_t ofs;
30
31   if (n == 0)
32     return 0;
33
34   u32_mbtouc (&prev, s, n);
35   for (ofs = 1; ofs < n; ofs++)
36     {
37       ucs4_t next;
38
39       u32_mbtouc (&next, s + ofs, n - ofs);
40       if (uc_is_grapheme_cluster_break (prev, next))
41         break;
42
43       prev = next;
44     }
45
46   return ofs;
47 }