Keskustelu: Projektit: Brainfuck-tulkki

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

#define MUISTIN_KOKO 30000

int tiedostoja = 0;
char ** tiedostolista = 0;
FILE * tiedosto = 0;
char * ohjelma = 0;
char muisti[MUISTIN_KOKO];

void tulosta_ohjeet(char * ajonimi);
int tiedosto_on_olemassa(char * nimi);
void lisaa_tiedosto_listaan(char * nimi);
int kelpo_merkki(char merkki);
int lataa_ohjelma(char * nimi);
int tarkista_syntaksi(char * nimi);
void aja_ohjelma(char * nimi);
void lopetusfunktio();

int main(int argumenttien_maara, char **argumentit)
{
	int i;

	atexit(lopetusfunktio);

	if (argumenttien_maara < 2) {
		tulosta_ohjeet(argumentit[0]);
		return EXIT_FAILURE;
	}

	for (i = 1; i < argumenttien_maara; ++i) {
		if (tiedosto_on_olemassa(argumentit[i])) {
			lisaa_tiedosto_listaan(argumentit[i]);
		}
		else {
			printf("Virhe! Tiedostoa %s ei ollut tai sen avaaminen ei onnistunut!\n", argumentit[i]);
			tulosta_ohjeet(argumentit[0]);
			return EXIT_FAILURE;
		}
	}

	for (i = 0; i < tiedostoja; ++i) {
		if (lataa_ohjelma(tiedostolista[i])
		&& tarkista_syntaksi(tiedostolista[i])) {
			aja_ohjelma(tiedostolista[i]);
		}
	}

	return EXIT_SUCCESS;
}

void tulosta_ohjeet(char * ajonimi)
{
	printf("Brainfuck-tulkki 0.1\nToiminta: %s tiedostot\n", ajonimi);
}

int tiedosto_on_olemassa(char * nimi)
{
	tiedosto = fopen(nimi, "r");
	if (!tiedosto) {
		return 0;
	}
	fclose(tiedosto);
	return 1;
}

void lisaa_tiedosto_listaan(char * nimi)
{
	/* Laajennetaan listaa */
	++tiedostoja;
	tiedostolista = (char**)realloc(tiedostolista, tiedostoja * sizeof(char*));
	if (!tiedostolista) {
		printf("Muisti loppui kesken tiedostolistan luonnin!\n");
		exit(EXIT_FAILURE);
	}

	/* Varataan muistia ja laitetaan sinne tiedoston nimi */
	tiedostolista[tiedostoja - 1] = (char*) malloc(strlen(nimi) + 1);
	if (!tiedostolista[tiedostoja - 1]) {
		printf("Muisti loppui kesken tiedostolistan luonnin!\n");
		exit(EXIT_FAILURE);
	}
	strcpy(tiedostolista[tiedostoja - 1], nimi);
}

int kelpo_merkki(char merkki)
{
	if (merkki == '<') return 1;
	if (merkki == '>') return 1;
	if (merkki == '+') return 1;
	if (merkki == '-') return 1;
	if (merkki == '.') return 1;
	if (merkki == ',') return 1;
	if (merkki == '[') return 1;
	if (merkki == ']') return 1;
	return 0;
}

int lataa_ohjelma(char * nimi)
{
	size_t koko;
	int i, j;

	tiedosto = fopen(nimi, "r");

	if (!tiedosto) {
		printf("Virhe! Tiedostoa '%s' ei saatu auki!\n", nimi);
		exit(EXIT_FAILURE);
	}

	/* Mitataan tiedosto */
	fseek(tiedosto, 0, SEEK_END);
	koko = ftell(tiedosto);
	fseek(tiedosto, 0, SEEK_SET);

	/* Vapautetaan vanha koodi ja varataan uusi */
	if (ohjelma) {
		free(ohjelma);
	}
	ohjelma = (char*)malloc(koko + 1);
	if (!ohjelma) {
		printf("Virhe! Ohjelmalle tiedostossa '%s' ei saatu muistia!\n", nimi);
		exit(EXIT_FAILURE);
	}

	/* Luetaan koko tiedosto */
	if (fread(ohjelma, koko, 1, tiedosto) != 1) {
		printf("Virhe! Tiedostoa '%s' ei saatu luettua!\n", nimi);
		exit(EXIT_FAILURE);
	}
	ohjelma[koko] = 0;

	/* Poistetaan ohjelmaan kuulumattomat merkit */
	for (i = j = 0; ohjelma[i] != 0; ++i) {
		if (kelpo_merkki(ohjelma[i])) {
			ohjelma[j] = ohjelma[i];
			++j;
		}
	}
	ohjelma[j] = 0;

	return 1;
}

int tarkista_syntaksi(char * nimi)
{
	int i, sulkuja;

	if (!ohjelma) {
		return 0;
	}

	/* Lasketaan, että sulkuja on saman verran molempiin suuntiin */
	for (i = sulkuja = 0; ohjelma[i] != 0; ++i) {
		if (ohjelma[i] == '[') {
			++sulkuja;
		}
		else if (ohjelma[i] == ']') {
			--sulkuja;
		}
	}

	if (sulkuja != 0) {
		printf("Tiedoston '%s' syntaksissa on virhe!\n", nimi);
	}

	return sulkuja == 0;
}

void aja_ohjelma(char * nimi)
{
	int kohta = 0, sulkuja;
	char *osoitin = muisti;

	if (!ohjelma) {
		return;
	}

	printf("Ajetaan '%s'\n", nimi);

	/* Nollataan muisti */
	memset(muisti, 0, MUISTIN_KOKO);

	/* Tekstin lopussa on "nollamerkki", toistetaan siihen asti */
	while (ohjelma[kohta] != 0) {
		switch (ohjelma[kohta]) {
			case '>':
				++osoitin;
				break;

			case '<':
				--osoitin;
				break;

			case '+':
				++*osoitin;
				break;

			case '-':
				--*osoitin;
				break;

			case '.':
				putchar(*osoitin);
				fflush(stdout);
				break;

			case ',':
				*osoitin = getchar();
				break;

			case '[':
				if (*osoitin == 0) {
					/* Haetaan vastaava lopetussulku */
					sulkuja = 1;
					while (sulkuja) {
						++kohta;
						if (ohjelma[kohta] == '[') {
							++sulkuja;
						}
						else if (ohjelma[kohta] == ']') {
							--sulkuja;
						}
					}
				}
				break;

			case ']':
				if (*osoitin != 0) {
					/* Haetaan vastaava aloitussulku */
					sulkuja = 1;
					while (sulkuja) {
						--kohta;
						if (ohjelma[kohta] == ']') {
							++sulkuja;
						}
						else if (ohjelma[kohta] == '[') {
							--sulkuja;
						}
					}
				}
				break;
		}
		/* Koodin seuraavaan merkkiin */
		++kohta;
	}
	printf("\nLoppu.\n");
}

void lopetusfunktio()
{
	int i;
	if (tiedostolista) {
		for (i = 0; i < tiedostoja; ++i) {
			if (tiedostolista[i]) {
				free(tiedostolista[i]);
			}
		}

		free(tiedostolista);
	}

	if (ohjelma) {
		free(ohjelma);
	}

	if (tiedosto) {
		fclose(tiedosto);
	}
}