1 /* ISC license. */
2 
3 #include <skalibs/bytestr.h>
4 
case_upperb(char * s,size_t len)5 void case_upperb (char *s, size_t len)
6 {
7   unsigned char const d = 'a' - 'A' ;
8   while (len--)
9   {
10     if (('a' <= *s) && (*s <= 'z')) *s -= d ;
11     ++s ;
12   }
13 }
14