/***********************************************
 * FILERECS - Test/Demo File Record Read/Write *
 ***********************************************/
 
//Specify System Header using -H option
#include <screen.h02>
#include <stddef.h02>
#include <stdlib.h02>
#include <intlib.h02>
#include <stdio.h02>
#include <stdiox.h02>
#include <string.h02>
#include <memory.h02>
#include <error.h02>
#include <fileio.h02>
#include <filesys.h02>

struct rec {
  int start, end;
  char name[24];
};

const char filnam = "RECFILE.BIN";
char f, err, ferr, mode; 
char n;
char s[128];
int dptr, recnum;
char aa,yy,xx; int yx;

struct rec record;

data: inline
  "TEX AVERY",&1935,&1942, "TED BONNICKSEN",&1963,&1963, "BERNARD B. BROWN",&1934,&1934,
  "GERRY CHINIQUY",&1964,&1964, "BOB CLAMPETT",&1937,&1946, "CAL DALTON",&1938,&1940,
  "ARTHUR DAVIS",&1946,&1962, "EARL DUVALL",&1933,&1934, "FRIZ FRELENG",&1934,&1964,
  "BEN HARDAWAY",&1934,&1940, "KEN HARRIS",&1959,&1959, "CAL HOWARD",&1938,&1938,
  "UB IWERKS",&1937,&1937, "CHUCK JONES",&1938,&1964, "JACK KING",&1934,&1936,
  "ABE LEVITOW",&1959,&1962, "ALEX LOVY",&1967,&1968, "NORMAN MCCABE",&1940,&1943,
  "ROBERT MCKIMSON",&1946,&1969, "PHIL MONROE",&1963,&1964, "MAURICE NOBLE",&1961,&1964,
  "TOM PALMER",&1933,&1933, "HAWLEY PRATT",&1961,&1964, "FRANK TASHLIN",&1936,&1946,
  "RICHARD THOMPSON",&1963,&1963, "BILL TYTLA",&1964,&1964, "";

int rdint() {
  srcptr = dptr; 
  xx = *srcptr; srcptr++;
  yy = *srcptr; srcptr++;
  dptr = srcptr;
  return 0, yy, xx;
}

void prtrec() {
  setdst(recnum); printf("%j: ");
  setdst(record.start); printf("%j ");
  setdst(record.end); printf("%j ");
  setdst(record.name); printf("%s%n");
}


main:
  puts("REMOVING FILE "); putln(filnam);
  err = remove(0, filnam); if (err and err <> #ENOENT) goto error;

  puts("CREATING FILE "); putln(filnam);
  fsrecs(@record);
  f, err = fopen(#MRECRD|#TBNRY, filnam); if (err) goto error;

  puts("WRITING RECORDS "); 
  dptr = &data; recnum = 0;
  while() {
    memclr(@record, record);
    setdst(record.name); n = strcpy(dptr); if (n<2) break;
    setsrc(dptr); dptr = iadd(.,0,n); dptr++;
    record.start = rdint();
    record.end = rdint();
    fsaddr(&record); 
    putint(recnum); putspc();
    err, recnum = fputr(f, recnum); if (err) goto error;
  }
  newlin();

  putln("READING RECORDS "); 
  do {
    recnum--; 
    fsaddr(&record); 
    err = fgetr(f, recnum); if (err) goto error;
    prtrec();
  } while (<recnum);

  fclose(f);

  goto exit;
  
error:
  ferr = ferror(f, s);
  if (err <> ferr) printf(err, "errno=%d, ");
  setdst(s); printf(ferr, "Error %d: %s%n");
  goto exit;