corsika-tape.c

Go to the documentation of this file.

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "corsika-tape.h"

corsika_file *corsika_fopen(char *name, char *mode)
{
  FILE *file;
  corsika_file *cfile;

  if ((file = fopen(name, mode)) != NULL) {
    cfile = (corsika_file *) malloc(sizeof(corsika_file));

    if (cfile == NULL) {
      fprintf(stderr, "Cannot allocate memory for corsika file.\n");
      exit(1);
    }

    cfile->file = file;
    cfile->sub_index = SUB_BLOCKS_IN_BLOCK;

    return cfile;
  } else {
    return NULL;
  }
}

sub_block *corsika_get(corsika_file *file)
{
  int i;

  if (file->sub_index == SUB_BLOCKS_IN_BLOCK) {
    i = fread(&file->bl, sizeof(block), 1, file->file);

    if (i != 1) file->sub_index = -1;
    else  file->sub_index = 0;
  }

  if (file->sub_index == -1) return NULL;

  return file->bl.sb + file->sub_index++;
}