Lines Matching refs:current
132 while (isspace(current)) {
146 if (current == EOF) {
157 if (current == '+') {
159 } else if (current == '-') {
168 if ('1' <= current && current <= '9') {
173 pd->ds[ids++] = (char)current;
176 switch (current) {
198 if (current == 'X' || current == 'x') {
207 if (NZDIGIT(current)) {
211 pd->ds[ids++] = (char)current;
214 } else if (current == decpt) {
217 } else if (current != '0') {
231 while (current == '0' || (current == ' ' &&
236 if (current == EOF) {
250 UCASE(current) == infstring[agree]) {
261 good = (current == EOF)? cp + 3 - agree :
265 good = (current == EOF)? cp : cp - 1;
274 while (current == ' ') {
277 good = (current == EOF)? cp : cp - 1;
287 UCASE(current) == nanstring[agree]) {
294 good = (current == EOF)? cp : cp - 1;
299 if (current == '(') {
303 while ((isalnum(current) ||
304 current == '_') &&
306 pd->ds[ids++] = (char)current;
309 while (isalnum(current) ||
310 current == '_') {
315 while (current > 0 && current != ')' &&
317 pd->ds[ids++] = (char)current;
320 while (current > 0 && current != ')') {
325 if (current != ')')
336 while (current == ' ') {
339 good = (current == EOF)? cp : cp - 1;
344 if (current == decpt) {
364 if (NZDIGIT(current)) {
374 pd->ds[ids++] = (char)current;
396 nfast < nfastlimit && NZDIGIT(current);
398 *pfast++ = (char)current;
402 if (current == '0')
405 good = (current == EOF)? cp : cp - 1;
408 switch (current) {
413 while (current == ' ') {
416 good = (current == EOF)? cp : cp - 1;
432 while (current == '0' || (current == ' ' &&
437 good = (current == EOF)? cp : cp - 1;
467 if (current == decpt) {
485 if (NZDIGIT(current)) {
496 pd->ds[ids++] = (char)current;
503 pd->ds[ids++] = (char)current;
526 nfast < nfastlimit && NZDIGIT(current);
528 *pfast++ = (char)current;
533 if (current == '0')
536 good = (current == EOF)? cp : cp - 1;
539 switch (current) {
552 while (current == ' ') {
555 good = (current == EOF)? cp : cp - 1;
581 while (current == '0' || (current == ' ' &&
586 if (current == EOF) {
633 if (current != '+' && current != '-') {
636 if (fortran_conventions >= 2 && current == ' ') {
637 while (current == ' ') {
641 good = (current == EOF)? cp : cp - 1;
649 if (current == '+') {
651 } else if (current == '-') {
664 while (('0' <= current && current <= '9') || current == ' ') {
665 if (current == ' ') {
672 current = '0';
676 e = 10 * e + current - '0';
678 if (fortran_conventions == 2 && current == ' ') {
680 while (current == ' ') {
683 good = (current == EOF)? cp : cp - 1;