zcount:zchar — ordinary primitive
FORTH
ZCOUNT ( z* -- z* len )();p4:"zcount";
ZCOUNT ( z* -- z* len )(
)
push length of z-string, additionally to the string addr itself.
: ZSTRLEN ZCOUNT NIP ;
(see libc strlen(3)) / compare with COUNT / ZSTRLEN