Program ktorý demoštruje ako funguje compiler

// COMPILER.C                Copyright (c) TrSek alias Zdeno Sekerak 
// Program je pokusom o vlastny compiler s podobnou syntaxou         
// ako ma Pascal.                                                    
//                                                                   
// Datum:22.04.96                               http://www.trsek.com 
 
#define maxx 78
#define maxz 21
#include "klavesy.h"
#include <stdio.h>
#include <conio.h>
#include <dos.h>
#include <bios.h>
#include <string.h>
#include <dir.h>
#include <errno.h>
#include <alloc.h>
 
#define maxx 78
#define maxy 21
#define maxs 128
#define maxznak 128
#define maxsyn 14
#define maxerr 30
#define maxkl 17
#define maxpocs 256
 
#include "struct.h"
 
char klslov[maxkl+1][maxsyn] =
 { {"DECL"} , {"INTEGER"} , {"START"} , {"WHILE"} , {"ENDWHILE"} , {"INTEGERREAD"} ,
   {"INTEGERWRITE"} ,  {"STOP"} , {" "} , {";"} , {":="} ,
   {"("} , {")"} , {"<"} , {">"} , {"+"} , {":"} };
 
void okno (int, int, int, int, int, int );
					/* Definuj okno posledne dve su farby */
					/* podklad, pismo */
void editor ( void );			/* Uvodna obrazovka */
void tprintf( char text[]);		/* Specialny prvy riadok */
void farba(int x,int y);		/* nastavi naraz farbu pisma aj podkladu */
void posunx ( int );			/* Posun text v smere osi x */
void posuny ( int );			/* Posun text v smere osi y */
void deletuj ( int, int );		/* Zmaz znak z poziciou */
void novyr ( int );			/* Novy riadok */
int  posledny ( int );			/* Posledny znak v riadku */
void strana ( int, int );		/* Vykresli stranu */
void help ( void );			/* No comment */
void save ( char meno[] );		/* Uloz subor pod menom */
int  vypis_sub( char mena[][13], int dlzok ); /* Vypis suborov do okna */
int  load ( void );			/* Najdi subor */
int  from_disk( char subor[]);          /* Precitaj subor z disku */
void run ( void );			/* Spusti program */
void outwin ( void );			/* Pozri OUTPUT obrazovku */
void compile ( void );			/* Skompiluj program */
void option ( void );			/* Opsns */
def_riadok *zaradr( def_riadok *pointer, char text[] );
					/* Zaradi text do pola */
def_riadok *vyhodr( def_riadok *pointer );
					/* Vyhodi text z pola */
int  otazka ( char text[], char pr[], char dr[], char tr[] );
					/* Otazka , pr-prva volba, dr-druha volba */
int kluc_slova ( def_syntax * (* syntax) );
					/* Doplni klucove slova */
int patri ( char s[] , int x , int *v_rade , void *prvys , int caka );
					/* Porovnava dve retazce */
int  podmienka ( char s[] , int x , def_syntax  *prvys);
int aritmetika ( char s[] , int x , void *prvys);
					/* Je to aritmetika ??? Nie !!!*/
int premenne (int *x, char s[], def_syntax *syntax);
					/* doplni premenne do syntax */
int comp,pocr;				/* pocet riadkov suboru */
char subor[maxs];			/* Meno suboru */
void *prvy,*teraz;			/* Pameta pointer na prvy riadok */
 
 
// main tu to vsetko zacne
void main(int arg, char *args[])
{
int key,i;
int x=1,y=1,xr=1,yr=1;
unsigned insert=0,ulozene=0;
 
 editor();
 prvy=NULL; pocr=0; comp=0;
 
 if (arg>0) {
    strcpy(subor,args[1]);
    from_disk(subor);
    strana(1,1);
 }
 
 gotoxy(x,y);
 do {
  key=getch();
  if (key==BACKSPACE) {}	// nereaguje
 
  if (key==0)
  {
     key=getch();
     switch (key)
     {
     case LEFT:  x=x-1;
		 if (x<1) {
		    xr--;x=1;
		    if (xr<1) xr=1;
			 else strana(xr,yr);
		 }
	  break;
     case RIGHT: x=x+1;
		 if (x>maxx) {
		    xr++;x=maxx-3;
		    if ((xr+x)>maxznak)
		       xr=maxznak-x;
 
		    strana(xr,yr);
		 }
	  break;
     case UP:    y=y-1;
		 if (y<1) {
		    y=1;
		    yr--;
		    if (yr<1) yr=1;
		    strana(xr,yr);
		 }
	  break;
     case DOWN:  y=y+1;
		 if (y>maxy) {
		    y=maxy;
		    yr=yr+1;
 
		    if ((yr+y)>pocr) {
		       yr=pocr-maxy-y-1;
		       if (yr<1) yr=1;
		    }
		    strana(xr,yr);
		 }
	  break;
     case ENTER: x=1;y=y+1;novyr(y);posunx(0);
	  break;
     case DEL:   deletuj(x,y);
	  break;
     case INSERT:insert=!insert;
	  break;
     case HOME:  x=1;
	  break;
     case END:   x=posledny(yr+y-1);
		 xr=1;
		 if (x>maxx) {
		    xr=x-maxx;
		    x=maxx-3;
		    strana(xr,yr);
		 }
	  break;
     case PGDN:  yr=yr+maxy;
		 if ((yr+y)>pocr) {
		    for (i=pocr;i<=(yr+y);i++) novyr(i);
		    yr=pocr-20;
		 }
		 strana(xr,yr);
	  break;
     case PGUP:  yr=yr-maxy;
		 if (yr<1) yr=1;
		 strana(xr,yr);
	  break;
     case F1:    help();
	  break;
     case F2:    save(subor);
	  break;
     case F3:    load();
		 window(2,3,79,23);
		 clrscr();
		 strana(1,1);
	  break;
     case F4:    save("");
	  break;
     case F5:    if (!comp) compile();
		 run();
	  break;
     case F6:    outwin();
	  break;
     case F7:
	  break;
     case F8:    option();
	  break;
     case F9:    compile();
	  break;
     case F10:   if (!ulozene) {
		   if (otazka("Ulozit prave editovany subor ?"," ^Ano "," ^Nie ","")==1)
		      save(subor);
		   else
		      key=0;
		 }
 
		 if (key==0)
		    if (otazka("        Chces skoncit ?       "," ^Ano "," ^Nie ","")==1)
		       key=F10;
	  break;
     default: break;
     }
    gotoxy(x,y);
  }
 } while (key!=F10);
 
 clrscr();
}
 
 
// zobrazi okno v ktorom sa budeme pohybovat
void okno (int x1, int y1, int x2, int y2, int col1, int col2 )
{
int x,y;
 
 window(x1,y1,x1+x2,y1+y2);
 farba(col2,col1);
 clrscr();
 
 gotoxy(1,y2);cprintf("Č");
 gotoxy(x2+1,y2);cprintf("ź");
 gotoxy(1,1);insline();
 gotoxy(1,1);cprintf("É");
 gotoxy(x2+1,1);cprintf("ť");
 
 for (x=2;x<=x2;x++) {
   gotoxy(x,1);cprintf("Í");
   gotoxy(x,y2+1);cprintf("Í");
 }
 
 for (y=2;y<=y2;y++) {
   gotoxy(1,y);cprintf("ş");
   gotoxy(x2+1,y);cprintf("ş");
 }
 
 window(x1+1,y1+1,x1+x2-1,y1+y2-1);
}
 
 
// nakresli prostredie editora
void editor( void )
{
 okno(1,2,79,22,BLUE,YELLOW);
 window(1,1,80,25);
 gotoxy(1,1);
 textbackground(LIGHTGRAY);
 tprintf("^F^1Help ^F^2Save ^F^3LOAD ^F^4SAVE_AS ^F^5RUN ^F^6OUTWIN ^F^7STEP ^F^8OPTION ^F^9COMPILE ^F^1^0EXIT");
 window(2,3,79,24);
}
 
 
// vypise text s tym ze pismena zacinajuce ^ vyfarby inou farbou
void tprintf( char text[])
{
int i;
 
 textcolor(DARKGRAY);
 for (i=0; i<strlen(text); i++)
 {
   if (text[i]!='^') {
      if (text[i-1]=='^') textcolor(RED);
		     else textcolor(BLACK);
      cprintf("%c",text[i]);
   }
 }
 textcolor(YELLOW);
}
 
 
// nastavi naraz farbu pisma aj podkladu
void farba(int x,int y)
{
 textcolor(x);
 textbackground(y);
}
 
 
void posunx ( int  xp )
{
 xp=xp;
}
 
void posuny ( int yp )
{
 yp=yp;
}
 
void deletuj ( int xd, int yd )
{
 xd=xd;
 yd=yd;
}
 
void novyr ( int yr )
{
 yr=yr;
}
 
// najde posledny znak v retazci
int  posledny ( int yp )
{
int xp=1;
int y=1;
def_riadok *priadok;
 
 if (prvy==NULL) return(0);
 priadok=prvy;
 
 while(( priadok != NULL ) && (y<yp))
 {
   priadok=( * priadok).zani;
   y=y+1;
 }
 
 // je mimo text
 if (priadok == NULL )
    return(xp);
 
 // najde koniec riadku
 while ((( * priadok).znaky[xp]!='\0') && (xp<maxznak)) xp++;
 return(xp);
}
 
 
// zobrazi subor od x,y suradnic
void strana ( int xs, int ys )
{
int x,y;
def_riadok *priadok;
 
 textbackground(BLUE);
 priadok=prvy;
 
 // prechod na poziciu
 for (y=1; y<ys; y++)
   if (priadok!=NULL)
      priadok= (*priadok).zani;
 
 window(2,3,79,23);
 clrscr();
 
 //
 for (y=0; y<21 && priadok!=NULL; y++)
 {
   for (x=xs; x<xs+78 && x<strlen((*priadok).znaky) ;x++)
   {
     gotoxy(x-xs+1,y+1);
     cprintf("%c",(*priadok).znaky[x]);
   }
   priadok = (*priadok).zani;
 }
}
 
void help ( void )
{
}
 
 
// ulozi subor
void save ( char meno[] )
{
 meno=meno;
}
 
 
// vypise obsah adresara
// dlzok znamena od akeho suboru sa ma zacat
int vypis_sub(char mena[][13], int dlzok)
{
struct ffblk subory;
int yp=-1;
int i;
 
 errno=0;
 findfirst("*.*",&subory,FA_ARCH|FA_DIREC|FA_RDONLY|FA_HIDDEN);
 
 // najprv vsetky vyhlada
 while ((errno==0) && (yp<maxpocs))
 {
   strcpy(mena[++yp],subory.ff_name);
 
   // subory prekonvertujem na male pismena
   if ((subory.ff_attrib & FA_DIREC) == 0)
      for (i=0; i<strlen(mena[yp]); i++)
	if (mena[yp][i]!='.')
	   mena[yp][i]=mena[yp][i]+32;
 
   findnext(&subory);
 }
 
 // teraz ich vsetky vypisem
 for( i=0; i<dlzok && i<yp; i++ )
 {
   gotoxy(3,i+1);
   cprintf("%s",mena[i]);
 }
 
 return(yp);
}
 
 
// precita program zo suboru
int load ( void )
{
int dlzok=12;
int y=0, yr=0, yp=0;
char mena[maxpocs+1][13];
char key;
 
 yp=0; yp=yp; yr=0; yr=yr;	/* Potom ma zrus */
 okno(15,3,18,dlzok+1,LIGHTGRAY,DARKGRAY);
 yp=vypis_sub(mena,dlzok);
 
 farba(YELLOW,BLUE);
 gotoxy(3,1);
 cprintf("%s",mena[0]);
 
 y=0; key=32;
 do {
   key=getch();
 
   farba(DARKGRAY,LIGHTGRAY);
   gotoxy(3,y+1);
   cprintf("%s",mena[y+yr]);
 
   switch (key)
   {
      case 0: key=getch();
	switch (key)
	{
	   case UP:
		y=y-1;
		if (y<0)
		{
		  y=0;
		  yr=yr-1;
 
		  if (yr<0) yr=0;
		  else
		  {
		    gotoxy(1,1);
		    insline();
		  }
		}
		break;
 
	   case DOWN:
		y=y+1;
		if (y>yp) y=yp;
		if (y>(dlzok-1))
		{
		  y=dlzok-1;
		  yr=yr+1;
 
		  if ((yr+y)>yp) yr=yp-y;
		  else
		  {
		    gotoxy(1,1);
		    delline();
		  }
		}
		break;
	}
	break;
 
      case ENTER:
	   if ((mena[y+yr][0]=='.') || ((mena[y+yr][0]>='A') && (mena[y+yr][0]<='Z')))
	   {
	     chdir(mena[y+yr]);
	     clrscr();
	     yp=vypis_sub(mena,dlzok);
	     y=1; yr=0; key=32;
	   }
	   break;
   }
 
   farba(YELLOW,BLUE);
   gotoxy(3,y+1);
   cprintf("%s",mena[y+yr]);
 }
 while ((key!=ESC) && (key!=ENTER));
 
 if (key==ENTER) strcpy(subor,mena[y+yr]);
 if (key==ESC) return(0);
 
 // precitaj subor
 return( from_disk(subor));
}
 
 
// precita z disku
int from_disk( char subor[] )
{
FILE *fopen(),*f;
int y,err=0;
char text[maxznak];
 
 riadok=prvy; prvy=NULL;
 while ( riadok!=NULL) riadok=vyhodr(riadok);
 
 pocr=0;
 f=fopen(subor,"r");
 
 do {
  pocr++; y=0;
  text[y]=' ';
 
  do {
    err=fscanf(f,"%c",&text[++y]);
  } while ((text[y]!='\n') && (err==1) && (y<maxznak-2) && (text[y]!='\0'));
 
  text[y]='\0';text[y+1]='\n';
  riadok=zaradr(riadok,text);
  if (prvy==NULL) prvy=riadok;
 } while ((err==1) && (riadok!=NULL));
 
 fclose(f);
 
 if (riadok==NULL) {
    y=otazka("   Nemas dost pamete na editaciu suboru !!!   "," ^ENTER ","","");
    while ( riadok!=NULL) riadok=vyhodr(riadok);
    return(0);
 }
 
 return(1);
}
 
void run ( void )
{
}
 
void outwin ( void )
{
}
 
int patri ( char s[] , int x , int *v_rade , void * prvys , int caka )
{
def_syntax *syntax;
int i,x1;
 
 syntax=prvys;
 i=0;*v_rade=0;
 
 if (caka!=-1)
    while (*v_rade<caka) {
      *v_rade=*v_rade+1;
      syntax=(*syntax).zani;
    }
 
 while ( (s[x+i]==' ') && (s[x+i]!='\0')) i++;
 x1=x+i;i=0;
 
 if (x1>=strlen(s)) {
    *v_rade=-1;
    return(x1);
 }
 
 if (caka==-1)
    while ( (i<strlen((*syntax).znaky) ) && ( (*syntax).zani!=NULL) )
    {
      i=0;
      *v_rade=*v_rade+1;
      if (*v_rade!=1)
	 syntax=(*syntax).zani;
 
      while ( (i<strlen((*syntax).znaky)) && ((*syntax).znaky[i]==s[x1+i])) i=i+1;
      if ((s[x1+i]!=' ') && (s[x1+i]!='\0') && (*v_rade<8)) i=0;
    } else {
      while ((i<strlen((*syntax).znaky)) && ((*syntax).znaky[i]==s[x1+i])) i=i+1;
    }
 
 if (i==strlen((*syntax).znaky)) {
    while ( (s[x1+i]==' ') && (s[x1+i]!='\0')) i++;
    return(x1+i-1);
 }
 else {
    *v_rade=0; return(x1);
 }
}
 
int aritmetika ( char s[] , int x , void *prvys )
{
def_syntax *syntax;
 
 syntax=prvys;
 x=x;s=s;
 return(0);
}
 
 
// odskusane funguje OK
int premenne (int *x, char s[], def_syntax *syntax)
{
int i;
char prem[10];
 
 i=0;
 while ((s[*x+i]!=';') && (strlen(s)>*x+i) )
 {
   while (s[*x+i]==' ') i++;
   *x=*x+i; i=0;
   while ( (s[*x+i]>='A') && (s[*x+i]<='z') ) { prem[i]=s[*x+i];i++; }
   prem[i]='\0';
   syntax=zarads(syntax,prem);
   while ( (s[*x+i]==',') || (s[*x+i]==' ') ) i++;
 }
 
 *x=*x+i;
 if (s[*x]==';') return(0);
	    else return(1);
}
 
int podmienka ( char s[] , int x , def_syntax *prvys )
{
def_syntax *syntax;
 
 syntax=prvys;
 x=x;s=s;
 return(0);
}
 
void compile ( void )
{
def_riadok *riadok;
def_syntax *posled;
def_error  *error;
void *prvys;
int  poc,x,y,caka,i,v_rade,oldi;
char chyba[maxerr];
 
 syntax=NULL;
 error =NULL;
 riadok=prvy;
 
 for (poc=0; poc<maxkl; poc++)
 {
    syntax=zarads(syntax,klslov[poc]);
    if (poc==0)
       prvys=syntax;
 }
 
 posled=syntax;
 syntax=prvys;
 v_rade=-1;
 caka=0;
 oldi=0;
 
 for (y=1;y<=pocr;y++)
 {
   x=1;
   if ((i=patri( (*riadok).znaky,x,&v_rade,prvys,caka)) >x)
      x=i;
   else {
      if (caka==-1) error=zarade(error,"Nepoznam",y);
	       else error=zarade(error,klslov[caka],y);
      v_rade=caka;
   }
 
   if ((caka==-1) && (v_rade>maxkl)) caka=10;
   if (v_rade==9) caka=-1;
   if (v_rade==10)
     if ((i=aritmetika( (*riadok).znaky,x,posled)) >x) { x=i;caka=9; }
	else error=zarade(error,klslov[caka],y);
 
   if (v_rade==11)
     if ((i=podmienka( (*riadok).znaky,x,posled)) >x) { x=i;caka=12; }
	else error=zarade(error,klslov[caka],y);
 
   if ((v_rade==6) || (v_rade==7))
      if ((i=patri( (*riadok).znaky,x,&v_rade,posled,caka))>x)  { x=i;caka=9; }
	 else error=zarade(error,klslov[caka],y);
 
   if (v_rade==3) caka=11;
   if (v_rade==2) caka=-1;
   if (v_rade==1) {
      i=premenne( &x,(*riadok).znaky,posled);
      if (i!=0) error=zarade(error,"Zle definovanie premennych.",y);
      i=oldi+1;
      caka=2;
   }
 
   if (v_rade==0) caka=1;
   if (x>=strlen( (*riadok).znaky)-1 ) { riadok=(*riadok).zani;oldi=-1; }
   if (i==oldi) y=pocr;
   oldi=i;
 }
 
 if (v_rade!=7)
    error=zarade(error,klslov[7],y);
 
 if (error==NULL)
    comp=1;
}
 
 
// nastavenia
void option ( void )
{
}
 
 
// polozi otazku a caka odpoved Ano/Nie
int  otazka ( char text[], char pr[], char dr[], char tr[])
{
int  vo=0,odx,i,x;
char pdt[3][10];
int  cpdt[3];
char ch;
 
 strcpy(pdt[0],pr);
 strcpy(pdt[1],dr);
 strcpy(pdt[2],tr);
 
 if ((strlen(text)/2)!=(1.00*strlen(text)/2))
    text=strcat(text," ");
 
 odx=(80-strlen(text))/2-4;
 okno(odx,10,strlen(text)+8,6,LIGHTGRAY,DARKGRAY);
 gotoxy(5,2);cprintf("%s",text);
 
 cpdt[0]=(strlen(text)-odx-strlen(pdt[0])+strlen(pdt[1])+strlen(pdt[2])+8)/2+4;
 cpdt[1]=cpdt[0]+strlen(pdt[0])+2;
 cpdt[2]=cpdt[0]+strlen(pdt[0])+strlen(pdt[1])+4;
 
 for (i=0;i<=2;i++) {
   gotoxy(cpdt[i],4);
   tprintf(pdt[i]);
 }
 
 textbackground(GREEN);
 gotoxy(cpdt[0],4);tprintf(pdt[0]);
 
 odx=0; vo=-1;
 do {
   ch=getch();
   textbackground(LIGHTGRAY);
   gotoxy(cpdt[odx],4);tprintf(pdt[odx]);
 
   switch (ch) {
     case 0:
	  ch=getch();
	  switch (ch) {
	     case LEFT : odx=odx-1; if (odx<0) odx=2;break;
	     case RIGHT: odx=odx+1; if (odx>2) odx=0;break;
	  }
 
	  if ((odx==2) && (strcmp(pdt[2],"")==0)) odx=0;
	  if ((odx==1) && (strcmp(pdt[1],"")==0)) odx=0;
	  break;
 
     case ESC: vo=0;     break;
     case ENTER: vo=odx+1; break;
 
     default :
       for (i=0;i<=2;i++)
	 for (x=1;x<=strlen(pdt[i]);x++)
	   if ((pdt[i-1][x]=='^') && (pdt[i][x]==ch)) vo=i;
     break;
   }
 
   textbackground(GREEN);
   gotoxy(cpdt[odx],4);tprintf(pdt[odx]);
 }
 while (vo==-1);
 
 return(vo);
}