intstar4 __fortran SETSYSHANDLE( intstar4 *unit, intstar2 *handle ) {
//========================================================================
ftnfile *fcb;
struct stat stat_buff;
fcb = Files;
for(;;) {
if( fcb == NULL ) return( -1 );
if( *unit == fcb->unitid ) {
if( fstat( *handle, &stat_buff ) == -1 ) {
return( -1 );
}
if( fcb->fileptr != NULL ) {
Closef( fcb->fileptr );
if( Errorf( NULL ) != IO_OK ) {
return( -1 );
}
}
fcb->fileptr = _AllocFile( *handle, _FileAttrs( fcb ), 0 );
if( fcb->fileptr == NULL ) {
return( -1 );
} else {
_AllocBuffer( fcb );
return( 0 );
}
}
fcb = fcb->link;
}
}
void IOPrologue( void ) {
//====================
ftnfile *fcb;
byte form;
byte accm;
IOCB->typ = PT_NOT_STARTED;
if( IOCB->flags & BAD_REC ) {
IOErr( IO_IREC );
}
if( IOCB->set_flags & SET_INTERNAL ) {
F_Connect();
} else {
ChkUnitId();
FindFtnFile();
if( IOCB->fileinfo == NULL ) {
IOCB->set_flags &= ~SET_FILENAME;
ConnectFile();
}
}
fcb = IOCB->fileinfo;
if( fcb->action == ACT_DEFAULT ) {
fcb->action = ACTION_RW;
}
ChkIOOperation( fcb );
if( fcb->cctrl == CC_DEFAULT ) {
fcb->cctrl = CC_NO;
}
accm = fcb->accmode;
if( accm == ACCM_DEFAULT ) {
if( IOCB->set_flags & SET_RECORDNUM ) {
accm = ACCM_DIRECT;
} else {
accm = ACCM_SEQUENTIAL;
}
fcb->accmode = accm;
} else {
if( ( accm == ACCM_DIRECT ) && (IOCB->set_flags & SET_RECORDNUM) == 0 ) {
IOErr( IO_REC1_ACCM );
} else if( ( ( accm == ACCM_SEQUENTIAL ) || ( accm == ACCM_APPEND ) ) &&
(IOCB->set_flags & SET_RECORDNUM) ) {
IOErr( IO_REC2_ACCM );
}
}
if( accm == ACCM_DIRECT ) {
fcb->recnum = IOCB->recordnum; // set up recordnumber
}
form = fcb->formatted;
if( form == 0 ) { // set up format if it was
if( (IOCB->flags & IOF_NOFMT) == 0 ) { // not previously set
form = FORMATTED_IO;
} else {
form = UNFORMATTED_IO;
}
fcb->formatted = form;
} else {
if( (form == FORMATTED_IO) && (IOCB->flags & IOF_NOFMT) ) {
IOErr( IO_AF1 );
} else if( (form == UNFORMATTED_IO) && (IOCB->flags & IOF_NOFMT) == 0 ) {
IOErr( IO_AF2 );
}
}
if( fcb->internal != NULL ) {
fcb->bufflen = fcb->internal->len;
fcb->buffer = RChkAlloc( fcb->bufflen );
} else {
if( ( accm <= ACCM_SEQUENTIAL ) &&
( fcb->eofrecnum != 0 ) &&
( fcb->recnum >= fcb->eofrecnum ) &&
// Consider: READ( 1, *, END=10 )
// ...
// 10 WRITE( 1, * ) 'write after EOF'
// if an EOF condition was encounterd, we don't want IO_PAST_EOF
// on the write
(IOCB->flags & IOF_OUTPT) == 0 ) {
if( fcb->recnum != fcb->eofrecnum ) {
IOErr( IO_PAST_EOF );
} else {
fcb->recnum++;
SysEOF();
}
}
_AllocBuffer( fcb );
if( fcb->fileptr == NULL ) {
DoOpen();
}
if( fcb->accmode == ACCM_DIRECT ) {
SeekFile( fcb );
ChkIOErr( fcb );
}
fcb->col = 0;
}
if( (IOCB->flags & IOF_OUTPT) && ( fcb->col == 0 ) ) {
memset( fcb->buffer, ' ', fcb->bufflen );
}
}
