jstrnicm.gml

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

.func jstrnicmp _fjstrnicmp
#include <jstring.h>
int jstrnicmp( const JCHAR *s1,
               const JCHAR *s2,
               size_t len );
.ixfunc2 '&Jstring' &func
.ixfunc2 '&Jcompare' &func
.if &farfnc eq 1 .do begin
int __far _fjstrnicmp( const JCHAR __far *s1,
                       const JCHAR __far *s2,
                       size_t len );
.ixfunc2 '&Jstring' &ffunc
.ixfunc2 '&Jcompare' &ffunc
.do end
.funcend
.desc begin
.if &farfnc eq 0 .do begin
The &func function compares,
.do end
.el .do begin
The &func and &ffunc functions compare,
.do end
without case sensitivity, the Kanji string pointed to by
.arg s1
to the Kanji string pointed to by
.arg s2,
for at most
.arg len
characters.
All ASCII characters are less than any 1-byte Katakana chracters.
All 1-byte Katakana charaters are less than any 2-byte Kanji
characters.
.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
an integer less than, equal to, or greater than zero, indicating that
the Kanji string pointed to by
.arg s1
is less than, equal to, or greater than the Kanji string pointed to by
.arg s2.
.return end
.see begin
.seelist jstrnicmp jstrcmp jstricmp jstrncmp strnicmp strcmp stricmp strncmp
.see end
.exmp begin
#include <stdio.h>
#include <jstring.h>

void main()
  {
    printf( "%d\n", jstrnicmp( "abcdef", "ABCXXX", 10 ) );
    printf( "%d\n", jstrnicmp( "abcdef", "ABCXXX",  6 ) );
    printf( "%d\n", jstrnicmp( "abcdef", "ABCXXX",  3 ) );
    printf( "%d\n", jstrnicmp( "abcdef", "ABCXXX",  0 ) );
  }
.exmp output
-20
-20
0
0
.exmp end
.class WATCOM
.system