Khozheev.c

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <locale.h>
int *lenta;
int size = 1;
int loc = 0;

int movl(void){
    if (loc == 0){
        int i;
        int* tmp;
        size++;
        tmp = (int*) realloc (lenta, sizeof(int) * size);
        if(tmp != NULL){
            for (i = size - 1; i != 0; i--)
                tmp[i]=tmp[i-1];
            tmp[0] = 0;
            lenta = tmp;
        }
        else
            return 1;
    }
    else loc--;
return 0;
}

int movr(void){
    if (loc == (size - 1)){
        int* tmp;
        size++;
        loc++;
        tmp = (int*) realloc (lenta, sizeof(int) * size);
        if(tmp != NULL){
            tmp[size-1] = 0;
            lenta = tmp;
        }
        else
            return 1;
    }
    else loc++;
return 0;
}

int inc (void) {
    if(lenta[loc] < 255)
        lenta[loc]++;
    else
        lenta[loc] = 0;
return 0;
}

int dec (void) {
    if(lenta[loc] > 0)
        lenta[loc]--;
    else
        lenta[loc] = 255;
return 0;
}

int commands (char** a, int first, int last){
    int i, tmp = 0;
    for (i = first; i < last; i++){
        if (strcmp(a[i], "movl") == 0)
            movl();
        else if (strcmp(a[i], "movr") == 0)
            movr();
        else if (strcmp(a[i], "inc") == 0)
            inc();
        else if (strcmp(a[i], "dec") == 0)
            dec();
        else if (strcmp(a[i], "print") == 0)
            printf("\n%d", lenta[loc]);
        else if (strcmp(a[i], "get") == 0){
                printf("\nEnter symbol:");
            lenta[loc] = getchar();
        }
        else if (strcmp(a[i], "printc") == 0)
            printf("\n%c", lenta[loc]);
        else if (strcmp(a[i], "begin") == 0)
             tmp=i+1;
        else if (strcmp(a[i], "end") == 0)
            {
                while (lenta[loc] != 0)
                    commands(a, tmp, i);
            }
        else
            printf("\nError");
    }

return 0;
}

char* delprobel (char* s, char* a){
    int i, j;
    j = 0;
    a = (char*) malloc (sizeof(char)*6);
    for (i = 0; s[i]; i++){
          if (s[i] != ' ' && s[i] != '\n'){
      a[j]=s[i];
      j++;
      a = (char*) realloc (a,(j+6)*sizeof(char));
      }
    }
    a = (char*) realloc (a, j*sizeof(char));
    return a;
}

int main(){
    setlocale(LC_ALL, "RUS");
    char s[255];
    char **a;
    int num = 0, i = 0;;
    char *fname = NULL;

    FILE * file;
    file = fopen("laba.txt", "r");
    while (file == NULL){
        printf(" Error opening the file\n Enter new file name (Example: laba.dat or C:\\\\Users\\\\Desktop\\\\laba.dat):");
        scanf("%s", fname);
        file=fopen(fname, "rb");
    }

    a=(char **) malloc ((num+1)*sizeof(char *));
    while(fgets(s, 255, file)){
        if(s[0] != '*'){
            a[num]=(char *) malloc (200*sizeof(char));
            a[num] = delprobel(s, a[num]);
            num++;
            a = (char**) realloc (a,(num+1)*sizeof(char*));
        }
    }
    fclose(file);

    lenta = (int*) malloc (sizeof(int));
    lenta[loc]=0;
    commands(a, 0, num);

    for(i = 0; i < num; i++)
        free(a[num]);
    free(a);
    printf("\n Tape : ");
    for(i = 0; i < size; i++)
        printf("  %d", lenta[i]);
    return 0;
}