Lines Matching refs:unit
166 unit{ExternalFileUnit::LookUpOrCreateAnonymous( in GetOrCreateUnit()
169 return unit; in GetOrCreateUnit()
184 ExternalFileUnit *unit{GetOrCreateUnit( in BeginExternalListIO() local
186 if (!unit) { in BeginExternalListIO()
189 if (!unit->isUnformatted.has_value()) { in BeginExternalListIO()
190 unit->isUnformatted = false; in BeginExternalListIO()
193 if (*unit->isUnformatted) { in BeginExternalListIO()
196 if (ChildIo * child{unit->GetChildIo()}) { in BeginExternalListIO()
208 if (iostat == IostatOk && unit->access == Access::Direct) { in BeginExternalListIO()
212 iostat = unit->SetDirection(DIR); in BeginExternalListIO()
215 return &unit->BeginIoStatement<STATE<DIR>>( in BeginExternalListIO()
216 std::forward<A>(xs)..., *unit, sourceFile, sourceLine); in BeginExternalListIO()
218 return &unit->BeginIoStatement<ErroneousIoStatementState>( in BeginExternalListIO()
219 iostat, unit, sourceFile, sourceLine); in BeginExternalListIO()
244 ExternalFileUnit *unit{GetOrCreateUnit( in BeginExternalFormattedIO() local
246 if (!unit) { in BeginExternalFormattedIO()
250 if (!unit->isUnformatted.has_value()) { in BeginExternalFormattedIO()
251 unit->isUnformatted = false; in BeginExternalFormattedIO()
253 if (*unit->isUnformatted) { in BeginExternalFormattedIO()
256 if (ChildIo * child{unit->GetChildIo()}) { in BeginExternalFormattedIO()
269 iostat = unit->SetDirection(DIR); in BeginExternalFormattedIO()
272 return &unit->BeginIoStatement<ExternalFormattedIoStatementState<DIR>>( in BeginExternalFormattedIO()
273 *unit, format, formatLength, sourceFile, sourceLine); in BeginExternalFormattedIO()
275 return &unit->BeginIoStatement<ErroneousIoStatementState>( in BeginExternalFormattedIO()
276 iostat, unit, sourceFile, sourceLine); in BeginExternalFormattedIO()
300 ExternalFileUnit *unit{GetOrCreateUnit( in BeginUnformattedIO() local
302 if (!unit) { in BeginUnformattedIO()
306 if (!unit->isUnformatted.has_value()) { in BeginUnformattedIO()
307 unit->isUnformatted = true; in BeginUnformattedIO()
309 if (!*unit->isUnformatted) { in BeginUnformattedIO()
312 if (ChildIo * child{unit->GetChildIo()}) { in BeginUnformattedIO()
325 iostat = unit->SetDirection(DIR); in BeginUnformattedIO()
329 unit->BeginIoStatement<ExternalUnformattedIoStatementState<DIR>>( in BeginUnformattedIO()
330 *unit, sourceFile, sourceLine)}; in BeginUnformattedIO()
332 if (unit->access == Access::Sequential) { in BeginUnformattedIO()
335 unit->recordLength.reset(); // in case of prior BACKSPACE in BeginUnformattedIO()
341 return &unit->BeginIoStatement<ErroneousIoStatementState>( in BeginUnformattedIO()
342 iostat, unit, sourceFile, sourceLine); in BeginUnformattedIO()
364 unit{ExternalFileUnit::LookUpOrCreate( in IONAME()
366 return &unit->BeginIoStatement<OpenStatementState>( in IONAME()
367 *unit, wasExtant, sourceFile, sourceLine); in IONAME()
376 ExternalFileUnit &unit{ in IONAME() local
378 return &unit.BeginIoStatement<OpenStatementState>( in IONAME()
379 unit, false /*was an existing file*/, sourceFile, sourceLine); in IONAME()
384 if (ExternalFileUnit * unit{ExternalFileUnit::LookUp(unitNumber)}) { in IONAME()
385 if (unit->Wait(id)) { in IONAME()
386 return &unit->BeginIoStatement<ExternalMiscIoStatementState>( in IONAME()
387 *unit, ExternalMiscIoStatementState::Wait, sourceFile, sourceLine); in IONAME()
389 return &unit->BeginIoStatement<ErroneousIoStatementState>( in IONAME()
390 IostatBadWaitId, unit, sourceFile, sourceLine); in IONAME()
405 if (ExternalFileUnit * unit{ExternalFileUnit::LookUpForClose(unitNumber)}) { in IONAME()
406 return &unit->BeginIoStatement<CloseStatementState>( in IONAME()
407 *unit, sourceFile, sourceLine); in IONAME()
417 if (ExternalFileUnit * unit{ExternalFileUnit::LookUp(unitNumber)}) { in IONAME()
418 return &unit->BeginIoStatement<ExternalMiscIoStatementState>( in IONAME()
419 *unit, ExternalMiscIoStatementState::Flush, sourceFile, sourceLine); in IONAME()
431 if (ExternalFileUnit * unit{ExternalFileUnit::LookUp(unitNumber)}) { in IONAME()
432 return &unit->BeginIoStatement<ExternalMiscIoStatementState>( in IONAME()
433 *unit, ExternalMiscIoStatementState::Backspace, sourceFile, sourceLine); in IONAME()
444 unit{GetOrCreateUnit(unitNumber, Direction::Output, std::nullopt, in IONAME()
446 return &unit->BeginIoStatement<ExternalMiscIoStatementState>( in IONAME()
447 *unit, ExternalMiscIoStatementState::Endfile, sourceFile, sourceLine); in IONAME()
458 unit{GetOrCreateUnit(unitNumber, Direction::Input, std::nullopt, in IONAME()
460 return &unit->BeginIoStatement<ExternalMiscIoStatementState>( in IONAME()
461 *unit, ExternalMiscIoStatementState::Rewind, sourceFile, sourceLine); in IONAME()
469 if (ExternalFileUnit * unit{ExternalFileUnit::LookUp(unitNumber)}) { in IONAME()
470 if (ChildIo * child{unit->GetChildIo()}) { in IONAME()
472 *unit, sourceFile, sourceLine); in IONAME()
474 return &unit->BeginIoStatement<InquireUnitState>( in IONAME()
475 *unit, sourceFile, sourceLine); in IONAME()
492 unit{ExternalFileUnit::LookUp( in IONAME()
495 return &unit->BeginIoStatement<InquireUnitState>( in IONAME()
496 *unit, sourceFile, sourceLine); in IONAME()
627 if (auto *unit{io.GetExternalFileUnit()}) { in IONAME() local
628 return unit->SetStreamPos(pos, handler); in IONAME()
638 if (auto *unit{io.GetExternalFileUnit()}) { in IONAME() local
639 unit->SetDirectRec(rec, handler); in IONAME()
762 if ((*action != Action::Write) != open->unit().mayRead() || in IONAME()
763 (*action != Action::Read) != open->unit().mayWrite()) { in IONAME()
781 open->unit().set_mayAsynchronous(isYes); in IONAME()
784 if (ext->unit().mayAsynchronous()) { in IONAME()
879 if (isUTF8 != open->unit().isUTF8) { in IONAME()
883 open->unit().isUTF8 = isUTF8; in IONAME()
964 open->unit().openRecl.value_or(0) != static_cast<std::int64_t>(n)) { in IONAME()
968 open->unit().openRecl = n; in IONAME()
1043 bool IONAME(GetNewUnit)(Cookie cookie, int &unit, int kind) { in IONAME()
1059 std::int64_t result{open->unit().unitNumber()}; in IONAME()
1060 if (!SetInteger(unit, kind, result)) { in IONAME()
1400 static enum Iostat CheckUnitNumberInRangeImpl(INT unit, bool handleError, in CheckUnitNumberInRangeImpl() argument
1406 if (unit != static_cast<ExternalUnit>(unit)) { in CheckUnitNumberInRangeImpl()
1418 if (static_cast<std::intmax_t>(unit) == unit) { in CheckUnitNumberInRangeImpl()
1420 "UNIT number %jd is out of range", static_cast<std::intmax_t>(unit)); in CheckUnitNumberInRangeImpl()
1432 enum Iostat IONAME(CheckUnitNumberInRange64)(std::int64_t unit, in IONAME()
1436 unit, handleError, ioMsg, ioMsgLength, sourceFile, sourceLine); in IONAME()
1440 enum Iostat IONAME(CheckUnitNumberInRange128)(common::int128_t unit, in IONAME()
1444 unit, handleError, ioMsg, ioMsgLength, sourceFile, sourceLine); in IONAME()