toupper.gml

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

.func toupper _toupper towupper _utoupper
.funcw towupper
#include <ctype.h>
int toupper( int c );
.ixfunc2 '&CharTest' &func
.ixfunc2 '&Conversion' &func
int _toupper( int c );
.ixfunc2 '&CharTest' &_func
.ixfunc2 '&Conversion' &_func
.if &'length(&wfunc.) ne 0 .do begin
#include <wctype.h>
wint_t towupper( wint_t c );
.ixfunc2 '&CharTest' &wfunc
.ixfunc2 '&Conversion' &wfunc
.ixfunc2 '&Wide' &wfunc
.do end
.if &'length(&ufunc.) ne 0 .do begin
int _utoupper( int c );
.ixfunc2 '&CharTest' &ufunc
.ixfunc2 '&Conversion' &ufunc
.do end
.funcend
.desc begin
The &func function converts
.arg c
to a uppercase letter if
.arg c
represents a lowercase letter.
.np
The &_func function is a version of &func to be used only when
.arg c
is known to be lowercase.
.if &'length(&wfunc.) ne 0 .do begin
.np
The &wfunc function is similar to &func except that it accepts a
wide-character argument.
.do end
.if &'length(&ufunc.) ne 0 .do begin
.np
The &ufunc Unicode function is identical to &func except that it
accepts a Unicode character argument.
.do end
.desc end
.return begin
The &func function returns the corresponding uppercase letter when the
argument is a lowercase letter; otherwise, the original character is
returned.
.if &'length(&wfunc.) ne 0 .do begin
The &wfunc function returns the corresponding wide-character uppercase
letter when the argument is a wide-character lowercase letter;
otherwise, the original wide character is returned.
.do end
.np
The result of &_func is undefined if
.arg c
is not a lowercase letter.
.return end
.see begin
.im seeis &function.
.seelist &function. strlwr strupr tolower toupper
.see end
.exmp begin
#include <stdio.h>
#include <ctype.h>

char chars[] = {
    'a',
    '5',
    '$',
    'z'
};
.exmp break
#define SIZE sizeof( chars ) / sizeof( char )
.exmp break
void main()
{
    int   i;
.exmp break
    for( i = 0; i < SIZE; i++ ) {
        printf( "%c ", toupper( chars[ i ] ) );
    }
    printf( "\n" );
}
.exmp output
A 5 $ Z
.exmp end
.class ANSI
.system