jstrspn.gml

开放源码的编译器open watcom 1.6.0版的源代码

.func jstrspn _fjstrspn
#include <jstring.h>
size_t jstrspn( const JCHAR *str, const JCHAR *charset );
.ixfunc2 '&Jstring' &func
.ixfunc2 '&Jsearch' &func
.if &farfnc eq 1 .do begin
size_t __far _fjstrspn( const JCHAR __far *str,
                        const JCHAR __far *charset );
.ixfunc2 '&Jstring' &ffunc
.ixfunc2 '&Jsearch' &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 length of the initial segment of the Kanji string pointed to by
.arg str
which consists of single- and double-byte characters from the Kanji
string pointed to by
.arg charset.
The terminating null character is not considered to be part of
.arg charset.
.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 length of the segment.
.return end
.see begin
.seelist jstrspn jstrcspn strspn strcspn
.see end
.exmp begin
#include <stdio.h>
#include <jstring.h>

void main()
  {
    printf( "%d\n", jstrspn( "out to lunch", "aeiou" ) );
    printf( "%d\n", jstrspn( "out to lunch", "xyz" ) );
  }
.exmp output
2
0
.exmp end
.class WATCOM
.system