12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396 |
-
-
- #include <stdio.h>
- #include <string.h>
- #include <ctype.h>
- #include <stdlib.h>
-
- #include "wx/wx.h"
- #include "wx/wfstream.h"
- #include "wx/dir.h"
- #include "wx/filename.h"
-
- #include "speak_lib.h"
- #include "main.h"
- #include "speech.h"
- #include "options.h"
- #include "phoneme.h"
- #include "synthesize.h"
- #include "voice.h"
- #include "spect.h"
-
-
- #define tNUMBER 1
- #define tSTRING 2
- #define tPHONEMEMNEM 3
- #define tKEYWORD 4
- #define tSIGNEDNUMBER 5
-
- #define tPHONEMESTART 1
- #define tEND 2
- #define tSPECT 3
- #define tWAVE 4
- #define tSTARTTYPE 5
- #define tENDTYPE 6
- #define tBEFORE 7
- #define tAFTER 8
- #define tTONESPEC 9
- #define tLENGTHMOD 11
- #define tLENGTH 12
- #define tLONGLENGTH 13
- #define tOLDNAME 14
- #define tREDUCETO 15
- #define tFIXEDCODE 16
- #define tBEFOREVOWEL 17
- #define tBEFOREVOWELPAUSE 18
- #define tBEFORENOTVOWEL 19
- #define tLINKOUT 20
- #define tSWITCHVOICING 21
- #define tVOWELIN 22
- #define tVOWELOUT 23
- #define tAPPENDPH 24
- #define tIMPORTPH 25
-
- #define tPHONEMENUMBER 29
- #define tPHONEMETABLE 30
- #define tINCLUDE 31
-
- extern void Write4Bytes(FILE *f, int value);
- extern void MakeVowelLists(void);
- extern void FindPhonemesUsed(void);
- extern void DrawEnvelopes();
- extern int CompileDictionary(const char *dsource, const char *dict_name, FILE *log, char *fname);
-
- static int markers_used[8];
-
- typedef struct {
- void *link;
- int value;
- int ph_mnemonic;
- short ph_table;
- char string[1];
- } REF_HASH_TAB;
-
-
- #define N_ENVELOPES 30
- #define ENV_LEN 128
- int n_envelopes = 0;
- char envelope_paths[N_ENVELOPES][80];
- unsigned char envelope_dat[N_ENVELOPES][ENV_LEN];
-
-
-
- class Compile
- {
- public:
- Compile();
- void CPhonemeTab(const char *path);
-
- private:
- int CPhoneme();
- void StartPhonemeTable(const char *name);
- void EndPhonemeTable();
- void CPhonemeFiles();
- int NextItem(int type);
- void UngetItem();
- void Error(const char *msg);
- void Error(const char *msg, const char *msg2);
- void Summary(FILE *f);
- void SummarySpect(FILE *f,unsigned int value);
- void SummarySpectList(FILE *f,int ref,const char *label);
- const char *PhonemeMnem(int phcode);
- void WritePhonemeTable();
- void Report();
-
- int LookupPhoneme(const char *string, int declare);
- void ReservePhCode(const char *string, int value);
- const char *GetKeyMnem(int value);
- int LoadSpect(const char *path, int control);
- int LoadWavefile(FILE *f, const char *fname);
- int LoadEnvelope(FILE *f, const char *fname);
- int LoadEnvelope2(FILE *f, const char *fname);
- int LoadDataFile(const char *path, int control);
- int AddSpect(int phcode, int *list, int control);
- void AddSpectList(int *list, int control);
- void AddEnvelope(int *list);
- void VowelTransition(int which, unsigned int *trans);
- void ImportPhoneme(void);
-
-
- FILE *f_in;
- FILE *f_phdata;
- FILE *f_phcontents;
- FILE *f_errors;
- FILE *f_phindex;
- FILE *f_phtab;
- int f_in_displ;
- int f_in_linenum;
-
- PHONEME_TAB *ph;
-
- int linenum;
- int item_type;
- char current_fname[80];
- char item_string[256];
- char phoneme_tab_name[N_PHONEME_TAB_NAME];
- unsigned int vowel_in[2];
- unsigned int vowel_out[2];
-
- int n_phcodes_list[N_PHONEME_TABS];
- PHONEME_TAB_LIST phoneme_tab_list2[N_PHONEME_TABS];
- PHONEME_TAB *phoneme_tab2;
- int n_phoneme_tabs;
-
-
- int n_phcodes;
-
- int count_references;
- int duplicate_references;
- int count_frames;
- int error_count;
-
- REF_HASH_TAB *ref_hash_tab[256];
-
- typedef struct {
- FILE *file;
- int linenum;
- char fname[80];
- } STACK;
-
- #define N_STACK 12
- int stack_ix;
- STACK stack[N_STACK];
-
- };
-
- char path_source[sizeof(path_home)+20];
-
- Compile *compile;
-
- typedef struct {
- const char *mnem;
- int data;
- } keywtab_t;
-
- static keywtab_t keywords[] = {
- {"vowel", 0x1000000+phVOWEL},
- {"liquid", 0x1000000+phLIQUID},
- {"pause", 0x1000000+phPAUSE},
- {"stress", 0x1000000+phSTRESS},
- {"virtual", 0x1000000+phVIRTUAL},
-
- {"fricative", 0x1000000+phFRICATIVE},
- {"vstop", 0x1000000+phVSTOP},
- {"vfricative",0x1000000+phVFRICATIVE},
- {"delete_phoneme", 0x1000000+phDELETED},
-
-
- {"stop", 0x1000000+phSTOP},
- {"frc", 0x1000000+phFRICATIVE},
- {"nasal", 0x1000000+phNASAL},
- {"flp", 0x1000000+phVSTOP},
- {"afr", 0x1000000+phSTOP},
- {"apr", 0x1000000+phFRICATIVE},
-
-
-
- {"phonemenumber", 29},
- {"phonemetable", 30},
- {"include", 31},
-
- {"phoneme", 1},
- {"endphoneme", 2},
- {"formants", 3},
- {"wave", 4},
- {"starttype",5},
- {"endtype", 6},
- {"before", 7},
- {"after", 8},
- {"tone", 9},
- {"lengthmod",11},
- {"length", 12},
- {"longlength", 13},
- {"reduceto", 15},
- {"beforevowel", 17},
- {"beforevowelpause", 18},
- {"beforenotvowel",19},
- {"linkout",20},
- {"switchvoicing",21},
- {"vowelin",22},
- {"vowelout",23},
- {"appendph",24},
- {"import_phoneme",25},
-
-
- {"wavef", 0x2000000+phWAVE},
- {"unstressed", 0x2000000+phUNSTRESSED},
- {"fortis", 0x2000000+phFORTIS},
- {"sibilant", 0x2000000+phSIBILANT},
- {"nolink", 0x2000000+phNOLINK},
- {"trill", 0x2000000+phTRILL},
- {"vowel2", 0x2000000+phVOWEL2},
- {"palatal", 0x2000000+phPALATAL},
- {"long", 0x2000000+phLONG},
- {"brkafter", 0x2000000+phBRKAFTER},
- {"nonsyllabic",0x2000000+phNONSYLLABIC},
-
-
- {"vcd", 0x2000000+phVOICED},
- {"vls", 0x2000000+phFORTIS},
-
-
- {"blb", 0x2010000},
- {"lbd", 0x2020000},
- {"dnt", 0x2030000},
- {"alv", 0x2040000},
- {"rfx", 0x2050000},
- {"pla", 0x2060000},
- {"pal", 0x2070000},
- {"vel", 0x2080000},
- {"lbv", 0x2090000},
- {"uvl", 0x20a0000},
- {"phr", 0x20b0000},
- {"glt", 0x20c0000},
-
-
- {"len=", 0x3000001},
- {"rms=", 0x3000002},
- {"f1=", 0x3000003},
- {"f2=", 0x3000004},
- {"f3=", 0x3000005},
- {"brk", 0x3000006},
- {"rate", 0x3000007},
- {"glstop", 0x3000008},
- {"lenadd", 0x3000009},
- {"f4", 0x300000a},
- {"paus", 0x300000b},
- {"colr=",0x300000c},
- {"amp=", 0x300000d},
- {"", -1}
- };
-
-
- extern void strncpy0(char *to,const char *from, int size);
-
-
-
- static unsigned int StringToWord(const char *string)
- {
-
- int ix;
- unsigned char c;
- unsigned int word;
-
- word = 0;
- for(ix=0; ix<4; ix++)
- {
- if(string[ix]==0) break;
- c = string[ix];
- word |= (c << (ix*8));
- }
- return(word);
- }
-
-
- int Read4Bytes(FILE *f)
- {
-
- int ix;
- unsigned char c;
- int acc=0;
-
- for(ix=0; ix<4; ix++)
- {
- c = fgetc(f) & 0xff;
- acc += (c << (ix*8));
- }
- return(acc);
- }
-
-
- static FILE *fopen_log(FILE *f_log, const char *fname,const char *access)
- {
-
- FILE *f;
-
- if((f = fopen(fname,access)) == NULL)
- {
- if(f_log != NULL)
- fprintf(f_log,"Can't access (%s) file '%s'\n",access,fname);
- }
- return(f);
- }
-
-
- int Hash8(const char *string)
-
-
- {
- int c;
- int chars=0;
- int hash=0;
-
- while((c = *string++) != 0)
- {
- c = tolower(c) - 'a';
- hash = hash * 8 + c;
- hash = (hash & 0x1ff) ^ (hash >> 8);
- chars++;
- }
-
- return((hash+chars) & 0xff);
- }
-
-
-
-
-
- Compile::Compile()
- {
-
- linenum = 0;
- }
-
-
- void Compile::Error(const char *msg)
- {
- fprintf(f_errors,"%3d: %s\n",linenum,msg);
- error_count++;
- }
-
- void Compile::Error(const char *msg, const char *msg2)
- {
- fprintf(f_errors,"%3d: %s: '%s'\n",linenum,msg,msg2);
- error_count++;
- }
-
-
-
- const char *Compile::PhonemeMnem(int phcode)
- {
- if((phcode >= 0) && (phcode < N_PHONEME_TAB))
- return(WordToString(phoneme_tab2[phcode].mnemonic));
- else
- return("???");
- }
-
-
- const char *Compile::GetKeyMnem(int value)
- {
- keywtab_t *p;
-
- p = keywords;
-
- while(p->data != -1)
- {
- if(p->data == value)
- return(p->mnem);
- p++;
- }
- return("???");
- }
-
-
- void Compile::ReservePhCode(const char *string, int value)
- {
-
-
- unsigned int word;
-
- word = StringToWord(string);
-
- phoneme_tab2[value].mnemonic = word;
- phoneme_tab2[value].code = value;
- if(n_phcodes <= value)
- n_phcodes = value+1;
- }
-
-
- int Compile::LookupPhoneme(const char *string, int control)
- {
-
-
-
-
- int ix;
- int start;
- int use;
- unsigned int word;
-
- if(strcmp(string,"NULL")==0)
- return(1);
-
- ix = strlen(string);
- if((ix==0) || (ix> 4))
- {
- Error("Bad phoneme",string);
- }
- word = StringToWord(string);
-
-
- start = 1;
-
- if(control==2)
- start = 8;
-
-
- use = 0;
- for(ix=start; ix<n_phcodes; ix++)
- {
- if(phoneme_tab2[ix].mnemonic == word)
- return(ix);
-
- if((use==0) && (phoneme_tab2[ix].mnemonic == 0))
- {
- use = ix;
- }
- }
-
-
-
- if(use == 0)
- {
- if(n_phcodes >= N_PHONEME_TAB-1)
- return(-1);
- use = n_phcodes++;
- }
-
-
- phoneme_tab2[use].mnemonic = word;
- phoneme_tab2[use].type = phINVALID;
- phoneme_tab2[use].spect = linenum;
- return(use);
- }
-
-
-
- int Compile::NextItem(int type)
- {
- int acc;
- unsigned char c=0;
- unsigned char c2;
- int ix;
- int sign;
- int keyword;
- keywtab_t *p;
-
- f_in_displ = ftell(f_in);
- f_in_linenum = linenum;
-
- while(!feof(f_in))
- {
- c = fgetc(f_in);
- if(c=='/')
- {
- if((c2 = fgetc(f_in))=='/')
- {
-
- while(!feof(f_in) && ((c=fgetc(f_in)) != '\n'));
- }
- else
- {
- ungetc(c2,f_in);
- }
- }
- if(c == '\n') linenum++;
- if(!isspace(c))
- {
- break;
- }
- }
- if(feof(f_in))
- return(tEND);
-
- if((type == tNUMBER) || (type == tSIGNEDNUMBER))
- {
- acc = 0;
- sign = 1;
- if((c == '-') && (type == tSIGNEDNUMBER))
- {
- sign = -1;
- c = fgetc(f_in);
- }
- if(!isdigit(c))
- Error("Expected number");
- while(isdigit(c))
- {
- acc *= 10;
- acc += (c - '0');
- c = fgetc(f_in);
- }
- ungetc(c,f_in);
- return(acc * sign);
- }
-
- ix = 0;
- while(!feof(f_in) && !isspace(c))
- {
- item_string[ix++] = c;
- c = fgetc(f_in);
- if(feof(f_in))
- break;
- if(item_string[ix-1] == '=')
- break;
- }
- item_string[ix] = 0;
-
- if(!feof(f_in))
- ungetc(c,f_in);
-
- keyword = -1;
-
- if(type == tSTRING)
- {
- return(0);
- }
- if(type == tKEYWORD)
- {
- p = keywords;
- while(p->data != -1)
- {
- if(strcmp(item_string,p->mnem)==0)
- {
- item_type = p->data >> 24;
- return(p->data & 0xffffff);
- }
- p++;
- }
- item_type = -1;
- return(-1);
- }
- if(type == tPHONEMEMNEM)
- {
- return(LookupPhoneme(item_string,2));
- }
- return(-1);
- }
-
-
- void Compile::UngetItem()
- {
- fseek(f_in,f_in_displ,SEEK_SET);
- linenum = f_in_linenum;
- }
-
-
-
- int Compile::LoadSpect(const char *path, int control)
- {
- SpectSeq *spectseq;
- int peak;
- int displ;
- int frame;
- int ix;
- int x;
- int rms;
- float total;
- float pkheight;
- SpectFrame *fr;
- wxString path_sep = _T("/");
-
- SPECT_SEQ seq_out;
-
-
- spectseq = new SpectSeq;
- if(spectseq == NULL)
- {
- Error("Failed to create SpectSeq");
- return(0);
- }
-
- wxString filename = path_phsource + path_sep + wxString(path,wxConvLocal);
- wxFileInputStream stream(filename);
-
- if(stream.Ok() == FALSE)
- {
- Error("Failed to open",path);
- return(0);
- }
- spectseq->Load(stream);
-
- displ = ftell(f_phdata);
-
- seq_out.n_frames=0;
- seq_out.flags=0;
- seq_out.length=0;
-
- total = 0;
- for(frame=0; frame < spectseq->numframes; frame++)
- {
-
- #ifdef deleted
- for(ix=0; ix<8; ix++)
- {
-
- if(spectseq->frames[frame]->markers & (1<<ix))
- {
- markers_used[ix]++;
- if((ix==3) || (ix==4))
- {
- fprintf(f_errors,"Marker %d: %s\n",ix,path);
- }
- }
- }
- #endif
-
- if(spectseq->frames[frame]->keyframe)
- {
- seq_out.n_frames++;
- if(frame > 0)
- total += spectseq->frames[frame-1]->length;
- }
- }
- seq_out.length = int(total);
-
- if((control & 1) && (spectseq->numframes > 2))
- {
-
- spectseq->frames[1]->markers |= FRFLAG_VOWEL_CENTRE;
- }
-
- ix = 0;
- for(frame=0; frame < spectseq->numframes; frame++)
- {
- fr = spectseq->frames[frame];
-
- if(fr->keyframe)
- {
- x = int(fr->length + 0.5);
- if(x > 255) x = 255;
- seq_out.frame[ix].length = x;
-
- seq_out.frame[ix].frflags = fr->markers;
- rms = int(fr->GetRms(spectseq->amplitude));
- if(rms > 255) rms = 255;
- seq_out.frame[ix].rms = rms;
-
- if(ix == (seq_out.n_frames-1))
- seq_out.frame[ix].length = 0;
-
-
- count_frames++;
- for(peak=0; peak<N_PEAKS; peak++)
- {
- seq_out.frame[ix].ffreq[peak] = fr->peaks[peak].pkfreq;
- pkheight = spectseq->amplitude * fr->amp_adjust * fr->peaks[peak].pkheight;
- pkheight = pkheight/640000;
- if(pkheight > 255) pkheight = 255;
- seq_out.frame[ix].fheight[peak] = int(pkheight);
-
- if(peak < 6)
- {
- x = fr->peaks[peak].pkwidth/4;
- if(x > 255) x = 255;
- seq_out.frame[ix].fwidth[peak] = x;
-
- x = fr->peaks[peak].pkright/4;
- if(x > 255) x = 255;
- seq_out.frame[ix].fright[peak] = x;
- }
- }
-
- #ifdef LOG_DETAIL
- fprintf(f_errors,"Frame %d %3dmS rms=%3d flags=%2d pk=%4d %4d %4d",ix,seq_out.frame[ix].length,
- seq_out.frame[ix].rms,seq_out.frame[ix].flags,
- seq_out.frame[ix].peaks[1].pkfreq,seq_out.frame[ix].peaks[2].pkfreq,seq_out.frame[ix].peaks[3].pkfreq);
-
- if(fr->markers != 0)
- {
- fprintf(f_errors," [%x]",fr->markers);
- }
- fputc('\n',f_errors);
- #endif
-
- ix++;
- }
- }
-
- ix = (char *)(&seq_out.frame[seq_out.n_frames]) - (char *)(&seq_out);
- ix = (ix+3) & 0xfffc;
-
- fwrite(&seq_out,ix,1,f_phdata);
-
- delete spectseq;
- return(displ);
- }
-
-
-
- int Compile::LoadWavefile(FILE *f, const char *fname)
- {
- int displ;
- unsigned char c1;
- unsigned char c3;
- int c2;
- int sample;
- int sample2;
- float x;
- int max = 0;
- int length;
- int sr1, sr2;
- int resample_wav = 0;
- char fname_temp[100];
- int scale_factor=0;
- char command[sizeof(path_source)+200];
-
- fseek(f,24,SEEK_SET);
- sr1 = Read4Bytes(f);
- sr2 = Read4Bytes(f);
- fseek(f,40,SEEK_SET);
-
- if((sr1 != samplerate) || (sr2 != sr1*2))
- {
- #ifdef PLATFORM_WINDOWS
- if(sr1 != samplerate)
- {
- fprintf(f_errors,"Wrong samplerate %d, wants %d\n",sr1,samplerate);
- Error("Wrong samplerate: ",fname);
- }
- if(sr2 != sr1*2)
- {
- Error("Not mono: ",fname);
- }
- #else
- sprintf(fname_temp,"%s.wav",tmpnam(NULL));
- sprintf(command,"sox \"%s%s.wav\" -r %d -c 1 -w %s polyphase\n",path_source,fname,samplerate,fname_temp);
- if(system(command) < 0)
- {
- Error("Failed to resample: ",command);
- return(0);
- }
-
- f = fopen(fname_temp,"rb");
- if(f == NULL)
- {
- Error("Can't read temp file: ",fname_temp);
- return(0);
- }
- resample_wav = 1;
- fseek(f,40,SEEK_SET);
- #endif
- }
-
- displ = ftell(f_phdata);
-
-
- length = Read4Bytes(f);
-
- while(!feof(f))
- {
- c1 = fgetc(f);
- c3 = fgetc(f);
- if(feof(f)) break;
-
- c2 = c3 << 24;
- c2 = c2 >> 16;
-
- sample = (c1 & 0xff) + c2;;
-
- if(sample > max)
- max = sample;
- else
- if(sample < -max)
- max = -sample;
-
- }
- if(max > 1)
- {
- scale_factor = (max / 127) + 1;
- }
- else
- scale_factor = 0;
-
-
-
- #define MIN_FACTOR 6
- if(scale_factor > MIN_FACTOR)
- {
- length = length/2 + (scale_factor << 16);
- }
-
- Write4Bytes(f_phdata,length);
-
- fseek(f,44,SEEK_SET);
-
- while(!feof(f))
- {
- c1 = fgetc(f);
- c3 = fgetc(f);
- c2 = c3 << 24;
- c2 = c2 >> 16;
-
- sample = (c1 & 0xff) + c2;
-
- if(feof(f)) break;
-
- if(scale_factor <= MIN_FACTOR)
- {
- fputc(sample & 0xff,f_phdata);
- fputc(sample >> 8,f_phdata);
- }
- else
- {
- x = (float(sample) / scale_factor) + 0.5;
- sample2= int(x);
- if(sample2 > 127)
- sample2 = 127;
- if(sample2 < -128)
- sample2 = -128;
- fputc(sample2,f_phdata);
- }
- }
-
- length = ftell(f_phdata);
- while((length & 3) != 0)
- {
-
- fputc(0,f_phdata);
- length++;
- }
-
- if(resample_wav != 0)
- {
- fclose(f);
- remove(fname_temp);
- }
- return(displ | 0x800000);
- }
-
-
-
- int Compile::LoadEnvelope(FILE *f, const char *fname)
- {
- int displ;
- char buf[128];
-
- displ = ftell(f_phdata);
-
- fseek(f,12,SEEK_SET);
- fread(buf,1,128,f);
- fwrite(buf,1,128,f_phdata);
-
- if(n_envelopes < N_ENVELOPES)
- {
- strncpy0(envelope_paths[n_envelopes],fname,sizeof(envelope_paths[0]));
- memcpy(envelope_dat[n_envelopes],buf,sizeof(envelope_dat[0]));
- n_envelopes++;
- }
-
- return(displ);
- }
-
-
- int Compile::LoadDataFile(const char *path, int control)
- {
-
-
-
- FILE *f;
- int id;
- int hash;
- int addr = 0;
- int type_code=' ';
- REF_HASH_TAB *p, *p2;
- char buf[sizeof(path_source)+120];
-
- if(strcmp(path,"NULL")==0)
- return(0);
- if(strcmp(path,"DFT")==0)
- return(1);
-
- count_references++;
-
- hash = Hash8(path);
- p = ref_hash_tab[hash];
- while(p != NULL)
- {
- if(strcmp(path,p->string)==0)
- {
- duplicate_references++;
- addr = p->value;
- break;
- }
- p = (REF_HASH_TAB *)p->link;
- }
-
- if(addr == 0)
- {
- sprintf(buf,"%s%s",path_source,path);
-
- if((f = fopen(buf,"rb")) == NULL)
- {
- sprintf(buf,"%s%s.wav",path_source,path);
- if((f = fopen(buf,"rb")) == NULL)
- {
- Error("Can't read file",path);
- return(0);
- }
- }
-
- id = Read4Bytes(f);
- rewind(f);
-
- if(id == 0x43455053)
- {
- addr = LoadSpect(path, control);
- type_code = 'S';
- }
- else
- if(id == 0x46464952)
- {
- addr = LoadWavefile(f,path);
- type_code = 'W';
- }
- else
- if(id == 0x43544950)
- {
- addr = LoadEnvelope(f,path);
- type_code = 'E';
- }
- else
- if(id == 0x45564E45)
- {
- addr = LoadEnvelope2(f,path);
- type_code = 'E';
- }
- else
- {
- Error("File not SPEC or RIFF",path);
- addr = -1;
- }
- fclose(f);
-
- if(addr > 0)
- {
- fprintf(f_phcontents,"%c 0x%.5x %s\n",type_code,addr & 0x7fffff,path);
- }
- }
-
-
- if(addr > 0)
- {
- p = ref_hash_tab[hash];
- p2 = (REF_HASH_TAB *)malloc(sizeof(REF_HASH_TAB)+strlen(path)+1);
- p2->value = addr;
- p2->ph_mnemonic = ph->mnemonic;
- p2->ph_table = n_phoneme_tabs-1;
- strcpy(p2->string,path);
- p2->link = (char *)p;
- ref_hash_tab[hash] = p2;
- }
-
- return(addr);
- }
-
-
-
- void Compile::AddEnvelope(int *list)
- {
- NextItem(tSTRING);
- *list++ = LoadDataFile(item_string,0);
- list[0] = 0;
- }
-
-
- int Compile::AddSpect(int phcode, int *list, int control)
- {
- int sign;
- int sign2;
- int all_digits;
- char *p;
- char *p2;
- int spect;
- int value;
- int count = 0;
- int v_in = vowel_in[0];
- int v_out = vowel_out[0];
-
- sign = 0;
- all_digits=0;
- p = p2 = item_string;
- for(;;)
- {
- if((*p == 0) || (*p == '+') || (((*p == '-') || (*p == '%')) && isdigit(p[1])))
- {
- sign2 = *p;
- *p = 0;
-
- if(all_digits)
- {
- value = atoi(p2);
- if(sign == '+')
- *list++ = 1 + (value<<8);
- else
- if(sign == '-')
- *list++ = 2 + (value<<8);
- else
- {
- value = (value * 32)/100;
- *list++ = 3 + (value<<8);
- }
- count++;
- }
- else
- {
- spect = LoadDataFile(p2, control);
- if(spect != -1)
- {
- *list++ = phcode + (spect<<8);
- count++;
-
-
-
- if(v_in != 0)
- {
- *list++ = 0x4 + (vowel_in[0] << 8);
- *list++ = vowel_in[1];
- v_in = 0;
- count+=2;
- }
- if(v_out != 0)
- {
- *list++ = 0x5 + (vowel_out[0] << 8);
- *list++ = vowel_out[1];
- v_out = 0;
- count+=2;
- }
-
- }
- phcode = 0;
- }
-
- if((sign = sign2)==0) break;
- p2 = p+1;
- all_digits=1;
- }
- else
- {
- if(!isdigit(*p))
- all_digits=0;
- }
- p++;
- }
- *list = 0;
- return(count);
- }
-
-
-
- void Compile::AddSpectList(int *list, int control)
- {
- int phcode;
- int key;
-
- while(*list != 0) list++;
-
- for(;;)
- {
- key = NextItem(tKEYWORD);
- UngetItem();
- if(key != -1)
- break;
-
- phcode = NextItem(tPHONEMEMNEM);
-
- if(phcode == -1)
- Error("Undeclared phoneme",item_string);
-
- if(NextItem(tSTRING) == -1)
- break;
-
- list += AddSpect(phcode, list, control);
- }
-
- *list++ = 0;
- }
-
-
-
- static int Range(int value, int divide, int min, int max)
- {
- if(value < 0)
- value -= divide/2;
- else
- value += divide/2;
- value = value / divide;
-
- if(value > max)
- value = max;
- if(value < min)
- value = min;
- return(value - min);
- }
-
-
- void Compile::VowelTransition(int which, unsigned int *trans)
- {
-
- int key;
- int len=0;
- int rms=0;
- int f1=0;
- int f2=0;
- int f2_min=0;
- int f2_max=0;
- int f3_adj=0;
- int f3_amp=0;
- int flags=0;
- int vcolour=0;
- int x;
-
- if(which==1)
- {
- len = 50 / 2;
- rms = 25 / 2;
- }
- else
- if(which==2)
- {
- len = 36 / 2;
- rms = 16 / 2;
- }
-
- for(;;)
- {
- key = NextItem(tKEYWORD);
- if(item_type != 3)
- {
- UngetItem();
- break;
- }
-
- switch(key & 0xf)
- {
- case 1:
- len = Range(NextItem(tNUMBER), 2, 0, 63) & 0x3f;
- flags |= 1;
- break;
- case 2:
- rms = Range(NextItem(tNUMBER), 2, 0, 31) & 0x1f;
- flags |= 1;
- break;
- case 3:
- f1 = NextItem(tNUMBER);
- break;
- case 4:
- f2 = Range(NextItem(tNUMBER), 50, 0, 63) & 0x3f;
- f2_min = Range(NextItem(tSIGNEDNUMBER), 50, -15, 15) & 0x1f;
- f2_max = Range(NextItem(tSIGNEDNUMBER), 50, -15, 15) & 0x1f;
- if(f2_min > f2_max)
- {
- x = f2_min;
- f2_min = f2_max;
- f2_max = x;
- }
- break;
- case 5:
- f3_adj = Range(NextItem(tSIGNEDNUMBER), 50, -15, 15) & 0x1f;
- f3_amp = Range(NextItem(tNUMBER), 8, 0, 15) & 0x1f;
- break;
- case 6:
- flags |= 2;
- break;
- case 7:
- flags |= 4;
- break;
- case 8:
- flags |= 8;
- break;
- case 9:
- flags |= 16;
- break;
- case 10:
- flags |= 32;
- break;
- case 11:
- flags |= 64;
- break;
- case 12:
- vcolour = NextItem(tNUMBER);
- break;
- case 13:
- rms = (Range(NextItem(tNUMBER), 1, 0, 31) & 0x1f) | 0x20;
- flags |= 1;
- break;
- }
- }
- trans[0] = len + (rms << 6) + (flags << 12) + 0x80000000;
- trans[1] = f2 + (f2_min << 6) + (f2_max << 11) + (f3_adj << 16) + (f3_amp << 21) + (f1 << 26) + (vcolour << 29);
- }
-
-
- void Compile::ImportPhoneme(void)
- {
- int ix;
- unsigned int mnem;
- unsigned int ph_mnem;
- unsigned int ph_code;
- PHONEME_TAB_LIST *phtab = NULL;
-
- NextItem(tSTRING);
- mnem = StringToWord(item_string);
-
- NextItem(tSTRING);
- for(ix=0; ix<n_phoneme_tabs; ix++)
- {
- if(strcmp(phoneme_tab_list2[ix].name,item_string) == 0)
- {
- phtab = &phoneme_tab_list2[ix];
- break;
- }
- }
- if(phtab == NULL)
- {
- Error("Unknown phoneme table",item_string);
- return;
- }
-
- for(ix=1; ix<256; ix++)
- {
- if(mnem == phtab->phoneme_tab_ptr[ix].mnemonic)
- {
- ph_mnem = ph->mnemonic;
- ph_code = ph->code;
- memcpy(ph,&phtab->phoneme_tab_ptr[ix],sizeof(PHONEME_TAB));
- ph->mnemonic = ph_mnem;
- ph->code = ph_code;
- break;
- }
- }
- if(ix == 256)
- {
- Error("Import phoneme not found",WordToString(mnem));
- }
- }
-
- int Compile::CPhoneme()
- {
- int phcode;
- int phindex;
- int value;
- int item;
- int finish=0;
- int *intp;
- int before_tab[N_PHONEME_TAB];
- int after_tab[N_PHONEME_TAB];
- int default_spect[N_PHONEME_TAB];
-
- NextItem(tSTRING);
- phindex = LookupPhoneme(item_string,1);
- if(phindex == -1) return(0);
-
- ph = &phoneme_tab2[phindex];
- memset(ph,0,sizeof(PHONEME_TAB));
- ph->mnemonic = StringToWord(item_string);
- ph->type = 0xff;
- ph->code = phindex;
- before_tab[0] = 0;
- after_tab[0] = 0;
- default_spect[0] = 0;
- vowel_in[0] = 0;
- vowel_in[1] = 0;
- vowel_out[0] = 0;
- vowel_out[1] = 0;
-
- while(!finish)
- {
- item = NextItem(tKEYWORD);
-
- if(item_type==2)
- ph->phflags |= item & 0xffffff;
- else
- if(item_type==1)
- {
- if(ph->type != 0xff)
- {
- Error("Phoneme type already set",item_string);
- }
- ph->type = item & 0xff;
- }
- else
- switch(item)
- {
- case tLENGTHMOD:
- ph->length_mod = NextItem(tNUMBER);
- break;
-
- case tLENGTH:
- ph->std_length = NextItem(tNUMBER);
- break;
-
- case tWAVE:
- ph->phflags |= phWAVE;
- case tSPECT:
- if(NextItem(tSTRING) == -1)
- Error("Syntax error",item_string);
- else
- {
- if(ph->type == phVOWEL)
- AddSpect(phonPAUSE,default_spect,1);
- else
- AddSpect(phonPAUSE,default_spect,0);
- }
- break;
-
- case tSTARTTYPE:
- phcode = NextItem(tPHONEMEMNEM);
- if(phcode == -1)
- phcode = LookupPhoneme(item_string,1);
- ph->start_type = phcode;
- break;
-
- case tENDTYPE:
- phcode = NextItem(tPHONEMEMNEM);
- if(phcode == -1)
- phcode = LookupPhoneme(item_string,1);
- ph->end_type = phcode;
- break;
-
- case tTONESPEC:
- ph->start_type = NextItem(tNUMBER);
- ph->end_type = NextItem(tNUMBER);
- if(ph->start_type > ph->end_type)
- {
-
- value = ph->start_type;
- ph->start_type = ph->end_type;
- ph->end_type = value;
- }
- AddEnvelope(default_spect);
- AddEnvelope(after_tab);
- break;
-
- case tREDUCETO:
- phcode = NextItem(tPHONEMEMNEM);
- if(phcode == -1)
- phcode = LookupPhoneme(item_string,1);
- ph->reduce_to = phcode;
- value = NextItem(tNUMBER);
- ph->phflags = (ph->phflags & 0xfffffff) + (value << 28);
- break;
-
- case tBEFORENOTVOWEL:
- ph->phflags |= phBEFORENOTVOWEL;
- case tBEFOREVOWELPAUSE:
- ph->phflags |= phBEFOREVOWELPAUSE;
- case tBEFOREVOWEL:
- if((phcode = NextItem(tPHONEMEMNEM)) == -1)
- phcode = LookupPhoneme(item_string,1);
- ph->alternative_ph = phcode;
- break;
-
- case tSWITCHVOICING:
- ph->phflags |= phSWITCHVOICING;
- if((phcode = NextItem(tPHONEMEMNEM)) == -1)
- phcode = LookupPhoneme(item_string,1);
- ph->alternative_ph = phcode;
- break;
-
- case tAPPENDPH:
- ph->phflags |= phAPPENDPH;
- case tLINKOUT:
- phcode = NextItem(tPHONEMEMNEM);
- if(phcode == -1)
- phcode = LookupPhoneme(item_string,1);
- ph->link_out = phcode;
- break;
-
- case tBEFORE:
- AddSpectList(before_tab,0);
- break;
-
- case tAFTER:
- AddSpectList(after_tab,0);
- break;
-
- case tEND:
- finish = 1;
- break;
-
- case tVOWELIN:
- VowelTransition(1,vowel_in);
- break;
-
- case tVOWELOUT:
- VowelTransition(2,vowel_out);
- break;
-
- case tIMPORTPH:
- ImportPhoneme();
- break;
-
- default:
- Error("Syntax error",item_string);
- break;
- }
- }
-
- if(before_tab[0] != 0)
- {
- ph->before = ftell(f_phindex) / 4;
- intp = before_tab;
- for(;;)
- {
- fwrite(intp,4,1,f_phindex);
- if(*intp++ == 0) break;
- }
- }
- if(after_tab[0] != 0)
- {
- ph->after = ftell(f_phindex) / 4;
- intp = after_tab;
- for(;;)
- {
- fwrite(intp,4,1,f_phindex);
- if(*intp++ == 0) break;
- }
- }
- if(default_spect[0] != 0)
- {
- ph->spect = ftell(f_phindex) / 4;
- intp = default_spect;
- for(;;)
- {
- fwrite(intp,4,1,f_phindex);
- if(*intp++ == 0) break;
- }
- }
-
- if(ph->phflags & phVOICED)
- {
- if(ph->type == phSTOP)
- ph->type = phVSTOP;
- else
- if(ph->type == phFRICATIVE)
- ph->type = phVFRICATIVE;
- }
-
- ph->std_length |= 0x8000;
-
- if(ph->type == phDELETED)
- {
- ph->mnemonic = 0x01;
- }
-
- return(phindex);
- }
-
-
-
- void Compile::WritePhonemeTable()
- {
- int ix;
- int j;
- int n;
- int value;
- int count;
- PHONEME_TAB *p;
-
- value = n_phoneme_tabs;
- fputc(value,f_phtab);
- fputc(0,f_phtab);
- fputc(0,f_phtab);
- fputc(0,f_phtab);
-
- for(ix=0; ix<n_phoneme_tabs; ix++)
- {
- p = phoneme_tab_list2[ix].phoneme_tab_ptr;
- n = n_phcodes_list[ix];
- p[n].mnemonic = 0;
-
-
- count=0;
- for(j=0; j<n; j++)
- {
- if(ix==0)
- p[j].std_length |= 0x8000;
-
- if(p[j].std_length & 0x8000)
- count++;
- }
- phoneme_tab_list2[ix].n_phonemes = count+1;
-
- fputc(count+1,f_phtab);
- fputc(phoneme_tab_list2[ix].includes,f_phtab);
- fputc(0,f_phtab);
- fputc(0,f_phtab);
-
- fwrite(phoneme_tab_list2[ix].name,1,N_PHONEME_TAB_NAME,f_phtab);
-
- for(j=0; j<n; j++)
- {
- if(p[j].std_length & 0x8000)
- {
-
-
- p[j].std_length &= 0x7fff;
- fwrite(&p[j],sizeof(PHONEME_TAB),1,f_phtab);
- }
- }
- fwrite(&p[n],sizeof(PHONEME_TAB),1,f_phtab);
- free(p);
- }
- }
-
-
- void Compile::EndPhonemeTable()
- {
- int ix;
-
- if(n_phoneme_tabs == 0)
- return;
-
-
- for(ix=0; ix<n_phcodes; ix++)
- {
- if(phoneme_tab2[ix].type == phINVALID)
- {
- fprintf(f_errors,"%3d: Phoneme [%s] not declared, referenced at line %d\n",linenum,
- WordToString(phoneme_tab2[ix].mnemonic),int(phoneme_tab2[ix].spect));
- error_count++;
- }
- }
-
- n_phcodes_list[n_phoneme_tabs-1] = n_phcodes;
- }
-
-
- void Compile::StartPhonemeTable(const char *name)
- {
- int ix;
- int j;
- PHONEME_TAB *p;
-
- fprintf(f_errors,"______________________________\nPhoneme Table: '%s'\n",name);
-
- if(n_phoneme_tabs >= N_PHONEME_TABS-1)
- {
- Error("Too many phonemetables");
- return;
- }
- p = (PHONEME_TAB *)calloc(sizeof(PHONEME_TAB),N_PHONEME_TAB);
-
- if(p == NULL)
- {
- Error("Out of memory");
- return;
- }
-
- if(gui_flag)
- progress->Update(n_phoneme_tabs);
-
- phoneme_tab_list2[n_phoneme_tabs].phoneme_tab_ptr = phoneme_tab2 = p;
- memset(phoneme_tab_list2[n_phoneme_tabs].name, 0, N_PHONEME_TAB_NAME);
- strncpy0(phoneme_tab_list2[n_phoneme_tabs].name, name, N_PHONEME_TAB_NAME);
- n_phcodes = 1;
- phoneme_tab_list2[n_phoneme_tabs].includes = 0;
-
- if(n_phoneme_tabs > 0)
- {
- NextItem(tSTRING);
- for(ix=0; ix<n_phoneme_tabs; ix++)
- {
- if(strcmp(item_string,phoneme_tab_list2[ix].name)==0)
- {
- phoneme_tab_list2[n_phoneme_tabs].includes = ix+1;
-
-
- memcpy(phoneme_tab2,phoneme_tab_list2[ix].phoneme_tab_ptr,sizeof(PHONEME_TAB)*N_PHONEME_TAB);
- n_phcodes = n_phcodes_list[ix];
-
-
- for(j=0; j<n_phcodes; j++)
- phoneme_tab2[j].std_length = phoneme_tab2[j].std_length & 0x7fff;
- break;
- }
- }
- if(ix == n_phoneme_tabs)
- {
- Error("Can't find base phonemetable '%s'",item_string);
- }
- }
-
- n_phoneme_tabs++;
- }
-
-
-
- void Compile::CPhonemeFiles()
- {
- int phcode;
- int item;
- FILE *f;
- char buf[sizeof(path_source)+120];
-
- linenum = 1;
- n_phcodes = 1;
-
- count_references = 0;
- duplicate_references = 0;
- count_frames = 0;
-
- for(;;)
- {
- if(feof(f_in))
- {
-
-
- if(stack_ix == 0)
- break;
- fclose(f_in);
- f_in = stack[--stack_ix].file;
- strcpy(current_fname,stack[stack_ix].fname);
- linenum = stack[stack_ix].linenum;
- fprintf(f_errors,"\n\n");
- }
-
- item = NextItem(tKEYWORD);
-
- if(item == tINCLUDE)
- {
- NextItem(tSTRING);
- sprintf(buf,"%s%s",path_source,item_string);
- if((stack_ix < N_STACK) && (f = fopen_log(f_errors,buf,"rb")) != NULL)
- {
- fprintf(f_errors,"include %s\n",item_string);
- stack[stack_ix].linenum = linenum;
- strcpy(stack[stack_ix].fname,current_fname);
- stack[stack_ix++].file = f_in;
-
- f_in = f;
- strncpy0(current_fname,item_string,sizeof(current_fname));
- linenum = 1;
- }
- }
- else
- if(item == tPHONEMETABLE)
- {
- EndPhonemeTable();
- NextItem(tSTRING);
- StartPhonemeTable(item_string);
- }
- else
- if(item == tPHONEMENUMBER)
- {
-
- phcode = NextItem(tNUMBER);
- NextItem(tSTRING);
- ReservePhCode(item_string,phcode);
- }
- else
- if(item == tPHONEMESTART)
- {
- if(n_phoneme_tabs == 0)
- {
- Error("phonemetable is missing");
- return;
- }
- phcode = CPhoneme();
- }
- else
- if(!feof(f_in))
- Error("Keyword 'phoneme' expected");
- }
- phoneme_tab2[n_phcodes+1].mnemonic = 0;
- }
-
-
-
- #ifdef MAKE_ENVELOPES
-
- #define ENV_LEN 128
- void MakeEnvelope(unsigned char *env, float *points_x, float *points_y)
- {
- int ix = -1;
- int x,y;
-
- for(x=0; x<ENV_LEN; x++)
- {
- if(x > points_x[ix+4])
- ix++;
-
- y = (int)polint(&points_x[ix],&points_y[ix],4,x);
- if(y < 0) y = 0;
- if(y > 255) y = 255;
- env[x] = y;
- }
- }
-
- static float env1_x[]={0,0x30,0x40,ENV_LEN};
- static float env1_y[]={0,200,255,255};
- static float env2_x[]={0,0x28,0x48,0x60,ENV_LEN};
- static float env2_y[]={255,0xe0,0xc0,0x60,0};
- static float env3_x[]={0,0x18,0x30,ENV_LEN};
- static float env3_y[]={0,0x28,0x50,255};
- static float env4_x[]={0,0x20,0x40,0x60,ENV_LEN};
- static float env4_y[]={255,0x70,0,0x70,255};
- static float env5_x[]={0,0x20,0x40,0x58,0x70,ENV_LEN};
- static float env5_y[]={0,0x28,0x50,0xa0,0xf0,255};
- static float env6_x[]={0,0x20,0x38,0x60,ENV_LEN};
- static float env6_y[]={255,0xe8,0xd0,0x68,0};
-
- static float env7_x[]={0,0x20,0x40,0x60,ENV_LEN};
- static float env7_y[]={85,42,0,128,255};
- static float env8_x[]={0,0x20,0x40,0x60,ENV_LEN};
- static float env8_y[]={255,130,20,10,0};
- static float env9_x[]={0,0x20,0x40,0x60,ENV_LEN};
- static float env9_y[]={255,210,140,70,0};
-
- static float enva3_x[]={0,44,64,84,ENV_LEN};
- static float enva3_y[]={255,255,160,255,255};
- static float enva6_x[]={0,44,64,80,ENV_LEN};
- static float enva6_y[]={255,255,255,250,50};
-
-
- unsigned char env_test[ENV_LEN];
-
- void MakeEnvFile(char *fname, float *x, float *y, int source)
- {
- static char hdr[12] = {'P','I','T','C','H','E','N','V',80,0,120,0};
- FILE *f;
- int ix;
-
- MakeEnvelope(env_test,x,y);
- f = fopen(fname,"wb");
-
- if(source)
- {
- for(ix=0; ix<128; ix++)
- {
- fprintf(f,"0x%.2x,",env_test[ix]);
- if((ix & 7) == 7)
- fprintf(f,"\n");
- }
- }
- else
- {
- fwrite(hdr,12,1,f);
- fwrite(env_test,128,1,f);
- }
- fclose(f);
-
- }
-
-
- void make_envs()
- {
- MakeEnvFile("p_level",env1_x,env1_y,0);
- MakeEnvFile("p_rise",env5_x,env5_y,0);
- MakeEnvFile("p_fall",env9_x,env9_y,0);
- MakeEnvFile("p_214",env7_x,env7_y,0);
- MakeEnvFile("p_211",env8_x,env8_y,0);
-
-
- MakeEnvFile("vi_2",env2_x,env2_y,0);
- MakeEnvFile("vi_5",env3_x,env3_y,0);
- MakeEnvFile("p_fallrise",env4_x,env4_y,0);
- MakeEnvFile("vi_6",env6_x,env6_y,0);
-
-
- MakeEnvFile("vi_5amp",enva3_x,enva3_y,0);
- MakeEnvFile("vi_6amp",enva6_x,enva6_y,0);
-
- }
- #endif
-
- int Compile::LoadEnvelope2(FILE *f, const char *fname)
- {
- int ix;
- int n;
- int x, y;
- int displ;
- int n_points;
- char line_buf[128];
- float env_x[20];
- float env_y[20];
- int env_lin[20];
- unsigned char env[ENV_LEN];
-
- n_points = 0;
- fgets(line_buf,sizeof(line_buf),f);
- while(!feof(f))
- {
- if(fgets(line_buf,sizeof(line_buf),f) == NULL)
- break;
-
- env_lin[n_points] = 0;
- n = sscanf(line_buf,"%f %f %d",&env_x[n_points],&env_y[n_points],&env_lin[n_points]);
- if(n >= 2)
- {
- env_x[n_points] *= 1.28;
- n_points++;
- }
- }
- env_x[n_points] = env_x[n_points-1];
- env_y[n_points] = env_y[n_points-1];
-
- ix = -1;
- for(x=0; x<ENV_LEN; x++)
- {
- if(x > env_x[ix+4])
- ix++;
-
- if(n_points > 3)
- y = (int)(polint(&env_x[ix],&env_y[ix],4,x) * 2.55);
- else
- y = (int)(polint(&env_x[ix],&env_y[ix],3,x) * 2.55);
- if(y < 0) y = 0;
- if(y > 255) y = 255;
- env[x] = y;
- }
-
-
- if(n_envelopes < N_ENVELOPES)
- {
- strncpy0(envelope_paths[n_envelopes],fname,sizeof(envelope_paths[0]));
- memcpy(envelope_dat[n_envelopes],env,ENV_LEN);
- n_envelopes++;
- }
-
- displ = ftell(f_phdata);
- fwrite(env,1,128,f_phdata);
-
- return(displ);
- }
-
-
- static int ref_sorter(char **a, char **b)
- {
- int ix;
-
- REF_HASH_TAB *p1 = (REF_HASH_TAB *)(*a);
- REF_HASH_TAB *p2 = (REF_HASH_TAB *)(*b);
-
- ix = strcoll(p1->string,p2->string);
- if(ix != 0)
- return ix;
-
- ix = p1->ph_table - p2->ph_table;
- if(ix != 0)
- return ix;
-
- return(p1->ph_mnemonic - p2->ph_mnemonic);
- }
-
-
-
- void Compile::Report(void)
- {
- int ix;
- int hash;
- int n;
- REF_HASH_TAB *p;
- REF_HASH_TAB **list;
- FILE *f_report;
- const char *data_path;
- int prev_table;
- int prev_mnemonic;
- char fname[sizeof(path_source)+20];
-
-
- list = (REF_HASH_TAB **)malloc((count_references)* sizeof(REF_HASH_TAB *));
- if(list == NULL)
- return;
-
- sprintf(fname,"%scompile_report",path_source);
- f_report = fopen(fname,"w");
- if(f_report == NULL)
- {
- free(list);
- return;
- }
-
- fprintf(f_report,"%d phoneme tables\n",n_phoneme_tabs);
- fprintf(f_report," new total\n");
- for(ix=0; ix<n_phoneme_tabs; ix++)
- {
- fprintf(f_report,"%8s %3d %4d\n",phoneme_tab_list2[ix].name, phoneme_tab_list2[ix].n_phonemes, n_phcodes_list[ix]+1);
- }
- fputc('\n',f_report);
-
- fprintf(f_report,"Data file Used by\n");
- ix = 0;
- for(hash=0; (hash < 256) && (ix < count_references); hash++)
- {
- p = ref_hash_tab[hash];
- while(p != NULL)
- {
- list[ix++] = p;
- p = (REF_HASH_TAB *)(p->link);
- }
- }
- n = ix;
- qsort((void *)list,n,sizeof(REF_HASH_TAB *),(int (*)(const void *,const void *))ref_sorter);
-
- data_path = "";
- prev_mnemonic = 0;
- prev_table = 0;
- for(ix=0; ix<n; ix++)
- {
- int j = 0;
-
- if(strcmp(list[ix]->string, data_path) != 0)
- {
- data_path = list[ix]->string;
- j = strlen(data_path);
- fprintf(f_report,"%s",data_path);
- }
- else
- {
- if((list[ix]->ph_table == prev_table) && (list[ix]->ph_mnemonic == prev_mnemonic))
- continue;
- }
-
- while(j < 14)
- {
- fputc(' ',f_report);
- j++;
- }
-
- fprintf(f_report," [%s] %s",WordToString(prev_mnemonic = list[ix]->ph_mnemonic), phoneme_tab_list2[prev_table = list[ix]->ph_table].name);
- fputc('\n',f_report);
-
- free(list[ix]);
- }
- free(list);
- fclose(f_report);
- }
-
-
- #ifdef PLATFORM_WINDOWS
- int strcasecmp(const char *s1, const char *s2)
- {
- int ix=0;
- int diff;
-
- for(;;)
- {
- if((diff = (tolower(s1[ix]) - tolower(s2[ix]))) != 0)
- return(diff);
-
- if((s1[ix] == 0) || (s2[ix] == 0))
- return(diff);
-
- ix++;
- }
- }
- #endif
-
-
- static int ph_sorter(char **a, char **b)
- {
- int ix;
- int t1, t2;
- char mnem1[6];
-
- PHONEME_TAB *p1 = (PHONEME_TAB *)(*a);
- PHONEME_TAB *p2 = (PHONEME_TAB *)(*b);
-
- t1 = p1->type;
- if(t1 > phVOWEL) t1 = phVOWEL+1;
-
- t2 = p2->type;
- if(t2 > phVOWEL) t2 = phVOWEL+1;
-
- if((ix = t1 - t2) != 0)
- return(ix);
-
- strcpy(mnem1,WordToString(p1->mnemonic));
- return(strcasecmp(mnem1,WordToString(p2->mnemonic)));
- }
-
-
-
- void PrintPhonemesUsed(FILE *f, const char *dictname)
- {
- int ix;
- PHONEME_TAB *ph;
- PHONEME_TAB *ph_tab[N_PHONEME_TAB];
- int count = 0;
- int n_ph = 0;
- int section = 0;
-
- fprintf(f,"\n\nDictionary %s_dict\n",dictname);
- fflush(f);
-
- for(ix=0; (ix<N_PHONEME_TAB) && (phoneme_tab[ix] != NULL); ix++)
- {
- if(phoneme_tab_flags[ix] & 2)
- {
- ph_tab[n_ph++] = phoneme_tab[ix];
- }
- }
-
- qsort((void *)ph_tab,n_ph,sizeof(PHONEME_TAB *),(int (*)(const void *,const void *))ph_sorter);
-
- for(ix=0; ix<n_ph; ix++)
- {
- ph = ph_tab[ix];
-
- if(ph->type > 1)
- {
- if((ph->type > phVOWEL) && (section == 0))
- {
- section = 1;
- count = 0;
- fputc('\n',f);
- }
- if((count & 0x7) == 0)
- fputc('\n',f);
- fprintf(f,"%-4s ",WordToString(ph->mnemonic));
- count++;
- }
- }
- fputc('\n',f);
- }
-
-
-
- wxString CompileAllDictionaries()
- {
- wxString filename;
- wxFileName fname;
- wxString dictstr;
- wxString report = _T("");
- int err;
- int errors = 0;
- int dict_count = 0;
- FILE *log;
- FILE *f_phused;
- char dictname[80];
- char fname_log[sizeof(path_dsource)+20];
- char save_voice_name[80];
-
- if(!wxDirExists(path_dictsource))
- {
- if(gui_flag)
- {
- wxString dirname = wxDirSelector(_T("Directory of dictionary files"),path_phsource);
- if(!dirname.IsEmpty())
- {
- path_dictsource = dirname;
- strncpy0(path_dsource,path_dictsource.mb_str(wxConvLocal),sizeof(path_dsource)-1);
- strcat(path_dsource,"/");
- }
- }
- else
- {
- fprintf(stderr,"Can't find dictionary files: %s\n",path_dsource);
- }
- }
-
- wxDir dir(path_dictsource);
- if(!dir.IsOpened())
- {
- return(_T(" No dictionaries"));
- }
-
- strcpy(save_voice_name,voice_name2);
-
- sprintf(fname_log,"%s%s",path_dsource,"dict_log");
- log = fopen(fname_log,"w");
- sprintf(fname_log,"%s%s",path_dsource,"dict_phonemes");
- f_phused = fopen(fname_log,"w");
-
- if(f_phused)
- {
- fprintf(f_phused,"Phonemes which are used in the *_rules and *_list files\n");
- }
-
- bool cont = dir.GetFirst(&filename, _T("*_rules"), wxDIR_FILES);
- while ( cont )
- {
- fname = wxFileName(filename);
- dictstr = fname.GetName().BeforeLast('_');
- strcpy(dictname,dictstr.mb_str(wxConvLocal));
- dict_count++;
-
- LoadVoice(dictname,0);
-
- if((err = CompileDictionary(path_dsource, dictname,log,NULL)) > 0)
- {
- report = report + dictstr + wxString::Format(_T(" %d, "),err);
- errors += err;
- }
-
- if(f_phused != NULL)
- {
- memset(phoneme_tab_flags,0,sizeof(phoneme_tab_flags));
- FindPhonemesUsed();
- PrintPhonemesUsed(f_phused,dictname);
- }
-
- cont = dir.GetNext(&filename);
- }
- if(log != NULL)
- fclose(log);
- if(f_phused != NULL)
- fclose(f_phused);
-
- LoadVoice(save_voice_name,1);
-
- if(errors == 0)
- return(wxString::Format(_T(" Compiled %d dictionaries"),dict_count));
- else
- {
- return(_T(" Dictionary errors: ") + report);
- }
-
- }
-
-
-
- void Compile::CPhonemeTab(const char *source)
- {
- char fname[sizeof(path_source)+40];
- wxString report;
- wxString report_dict;
-
- #ifdef MAKE_ENVELOPES
- make_envs();
- #endif
-
- n_envelopes = 0;
- error_count = 0;
- memset(markers_used,0,sizeof(markers_used));
-
- f_errors = stderr;
-
- strncpy0(current_fname,source,sizeof(current_fname));
-
- strncpy0(fname,path_phfile.mb_str(wxConvLocal),sizeof(fname));
- f_in = fopen_log(f_errors,fname,"rb");
- if(f_in == NULL)
- {
- if(gui_flag)
- {
- wxString phfile = wxFileSelector(_T("Master phonemes file"),path_phsource,
- _T(""),_T(""),_T("*"),wxOPEN);
-
- if(!phfile.IsEmpty())
- {
- path_phfile = phfile;
- }
- }
-
- strncpy0(fname,path_phfile.mb_str(wxConvLocal),sizeof(fname));
- f_in = fopen_log(f_errors,fname,"rb");
- if(f_in == NULL)
- {
- wxLogError(_T("Can't read master phonemes file:\n") + wxString(fname,wxConvLocal));
- return;
- }
- }
-
- progress_max = 0;
- while(fgets(fname,sizeof(fname),f_in) != NULL)
- {
-
- if(memcmp(fname,"phonemetable",12)==0)
- progress_max++;
- }
- rewind(f_in);
-
- sprintf(fname,"%s%s",path_source,"error_log");
- if((f_errors = fopen_log(f_errors,fname,"w")) == NULL)
- f_errors = stderr;
-
- sprintf(fname,"%s/%s",path_home,"phondata-manifest");
- if((f_phcontents = fopen_log(f_phcontents,fname,"w")) == NULL)
- f_phcontents = stderr;
-
- fprintf (f_phcontents,
- "# This file lists the type of data that has been compiled into the\n"
- "# phondata file\n"
- "#\n"
- "# The first character of a line indicates the type of data:\n"
- "# S - A SPECT_SEQ structure\n"
- "# W - A wavefile segment\n"
- "# E - An envelope\n"
- "#\n"
- "# Address is the displacement within phondata of this item\n"
- "#\n"
- "# Address Data file\n"
- "# ------- ---------\n");
-
-
- sprintf(fname,"%s/%s",path_home,"phondata");
- f_phdata = fopen_log(f_errors,fname,"wb");
-
- sprintf(fname,"%s/%s",path_home,"phonindex");
- f_phindex = fopen_log(f_errors,fname,"wb");
-
- sprintf(fname,"%s/%s",path_home,"phontab");
- f_phtab = fopen_log(f_errors,fname,"wb");
-
- if(f_phdata==NULL || f_phindex==NULL || f_phtab==NULL)
- {
- return;
- }
-
- if(gui_flag)
- {
- progress = new wxProgressDialog(_T("Phonemes"),_T(""),progress_max);
- }
- else
- {
- fprintf(stderr,"Compiling phoneme data: %s\n",path_source);
- }
-
-
- Write4Bytes(f_phdata,version_phdata);
- Write4Bytes(f_phindex,version_phdata);
-
- memset(ref_hash_tab,0,sizeof(ref_hash_tab));
-
- n_phoneme_tabs = 0;
- stack_ix = 0;
- StartPhonemeTable("base");
- CPhonemeFiles();
-
- EndPhonemeTable();
- WritePhonemeTable();
-
- fprintf(f_errors,"Refs %d, Reused %d\n",count_references,duplicate_references);
- fclose(f_in);
- fclose(f_phdata);
- fclose(f_errors);
- fclose(f_phindex);
- fclose(f_phtab);
- fclose(f_phcontents);
-
- LoadPhData();
- LoadVoice(voice_name2,0);
- Report();
- DrawEnvelopes();
-
- report_dict = CompileAllDictionaries();
-
- if(gui_flag)
- {
- delete progress;
- }
-
- report.Printf(_T("Compiled phonemes: %d errors."),error_count);
- if(error_count > 0)
- {
- report += _T(" See file: 'error_log'.");
- wxLogError(report);
- }
- wxLogStatus(report + report_dict);
-
- if(gui_flag == 0)
- {
- strncpy0(fname,(report+report_dict).mb_str(wxConvLocal),sizeof(fname));
- fprintf(stderr,"%s\n",fname);
-
- }
- }
-
-
-
- void CompileMbrola()
- {
- char *p;
- FILE *f_in;
- FILE *f_out;
- int percent;
- int n;
- int count = 0;
- int control;
- char phoneme[40];
- char phoneme2[40];
- char name1[40];
- char name2[40];
- char mbrola_voice[40];
- char buf[sizeof(path_home)+30];
- int mbrola_ctrl = 20;
- MBROLA_TAB data[N_PHONEME_TAB];
-
- wxString filepath = wxFileSelector(_T("Read Mbrola phonemes file"),path_phsource+_T("/mbrola"),_T(""),_T(""),_T("*"),wxOPEN);
- strcpy(buf,filepath.mb_str(wxConvLocal));
- if((f_in = fopen(buf,"r")) == NULL)
- {
- wxLogError(_T("Can't read: ")+filepath);
- return;
- }
-
- while(fgets(buf,sizeof(phoneme),f_in) != NULL)
- {
- buf[sizeof(phoneme)-1] = 0;
-
- if((p = strstr(buf,"//")) != NULL)
- *p = 0;
-
- if(memcmp(buf,"volume",6)==0)
- {
- mbrola_ctrl = atoi(&buf[6]);
- continue;
- }
-
- n = sscanf(buf,"%d %s %s %d %s %s",&control,phoneme,phoneme2,&percent,name1,name2);
- if(n >= 5)
- {
- data[count].name = StringToWord(phoneme);
- if(strcmp(phoneme2,"NULL")==0)
- data[count].next_phoneme = 0;
- else
- if(strcmp(phoneme2,"VWL")==0)
- data[count].next_phoneme = 2;
- else
- data[count].next_phoneme = StringToWord(phoneme2);
- data[count].mbr_name = 0;
- data[count].mbr_name2 = 0;
- data[count].percent = percent;
- data[count].control = control;
- if(strcmp(name1,"NULL")!=0)
- data[count].mbr_name = StringToWord(name1);
- if(n == 6)
- data[count].mbr_name2 = StringToWord(name2);
-
- count++;
- }
- }
- fclose(f_in);
-
- wxFileName filename = wxFileName(filepath);
- strcpy(mbrola_voice,filename.GetName().mb_str(wxConvLocal));
- sprintf(buf,"%s/mbrola_ph/%s_phtrans",path_home,mbrola_voice);
- if((f_out = fopen(buf,"w")) == NULL)
- {
- wxLogError(_T("Can't write to: ")+wxString(buf,wxConvLocal));
- return;
- }
-
- data[count].name = 0;
- fwrite(&mbrola_ctrl,4,1,f_out);
- fwrite(data,sizeof(MBROLA_TAB),count+1,f_out);
- fclose(f_out);
- wxLogStatus(_T("Mbrola translation file: %d phonemes"),count);
- }
-
-
-
- void CompileInit(void)
- {
- compile = new Compile;
- compile->CPhonemeTab("phonemes");
- delete compile;
- }
|