jstrlen.gml

来自「开放源码的编译器open watcom 1.6.0版的源代码」· GML 代码 · 共 51 行

.func jstrlen _fjstrlen
#include <jstring.h>
size_t jstrlen( const JCHAR *s );
.ixfunc2 '&Jstring' &func
.if &farfnc eq 1 .do begin
size_t __far _fjstrlen( const JCHAR __far *s );
.ixfunc2 '&Jstring' &ffunc
.do end
.funcend
.desc begin
.if &farfnc eq 0 .do begin
The &func function computes
.do end
.el .do begin
The &func and &ffunc functions compute
.do end
the number of characters in the Kanji string pointed to by
.arg s.
A double-byte character is treated as one character.
.im ffarparm
.desc end
.return begin
.if &farfnc eq 0 .do begin
The &func function returns
.do end
.el .do begin
The &func and &ffunc functions return
.do end
the number of characters that precede the terminating null character.
.return end
.see begin
.seelist jstrlen strlen
.see end
.exmp begin
#include <stdio.h>
#include <jstring.h>

void main()
  {
    printf( "%d\n", jstrlen( "Howdy" ) );
    printf( "%d\n", jstrlen( "Hello world\n" ) );
    printf( "%d\n", jstrlen( "" ) );
  }
.exmp output
5
12
0
.exmp end
.class WATCOM
.system