archives/gates_of_skeldal
2
0
Fork 0
mirror of https://github.com/ondra-novak/gates_of_skeldal.git synced 2025-07-26 17:14:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

linux release build, cleanup repository

Browse source
This commit is contained in:
Ondřej Novák 2025-02-08 19:27:47 +01:00
parent 529b3e8bf8
commit 3d8ee275e4
441 changed files with 280 additions and 65861 deletions
Download patch file Download diff file Expand all files Collapse all files

136
libs/pady.c
View file

@ -58,36 +58,36 @@ typedef struct vzor
TVZOR zena=
{
"hkrdtnbflmpsvz",
"a o˘uŁ–y<EFBFBD>",
"a<EFBFBD>o<EFBFBD>u<EFBFBD><EFBFBD>y<EFBFBD>",
1,
"-","y","<EFBFBD>","u","o","<EFBFBD>","ou"
"-","y","<EFBFBD>","u","o","<EFBFBD>","ou"
};
//Vzor pro zena
TVZOR natasa=
{
"c‡<EFBFBD>j¤©¨ź‘",
"a ",
"c<EFBFBD><EFBFBD>j<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>",
"a<EFBFBD>",
1,
"-","i","<EFBFBD>","u","o","<EFBFBD>","ou"
"-","i","<EFBFBD>","u","o","<EFBFBD>","ou"
};
//Vzor pro zena koncici mekkou souhlaskou a a
TVZOR ruze=
{
"c‡<EFBFBD>j¤©¨ź‘",
"e‚iˇo˘uŁ–",
"c<EFBFBD><EFBFBD>j<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>",
"e<EFBFBD>i<EFBFBD>o<EFBFBD>u<EFBFBD><EFBFBD>",
1,
"-","e","i","i","e","i","ˇ"
"-","e","i","i","e","i","<EFBFBD>"
};
//Vzor pro ruze s mekkou koncovkou
TVZOR ruze2=
{
"dtn",
"iˇ<EFBFBD>",
"i<EFBFBD><EFBFBD>",
1,
"-","e","i","i","e","i","ˇ"
"-","e","i","i","e","i","<EFBFBD>"
};
//Vzor pro ruze s tvrdou koncovkou d,t,n s mekkou samohlaskou
@ -95,9 +95,9 @@ TVZOR ruze2=
TVZOR pisen=
{
"*",
"c‡<EFBFBD>j¤©¨ź‘flmsx",
"c<EFBFBD><EFBFBD>j<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>flmsx",
0,
"-","e","i","-","i","i","ˇ"
"-","e","i","-","i","i","<EFBFBD>"
};
//vzor pisen
@ -106,7 +106,7 @@ TVZOR kost=
"*",
"hkrdtnbpvz",
0,
"-","i","i","-","i","i","ˇ"
"-","i","i","-","i","i","<EFBFBD>"
};
//vzor kost
@ -142,17 +142,17 @@ TVZOR quasimodo=
TVZOR pritel=
{
"e‚",
"c‡<EFBFBD>j¤©¨ź‘bflmpsvz",
"e<EFBFBD>",
"c<EFBFBD><EFBFBD>j<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>bflmpsvz",
0,
"-","e","i","e","i","i","em"
};
//vzor pritel pro vzor muz pro obojetne souhlasky ze samohlaskou e, ‚
//vzor pritel pro vzor muz pro obojetne souhlasky ze samohlaskou e, <EFBFBD>
TVZOR muz=
{
"*",
"c‡<EFBFBD>j¤©¨ź‘",
"c<EFBFBD><EFBFBD>j<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>",
0,
"-","e","i","e","i","i","em"
};
@ -172,7 +172,7 @@ TVZOR fenix=
TVZOR predseda=
{
"hkrdtnbpvz",
"a o˘uŁ–y<EFBFBD>",
"a<EFBFBD>o<EFBFBD>u<EFBFBD><EFBFBD>y<EFBFBD>",
1,
"a","y","ovi","u","o","ovi","ou"
};
@ -181,8 +181,8 @@ TVZOR predseda=
TVZOR soudce=
{
"c‡<EFBFBD>j¤©¨ź‘flmsx",
"e‚iˇo˘uŁ–",
"c<EFBFBD><EFBFBD>j<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>flmsx",
"e<EFBFBD>i<EFBFBD>o<EFBFBD>u<EFBFBD><EFBFBD>",
1,
"e","e","i","e","e","i","em"
};
@ -192,7 +192,7 @@ TVZOR soudce=
TVZOR soudce2=
{
"dtn",
"<EFBFBD>iˇ",
"<EFBFBD>i<EFBFBD>",
1,
"e","e","i","e","e","i","em"
};
@ -213,17 +213,17 @@ char test_vzor(TVZOR *vz,char *jmeno)
return 1;
}
//tato funkce se vola p©ed odejmutˇm ur‡it‚ho znaku.
//Pokud to toti‘ je zm<7A>k‡ovacˇ samohl ska, musˇ se p©ˇpadn‚ d,t,n
//zm<7A>k‡it p©ed touto samohl skou.
//tato funkce se vola p<EFBFBD>ed odejmut<75>m ur<75>it<69>ho znaku.
//Pokud to toti<EFBFBD> je zm<7A>k<EFBFBD>ovac<61> samohl<68>ska, mus<75> se p<><70>padn<64> d,t,n
//zm<7A>k<EFBFBD>it p<>ed touto samohl<68>skou.
void odejmi_znak(char *znak)
{
if (znak[0]=='<EFBFBD>' || znak[0]=='ˇ' || znak[0]=='i')
if (znak[0]=='<EFBFBD>' || znak[0]=='<EFBFBD>' || znak[0]=='i')
switch (znak[-1])
{
case 'd': znak[-1]='<EFBFBD>';break;
case 't': znak[-1]='ź';break;
case 'n': znak[-1]='¤';break;
case 'd': znak[-1]='<EFBFBD>';break;
case 't': znak[-1]='<EFBFBD>';break;
case 'n': znak[-1]='<EFBFBD>';break;
}
}
@ -233,13 +233,13 @@ void odejmi_znak(char *znak)
//Zdenek => Zdenka
void uprav_e_nakonci(char *konec)
{
char samohlasky[]="a e‚iˇo˘uŁy<EFBFBD>";
char pismena[]="flmn¤r©s¨xpv";
char samohlasky[]="a<EFBFBD>e<EFBFBD>i<EFBFBD>o<EFBFBD>u<EFBFBD>y<EFBFBD>";
char pismena[]="flmn<EFBFBD>r<EFBFBD>s<EFBFBD>xpv";
char *c;
c=konec-2;
if (strchr(samohlasky,c[2])!=NULL && strchr(samohlasky,c[1])==NULL && strchr(pismena,c[-1])!=NULL)
if (c[0] =='e'|| c[0]=='‚'|| c[0] =='<EFBFBD>')
if (c[0] =='e'|| c[0]=='<EFBFBD>'|| c[0] =='<EFBFBD>')
{
odejmi_znak(c);
strcpy(c,c+1);
@ -257,7 +257,7 @@ void ziskej_pad(char *buffer,char *jmeno,TVZOR *vz,char pad)
end=strchr(buffer,0)-vz->chrdel;
odejmi_znak(end); //odejme znak, pokud je => znak 0 neni znak cesky.
strcpy(end,vz->pady[pad]);
if (pad && !vz->chrdel && end[-2]=='–') end[-2]='o';
if (pad && !vz->chrdel && end[-2]=='<EFBFBD>') end[-2]='o';
uprav_e_nakonci(end);
return;
}
@ -269,23 +269,23 @@ void uprav_dvojice(char *jmeno)
{
static char *dvojice[]=
{
"<EFBFBD>e","d<EFBFBD>",
"źe","t<EFBFBD>",
"¤e","n<EFBFBD>",
"<EFBFBD>i","di",
"źi","ti",
"¤i","ni",
"<EFBFBD>ˇ","dˇ",
"źˇ","tˇ",
"¤ˇ","nˇ",
"r<EFBFBD>","©e",
"s<EFBFBD>","¨e",
"c<EFBFBD>","‡e",
"k<EFBFBD>","ce",
"¨<EFBFBD>","¨e",
"‘<EFBFBD>","‘e",
"‡<EFBFBD>","‡e",
"©<EFBFBD>","©e",
"<EFBFBD>e","d<EFBFBD>",
"<EFBFBD>e","t<EFBFBD>",
"<EFBFBD>e","n<EFBFBD>",
"<EFBFBD>i","di",
"<EFBFBD>i","ti",
"<EFBFBD>i","ni",
"<EFBFBD><EFBFBD>","d<EFBFBD>",
"<EFBFBD><EFBFBD>","t<EFBFBD>",
"<EFBFBD><EFBFBD>","n<EFBFBD>",
"r<EFBFBD>","<EFBFBD>e",
"s<EFBFBD>","<EFBFBD>e",
"c<EFBFBD>","<EFBFBD>e",
"k<EFBFBD>","ce",
"<EFBFBD><EFBFBD>","<EFBFBD>e",
"<EFBFBD><EFBFBD>","<EFBFBD>e",
"<EFBFBD><EFBFBD>","<EFBFBD>e",
"<EFBFBD><EFBFBD>","<EFBFBD>e",
};
while (*jmeno)
@ -295,7 +295,7 @@ void uprav_dvojice(char *jmeno)
{
if (!strncmp(jmeno,dvojice[i],2))
{
strncpy(jmeno,dvojice[i+1],2);
strcopy_n(jmeno,dvojice[i+1],2);
break;
}
}
@ -309,8 +309,8 @@ char *jmena_padu[]=
"kdo",
"bez",
"k",
"vidˇm",
"vol m",
"vid<EFBFBD>m",
"vol<EFBFBD>m",
"o",
"s"
};
@ -322,7 +322,7 @@ void show_table(char *jmeno,TVZOR *vz,char tabnum)
char *buff;
buff=alloca(strlen(jmeno)+20);
printf("%d. mo‘nost\n\n",tabnum);
printf("%d. mo<EFBFBD>nost\n\n",tabnum);
for(i=0;i<7;i++)
{
if (i)
@ -334,15 +334,15 @@ void show_table(char *jmeno,TVZOR *vz,char tabnum)
uprav_dvojice(buff);
printf(" %d. %-6s %s\n",i+1,jmena_padu[i],buff);
}
printf("**** Kl vesu ****\n");
printf("**** Kl<EFBFBD>vesu ****\n");
getche();
}
//Tato funkce vypise celkovy vysledek.
void notabs(int i)
{
if (i) printf("Program na¨el %d mo‘most%s.\n",i,(i!=1?(i>1 && i<5?"i":"ˇ"):""));
else printf("Program bohu‘el nena¨el ‘ dnou mo‘nost jak sklo¤ovat toto jm‚no.\n");
if (i) printf("Program na<EFBFBD>el %d mo<6D>most%s.\n",i,(i!=1?(i>1 && i<5?"i":"<EFBFBD>"):""));
else printf("Program bohu<EFBFBD>el nena<6E>el <20><>dnou mo<6D>nost jak sklo<6C>ovat toto jm<6A>no.\n");
puts("-------------------------------------------------------------------------");
}
@ -384,20 +384,20 @@ void hlavni()
char pohlavi;
do
{
printf("Zadej jm‚no. Vy‘aduje se min 3 znaky v ‡e¨tin<EFBFBD> kodu kamenick<63>ch \n");
printf("Jm‚no nesmˇ mˇt vˇc ne‘ 50 znak–, a nesmˇ obsahovat mezery:\n");
printf("Pi¨ mal<61>mi pˇsmeny, pouze prvnˇ pismeno m–‘e b<>t velk‚:\n");
printf("(pouh‚ 'x' je odchod z programu)\n");
printf("Zadej jm<EFBFBD>no. Vy<56>aduje se min 3 znaky v <20>e<EFBFBD>tin<EFBFBD> kodu kamenick<63>ch \n");
printf("Jm<EFBFBD>no nesm<73> m<>t v<>c ne<6E> 50 znak<61>, a nesm<73> obsahovat mezery:\n");
printf("Pi<EFBFBD> mal<61>mi p<>smeny, pouze prvn<76> pismeno m<><6D>e b<>t velk<6C>:\n");
printf("(pouh<EFBFBD> 'x' je odchod z programu)\n");
jmeno_chyba:
gets(jmeno);
if (jmeno[0]=='x' && jmeno[1]==0) return;
if (strlen(jmeno)<3)
{
printf("Jm‚no musˇ b<>t min 3 znaky dlouh‚\n");
printf("Jm<EFBFBD>no mus<75> b<>t min 3 znaky dlouh<75>\n");
goto jmeno_chyba;
}
chyba:
printf("Jsi mu‘ nebo ‘ena? (M/Z nebo M/F nebo X):");
printf("Jsi mu<EFBFBD> nebo <20>ena? (M/Z nebo M/F nebo X):");
pohlavi=getchar();
while (getchar()!='\n');
puts("");
@ -414,11 +414,11 @@ main()
{
hlavni();
puts("");
puts("Pokud jsi objevil p©irozen‚ jm‚no (tj re ln‚ jm‚no), kter‚ program\n"
"nedok zal vysklo¤ovat, po¨li mi jeho zn<7A>nˇ na adresu:\n"
puts("Pokud jsi objevil p<EFBFBD>irozen<EFBFBD> jm<6A>no (tj re<72>ln<6C> jm<6A>no), kter<65> program\n"
"nedok<EFBFBD>zal vysklo<6C>ovat, po<70>li mi jeho zn<7A>n<EFBFBD> na adresu:\n"
"xnovako1@cs.felk.cvut.cz\n");
puts("Verze Latin2 se p©ipravuje...\n"
"O slovensk‚ verzi se zatˇm neuva‘uje...\n");
puts("Napsal: Ond©ej Nov k za 2 a p–l hodiny ve WATCOM C\n"
"Zdroj ky majˇ povahu PUBLIC DOMAIN\n");
puts("Verze Latin2 se p<EFBFBD>ipravuje...\n"
"O slovensk<EFBFBD> verzi se zat<61>m neuva<76>uje...\n");
puts("Napsal: Ond<EFBFBD>ej Nov<6F>k za 2 a p<>l hodiny ve WATCOM C\n"
"Zdroj<EFBFBD>ky maj<61> povahu PUBLIC DOMAIN\n");
}