shithub: femtolisp

ref: 40794e7a0a6c15a51ba7a781374fc0de9b529ec6
dir: /3rd/utf/utfnlen.c/

View raw version 
#include "platform.h"

int
utfnlen(const char *s, long m)
{
	int c;
	long n;
	Rune rune;
	const char *es;

	es = s + m;
	for(n = 0; s < es; n++) {
		c = *(uchar*)s;
		if(c < Runeself){
			if(c == '\0')
				break;
			s++;
			continue;
		}
		if(!fullrune(s, es-s))
			break;
		s += chartorune(&rune, s);
	}
	return n;
}