14 namespace Fortran::runtime::io {  namespace
20 static bool EditBOZOutput(IoStatementState &io, const DataEdit &edit,  in EditBOZOutput()  argument
72     return io.EmitRepeated('*', editWidth);  in EditBOZOutput()
74   if (!(io.EmitRepeated(' ', leadingSpaces) &&  in EditBOZOutput()
75           io.EmitRepeated('0', leadingZeroes))) {  in EditBOZOutput()
82       if (!io.Emit(&ch, 1)) {  in EditBOZOutput()
100 bool EditIntegerOutput(IoStatementState &io, const DataEdit &edit,  in EditIntegerOutput()  argument
125         io, edit, reinterpret_cast<const unsigned char *>(&n), KIND);  in EditIntegerOutput()
128         io, edit, reinterpret_cast<const unsigned char *>(&n), KIND);  in EditIntegerOutput()
131         io, edit, reinterpret_cast<const unsigned char *>(&n), KIND);  in EditIntegerOutput()
134         io, edit, reinterpret_cast<char *>(&n), sizeof n);  in EditIntegerOutput()
136     io.GetIoErrorHandler().SignalError(IostatErrorInFormat,  in EditIntegerOutput()
160     return io.EmitRepeated('*', editWidth);  in EditIntegerOutput()
164     if (io.GetConnectionState().NeedAdvance(static_cast<std::size_t>(total)) &&  in EditIntegerOutput()
165         !io.AdvanceRecord()) {  in EditIntegerOutput()
170   return io.EmitRepeated(' ', leadingSpaces) &&  in EditIntegerOutput()
171       io.Emit(n < 0 ? "-" : "+", signChars) &&  in EditIntegerOutput()
172       io.EmitRepeated('0', leadingZeroes) && io.Emit(p, digits);  in EditIntegerOutput()
595 bool ListDirectedLogicalOutput(IoStatementState &io,  in ListDirectedLogicalOutput()  argument
597   return list.EmitLeadingSpaceOrAdvance(io) && io.Emit(truth ? "T" : "F", 1);  in ListDirectedLogicalOutput()
600 bool EditLogicalOutput(IoStatementState &io, const DataEdit &edit, bool truth) {  in EditLogicalOutput()  argument
604     return io.EmitRepeated(' ', std::max(0, edit.width.value_or(1) - 1)) &&  in EditLogicalOutput()
605         io.Emit(truth ? "T" : "F", 1);  in EditLogicalOutput()
607     return EditBOZOutput<1>(io, edit,  in EditLogicalOutput()
610     return EditBOZOutput<3>(io, edit,  in EditLogicalOutput()
613     return EditBOZOutput<4>(io, edit,  in EditLogicalOutput()
616     io.GetIoErrorHandler().SignalError(IostatErrorInFormat,  in EditLogicalOutput()
624 bool ListDirectedCharacterOutput(IoStatementState &io,  in ListDirectedCharacterOutput()  argument
628   MutableModes &modes{io.mutableModes()};  in ListDirectedCharacterOutput()
629   ConnectionState &connection{io.GetConnectionState()};  in ListDirectedCharacterOutput()
631     ok = ok && list.EmitLeadingSpaceOrAdvance(io);  in ListDirectedCharacterOutput()
636         ok = ok && io.AdvanceRecord();  in ListDirectedCharacterOutput()
638       ok = ok && io.EmitEncoded(&ch, 1);  in ListDirectedCharacterOutput()
659     ok = ok && list.EmitLeadingSpaceOrAdvance(io, length > 0 ? 1 : 0, true);  in ListDirectedCharacterOutput()
666         ok = io.EmitEncoded(x + put, chunk);  in ListDirectedCharacterOutput()
669         ok = io.AdvanceRecord() && io.Emit(" ", 1);  in ListDirectedCharacterOutput()
678 bool EditCharacterOutput(IoStatementState &io, const DataEdit &edit,  in EditCharacterOutput()  argument
691     return EditBOZOutput<1>(io, edit,  in EditCharacterOutput()
694     return EditBOZOutput<3>(io, edit,  in EditCharacterOutput()
697     return EditBOZOutput<4>(io, edit,  in EditCharacterOutput()
700     io.GetIoErrorHandler().SignalError(IostatErrorInFormat,  in EditCharacterOutput()
705   return io.EmitRepeated(' ', std::max(0, width - len)) &&  in EditCharacterOutput()
706       io.EmitEncoded(x, std::min(width, len));  in EditCharacterOutput()