Lines Matching defs:next
23 // doesn't contain unparsed characters before the next value separator.
67 Fortran::common::optional<char32_t> next{io.NextInField(remaining, edit)};
68 if (next.value_or('?') == '0') {
71 next = io.NextInField(remaining, edit);
72 } while (next && *next == '0');
78 for (; next; next = io.NextInField(remaining, edit)) {
79 char32_t ch{*next};
171 const DataEdit &edit, Fortran::common::optional<char32_t> &next,
174 next = io.NextInField(remaining, edit);
176 if (next) {
177 if (*next == '-' || *next == '+') {
178 sign = *next;
182 next = io.NextInField(remaining, edit);
215 Fortran::common::optional<char32_t> next;
216 char sign{ScanNumericPrefix(io, edit, next, remaining)};
226 for (; next; next = io.NextInField(remaining, edit)) {
227 char32_t ch{*next};
246 while ((next = io.NextInField(remaining, edit))) {
247 if (*next < '0' || *next > '9') {
251 if (!next || *next == comma) {
320 Fortran::common::optional<char32_t> next;
331 char sign{ScanNumericPrefix(io, edit, next, remaining)};
337 if (!next || (!bzMode && *next == ' ') ||
338 (!(edit.modes.editingFlags & decimalComma) && *next == ',')) {
349 char32_t first{*next >= 'a' && *next <= 'z' ? *next + 'A' - 'a' : *next};
354 for (; next &&
355 ((*next >= 'a' && *next <= 'z') || (*next >= 'A' && *next <= 'Z'));
356 next = io.NextInField(remaining, edit)) {
357 if (*next >= 'a' && *next <= 'z') {
358 Put(*next - 'a' + 'A');
360 Put(*next);
363 if (next && *next == '(') { // NaN(...)
367 next = io.NextInField(remaining, edit);
370 } else if (!next) {
372 } else if (*next == '(') {
374 } else if (*next == ')') {
377 Put(*next);
384 next = io.NextInField(remaining, edit);
385 if (next && (*next == 'x' || *next == 'X')) { // 0X...
387 next = io.NextInField(remaining, edit);
397 for (; next; next = io.NextInField(remaining, edit)) {
398 char32_t ch{*next};
430 auto nextBeforeExponent{next};
433 if (next) {
435 if (*next == 'p' || *next == 'P') {
436 next = io.NextInField(remaining, edit);
441 } else if (*next == 'e' || *next == 'E' || *next == 'd' || *next == 'D' ||
442 *next == 'q' || *next == 'Q') {
446 next = io.NextInField(remaining, edit);
449 if (next &&
450 (*next == '-' || *next == '+' || (*next >= '0' && *next <= '9') ||
451 *next == ' ' || *next == '\t')) {
452 bool negExpo{*next == '-'};
453 if (negExpo || *next == '+') {
454 next = io.NextInField(remaining, edit);
456 for (; next; next = io.NextInField(remaining, edit)) {
457 if (*next >= '0' && *next <= '9') {
460 exponent = 10 * exponent + *next - '0';
462 } else if (*next == ' ' || *next == '\t') {
482 next = nextBeforeExponent;
505 if (next && (*next == ' ' || *next == '\t')) {
507 next = io.NextInField(remaining, edit);
509 if (!next) { // NextInField fails on separators like ')'
511 next = io.GetCurrentChar(byteCount);
512 if (next && *next == ')') {
517 while (next && (*next == ' ' || *next == '\t')) {
518 next = io.NextInField(remaining, edit);
520 if (next && (*next != ',' || (edit.modes.editingFlags & decimalComma))) {
912 Fortran::common::optional<char32_t> next{io.NextInField(remaining, edit)};
913 if (next && *next == '.') { // skip optional period
914 next = io.NextInField(remaining, edit);
916 if (!next) {
920 switch (*next) {
931 "Bad character '%lc' in LOGICAL input field", *next);
961 auto next{io.GetCurrentChar(byteCount)};
962 if (next && *next == delimiter) {