streln_s.gml

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

.func strerrorlen_s wcserrorlen_s
#define __STDC_WANT_LIB_EXT1__  1
#include <string.h>
size_t strerrorlen_s( errno_t errnum );
.ixfunc2 '&String' &func
.if &'length(&wfunc.) ne 0 .do begin
#include <wchar.h>
size_t wcserrorlen_s( errno errnum );
.ixfunc2 '&String' &wfunc
.ixfunc2 '&Wide' &wfunc
.do end
.funcend
.*
.rtconst none
.*
.desc begin
The &func function calculates the length of the (untruncated) locale-specific
message string that the
.kw strerror_s
function maps to
.arg errnum.

.im widefunc
.desc end
.*
.return begin
The &func function returns the number of characters (not including the
null character) in the full message string.
.return end
.*
.see begin
.seelist &function. strerror strerror_s
.see end
.*
.exmp begin
#define __STDC_WANT_LIB_EXT1__  1
#include <stdio.h>
#include <string.h>
#include <errno.h>

void main( void )
{
    FILE    *fp;
    char    emsg[ 100 ];
    size_t  emsglen;
.exmp break
    fp = fopen( "file.nam", "r" );
    if( fp == NULL ) {
        emsglen = strerrorlen_s( errno );
        printf( "Length of errormessage: %d\n", emsglen );
        strerror_s( emsg, sizeof( emsg ), errno );
        printf( "Unable to open file: %s\n", emsg );
    }
}
.exmp end
.*
.class TR 24731
.system