Teza doctorat (pdf) - Universitatea Tehnică

Se repune {CIFRA} in stream-ul de intrare:
nrcif--;
unput(yytext[1]);
}
2. Regula pentru tratarea cifrei ‘0’ :
0 { // cifra 0 singulară
if((nrcif==1)&&(nrini==1))
{
copy(Cuvint,"zero");
return(NUMAR);
}
// Dacă nu e singulară
// nu se mai rosteşte "zero zeci", "zero sute"
nrcif--;
}
3. Reguli pentru tratarea cifrelor ‘1’, ‘2’, ‘3’, … :
1 { //unu
copy(Cuvint,"unu");
cat(Cuvint,term[nrcif]);
// Excepţiile pentru o sută, o mie, un milion :
if((nrcif==3)||(nrcif==6))
copy(Cuvint,"o suta ");
// 1000=o mie, dar:
// 31000= treizeci si unu mii
if((nrcif==4)&&(nrini==4))
copy(Cuvint,"o mie ");
if((nrcif==7))
copy(Cuvint,"un milion ");
// Excepţie pentru două cifre: ‘unsprezece’
if(exc_1x)
{ copy(Cuvint,"un"); // un
cat(Cuvint,term_1x); // sprezece
cat(Cuvint,term[nrcif]); // mii sau milioane
exc_1x=0; }
if(nrcif>0) nrcif--;
return(NUMAR);
}
2 { //doi
if(nrcif>=2)
copy(Cuvint,"doua");
else
copy(Cuvint,"doi");
// Excepţie pentru două cifre: ‘doisprezece’
if(exc_1x)
{
cat(Cuvint,term_1x);
exc_1x=0;
}
187
Cap. 6. Metode de sinteză de voce