#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <process.h>
#include <ctype.h>
#include <windows.h>

#define P_STRING 1
#define P_SHORT 2
#define P_VAR 3
#define TEMP_NAME1 "cdialogy.$$$"
#define SCRIPT "dialogy.scr"

typedef struct t_paragraph
  {
  unsigned num:15;
  unsigned alt:15;
  unsigned visited:1;
  unsigned first:1;
  long position;
  }T_PARAGRAPH;


char *pgf_name=NULL;

T_PARAGRAPH *pgf_list=NULL;
int pgf_count=0;
char *program;
int prog_size=0;
int prog_pos=0;
int last_pgf;
int sentencs=0;
int libs=0;

FILE *f;
FILE *mlist;

#define newline(f) {int c;while ((c=fgetc(f))!='\n' && c!=EOF);}
#define get_cislo(f,cislo) fscanf(f,"%d",cislo);newline(f)
#define get_command(f,cislo) fscanf(f,"%c%d",cislo,cislo);newline(f)

static int basic_num;
static int abs_num;
static int last_dialoge;
static int standard_jump;
static char sentence;
static char sub_mode,b_closed=1;

static int open_level=0;
static int iff_mode=0;
static char was_sub=0;
#define IF_JUMP 1
#define IF_NOT_JUMP 2
#define IF_ELSE 3

typedef struct if_record
   {
   int level;
   int pointer;
   }IF_RECORD;

int if_ptr=0;

#define IF_LEN 32

static IF_RECORD if_data[IF_LEN];

int init(char *c)
  {
  prog_size=163840;
  prog_pos=0;
  program=malloc(prog_size);
  f=fopen(c,"rt");
  if (f==NULL) return 1;
  return 0;
  }

void error(char *c)
  {
  printf("%s v odstavci %d (Dialog %d Sentence %d).",c,last_pgf,basic_num/128,last_pgf);
  exit(1);
  }

void resize(void **p,int newsize)
  {
  void *q;

  if (*p==NULL) q=malloc(newsize);else
     {
     q=malloc(newsize);
     if (q!=NULL)
        {
        memcpy(q,*p,_msize(*p));
        free(*p);
        }
     }
  if (q==NULL)
     {
     puts("Nedostatek pamØti");
     exit(1);
     }
  *p=q;
  }

void check_prog_space(int num)
  {
  if (prog_pos+num>prog_size-16)
     {
     prog_size+=163840;
     resize(&program,prog_size);
     }
  }

void add_byte(char byte)
  {
  check_prog_space(1);
  program[prog_pos++]=byte;
  }

void add_short(short i)
  {
  add_byte(P_SHORT);
  check_prog_space(2);
  *(short*)(program+prog_pos++)=i;
  prog_pos++;
  }

void add_var(short i)
  {
  add_byte(P_VAR);
  check_prog_space(2);
  *(short*)(program+prog_pos++)=i;
  prog_pos++;
  }

void copy_short(FILE *f)
  {
  int c;
  int i;
  c=fgetc(f);
  if (c=='&')
    {
    get_cislo(f,&i);
    add_var(i);
    }
  else
    {
    if (isdigit(c)) ungetc(c,f);
    get_cislo(f,&i);
    add_short(i);
    }
  }

void add_string(char *c)
  {
  add_byte(P_STRING);
  check_prog_space(strlen(c)+1);
  while (*c && *c!='\n') program[prog_pos++]=*c++;
  program[prog_pos++]=0;
  }

void add_pgf(T_PARAGRAPH *p)
  {
  resize(&pgf_list,sizeof(*p)*(pgf_count+1));
  memcpy(pgf_list+pgf_count,p,sizeof(*p));
  pgf_list[pgf_count].position=prog_pos;
  pgf_list[pgf_count].visited=0;
  pgf_list[pgf_count].first=0;
  if (pgf_name!=NULL)
     {
     fprintf(mlist,"%6d %s\n",pgf_list[pgf_count].num,pgf_name);
     free(pgf_name);
     pgf_name=NULL;
     }
  pgf_count++;
  }

void decode_pgf1(char *c) //c je text bez vykricniku
  {
  int pn,an,i;
  T_PARAGRAPH p;
  char relative=0;
  if (*c=='!')
     {
     relative=1;
     c++;
     }
  i=sscanf(c,"%d",&pn);
  if (relative) pn+=abs_num;else abs_num=pn;
  if (i!=1) error("Chybn‚ pou§it¡ znaku \"!\"");
  last_pgf=pn;
  c=strchr(c,',');
  if (c==NULL) an=pn;
  else
     {
     c++;
     i=sscanf(c,"%d",&an);
     if (i!=1) error("OŸek v  se Ÿ¡slo alternativn¡ho odstavce");
     }
  p.num=pn;
  p.alt=an;
  add_pgf(&p);
  }

void js_dialoge(FILE *f)
  {
  int parm1;
  T_PARAGRAPH pgf;

  if (!b_closed) error("Ocekava se '}' (close_block)");
  get_cislo(f,&parm1);
  abs_num=basic_num=parm1*128;
  pgf.num=basic_num;
  pgf.alt=basic_num;
  last_dialoge=pgf_count;
  last_pgf=0;
  add_pgf(&pgf);
  get_command(f,&parm1);
  if (parm1!=-2) error ("Ocekava se '{' (open_block)");
  sentence=0;
  b_closed=0;
  add_short(167);
  add_short(basic_num);
  }

void js_first(FILE *f)
  {
  int parm1;


  add_short(166);
  add_short(last_pgf);
  add_short(140);
  get_cislo(f,&parm1);
  add_short(parm1);
  }

void js_standard(FILE *f)
  {
  int parm1;

  get_cislo(f,&parm1);
  if (parm1>0) standard_jump=parm1;else standard_jump=32767+parm1-basic_num;
  }

void js_close_block()
  {
  if (open_level)
     {
     if (was_sub)
        if (sub_mode)
           add_short(165);
        else
           {
           add_short(139);
           add_short(standard_jump);
           }
     sub_mode=0;
     open_level--;
     return;
     }
  if (b_closed) error("Neocekavany znak '}' (close_block)");
  if (sentence && sub_mode) add_short(165);else
     {
     add_short(139);
     add_short(standard_jump);
     }
     b_closed=1;
  }

void js_sentence(FILE *f)
  {
  int par1,par2;
  T_PARAGRAPH pgf;

  if (!b_closed || open_level) error("Ocekava se '}' (close_block)");
  b_closed=0;
  get_cislo(f,&par1);
  get_cislo(f,&par2);
  sub_mode=par2;
  pgf.num=par1+basic_num;
  pgf.alt=par1+basic_num;
  add_pgf(&pgf);
  sentence=1;
  last_pgf=par1;
  get_command(f,&par1);
  if (par1!=-2) error ("Ocekava se '{' (open_block)");
  sentencs++;
  was_sub=0;
  }


void js_sub(FILE *f)
  {
  int par1;
  char *c;
  int d;

  c=malloc(65536);
  d=getc(f);while (d!=EOF && d!='$') d=getc(f);
  fgets(c,65536,f);
  if (sub_mode)
     {
     add_short(142);
     get_cislo(f,&par1);
     if (par1>0) add_short(par1);else add_short(32767+par1-basic_num);
     add_string(c);
     }
  else
     {
     add_short(148);
     add_string(c);
     get_cislo(f,&par1);
     if (par1>0) standard_jump=par1;else standard_jump=32767+par1-basic_num;
     }
  free(c);
  }

void js_close_sub()
  {
  was_sub=1;
  if (sub_mode)add_short(164); else add_short(144);
  }

void save_pgf_name(FILE *f)
  {
  long l;
  int i,s;
  l=ftell(f);
  for(s=0;(i=fgetc(f))!=EOF && i!='\n';s++);
  if (pgf_name!=NULL) free(pgf_name);
  pgf_name=(char *)malloc(s+2);
  fseek(f,l,SEEK_SET);
  fgets(pgf_name,s+1,f);
  fgetc(f);
  }

void push_level(int level,int pos)
  {
  if (if_ptr==IF_LEN) error("Priliz dlouha struktura if & else");
  if_data[if_ptr].level=level;
  if_data[if_ptr].pointer=pos;
  if_ptr++;
  }

void pop_and_fill(int pos,int level)
  {
  int i;
  int prog_sav;
  prog_sav=prog_pos;
  while (if_ptr && if_data[if_ptr-1].level==level)
     {
     if_ptr--;
     prog_pos=if_data[if_ptr].pointer;
     i=pos-if_data[if_ptr].pointer-3;
     if (i>32767 || i<-32767) error("Blok if/else je priliz dlouhy (delsi nez 32767 bytu)");
     add_short(i);
     }
  prog_pos=prog_sav;
  }

int get_last_level()
  {
  if (if_ptr) return if_data[if_ptr-1].level;
  else return -1;
  }

void add_if_jump()
  {
  char c=1;
  switch(iff_mode)
     {
     case IF_NOT_JUMP:add_short(169);break;
     case IF_JUMP:add_short(170);break;
     case IF_ELSE:c=0;break;
     }
  if (c)
     {
     push_level(open_level,prog_pos);
     add_short(0);
     }
  iff_mode=0;
  was_sub=0;
  }

void add_else()
  {
  int psave,c;
  get_command(f,&c);
  if (c!=-2) error("Chybn  syntaxe pý¡kazu else. OŸek v  se '{'");
  was_sub=0;
  if (get_last_level()!=open_level) error("Else bez if");
  add_short(171);
  psave=prog_pos;
  add_short(0);
  pop_and_fill(prog_pos,open_level);
  push_level(open_level,psave);
  open_level++;
  }

void set_alternative(FILE *f)
  {
  int cislo;

  get_cislo(f,&cislo);
  pgf_list[pgf_count-1].alt=cislo+basic_num;
  }

void decode_program(FILE *f)
  {
  int c;
  char next_sub=0;
  char *d;

  d=(char *)calloc(sizeof(char),16384);
  open_level=0;
  c=fgetc(f);
  while (c!=EOF)
     {
     if (c=='!')
        {
        char d[256];

        fgets(&d,256,f);
        decode_pgf1(d);
        }
     else if (isdigit(c) || c=='-')
        {
        int cislo;
        ungetc(c,f);
        get_cislo(f,&cislo);
        add_short(cislo);
        }
     else if (c=='*')
        {
        int cislo;
        get_cislo(f,&cislo);
        if (cislo!=517 && next_sub)
           {
           js_close_sub();
           next_sub=0;
           }
        if (cislo!=171 && !iff_mode) pop_and_fill(prog_pos,open_level);
        switch (cislo)
           {
           case 512:js_dialoge(f);break; //Sekce DIALOG
           case 513:js_first(f);break;   //Prikaz FIRST
           case 514:add_short(152);  //Prikaz WHEN_ITEM
                    copy_short(f);
                    add_short(140);
                    get_cislo(f,&cislo);
                    if (cislo>0)add_short(cislo);else add_short(cislo+32767-basic_num);
                    break;
           case 515:add_short(163); //prikaz WHEN_FLAG
                    copy_short(f);
                    add_short(140);
                    get_cislo(f,&cislo);
                    if (cislo>0)add_short(cislo);else add_short(cislo+32767-basic_num);
                    break;
           case 516:js_standard(f);break; //prikaz STANDARD
           case 517:js_sub(f);next_sub=1;break; //prikaz SUB
           case 520:js_sentence(f);break;   //Sekce SENTENCE
           case -1:js_close_block();break; //znak }//
           case -2: if (iff_mode) add_if_jump();else error("Neocekavany znak '{' (open_block)");
                    open_level++;
                    break; //znak {//
           case 999:save_pgf_name(f);break;
           case 169:if (iff_mode) add_if_jump(); //prikaz if
                    iff_mode=IF_NOT_JUMP;break;
           case 170:if (iff_mode!=IF_NOT_JUMP) error("NOT bez IF"); //modifikator not
                    iff_mode=IF_JUMP;break;
           case 171:if (iff_mode) error("Chybn‚ pou§it¡ pý¡kazu ELSE"); //prikaz else
                    add_else();break;
           case 173:set_alternative(f);break;
           default: add_short(cislo);break;
           }
        }
     else if (c=='$')
        {
        fgets(d,16384,f);
        add_string(d);
        }
     else if (c=='&')
        {
        int cislo;
        get_cislo(f,&cislo);
        add_var(cislo);
        }
     c=fgetc(f);
     }
  free(d);
  }

void save_program()
  {
  FILE *tg;
  int pgstart;

  tg=fopen("dialogy.dat","wb");
  pgstart=pgf_count*sizeof(*pgf_list);
  fwrite(&pgf_count,1,sizeof(pgf_count),tg);
  fwrite(&prog_pos,1,sizeof(prog_pos),tg);
  fwrite(pgf_list,1,pgstart,tg);
  fwrite(program,1,prog_pos,tg);
  fclose(tg);
  }

void create_include_list(char *filename)
  {
  FILE *f,*g;
  int i;
  char s[15];

  f=fopen(filename,"r");
  if (f==NULL)
     {
     printf("Soubor nenalezen: %s\n",filename);
     exit(0);
     }
  g=fopen(TEMP_NAME1,"w");
  fputs("#include dialogy.def\n",g);
  fputs("#command pgf_name *999 1\n",g);
  do
     {
     i=fscanf(f,"%14s",s);
     if (i==1)
        {
        fprintf(g,"pgf_name '");
        while((i=fgetc(f))!='\n' && i!=EOF) fputc(i,g);fputs("'\n",g);
        fprintf(g,"#include %s\n",s);
        libs++;
        i=1;
        }
     }
  while(i==1);
  fclose(f);
  fclose(g);
  }

const char *GetLexLibPath()
{
  static char c[MAX_PATH];
  char *z;
  GetModuleFileName(0,c,MAX_PATH);
  z=strrchr(c,'\\')+1;
  strcpy(z,"lex_lib.exe");
  return c;
}

main(int argc,char *argv[])
  {
  if (argc<2)
     {
     puts("Tento program vyzaduje jmeno souboru, ve kterem se naleza\n"
          "script pro popis dialogu pro hru BRANY SKELDALU v 1.0");
     exit(0);
     }
  puts("");
  puts("Prob¡h  kompilace:");
  puts("   Spouçt¡m program LEX_LIB.EXE\n");
  putenv("DOS4G=QUIET");
  create_include_list(argv[1]);
  if (spawnlp(P_WAIT,GetLexLibPath(),"lex_lib.exe",TEMP_NAME1,"temp.$$$",NULL))
     exit(1);
  if (errno || init("temp.$$$"))
     {
     puts("Nemohu spustit program lex_lib.exe");
     exit(1);
     }
  mlist=fopen(SCRIPT,"w");
  if (mlist==NULL)
     {
     printf("Nemohu otevrit soubor %s pro zapis.\n",SCRIPT);
     exit(0);
     }
  decode_program(f);
  fclose(f);
  remove("temp.$$$");
  remove(TEMP_NAME1);
  puts("Kompilace £spØçn ...");
  printf("Vytvoreno odstavcu: %d\nCelkem knihoven: %d\nCelkem Sentenci: %d\nD‚lka k¢du: %d\n",pgf_count,libs,sentencs,prog_pos);
  save_program();
  fclose(mlist);
  }