Lines Matching refs:current
53 * int current;
56 * If the first character can be read successfully, then current is set
57 * to the value of the first character, cp is set to *ppc, (char)current
59 * read successfully, then current = EOF and nread = 0.
65 * current = <next character>;
66 * if (current != EOF) {
67 * *++cp = (char)current;
71 * current = EOF;
77 * current == EOF if and only if we can't read any more, either because
116 * condition (current == decpt) will correctly detect it.
134 while (isspace(current)) {
148 if (current == EOF) {
159 if (current == '+') {
161 } else if (current == '-') {
170 if ('1' <= current && current <= '9') {
175 pd->ds[ids++] = (char)current;
178 switch (current) {
200 if (current == 'X' || current == 'x') {
209 if (NZDIGIT(current)) {
213 pd->ds[ids++] = (char)current;
216 } else if (current == decpt) {
219 } else if (current != '0') {
233 while (current == '0' || (current == ' ' &&
238 if (current == EOF) {
252 UCASE(current) == infstring[agree]) {
263 good = (current == EOF)? cp + 3 - agree :
267 good = (current == EOF)? cp : cp - 1;
276 while (current == ' ') {
279 good = (current == EOF)? cp : cp - 1;
289 UCASE(current) == nanstring[agree]) {
296 good = (current == EOF)? cp : cp - 1;
301 if (current == '(') {
305 while ((isalnum(current) ||
306 current == '_') &&
308 pd->ds[ids++] = (char)current;
311 while (isalnum(current) ||
312 current == '_') {
317 while (current > 0 && current != ')' &&
319 pd->ds[ids++] = (char)current;
322 while (current > 0 && current != ')') {
327 if (current != ')')
338 while (current == ' ') {
341 good = (current == EOF)? cp : cp - 1;
346 if (current == decpt) {
366 if (NZDIGIT(current)) {
376 pd->ds[ids++] = (char)current;
398 nfast < nfastlimit && NZDIGIT(current);
400 *pfast++ = (char)current;
404 if (current == '0')
407 good = (current == EOF)? cp : cp - 1;
410 switch (current) {
415 while (current == ' ') {
418 good = (current == EOF)? cp : cp - 1;
434 while (current == '0' || (current == ' ' &&
439 good = (current == EOF)? cp : cp - 1;
469 if (current == decpt) {
487 if (NZDIGIT(current)) {
498 pd->ds[ids++] = (char)current;
505 pd->ds[ids++] = (char)current;
528 nfast < nfastlimit && NZDIGIT(current);
530 *pfast++ = (char)current;
535 if (current == '0')
538 good = (current == EOF)? cp : cp - 1;
541 switch (current) {
554 while (current == ' ') {
557 good = (current == EOF)? cp : cp - 1;
583 while (current == '0' || (current == ' ' &&
588 if (current == EOF) {
635 if (current != '+' && current != '-') {
638 if (fortran_conventions >= 2 && current == ' ') {
639 while (current == ' ') {
643 good = (current == EOF)? cp : cp - 1;
651 if (current == '+') {
653 } else if (current == '-') {
666 while (('0' <= current && current <= '9') || current == ' ') {
667 if (current == ' ') {
674 current = '0';
678 e = 10 * e + current - '0';
680 if (fortran_conventions == 2 && current == ' ') {
682 while (current == ' ') {
685 good = (current == EOF)? cp : cp - 1;