getw.gml

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

.func _getw
#include <stdio.h>
int _getw( int binint, FILE *fp );
.ixfunc2 '&StrIo' &func
.funcend
.desc begin
The &func function reads a binary value of type
.us int
from the current position of the stream
.arg fp
and increments the associated file pointer to point to the next unread
character in the input stream.
&func does not assume any special alignment of items in the stream.
.np
&func is provided primarily for compatibility with previous libraries.
Portability problems may occur with &func because the size of an
.us int
and the ordering of bytes within an
.us int
differ across systems.
.desc end
.return begin
The &func function returns the integer value read or, if a read error
or end-of-file occurs, the error indicator is set and &func returns
.kw EOF.
Since
.kw EOF
is a legitimate value to read from
.arg fp,
use
.kw ferror
to verify that an error has occurred.
.return end
.see begin
.seelist &function. ferror fgetc fgetchar fgets fopen
.seelist &function. getc getchar gets _putw ungetc
.see end
.exmp begin
#include <stdio.h>

void main()
  {
    FILE *fp;
    int c;
.exmp break
    fp = fopen( "file", "r" );
    if( fp != NULL ) {
      while( (c = _getw( fp )) != EOF )
          _putw( c, stdout );
      fclose( fp );
    }
  }
.exmp end
.class WATCOM
.system