scc

 1#include <wchar.h>
 2
 3#undef wcslen
 4
 5size_t
 6wcslen(const wchar_t *ws)
 7{
 8	const wchar_t *p;
 9
10	for (p = ws; *p != L'\0'; p++)
11		;
12	return p - ws;
13}