Lines Matching defs:unit

1 //===-- runtime/external-unit.cpp -----------------------------------------===//
16 #include "unit-map.h"
17 #include "unit.h"
29 // The per-unit data structures are created on demand so that Fortran I/O
50 ExternalFileUnit *ExternalFileUnit::LookUp(int unit) {
51   return GetUnitMap().LookUp(unit);
55     int unit, const Terminator &terminator, bool &wasExtant) {
56   return GetUnitMap().LookUpOrCreate(unit, terminator, wasExtant);
59 ExternalFileUnit *ExternalFileUnit::LookUpOrCreateAnonymous(int unit,
62   // Make sure that the returned anonymous unit has been opened,
66   ExternalFileUnit *result{GetUnitMap().LookUpOrCreate(unit, handler, exists)};
93     int unit, const Terminator &terminator) {
96       GetUnitMap().LookUpOrCreate(unit, terminator, wasExtant)};
101 ExternalFileUnit *ExternalFileUnit::LookUpForClose(int unit) {
102   return GetUnitMap().LookUpForClose(unit);
107   ExternalFileUnit &unit{GetUnitMap().NewUnit(terminator)};
108   unit.createdForInternalChildIo_ = forChildIo;
109   return unit;
127       handler.SignalError("OPEN statement for connected unit may not have "
132       // OPEN of existing unit, STATUS='OLD' or unspecified, not new FILE=
136     // Otherwise, OPEN on open unit with new FILE= implies CLOSE
147           "OPEN(UNIT=%d,FILE='%.*s'): file is already connected to unit %d",
201   // I/O to an unconnected unit reads/creates a local file, e.g. fort.7