view share/delvs-master/bf.c @ 12500:e48c08805365 draft default tip

<b_jonas> ` learn \'The password of the month is Cthulhuquagdonic Mothraquagdonic Narwhalicorn.\' # https://logs.esolangs.org/libera-esolangs/2024-04.html#lKE Infinite craft
author HackEso <hackeso@esolangs.org>
date Wed, 01 May 2024 06:39:10 +0000
parents 38a5b4d8a98e
children
line wrap: on
line source

#include <stdio.h>
#include <string.h>
#include <stdbool.h>
#include <stdlib.h>
#include "bf.h"

bool fileExists(const char *filename) {
  FILE *file;
  if ((file = fopen(filename, "r")) == NULL) {
    return false;
  } else {
    fclose(file);
    return true;
  }
}

int main(int argc, char *argv[]) {
  if(argc > 1) {
    if(fileExists(argv[1])) {
      FILE *fp;
      long size;

      fp = fopen(argv[1], "r");

      fseek(fp, 0, SEEK_END);
      size = ftell(fp);
      rewind(fp);

      char *temp = (char*) malloc (100);

      char *file = (char*) malloc (size);

      file[0] = '\0';

      while (fgets(temp, 100, fp) != NULL) strcat(file, temp);

      free(temp);
      fclose(fp);

      struct Data g;

      g.code = file;
      g.pointer = &g.vars[15000];

      lexer(&g);
    }
    else {
      printf("File not found!\n");
    }
  }

  return 0;
}