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     ! 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.