#include <stdio.h>
int main(int argc,char **args);
void execute(char *fname,int memory);
char fgetvc(FILE *fp);
int main(int argc,char **args)
{
if(argc<2)
{
printf("Nessun programma da eseguire!\n");
return 1;
}
char *filename=args[1];
int result=0;
execute(filename,500);
printf("\n");
return 0;
}
void execute(char *fname,int memory)
{
//MEMORIA
unsigned char *array=malloc(memory*sizeof(unsigned char));
int i;
for(i=0;i<memory;i++)
{
array[i]=0;
}
i=0;
unsigned int ptr=0;
char instructions[4096][2];
char t; //Variabile di comodo per istruzione ")("
unsigned int t2; //Variabile di comodo per istruzione "[["
FILE *fp=fopen(fname,"r");
char c0;
char c1;
//Carico il programma in memoria
int count=0;
while(!feof(fp))
{
c0=fgetvc(fp);
c1=fgetvc(fp);
if(c0==EOF)
{
break;
}
instructions[count][0]=c0;
instructions[count][1]=c1;
count++;
}
fclose(fp);
char waiting_a=0,waiting_b=0; //Indicano rispettivamente se stiamo aspettando un {) o un {]
while(i<=count)
{
c0=instructions[i][0];
c1=instructions[i][1];
if(waiting_a)
{
if(c0=='{'&&c1==')')
{
waiting_a=0;
}
i++;
continue;
}
if(waiting_b)
{
if(c0=='{'&&c1==']')
{
waiting_b=0;
}
i++;
continue;
}
switch(c0)
{
case '(':
switch(c1)
{
case ')':
ptr++;
break;
case '(':
ptr--;
break;
case ']':
array[ptr]++;
break;
case '[':
array[ptr]--;
break;
case '}':
array[ptr+1]=array[ptr];
break;
case '{':
array[ptr-1]=array[ptr];
break;
}
break;
case '[':
switch(c1)
{
case ')':
putchar((char)array[ptr]);
break;
case '(':
array[ptr]=getchar();
break;
case ']':
printf("%u\n",(unsigned int)array[ptr]);
break;
case '[':
scanf("%u",&t2);
t2%=256; //? Sicuro?
array[ptr]=(unsigned char)t2;
break;
}
break;
case '{':
switch(c1)
{
case '(':
if(array[ptr]%2==0)
{
waiting_a=1;
}
break;
case '[':
if(array[ptr]%2==1)
{
waiting_b=1;
}
break;
case '{':
i=array[ptr]+256*array[ptr+1]; //forse ci va -1
ptr=array[ptr+2];
continue;
break;
}
break;
case ')':
switch(c1)
{
case '(':
t=array[ptr];
array[ptr]=array[ptr+1];
array[ptr+1]=t;
break;
case ')':
array[ptr]=0;
break;
}
break;
case ']':
switch(c1)
{
case ')':
if(array[ptr]>=array[ptr+1])
{
array[ptr]=1;
}
else
{
array[ptr]=0;
}
break;
case '}':
if(array[ptr]>array[ptr+1])
{
array[ptr]=1;
}
else
{
array[ptr]=0;
}
break;
case '(':
if(array[ptr]<=array[ptr+1])
{
array[ptr]=1;
}
else
{
array[ptr]=0;
}
break;
case '{':
if(array[ptr]<array[ptr+1])
{
array[ptr]=1;
}
else
{
array[ptr]=0;
}
break;
case ']':
if(array[ptr]==array[ptr+1])
{
array[ptr]=1;
}
else
{
array[ptr]=0;
}
break;
case '[':
if(array[ptr]!=array[ptr+1])
{
array[ptr]=1;
}
else
{
array[ptr]=0;
}
break;
}
break;
case '}':
switch(c1)
{
case ')':
array[ptr]+=array[ptr+1];
break;
case '(':
array[ptr]=abs(array[ptr]-array[ptr+1]);
break;
case ']':
array[ptr]*=array[ptr+1];
break;
case '[':
array[ptr]=(char)((double)array[ptr])/((double)array[ptr+1]);
break;
case '}':
fclose(fp);
return;
case '{':
printf("0: %u 1: %u 2: %u 3: %u 4: %u pointer: %d\n",array[0],array[1],array[2],array[3],array[4],ptr);
break;
}
break;
}
i++;
}
}
char fgetvc(FILE *fp)
{
char c=fgetc(fp);
while(!(c=='{'||c=='}'||c=='['||c==']'||c=='('||c==')')&&!feof(fp))
{
c=fgetc(fp);
}
return c;
}
27/3/2011, 2:17 pm
) fatto solo da emoticons (sempre che non esista già)...penso che il nome sia più appropriato per quello, quindi se ti va lo terrei apposta 
)
