isalnmka.gml

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

.func isalnmkana
#include <jctype.h>
int isalnmkana( int c );
.ixfunc2 '&CharTest' &func
.funcend
.desc begin
The &func function tests if the argument
.arg c
is a single-byte alphanumeric character ("a" to "z", "A" to "Z", or
"0" to "9") or single-byte Katakana non-punctuation character.
These are any characters for which the following expression is true:
.millust begin
isalnum(c) || iskmoji(c)
.millust end
.desc end
.return begin
The &func function returns zero if the argument is not a single-byte
alphanumeric character or single-byte Katakana non-punctuation
character;
otherwise, a non-zero value is returned.
.return end
.see begin
.im seejis &function.
.see end
.exmp begin
#include <stdio.h>
#include <jstring.h>
#include <jctype.h>

JMOJI chars[] = {
    'A',
    0x9941,
    0xA4,
    0xA6
};
.exmp break
#define SIZE sizeof( chars ) / sizeof( JMOJI )
.exmp break
void main()
  {
    int   i;
.exmp break
    for( i = 0; i < SIZE; i++ ) {
      printf( "Char is %sa single-byte alphanumeric\n"
              "\tor Katakana non-punctuation character\n",
            ( isalnmkana( chars[i] ) ) ? "" : "not " );
    }
  }
.exmp output
Char is a single-byte alphanumeric
        or Katakana non-punctuation character
Char is not a single-byte alphanumeric
        or Katakana non-punctuation character
Char is not a single-byte alphanumeric
        or Katakana non-punctuation character
Char is a single-byte alphanumeric
        or Katakana non-punctuation character
.exmp end
.class WATCOM
.system