Return to rsne.c CVS log

Up to [Research Unix] / researchv10dc / libI77 / d

Annotation of researchv10dc/libI77/d/rsne.c, revision 1.1.1.1

1.1       root        1: 179c179
                      2: <              err(f__elist->cierr, ch, "namelist read");
                      3: ---
                      4: >              errfl(f__elist->cierr, ch, "namelist read");
                      5: 261a262,287
                      6: > #ifndef No_Namelist_Questions
                      7: >  static Void
                      8: > #ifdef KR_headers
                      9: > print_ne(a) cilist *a;
                     10: > #else
                     11: > print_ne(cilist *a)
                     12: > #endif
                     13: > {
                     14: >      flag intext = f__external;
                     15: >      int rpsave = f__recpos;
                     16: >      FILE *cfsave = f__cf;
                     17: >      unit *usave = f__curunit;
                     18: >      cilist t;
                     19: >      t = *a;
                     20: >      t.ciunit = 6;
                     21: >      s_wsne(&t);
                     22: >      fflush(f__cf);
                     23: >      f__external = intext;
                     24: >      f__reading = 1;
                     25: >      f__recpos = rpsave;
                     26: >      f__cf = cfsave;
                     27: >      f__curunit = usave;
                     28: >      f__elist = a;
                     29: >      }
                     30: > #endif
                     31: > 
                     32: 270c296
                     33: <      int ch, got1, k, n, nd;
                     34: ---
                     35: >      int ch, got1, k, n, nd, quote;
                     36: 288a315
                     37: >  top:
                     38: 294a322,326
                     39: > #ifndef No_Namelist_Questions
                     40: >              case '?':
                     41: >                      print_ne(a);
                     42: >                      continue;
                     43: > #endif
                     44: 298c330
                     45: <                      err(a->cierr, 115, where0);
                     46: ---
                     47: >                      errfl(a->cierr, 115, where0);
                     48: 305c337,370
                     49: <              err(a->cierr, 118, where0);
                     50: ---
                     51: > #ifdef No_Bad_Namelist_Skip
                     52: >              errfl(a->cierr, 118, where0);
                     53: > #else
                     54: >      {
                     55: >              fprintf(stderr,
                     56: >                      "Skipping namelist \"%s\": seeking namelist \"%s\".\n",
                     57: >                      buf, nl->name);
                     58: >              fflush(stderr);
                     59: >              for(;;) switch(GETC(ch)) {
                     60: >                      case EOF:
                     61: >                              err(a->ciend, EOF, where0);
                     62: >                      case '/':
                     63: >                      case '&':
                     64: >                      case '$':
                     65: >                              if (f__external)
                     66: >                                      e_rsle();
                     67: >                              else
                     68: >                                      z_rnew();
                     69: >                              goto top;
                     70: >                      case '"':
                     71: >                      case '\'':
                     72: >                              quote = ch;
                     73: >  more_quoted:
                     74: >                              while(GETC(ch) != quote)
                     75: >                                      if (ch == EOF)
                     76: >                                              err(a->ciend, EOF, where0);
                     77: >                              if (GETC(ch) == quote)
                     78: >                                      goto more_quoted;
                     79: >                              Ungetc(ch,f__cf);
                     80: >                      default:
                     81: >                              continue;
                     82: >                      }
                     83: >              }
                     84: > #endif
                     85: 308c373
                     86: <              err(f__elist->cierr, 113, where0);
                     87: ---
                     88: >              errfl(f__elist->cierr, 113, where0);
                     89: 314c379
                     90: <                              err(a->ciend,(EOF),where0);
                     91: ---
                     92: >                              err(a->ciend, EOF, where0);
                     93: 330c395
                     94: <                      err(a->cierr, 119, where);
                     95: ---
                     96: >                      errfl(a->cierr, 119, where);
                     97: 346c411
                     98: <                                      err(a->cierr, 122, where);
                     99: ---
                    100: >                                      errfl(a->cierr, 122, where);
                    101: 349c414
                    102: <                                      err(a->cierr, k, where);
                    103: ---
                    104: >                                      errfl(a->cierr, k, where);
                    105: 351c416
                    106: <                                      err(a->cierr, 115, where);
                    107: ---
                    108: >                                      errfl(a->cierr, 115, where);
                    109: 360c425
                    110: <                      nd = dims[0];
                    111: ---
                    112: >                      nd = (int)dims[0];
                    113: 364c429
                    114: <                              err(a->cierr, k, where);
                    115: ---
                    116: >                              errfl(a->cierr, k, where);
                    117: 371c436
                    118: <                                      err(a->cierr, 115, where);
                    119: ---
                    120: >                                      errfl(a->cierr, 115, where);
                    121: 376c441
                    122: <                                      err(a->cierr, k, where);
                    123: ---
                    124: >                                      errfl(a->cierr, k, where);
                    125: 383c448
                    126: <                              err(a->cierr, 115, where);
                    127: ---
                    128: >                              errfl(a->cierr, 115, where);
                    129: 386c451
                    130: <                              err(a->cierr, 125, where);
                    131: ---
                    132: >                              errfl(a->cierr, 125, where);
                    133: 394c459
                    134: <                                      err(a->cierr, k, where);
                    135: ---
                    136: >                                      errfl(a->cierr, k, where);
                    137: 396c461
                    138: <                                      err(a->cierr, 115, where);
                    139: ---
                    140: >                                      errfl(a->cierr, 115, where);
                    141: 434c499
                    142: <                      err(a->cierr, 115, where);
                    143: ---
                    144: >                      errfl(a->cierr, 115, where);
                    145: 446c511,512
                    146: <                      l_read(&no1, vaddr + iva, size, type);
                    147: ---
                    148: >                      if (k = l_read(&no1, vaddr + iva, size, type))
                    149: >                              return k;
                    150: 459c525
                    151: <                                      err(a->cierr, 125, where);
                    152: ---
                    153: >                                      errfl(a->cierr, 125, where);
                    154: 494a561
                    155: >      f__doend = xrd_SL;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.