mirror of
https://github.com/ondra-novak/gates_of_skeldal.git
synced 2025-07-15 18:56:41 -04:00
702 lines
13 KiB
C
702 lines
13 KiB
C
#include <skeldal_win.h>
|
||
/*
|
||
|
||
Popis jazyka pro psani textu do knihy
|
||
|
||
|
||
[cislo]
|
||
|
||
.... text
|
||
....
|
||
|
||
[/cislo]
|
||
|
||
|
||
Tagy
|
||
|
||
<P> paragraph
|
||
<BR> break line
|
||
<IMG SRC="filename" ALIGN=/left,right,center/>
|
||
<HR> horizontal rule
|
||
<EP> page end
|
||
|
||
|
||
|
||
-----------------------------
|
||
|
||
Vnitrni zapis
|
||
|
||
Escape sekvence
|
||
|
||
ESC s <vynechat> - mezera n bodu
|
||
ESC p <filename> <x> <y> obrazek na souradnicich x a y
|
||
ESC e - konec stranky (jako prvni v textu)
|
||
ESC h - horizontalni rule (jako prvni v textu)
|
||
ESC l <skip> - konec radky (skip je pocet vynechanych bodu)
|
||
|
||
Zapis cisla - to je hexa cislo od 1-255 pokud se nevejde do rozsahu je po 256
|
||
pridana dalsi hodnota, tj 255 se zapise jako 255,1,
|
||
350 se zapise jako 255,96,
|
||
|
||
*/
|
||
#include <stdio.h>
|
||
#include <stdlib.h>
|
||
#include <malloc.h>
|
||
#include <string.h>
|
||
#include <strlite.h>
|
||
#include <bgraph.h>
|
||
#include <memman.h>
|
||
#include <event.h>
|
||
#include "globals.h"
|
||
|
||
#define XMAX 254
|
||
#define YMAX 390
|
||
#define XLEFT 34
|
||
#define YLEFT 50
|
||
#define XRIGHT 354
|
||
|
||
#define PARAGRAPH "P"
|
||
#define BREAKLINE "BR"
|
||
#define IMAGE "IMG"
|
||
#define HOR_RULE "HR"
|
||
#define CENTER1 "CENTER"
|
||
#define CENTER2 "/CENTER"
|
||
#define DISTEND1 "DISTEND"
|
||
#define DISTEND2 "/DISTEND"
|
||
#define ALIGN "ALIGN"
|
||
#define PIC_LINE "LINE"
|
||
#define PIC_LSIZ "LSIZE"
|
||
#define SRC "SRC"
|
||
|
||
#define ALEFT "LEFT"
|
||
#define ARIGHT "RIGHT"
|
||
#define ACENTER "CENTER"
|
||
|
||
#define ANUM_LEFT 1
|
||
#define ANUM_RIGHT 2
|
||
#define ANUM_CENTER 0
|
||
|
||
#define END_PAGE 'e'
|
||
#define SPACE 's'
|
||
#define PICTURE 'p'
|
||
#define HRUL 'h'
|
||
#define END_LINE 'l'
|
||
|
||
#define BOOK_FILE "_BOOK.TMP"
|
||
|
||
static int center=0;
|
||
static int distend=0;
|
||
static TSTR_LIST all_text=NULL;
|
||
static char read_buff[256];
|
||
static char write_buff[256];
|
||
static int buff_pos=0;
|
||
static int buff_end=0;
|
||
static int total_width=XMAX;
|
||
static int left_skip=0;
|
||
static int linepos=0,last_skip=1;
|
||
static int picture_len=0;
|
||
static char winconv=0;
|
||
static int relpos=0;
|
||
|
||
static char xlat_table[128]="›__†’__________¨__Ÿ‘__________________________________<EFBFBD>___Š__€<EFBFBD>__‰‹_…__¥•____ž¦—__<EFBFBD>___ ___<EFBFBD>__‡‚__ˆ¡_ƒ__¤¢____©–£__˜";
|
||
|
||
static int insert_num(char *text,int pos,int num)
|
||
{
|
||
char c=0x80;
|
||
do
|
||
{
|
||
c=num & 0x3f;num>>=6;
|
||
if (num) c|=0x80;
|
||
c|=0x40;
|
||
text[pos++]=c;
|
||
}
|
||
while (num);
|
||
return pos;
|
||
}
|
||
|
||
|
||
static int read_num(char *text,int *pos)
|
||
{
|
||
int num=0,shift=0;
|
||
char c;
|
||
|
||
do
|
||
{
|
||
c=text[pos[0]++];
|
||
num|=(c & 0x3f)<<shift;
|
||
shift+=6;
|
||
}
|
||
while (c & 0x80);
|
||
return num;
|
||
}
|
||
|
||
static void next_line(int step)
|
||
{
|
||
linepos+=step;
|
||
if (linepos>YMAX)
|
||
{
|
||
char s[3];
|
||
s[0]=27;
|
||
s[1]=END_PAGE;
|
||
s[2]=0;
|
||
str_add(&all_text,s);
|
||
linepos=0;
|
||
picture_len=-1;
|
||
}
|
||
last_skip=step;
|
||
}
|
||
|
||
|
||
static int insert_end_line_and_save(int p,int ys)
|
||
{
|
||
int size;
|
||
while (read_buff[buff_pos]==' ' && buff_pos<buff_end) buff_pos++;
|
||
size=buff_end-buff_pos;
|
||
if (size)memcpy(read_buff,read_buff+buff_pos,size);
|
||
write_buff[p++]=27;
|
||
write_buff[p++]=END_LINE;
|
||
p=insert_num(write_buff,p,ys);
|
||
write_buff[p++]=0;
|
||
str_add(&all_text,write_buff);
|
||
buff_pos=size;
|
||
buff_end=buff_pos;
|
||
if (picture_len>0) picture_len-=ys;
|
||
if (picture_len<=0 && total_width!=XMAX)
|
||
{
|
||
picture_len=0;
|
||
total_width=XMAX;
|
||
left_skip=0;
|
||
}
|
||
return p;
|
||
}
|
||
|
||
static int insert_left_skip(int p,int skip)
|
||
{
|
||
skip+=left_skip;
|
||
if (skip)
|
||
{
|
||
write_buff[p++]=27;
|
||
write_buff[p++]=SPACE;
|
||
p=insert_num(write_buff,p,skip);
|
||
}
|
||
return p;
|
||
}
|
||
|
||
static void save_line_oboustrane()
|
||
{
|
||
char space[]=" ";
|
||
int xs,ys,ss,mez,mm=0,mc=0;
|
||
int i,p;
|
||
|
||
for(i=0,xs=0,mez=0,ys=0;i<buff_pos;i++)
|
||
{
|
||
space[0]=read_buff[i];
|
||
if (space[0]==32) mez++;else
|
||
{
|
||
xs+=text_width(space);
|
||
p=text_height(space);
|
||
if (p>ys) ys=p;
|
||
}
|
||
}
|
||
ss=total_width-xs;
|
||
p=0;
|
||
if (!ys) ys=last_skip;
|
||
next_line(ys);
|
||
p=insert_left_skip(p,0);
|
||
for(i=0,mc=0;i<buff_pos;i++)
|
||
{
|
||
if (read_buff[i]==32)
|
||
{
|
||
int sp;
|
||
write_buff[p++]=27;
|
||
write_buff[p++]=SPACE;
|
||
mc++;
|
||
sp=ss*(mc)/mez;
|
||
p=insert_num(write_buff,p,sp-mm);
|
||
mm=sp;
|
||
}
|
||
else write_buff[p++]=read_buff[i];
|
||
}
|
||
insert_end_line_and_save(p,ys);
|
||
}
|
||
|
||
static void save_line_center()
|
||
{
|
||
char space[]=" ";
|
||
int xs,ys,ss;
|
||
int i,p;
|
||
|
||
for(i=0,xs=0,ys=0;i<buff_pos;i++)
|
||
{
|
||
space[0]=read_buff[i];
|
||
xs+=text_width(space);
|
||
p=text_height(space);
|
||
if (p>ys) ys=p;
|
||
}
|
||
p=0;
|
||
if (!ys) ys=last_skip;
|
||
next_line(ys);
|
||
ss=total_width-xs;
|
||
p=insert_left_skip(p,ss/2);
|
||
memcpy(write_buff+p,read_buff,buff_pos);
|
||
p+=buff_pos;
|
||
write_buff[p]=0;
|
||
insert_end_line_and_save(p,ys);
|
||
}
|
||
|
||
static void save_line_left()
|
||
{
|
||
int p,z;
|
||
int ys;
|
||
|
||
p=0;
|
||
p=insert_left_skip(p,0);z=p;
|
||
if (buff_pos) memcpy(write_buff+p,read_buff,buff_pos);
|
||
p+=buff_pos;
|
||
write_buff[p]=0;
|
||
ys=text_height(write_buff+z);
|
||
if (!ys) ys=last_skip;
|
||
next_line(ys);
|
||
insert_end_line_and_save(p,ys);
|
||
}
|
||
|
||
|
||
static void save_buffer()
|
||
{
|
||
while (buff_end>buff_pos && read_buff[buff_end]==32) buff_end--;
|
||
if (center) save_line_center();
|
||
else if (buff_pos==buff_end || !distend) save_line_left(); else save_line_oboustrane();
|
||
}
|
||
|
||
static void break_line()
|
||
{
|
||
buff_pos=buff_end;
|
||
save_buffer();
|
||
}
|
||
|
||
static char read_set(FILE *txt,char *var,char *set)
|
||
{
|
||
int c;
|
||
char *cc;
|
||
|
||
fscanf(txt,"%[^=]%c",var,&c);
|
||
do
|
||
c=fgetc(txt);
|
||
while (c<33);
|
||
if (c=='"') fscanf(txt,"%[^\"]%c%c",set,&c,&c);
|
||
else if (c=='\'') fscanf(txt,"%[^']%c%c",set,&c,&c);
|
||
else
|
||
{
|
||
ungetc(c,txt);
|
||
fscanf(txt,"%[^> ]%c",set,&c);
|
||
}
|
||
while(c<33 && c!=EOF) c=fgetc(txt);
|
||
if (c!='>') ungetc(c,txt);
|
||
cc=strchr(var,0);
|
||
while (cc!=var)
|
||
{
|
||
cc--;
|
||
if (*cc>32)
|
||
{
|
||
cc++;
|
||
break;
|
||
}
|
||
}
|
||
*cc=0;
|
||
strupr(set);
|
||
strupr(var);
|
||
return c;
|
||
}
|
||
|
||
static int get_data_handle(char *filename,void *dec)
|
||
{
|
||
int i;
|
||
|
||
i=find_handle(filename,dec);
|
||
if (i==-1)
|
||
{
|
||
i=end_ptr++;
|
||
def_handle(i,filename,dec,SR_DIALOGS);
|
||
}
|
||
return i;
|
||
}
|
||
|
||
static void insert_picture(char *filename,int align,int line,int lsize)
|
||
{
|
||
int x, y;
|
||
short *psiz;
|
||
char *c=write_buff;
|
||
|
||
psiz=ablock(get_data_handle(filename,pcx_8bit_decomp));
|
||
switch (align)
|
||
{
|
||
case ANUM_CENTER:
|
||
x=(XMAX-psiz[0])/2;
|
||
y=linepos;
|
||
linepos+=psiz[1];
|
||
*c++=27;
|
||
*c++=END_LINE;
|
||
c+=insert_num(c,0,psiz[1]+last_skip);
|
||
break;
|
||
case ANUM_LEFT: x=0;
|
||
y=linepos;
|
||
left_skip=psiz[0]+5;
|
||
total_width=XMAX-left_skip;
|
||
break;
|
||
case ANUM_RIGHT: total_width=(x=XMAX-psiz[0])-5;
|
||
left_skip=0;
|
||
y=linepos;
|
||
break;
|
||
}
|
||
if (!lsize) lsize=psiz[1]-line;
|
||
picture_len=lsize;
|
||
*c++=27;
|
||
*c++=PICTURE;
|
||
while (*filename) *c++=*filename++;
|
||
*c++=':';
|
||
c+=insert_num(c,0,x);
|
||
c+=insert_num(c,0,y);
|
||
c+=insert_num(c,0,line);
|
||
c+=insert_num(c,0,lsize);
|
||
*c++=0;
|
||
str_add(&all_text,write_buff);
|
||
}
|
||
|
||
static char read_tag(FILE *txt)
|
||
{
|
||
char c,var[256],set[256];
|
||
int i;
|
||
|
||
i=fscanf(txt,"%[^> ] %c",var,&c);
|
||
while(c<33 && i!=EOF) c=i=fgetc(txt);
|
||
if (c!='>') ungetc(c,txt);
|
||
strupr(var);
|
||
if (!strcmp(var,PARAGRAPH))
|
||
{
|
||
break_line();
|
||
break_line();
|
||
return 1;
|
||
}
|
||
if (!strcmp(var,BREAKLINE))
|
||
{
|
||
break_line();
|
||
return 1;
|
||
}
|
||
if (!strcmp(var,IMAGE))
|
||
{
|
||
char pic_name[50]=" ";
|
||
char alig=0;
|
||
int line=0,lsize=0;
|
||
|
||
while (c!='>')
|
||
{
|
||
c=read_set(txt,var,set);
|
||
if (!strcmp(var,SRC)) strncpy(pic_name,set,49);
|
||
else if (!strcmp(var,ALIGN))
|
||
{
|
||
if (!strcmp(set,ALEFT)) alig=1;
|
||
else if (!strcmp(set,ARIGHT)) alig=2;
|
||
else if (!strcmp(set,ACENTER)) alig=0;
|
||
}
|
||
else if (!strcmp(var,PIC_LINE)) sscanf(set,"%d",&line);
|
||
else if (!strcmp(var,PIC_LSIZ)) sscanf(set,"%d",&lsize);
|
||
}
|
||
if (pic_name[0]!=0)
|
||
insert_picture(pic_name,alig,line,lsize);
|
||
return 0;
|
||
}
|
||
if (!strcmp(var,CENTER1)) center++;
|
||
else if (!strcmp(var,CENTER2))
|
||
{
|
||
if (center>0) center--;
|
||
}
|
||
else if (!strcmp(var,DISTEND1)) distend++;
|
||
else if (!strcmp(var,DISTEND2))
|
||
{
|
||
if (distend>0) distend--;
|
||
}
|
||
return 0;
|
||
}
|
||
|
||
|
||
static char skip_section(FILE *txt)
|
||
{
|
||
int c;
|
||
char end=1;
|
||
|
||
c=fgetc(txt);
|
||
while (c!=']' && c!=EOF)
|
||
{
|
||
c=fgetc(txt);
|
||
end=0;
|
||
}
|
||
if (c==EOF) end=1;
|
||
return end;
|
||
}
|
||
|
||
void prekodovat(char *c)
|
||
{
|
||
while (*c)
|
||
{
|
||
if (*c>137) *c=xlat_table[*c-138];
|
||
c++;
|
||
}
|
||
}
|
||
|
||
static void read_text(FILE *txt)
|
||
{
|
||
int i;
|
||
int xs;
|
||
char ss[2]=" ";
|
||
char wsp=1;
|
||
|
||
buff_pos=0;
|
||
buff_end=0;
|
||
xs=0;
|
||
do
|
||
{
|
||
i=fgetc(txt);
|
||
if (i==EOF) break;
|
||
if (i<32) i=32;
|
||
if (i=='<')
|
||
{
|
||
if (read_tag(txt))
|
||
{
|
||
xs=0;
|
||
wsp=1;
|
||
}
|
||
continue;
|
||
}
|
||
if (i=='[')
|
||
{
|
||
if (skip_section(txt)) break;
|
||
continue;
|
||
}
|
||
if (i==32)
|
||
{
|
||
if (wsp) continue;
|
||
buff_pos=buff_end;
|
||
wsp=1;
|
||
}
|
||
else wsp=0;
|
||
if (i=='&') i=fgetc(txt);
|
||
if (winconv && i>137) i=xlat_table[i-138];
|
||
ss[0]=i;
|
||
xs+=text_width(ss);
|
||
read_buff[buff_end++]=i;
|
||
if (xs>total_width && !wsp)
|
||
{
|
||
save_buffer();
|
||
read_buff[buff_end]=0;
|
||
xs=text_width(read_buff);
|
||
}
|
||
}
|
||
while (1);
|
||
}
|
||
|
||
void seek_section(FILE *txt,int sect_number)
|
||
{
|
||
int c=0,i;
|
||
|
||
winconv=0;
|
||
do
|
||
{
|
||
while (c!='[' && c!=EOF) c=fgetc(txt);
|
||
if (c=='[')
|
||
{
|
||
i=-2;
|
||
fscanf(txt,"%d",&i);
|
||
if (i==sect_number)
|
||
{
|
||
c=fgetc(txt);
|
||
while(c!=']')
|
||
{
|
||
if (c=='W' || c=='w') winconv=1;
|
||
if (c=='K' || c=='k') winconv=0;
|
||
c=fgetc(txt);
|
||
}
|
||
return;
|
||
}
|
||
}
|
||
c=0;
|
||
}
|
||
while (i!=EOF);
|
||
closemode();
|
||
{
|
||
char buff[256];
|
||
sprintf(buff,"Nemohu najit odstavec s cislem %d.",sect_number);
|
||
MessageBox(NULL,buff,NULL,MB_OK|MB_ICONSTOP);
|
||
}
|
||
exit(1);
|
||
}
|
||
|
||
void add_text_to_book(char *filename,int odst)
|
||
{
|
||
FILE *txt;
|
||
ENCFILE fl;
|
||
|
||
set_font(H_FKNIHA,NOSHADOW(0));
|
||
if (all_text==NULL) all_text=create_list(256);
|
||
txt=enc_open(filename,&fl);
|
||
if (txt==NULL) return;
|
||
seek_section(txt,odst);
|
||
read_text(txt);
|
||
next_line(1000);
|
||
enc_close(&fl);
|
||
}
|
||
|
||
static char *displ_picture(char *c)
|
||
{
|
||
char *d;
|
||
int x,y,hn,z,ln,sl;
|
||
short *sh;
|
||
|
||
d=write_buff;
|
||
while (*c!=':') *d++=*c++;
|
||
*d++=0;c++;
|
||
hn=get_data_handle(write_buff,pcx_8bit_decomp);
|
||
x=read_num(c,(z=0,&z));c+=z;
|
||
y=read_num(c,(z=0,&z));c+=z;
|
||
ln=read_num(c,(z=0,&z));c+=z;
|
||
sl=read_num(c,(z=0,&z));c+=z;
|
||
sh=ablock(hn);
|
||
if (sh[1]+y>YMAX) return c;
|
||
y+=YLEFT;
|
||
x+=relpos;
|
||
put_8bit_clipped(sh,GetScreenAdr()+x+scr_linelen2*y,ln,sh[0],sl);
|
||
return c;
|
||
}
|
||
|
||
void write_book(int page)
|
||
{
|
||
int i=0,y=0,z,zz,ps,pg;
|
||
char *c;
|
||
char space[]=" ";
|
||
|
||
pg=page;
|
||
if (all_text==NULL) return;
|
||
set_font(H_FKNIHA,NOSHADOW(0));
|
||
relpos=XLEFT;
|
||
zz=str_count(all_text);
|
||
if (--page)
|
||
for(i=0;i<zz && page;i++)
|
||
{
|
||
c=all_text[i];
|
||
if (c!=NULL && c[0]==27 && c[1]==END_PAGE) page--;
|
||
}
|
||
if (page) return;
|
||
for(ps=0;ps<2;ps++)
|
||
{
|
||
position(relpos,YLEFT+y);
|
||
do
|
||
{
|
||
if (i>zz) break;
|
||
c=all_text[i];
|
||
if (c==NULL) break;
|
||
if (c[0]==27 && c[1]==END_PAGE) break;
|
||
while (*c)
|
||
{
|
||
z=0;
|
||
if (*c==27)
|
||
{
|
||
c++;
|
||
switch (*c++)
|
||
{
|
||
case SPACE:
|
||
rel_position_x(read_num(c,&z));
|
||
c+=z;
|
||
break;
|
||
case END_LINE:
|
||
y+=read_num(c,&z);
|
||
position(relpos,YLEFT+y);
|
||
c+=z;
|
||
break;
|
||
case PICTURE:
|
||
c=displ_picture(c);
|
||
break;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
space[0]=*c++;
|
||
outtext(space);
|
||
}
|
||
}
|
||
i++;
|
||
}
|
||
while (1);
|
||
i++;y=0;
|
||
relpos=XRIGHT;
|
||
if (ps==0)
|
||
{
|
||
char s[20];
|
||
sprintf(s,texty[135],pg);
|
||
set_aligned_position(XLEFT,YLEFT+YMAX,0,0,s);
|
||
outtext(s);
|
||
}
|
||
if (ps==1)
|
||
{
|
||
char s[20];
|
||
sprintf(s,texty[136],pg+1);
|
||
set_aligned_position(XRIGHT+XMAX,YLEFT+YMAX,2,0,s);
|
||
outtext(s);
|
||
}
|
||
}
|
||
}
|
||
|
||
int count_pages()
|
||
{
|
||
int i,cn,z;
|
||
char *c;
|
||
|
||
if (all_text==NULL) return 0;
|
||
z=str_count(all_text);
|
||
for(i=0,cn=0;i<z;i++)
|
||
{
|
||
c=all_text[i];
|
||
if (c!=NULL && c[0]==27 && c[1]==END_PAGE) cn++;
|
||
}
|
||
return cn;
|
||
}
|
||
|
||
void save_book()
|
||
{
|
||
char *c;
|
||
FILE *f;
|
||
int i,ss;
|
||
char *tx;
|
||
|
||
if (all_text==NULL) return;
|
||
concat(c,pathtable[SR_TEMP],BOOK_FILE);
|
||
f=fopen(c,"w");if (f==NULL) return;
|
||
i=0;
|
||
ss=str_count(all_text);
|
||
while (i<ss && (tx=all_text[i++])!=NULL)
|
||
{
|
||
fputs(tx,f);
|
||
fputc('\n',f);
|
||
}
|
||
fclose(f);
|
||
}
|
||
|
||
void load_book()
|
||
{
|
||
char *c;
|
||
FILE *f;
|
||
char tx[512];
|
||
|
||
if (all_text!=NULL) release_list(all_text);
|
||
all_text=NULL;
|
||
concat(c,pathtable[SR_TEMP],BOOK_FILE);
|
||
f=fopen(c,"r");if (f==NULL) return;
|
||
all_text=create_list(256);
|
||
while (fgets(tx,510,f)!=NULL)
|
||
{
|
||
char *c;
|
||
c=strchr(tx,0);c--;*c=0;
|
||
str_add(&all_text,tx);
|
||
}
|
||
fclose(f);
|
||
}
|
||
|
||
|