Solved problem with opening windows on Mac
[sgc2.git] / Config.praat
blob81c4837d4976995aa44299839eeff4032b8f9a92
2 # SpeakGoodChinese 2.0
3
4 # Praat script handling configuration page
6 #     SpeakGoodChinese: Config.praat loads the code needed for the 
7 #     settings and the Settings page of SpeakGoodChinese.
8 #     
9 #     Copyright (C) 2007-2010  R.J.J.H. van Son and 2010 the Netherlands Cancer Institute
10 #     The SpeakGoodChinese team are:
11 #     Guangqin Chen, Zhonyan Chen, Stefan de Koning, Eveline van Hagen, 
12 #     Rob van Son, Dennis Vierkant, David Weenink
13
14 #     This program is free software; you can redistribute it and/or modify
15 #     it under the terms of the GNU General Public License as published by
16 #     the Free Software Foundation; either version 2 of the License, or
17 #     (at your option) any later version.
18
19 #     This program is distributed in the hope that it will be useful,
20 #     but WITHOUT ANY WARRANTY; without even the implied warranty of
21 #     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
22 #     GNU General Public License for more details.
23
24 #     You should have received a copy of the GNU General Public License
25 #     along with this program; if not, write to the Free Software
26 #     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
27
29 ###############################################################
31 # Button Drawing Routines
33 ###############################################################
35 procedure DrawCredits .color$ .x .y .size
36         .size *= 0.71
37         .lineheight = 2*.size
38         call adjustFontSizeOnHeight 'defaultFont$' 24 '.lineheight'
39         .currentFontSize = adjustFontSizeOnHeight.newFontSize
40     demo Paint circle... {0.2,0.2,0.8} '.x' '.y' '.size'
41         demo Colour... White
42         demo Text special... '.x' centre '.y' half Times '.currentFontSize' 0 i
43         demoShow()
44         demo Colour... Black
45         call set_font_size 'defaultFontSize'    
46 endproc
48 procedure DrawDeleteList .color$ .x .y .size
49     .y += 2*.size
50     .leftX = .x - 10
51     .rightX = .x + 10
52     .botY = .y+1
53     .topY = .botY + 5
54         call set_font_size 12
55     demo Red
56     .displayWordList$ = replace_regex$(wordlistName$, "[_]", " ", 0)
58         # Adapt wide of text
59         .maxWidth = (.rightX - .leftX)
60     .currentFontSize = defaultFontSize
61         call adjustFontSizeOnWidth 'defaultFont$' '.currentFontSize' '.maxWidth' '.displayWordList$'
62         .currentFontSize = adjustFontSizeOnWidth.newFontSize
63         if adjustFontSizeOnWidth.diff > 0
64                 .rightX += adjustFontSizeOnWidth.diff/2
65                 .leftX -= adjustFontSizeOnWidth.diff/2
66         endif
67         call set_font_size '.currentFontSize'
68     demo Paint rectangle... White '.leftX' '.rightX' '.botY' '.topY'
70         demo Text... '.x' Centre '.botY' Bottom '.displayWordList$'
71     demo Black
72         demoShow()
73         call set_font_size 'defaultFontSize'
74 endproc
76 procedure DrawLogging .color$ .x .y .size
77     .size /= 2
78         .y += .size
79     if .color$ = "Blue"
80         .color$ = "{0.5,0.5,1}"
81      else
82         .color$ = "Blue"
83      endif
84     demo Paint circle... '.color$' '.x' '.y' '.size'
85 endproc
87 ###############################################################
89 # Obligatory button Drawing Routines
90
91 # These MUST be defined
93 ###############################################################
95 procedure DrawReturn .color$ .x .y .size
96     call DrawConfig '.color$' '.x' '.y' '.size'
97 endproc
99 # Set the correct button states after redrawing the window
100 procedure setConfigMainPage
101         call testLoadTable SummaryToneEvaluation
102         if testLoadTable.table <= 0
103                 call Draw_button 'config$' PerfSummary 1
104         endif
105     # Handle logging buttons with forced button draw
106     if fileReadable("'preferencesLogDir$'/logPerformance.txt")
107         call Draw_button 'config$' +!Logging 'config.logPerformance'
108     endif
109 endproc
111 ###############################################################
113 # Button Processing Routines
115 ###############################################################
117 procedure processConfigShuffleLists .clickX .clickY .pressed$
118         .table$ = "Config"
119         .label$ = "ShuffleLists"
120         config.shuffleLists = not config.shuffleLists
121         .displayButton = 2*config.shuffleLists
122     call Draw_button '.table$' '.label$' '.displayButton'
123 endproc
125 procedure processConfigUseSoundExample .clickX .clickY .pressed$
126         .table$ = "Config"
127         .label$ = "UseSoundExample"
128         config.useSoundExample = not config.useSoundExample
129         .displayButton = 2*config.useSoundExample
130     call Draw_button '.table$' '.label$' '.displayButton'
131 endproc
132         
133 procedure processConfigSynthesis .tts$ .clickX .clickY .pressed$
134         .table$ = "Config"
135         .label$ = "Synthesis_'.tts$'"
136         if sgc2.synthesizer > 0 or (speakCommandFile$ <> "" and fileReadable(speakCommandFile$))
137                 if config.synthesis$ = ""
138                         config.synthesis$ = .tts$
139                         .displayButton = 2
140                 else
141                         config.synthesis$ = ""
142                         .displayButton = 0
143                 endif
144         else
145                 config.synthesis$ = "_DISABLED_"
146                 .displayButton = -1
147         endif
148     call Draw_button '.table$' '.label$' '.displayButton'
149 endproc
150         
151 procedure processConfigStrict .clickX .clickY .pressed$
152         .table$ = "Config"
153         .label$ = "Strict"
154         config.strict = not config.strict
155         if config.strict > 0
156                 .displayButton = 2
157         else
158                 .displayButton = 0
159         endif
160         # Change TTS for Strict!
161         call set_up_TTS
162     call Draw_button '.table$' '.label$' '.displayButton'
163 endproc
165 procedure processConfigDisplayPinyin .clickX .clickY .pressed$
166         .table$ = "Config"
167         .label$ = "DisplayPinyin"
168         config.displayPinyin = not config.displayPinyin
169         .displayButton = 2*config.displayPinyin
170     call Draw_button '.table$' '.label$' '.displayButton'
171 endproc
172                 
173 procedure processConfigDisplayChar .clickX .clickY .pressed$
174         .table$ = "Config"
175         .label$ = "DisplayChar"
176         config.displayChar = not config.displayChar
177         .displayButton = 2*config.displayChar
178     call Draw_button 'table$' '.label$' '.displayButton'
179 endproc
181 procedure processConfigDisplayTrans .clickX .clickY .pressed$
182         .table$ = "Config"
183         .label$ = "DisplayTrans"
184         config.displayTrans = not config.displayTrans
185         .displayButton = 2*config.displayTrans
186     call Draw_button 'table$' '.label$' '.displayButton'
187 endproc
189 procedure processConfigDisplayNumbers .clickX .clickY .pressed$
190         .table$ = "Config"
191         .label$ = "DisplayNumbers"
192         config.displayNumbers = not config.displayNumbers
193         .displayButton = 2*config.displayNumbers
194     call Draw_button 'table$' '.label$' '.displayButton'
195 endproc
197 procedure processConfigLanguage .language$ .clickX .clickY .pressed$
198         .table$ = "Config"
199         .label$ = "Language_'.language$'"
200         call processLanguageCodes '.table$' '.label$'
201 endproc
202         
203 procedure processConfigShowBackground .clickX .clickY .pressed$
204         .table$ = "Config"
205         .label$ = "ShowBackground"
206         config.showBackground = not config.showBackground
207         .displayButton = 2*config.showBackground
208     call Draw_button 'table$' '.label$' '.displayButton'
209 endproc
211 procedure processConfigInput .input$ .clickX .clickY .pressed$
212         .table$ = "Config"
213         .label$ = "Input_'.input$'"
214     call Draw_button '.table$' Input_'config.input$' 0
215         config.input$ = .input$
216     call Draw_button '.table$' Input_'config.input$' 2
217 endproc
219 procedure processConfigRegister .register .clickX .clickY .pressed$
220         .table$ = "Config"
221         .label$ = "Register_'.register'"
222         call setRegisterFromLabel '.table$' '.label$'
223 endproc
224         
225 procedure setRegisterFromLabel .table$ .label$
226     call Draw_button '.table$' Register_'config.register' 0
227     call Draw_button '.table$' '.label$' 2
228     # Someone might have to use more than 3 chars for the config.register code
229     .numChars = length(.label$) - length("Register_")
230         .registerText$ = right$(.label$, .numChars)
231         config.register = '.registerText$'
232 endproc
234 procedure processConfigDeleteWordlist .clickX .clickY .pressed$
235         .table$ = "Config"
236         .label$ = "DeleteWordlist"
238     # Do not process undeletable word lists, only those stored in the 
239     # preferencesDirectory$ can be deleted
240     if fileReadable("'sgc2wordlists$'/'wordlistName$'") or fileReadable("'sgc2wordlists$'/'wordlistName$'/wordlist.txt") or     fileReadable("'sgc2wordlists$'/'wordlistName$'/wordlist.Table")
241                 call findLabel '.table$' !'.label$'
242                 if findLabel.row > 0
243                 select Table '.table$'
244                 .alertText$ = Get value... 'findLabel.row' Text
245                 .confirmKey$ = Get value... 'findLabel.row' Key
246                 .popupText$ = Get value... 'findLabel.row' Helptext
247         else
248             exit Cannot find delete directive: '.table$' !'.label$'
249         endif
250         call write_text_popup 'defaultFont$' 14 '.popupText$'
251         call Draw_button '.table$' '.label$' 2
252         alertText$ = .alertText$
253         call Draw_button '.table$' '.label$' 3
254         alertText$ = ""
255         
256                 # Wait for confirmation
257                 demoWaitForInput()
258         if demoInput(.confirmKey$)
259                 .deleteWordListDir$ = wordlistName$
260                 call load_word_list "'localWordlistDir$'" 1
261                 call removeWordlist '.deleteWordListDir$'
262                         call load_word_list "'localWordlistDir$'" 0
263         endif
264                 call Draw_button '.table$' '.label$' 0
265                 call Draw_config_page
266     endif
267 endproc
269 wordlistTag$ = "Wordlist name"        
270 procedure processConfigInstallWordlist .clickX .clickY .pressed$
271         .table$ = "Config"
272         .label$ = "InstallWordlist"
273     call Draw_button '.table$' '.label$' 1
274         if windows
275                 # Do not use the automatic sgc list option, ask for a wordlist NAME
276                 # Get help text
277                 call findLabel '.table$' '.label$'
278                 .row = findLabel.row
279                 select Table '.table$'
280                 .openDialogue$ = Get value... '.row' Helptext
281                 call convert_praat_to_latin1 '.openDialogue$'
282                 .openDialogue$ = convert_praat_to_latin1.text$
283                 .wordlistButton$ = replace$(wordlistTag$, " ", "_", 0)
284                 .wordlistButton$ = replace_regex$(.wordlistButton$, "^.", "\l&", 0)
285                 beginPause(.openDialogue$)
286                         sentence (wordlistTag$, "")
287                 clicked = endPause ("Cancel", "Open", 2)
288                 .wordlist_Name$ = ""
289                 if clicked = 2
290                         .wordlist_Name$ = '.wordlistButton$'$
291                 endif
292                 call install_wordlists_by_name '.wordlist_Name$'
293         else
294         call sgc2wordlist 'homeDirectory$'
295         call sgc2wordlist 'homeDirectory$'/Downloads
296         call sgc2wordlist 'homeDirectory$'/Documents
297         call sgc2wordlist 'homeDirectory$'/My Documents
298         call sgc2wordlist 'homeDirectory$'/My Documents/Downloads
299         call sgc2wordlist 'homeDirectory$'/Desktop
300         call sgc2wordlist 'preferencesAppDir$'
301         endif
302         call load_word_list "'localWordlistDir$'" 0
303     call Draw_button '.table$' '.label$' 0
304         call Draw_config_page
305 endproc
307 procedure processConfigOpenWordlist .clickX .clickY .pressed$
308         .table$ = "Config"
309         .label$ = "OpenWordlist"
310     call Draw_button '.table$' '.label$' 1
312         # Get help text
313         call findLabel '.table$' '.label$'
314         .row = findLabel.row
315         select Table '.table$'
316         .openDialogue$ = Get value... '.row' Helptext
317         call convert_praat_to_latin1 '.openDialogue$'
318         .openDialogue$ = convert_praat_to_latin1.text$
320         .wordlist_Name$ = chooseReadFile$ (.openDialogue$)
321         call install_wordlists_by_name '.wordlist_Name$'
322         call load_word_list "'localWordlistDir$'" 0
323     call Draw_button '.table$' '.label$' 0
324         call Draw_config_page
325 endproc
327 procedure processConfigPerfSummary .clickX .clickY .pressed$
328         .table$ = "Config"
329         .label$ = "PerfSummary"
330         
331         call testLoadTable SummaryToneEvaluation
332         if testLoadTable.table > 0
333                 call Draw_button '.table$' '.label$' 1
334                 call loadTable SummaryToneEvaluation
335                 call write_tabbed_table SummaryToneEvaluation Evaluation_'config.language$'
336                 demoWaitForInput()
337                 select Table SummaryToneEvaluation
338                 Remove
340                 call Draw_button '.table$' '.label$' 0
341                 call Draw_config_page
342         endif
343 endproc
345 procedure processConfigListPerf .clickX .clickY .pressed$
346         .table$ = "Config"
347         .label$ = "ListPerf"
348     call Draw_button '.table$' '.label$' 1
349         
350         call write_tabbed_table 'initialiseSGC2.toneevaluation_table$' Evaluation_'config.language$'
351         demoWaitForInput()
352         
353     call Draw_button '.table$' '.label$' 0
354         call Draw_config_page
355 endproc
357 procedure processConfigSavePerf .clickX .clickY .pressed$
358         .table$ = "Config"
359         .label$ = "SavePerf"
360     call Draw_button '.table$' '.label$' 1
361         
362         # Get help text
363         call findLabel '.table$' '.label$'
364         .row = findLabel.row
365         select Table '.table$'
366         .openDialogue$ = Get value... '.row' Helptext
367         call convert_praat_to_latin1 '.openDialogue$'
368         .openDialogue$ = convert_praat_to_latin1.text$
370         .wordlist_Name$ = chooseWriteFile$ (.openDialogue$, "Performance.Table")
371         if .wordlist_Name$ <> ""
372                 select Table 'initialiseSGC2.toneevaluation_table$'
373                 Write to table file... '.wordlist_Name$'
374         endif
375         
376     call Draw_button '.table$' '.label$' 0
377         call Draw_config_page
378 endproc
380 procedure processConfigManual .clickX .clickY .pressed$
381         .table$ = "Config"
382         .label$ = "Manual"
383         call Draw_button '.table$' '.label$' 1
384         if fileReadable("ManPages/Demo_Application.man")
385                 Read from file... ManPages/Demo_Application.man
386         else
387                 Go to manual page... Demo Application
388         endif
389         # Wait until the manual is put to the background
390         demoWaitForInput()
391     call Draw_button '.table$' '.label$' 0
392     demo Erase all
393     call Draw_config_page
394 endproc
396 ###############################################################
398 # Obligatory button Processing Routines
400 # These MUST be defined
402 ###############################################################
404 procedure processConfigReturn .clickX .clickY .pressed$
405         .table$ = "Config"
406         .label$ = "Return"
407         call Draw_button '.table$' '.label$' 1
408         call write_preferences ""
409 endproc
411 procedure processConfigRefresh .clickX .clickY .pressed$
412         .table$ = "Config"
413         .label$ = "Refresh"
414         call Draw_config_page
415 endproc
417 procedure processConfigCredits .clickX .clickY .pressed$
418         .table$ = "Config"
419         .label$ = "Credits"
420         call Draw_button '.table$' '.label$' 1
421         call write_text_table Credits_'config.language$'
422         demoWaitForInput()
423     call Draw_button '.table$' '.label$' 0
424     demo Erase all
425     call Draw_config_page
426 endproc
428 procedure processConfigHelp .clickX .clickY .pressed$
429         .table$ = "Config"
430         .label$ = "Help"
431         call help_loop  '.table$' Draw_config_page
432 endproc
434 ###############################################################
436 # Miscelaneous supporting code
438 ###############################################################
439 procedure install_wordlists_by_name .wordlist_Name$
440         if .wordlist_Name$ <> ""
441                 if index(.wordlist_Name$, "wordlist.")
442                         .wordlist_Name$ = replace_regex$(.wordlist_Name$, "[/\\]wordlist\.([^/\\]+)$", "", 0)
443                 elsif index_regex(.wordlist_Name$, "(?i\.(wav|flac|iaf[fc]|mp3))")
444                         .wordlist_Name$ = replace_regex$(.wordlist_Name$, "[/\\][^/\\]+$", "", 0)
445                 endif
446                 if index_regex(.wordlist_Name$, "[/\\]")
447                         .sourceDir$ = left$(.wordlist_Name$, rindex_regex(.wordlist_Name$, "[/\\]") -1)
448                         .file$ = right$(.wordlist_Name$, length(.wordlist_Name$) - rindex_regex(.wordlist_Name$, "[/\\]"))
449                         call readWordlist "'.sourceDir$'" '.file$'
450                 else
451                         .start = 1
452                         if index(.wordlist_Name$, ".")
453                                 .start = 4
454                         endif
455                         .extension1$ = ".sgc"
456                         .extension2$ = ".Table"
457                         .extension3$ = ".txt"
458                         .extension4$ = ""
459                         for .e from .start to 4
460                                 .currentExtension$ = .extension'.e'$
461                         call readWordlist "'homeDirectory$'" '.wordlist_Name$''.currentExtension$'
462                         call readWordlist "'homeDirectory$'/Downloads" '.wordlist_Name$''.currentExtension$'
463                         call readWordlist "'homeDirectory$'/Documents" '.wordlist_Name$''.currentExtension$'
464                         call readWordlist "'homeDirectory$'/My Documents/Downloads" '.wordlist_Name$''.currentExtension$'
465                         call readWordlist "'homeDirectory$'/My Documents" '.wordlist_Name$''.currentExtension$'
466                         call readWordlist "'homeDirectory$'/Desktop" '.wordlist_Name$''.currentExtension$'
467                         call readWordlist "'preferencesAppDir$'" '.wordlist_Name$''.currentExtension$'
468                         endfor
469                 endif
470         endif
471 endproc
473 # Word lists: It is a VERY good idea to make sure that word-lists
474 # have unique names.
475 procedure load_word_list .localdir$ .relnumber
476     # Remove old word list
477     if wordlist$ <> ""
478                 select Table 'wordlist$'
479                 Remove
480                 call wipeArea 'wipeWordlistArea$'
481                 wordlist$ = ""
482     endif
483     
484         # Create Table that will recieve the wordlists and directories
485         Create Table with column names... AllWordLists 0 Name Directory
486         .currentWordlistRow = 0
487         
488         # Start with the word lists in the distribution, unless the local directory exists!
489         call CreateCreateWordlists
490         select Table CreateWordlists
491     .numLists = Get number of rows
492         for .i to .numLists
493                 select Table CreateWordlists
494        .currentName$ = Get value... '.i' Name
495            if not (fileReadable("'.localdir$'/'.currentName$'") or fileReadable("'.localdir$'/'.currentName$'/wordlist.Table") or fileReadable("'.localdir$'/'.currentName$'/wordlist.txt"))
496                    .procedureName$ = replace_regex$(.currentName$, "[^\w\-\.]", "_", 0)
497                         select Table AllWordLists
498                         Append row
499                         .currentWordlistRow = Get number of rows
500                         Set string value... '.currentWordlistRow' Name '.currentName$'
501                     .currentDirectory$ = "*call Create'.procedureName$'"
502                         Set string value... '.currentWordlistRow' Directory '.currentDirectory$'
503                 endif
504         endfor
505         select Table CreateWordlists
506         Remove
508         # First the global word lists
509         if fileReadable(globalwordlists$) or fileReadable("'globalwordlists$'/directory.txt")
510         Create Strings as directory list... WordList 'globalwordlists$'
511         .numLists = Get number of strings
512         for .i to .numLists
513             select Strings WordList
514             .currentName$ = Get string... '.i'
515                         if .currentName$ <> "directory.txt"
516                                 select Table AllWordLists
517                                 Append row
518                                 .currentWordlistRow = Get number of rows
519                                 Set string value... '.currentWordlistRow' Name '.currentName$'
520                         .currentDirectory$ = globalwordlists$+"/"+.currentName$
521                                 Set string value... '.currentWordlistRow' Directory '.currentDirectory$'
522                         endif
523         endfor
524         select Strings WordList
525         Remove
526         endif
527         
528         # Now the preferences word lists
529         if fileReadable(sgc2wordlists$) or fileReadable("'sgc2wordlists$'/directory.txt")
530         Create Strings as directory list... WordList 'sgc2wordlists$'
531         .numLists = Get number of strings
532         for .i to .numLists
533             select Strings WordList
534             .currentName$ = Get string... '.i'
535                         if .currentName$ <> "directory.txt"
536                                 select Table AllWordLists
537                                 Append row
538                                 .currentWordlistRow = Get number of rows
539                                 Set string value... '.currentWordlistRow' Name '.currentName$'
540                         .currentDirectory$ = sgc2wordlists$+"/"+.currentName$
541                                 Set string value... '.currentWordlistRow' Directory '.currentDirectory$'
542                         endif
543         endfor
544         select Strings WordList
545         Remove
546         endif
547         
548         # Finally, the local word lists
549         if fileReadable(.localdir$) or fileReadable("'.localdir$'/directory.txt")
550         Create Strings as directory list... WordList '.localdir$'
551         .numLists = Get number of strings
552         for .i to .numLists
553             select Strings WordList
554             .currentName$ = Get string... '.i'
555                         if .currentName$ <> "directory.txt"
556                                 select Table AllWordLists
557                                 Append row
558                                 .currentWordlistRow = Get number of rows
559                                 Set string value... '.currentWordlistRow' Name '.currentName$'
560                         .currentDirectory$ = .localdir$+"/"+.currentName$
561                                 Set string value... '.currentWordlistRow' Directory '.currentDirectory$'
562                         endif
563         endfor
564         select Strings WordList
565         Remove
566     endif
568         # Get the position of the current word list
569         select Table AllWordLists
570         .currentNumber = 1
571     .numLists = Get number of rows
573         if wordlistName$ <> ""
574                 select Table AllWordLists
575                 .currentNumber = Search column... Name 'wordlistName$'
576         endif
578     wordlistNum = .currentNumber + .relnumber
579     if wordlistNum > .numLists
580         wordlistNum = 1
581         elsif wordlistNum < 1 and .numLists > 0
582                 wordlistNum = .numLists
583     endif
584     select Table AllWordLists
585     wordlistName$ = Get value... 'wordlistNum' Name
586         .dirWordlistName$ = Get value... 'wordlistNum' Directory
587     .dirString$ = replace_regex$(.dirWordlistName$, "[ ]", "&", 0)
588         
589         # Read in full tables
590         if fileReadable("'.dirString$'/wordlist.Table")
591         Read from file... '.dirString$'/wordlist.Table
592         Rename... 'wordlistName$'
593         # Praat wil change the name if it feels like it
594         wordlist$ = selected$("Table")
595         # Handle (legacy) simple word lists
596         elsif fileReadable("'.dirString$'/wordlist.txt")
597                 Create Table with column names... "'wordlistName$'" 0 Pinyin Sound
598         wordlist$ = selected$("Table")
599                 Read Strings from raw text file... '.dirString$'/wordlist.txt
600                 Rename... RawWordList
601                 .numWordStrings = Get number of strings
602                 for .i to .numWordStrings
603                         select Strings RawWordList
604                         .currentLine$ = Get string... '.i'
605                         .currentPinyin$ = extractWord$(.currentLine$, "")
606                         if length(.currentLine$) > length(.currentPinyin$)+1
607                                 .currentFile$ = right$(.currentLine$, length(.currentPinyin$)+1)
608                         elsif fileReadable("'.dirString$'/'.currentPinyin$'.spx")
609                                 .currentFile$ = .currentPinyin$+".spx"
610                         elsif fileReadable("'.dirString$'/'.currentPinyin$'.flac")
611                                 .currentFile$ = .currentPinyin$+".flac"
612                         elsif fileReadable("'.dirString$'/'.currentPinyin$'.wav")
613                                 .currentFile$ = .currentPinyin$+".wav"
614                         elsif fileReadable("'.dirString$'/'.currentPinyin$'.mp3")
615                                 .currentFile$ = .currentPinyin$+".mp3"
616                         else
617                                 .currentFile$ = "-"
618                         endif
619                         select Table 'wordlist$'
620                         Append row
621                         Set string value... '.i' Pinyin '.currentPinyin$'
622                         Set string value... '.i' Sound '.currentFile$'
623                 endfor
624                 select Strings RawWordList
625                 Remove
626                 
627                 select Table 'wordlist$'
628         elsif fileReadable(.dirString$) or fileReadable("'.dirString$'/directory.txt")
629                 Create Table with column names... "'wordlistName$'" 0 Pinyin Sound
630         wordlist$ = selected$("Table")
631                 Create Strings as file list... RawWordList '.dirString$'/*
632                 .numWordStrings = Get number of strings
633                 .i = 0
634                 for .j to .numWordStrings
635                         select Strings RawWordList
636                         .currentLine$ = Get string... '.j'
637                         .currentFile$ = extractWord$(.currentLine$, "")
638                         if index_regex(.currentFile$, "\.(spx|flac|wav|mp3)")
639                                 .currentPinyin$ = left$(.currentFile$, index(.currentFile$, ".")-1)
640                                 select Table 'wordlist$'
641                                 Append row
642                                 .i += 1
643                                 Set string value... '.i' Pinyin '.currentPinyin$'
644                                 Set string value... '.i' Sound '.currentFile$'
645                         endif
646                 endfor
647                 select Strings RawWordList
648                 Remove
649                 
650                 select Table 'wordlist$'
651         elsif startsWith(.dirString$, "*call ")
652                 .callProcedure$ = right$(.dirString$, length(.dirString$)-1)
653                 '.callProcedure$'
654                 wordlist$ = selected$("Table")
655         endif
657         # Can this wordlist be deleted?
658         if fileReadable("'sgc2wordlists$'/'wordlistName$'") or fileReadable("'sgc2wordlists$'/'wordlistName$'/wordlist.txt") or fileReadable("'sgc2wordlists$'/'wordlistName$'/wordlist.Table")
659                 config.deleteWordlist = 0
660         else
661                 config.deleteWordlist = -1              
662         endif
664         # Add a Character and Translation column if missing
665         if wordlist$ <> ""
666                 select Table 'wordlist$'
667         numberOfWords = Get number of rows
668                 .characterColumn = Get column index... Character
669                 if not .characterColumn
670                         Append column... Character
671                         for .i to numberOfWords
672                                 Set string value... '.i' Character -
673                         endfor
674                 endif
675                 .translationColumn = Get column index... Translation
676                 if not .translationColumn
677                         Append column... Translation
678                         for .i to numberOfWords
679                                 Set string value... '.i' Translation -
680                         endfor
681                 endif
682         endif
683         
684         # Remove all rows without Pinyin
685         .numRows = Get number of rows
686         for i to .numRows
687                 .rowNum = .numRows - i + 1
688                 .pinyinValue$ = Get value... '.rowNum' Pinyin
689                 if not index_regex(.pinyinValue$, "[a-zA-Z0-9]")
690                         Remove row... '.rowNum'
691                 endif
692         endfor
693         numberOfWords = Get number of rows
694         
695         # Shuffle words if requested
696     if config.shuffleLists
697         Randomize rows
698     endif
700         # Clean up
701     select Table AllWordLists
702     Remove
703         
704     # There were no Word Lists
705     label NOWORDLISTS
706     if .numLists <= 0
707         wordlistName$ = "No Word Lists available"
708         wordlistNum = 1
709                 Create Table with column names... "'wordlistName$'" 0 Pinyin Character Translation Sound
710         wordlist$ = selected$("Table")
711         .i = 0
712                 Append row
713                 .i += 1
714                 Set string value... '.i' Pinyin ni3hao3
715                 Set string value... '.i' Character -
716                 Set string value... '.i' Translation -
717                 Set string value... '.i' Sound -
718                 Append row
719                 .i += 1
720                 Set string value... '.i' Pinyin xie4xie0
721                 Set string value... '.i' Character -
722                 Set string value... '.i' Translation -
723                 Set string value... '.i' Sound -
724                 Append row
725                 .i += 1
726                 Set string value... '.i' Pinyin zai4jian4
727                 Set string value... '.i' Character -
728                 Set string value... '.i' Translation -
729                 Set string value... '.i' Sound -
730         numberOfWords = Get number of rows
731     endif
733         call set_window_title 'buttons$' 'wordlistName$'
734 endproc
736 procedure display_word_list_name
737     .xtext = 50
738     .ytext = 12
739    call reset_viewport
740     .displayWordList$ = replace_regex$(wordlistName$, "[_]", " ", 0)
741     call wipeArea 'wipeWordlistArea$'
742         call adjustFontSizeOnHeight 'defaultFont$' 'defaultFontSize' 5
743         .currentFontSize = adjustFontSizeOnHeight.newFontSize
745     demo Blue
746         demo Text special... '.xtext' Centre '.ytext' Bottom Helvetica '.currentFontSize' 0 '.displayWordList$'
747     demo Black
748         demoShow()
749         call set_font_size 'defaultFontSize'
750 endproc
752 procedure write_word_list
753         # Draw the contour
754         call draw_tone_contour
756         # Write current Pinyin text
757         call display_text Black
758         
759         # Write the current word list name
760         call display_word_list_name
761 endproc
763 procedure start_logging
764         if fileReadable("'preferencesLogDir$'/logPerformance.txt")
765                 .logDirectory$ < 'preferencesLogDir$'/logPerformance.txt
766                 .logDirectory$ = extractWord$(.logDirectory$, "")
767                 if .logDirectory$ = "" or not (fileReadable(.logDirectory$) or  fileReadable("'.logDirectory$'/directory.txt")
768                         .logDirectory$ = "'preferencesLogDir$'"
769                 endif
770                 currentLogDirectory$ = "'.logDirectory$'/log'logtimeStamp$'"
771                 createDirectory(currentLogDirectory$)
772                 if not fileReadable("'currentLogDirectory$'/wordlist.Table")
773                         .headerLine$ = "Pinyin'tab$'Character'tab$'Sound'newline$'"
774                         .headerLine$ > 'currentLogDirectory$'/wordlist.Table
775                 endif
776                         # Flip switch
777                         config.logPerformance = 1
778         endif
779 endproc
781 procedure log_command .logtext$
782         if logging
783                 fileappend "'currentLogDirectory$'/logFile.txt" '.logtext$''newline$'
784         endif
785 endproc
787 procedure log_performance .recordedSound$ .register .proficiency .pinyin$ .choice$
788         # Log files
789         .currentDate$ = date$()
790         .timeStamp$ = replace_regex$(.currentDate$, "[^a-zA-Z0-9\-_]", "-", 0)
791         .choiceText$ = replace_regex$(.choice$, "[^a-zA-Z0-9\-_]", "-", 0)
793         if config.logPerformance and fileReadable("'preferencesLogDir$'/logPerformance.txt")
794            .outfilename$ = .pinyin$+"_"+.choice$+"_'.register'_"+.timeStamp$+".wav"
795            .logtext$ = "# #+.pinyin$+tab$+.choice$+tab$+"'.register'Hz"+tab$+.currentDate$+tab$+.outfilename$+newline$
796        # Plain log text
797            fileappend 'currentLogDirectory$'/logFile.txt '.logtext$'
798            
799        # A wordlist.Table
800        fileappend 'currentLogDirectory$'/wordlist.Table '.pinyin$''tab$''.choice$''tab$''.outfilename$''newline$'
801        # The recorded sound
802            select Sound 'recordedSound$'
803            Write to WAV file... 'currentLogDirectory$'/'.outfilename$'
804         endif
805 endproc
807 procedure paint_logging_light
808     select Table Config
809     .row = Search column... Label !Logging
810         if .row < 1
811                 exit Button Table Config does not have a row with label !Logging
812         endif
813         # Get button values
814     .leftX = Get value... '.row' LeftX
815     .rightX = Get value... '.row' RightX
816     .lowY = Get value... '.row' LowY
817     .highY = Get value... '.row' HighY
818     .buttonColor$ = Get value... '.row' Color
819     .centerX = (.leftX + .rightX)/2
820     .centerY = (.lowY + .highY)/2
821     .radius = (.highY - .lowY )/(4*2)
822     .wipeRadius = 1.1*.radius
823     if config.logPerformance and fileReadable("'preferencesLogDir$'/logPerformance.txt")
824         demo Paint circle... White '.centerX' '.centerY' '.wipeRadius'
825         demo Paint circle... '.buttonColor$' '.centerX' '.centerY' '.radius'
826         demoShow()
827     else
828         demo Paint circle... White '.centerX' '.centerY' '.wipeRadius'
829         demoShow()
830     endif
831 endproc
833 # Uninstall word lists
834 procedure removeWordlist .deletedWordlistName$
835     .targetDir$ = ""
836     if fileReadable("'sgc2wordlists$'/'.deletedWordlistName$'") or fileReadable("'sgc2wordlists$'/'.deletedWordlistName$'/wordlist.txt") or fileReadable("'sgc2wordlists$'/'.deletedWordlistName$'/wordlist.Table")
837         .targetDir$ = "'sgc2wordlists$'/'.deletedWordlistName$'"
838     endif
839         if .targetDir$ <> ""
840         Create Strings as file list... DeleteList '.targetDir$'/*
841         .numdeleteFiles = Get number of strings
842         for .i to .numdeleteFiles
843                 .file$ = Get string... '.i'
844                 deleteFile("'.targetDir$'/'.file$'")
845         endfor
846         filedelete '.targetDir$'
847                 if windows
848                         system rmdir "'.targetDir$'" /s /q
849                 endif
850                 # Remove deleted word list
851                 select Strings DeleteList
852                 plus Table 'wordlist$'
853                 Remove
854                 wordlist$ = ""
855         endif
856 endproc
858 # Install word lists
859 procedure sgc2wordlist .sourceDir$
860         if startsWith(.sourceDir$, "preferencesDirectory$")
861                 .sourceDir$ = replace$(.sourceDir$, "preferencesDirectory$", preferencesDirectory$)
862         endif
864         .targetDirectory$ = "'sgc2wordlists$'"
865         if  fileReadable(.sourceDir$) or fileReadable("'.sourceDir$'/directory.txt")
866                 Create Strings as file list... PackageList '.sourceDir$'/*.sgc
867                 .numFiles = Get number of strings
868                 for .i to .numFiles
869                         select Strings PackageList
870                         .file$ = Get string... '.i'
871                         call readWordlist '.sourceDir$' '.file$'
872                 endfor
874                 select Strings PackageList
875                 Remove
876         endif
877 endproc
879 # Debuggin remarks!!!
880 # fileReadable(<directory>) does not work in Windows
881 # The file paths / -> \\ must be performed on the filenames in Windows before the system_nocheck is given
882 # And yet only the 7z decompression has been implemented
883 windowsUnzipCommand$ = """C:\Program Files\7-Zip\7z"" x"
884 procedure readWordlist .sourceDir$ .file$
885         # No use doing anything if the source does not exist
886         if fileReadable("'.sourceDir$'/'.file$'") or fileReadable("'.sourceDir$'/'.file$'/wordlist.txt") or fileReadable("'.sourceDir$'/'.file$'/wordlist.Table")
887                 # What will be the target wordlist directory?
888                 .targetDirectory$ = "'sgc2wordlists$'"
889                 .dirname$ = left$(.file$, rindex(.file$, ".")-1)
890                 if .dirname$ = ""
891                         .dirname$ = .file$
892                 endif
893                 .wordlistDirectory$ = .targetDirectory$+"/"+.dirname$
894                 # Wordlist directory does not exist, neither locally nor in the preferences
895                 if not (fileReadable(.dirname$) or fileReadable("'.dirname$'/directory.txt") or fileReadable(.wordlistDirectory$) or fileReadable("'.wordlistDirectory$'/directory.txt"))
896                         .wasWordList = 0
897                         # Move source to destination
898                         if index(.file$, ".sgc") or index(.file$, ".zip")
899                                 # Create wordlist directory
900                                 createDirectory(.wordlistDirectory$)
901                                 .wasWordList = 1
902                                 if macintosh or unix
903                                         system bash -rc -- 'cp "'.sourceDir$'/'.file$'" "'.wordlistDirectory$'/"'
904                                         system cd ''.wordlistDirectory$'';bash -rc -- 'unzip "'.file$'"'
905                                 elsif windows
906                                         .winWordListDirectory$ = replace_regex$(.wordlistDirectory$, "/", "\\", 0)
907                                         .winSourceDirectory$ = replace_regex$("'.sourceDir$'\'.file$'", "/", "\\", 0)
908                                         system copy "'.winSourceDirectory$'" "'.winWordListDirectory$'" /q
909                                         system chdir "'.winWordListDirectory$'" && 'windowsUnzipCommand$' "'.file$'"
910                                 endif
911                                 deleteFile("'.wordlistDirectory$'/'.file$'")
912                         elsif index_regex(.file$, "\.(Table|txt)")
913                                 # Create wordlist directory
914                                 createDirectory(.wordlistDirectory$)
915                                 .wasWordList = 1
916                                 .extension$ = replace_regex$(.file$, "^.+\.(Table|txt)$", "\1", 0)
917                                 if macintosh or unix
918                                         system bash -rc -- 'cp "'.sourceDir$'/'.file$'" "'.wordlistDirectory$'/wordlist.'.extension$'"'
919                                 elsif windows
920                                         .winWordListDirectory$ = replace_regex$(.wordlistDirectory$, "/", "\\", 0)
921                                         .winSourceDirectory$ = replace_regex$("'.sourceDir$'\'.file$'", "/", "\\", 0)
922                                         system copy "'.winSourceDirectory$'" "'.winWordListDirectory$'\wordlist.'.extension$'" /q
923                                 endif
924                         elsif fileReadable("'.sourceDir$'/'.file$'/wordlist.Table") or fileReadable("'.sourceDir$'/'.file$'/wordlist.txt") or fileReadable("'.sourceDir$'/'.file$'/LICENSE.txt")
925                                 # Copy wordlist directory
926                                 .wasWordList = 1
927                                 if macintosh or unix
928                                         system bash -rc -- 'cp -r "'.sourceDir$'/'.file$'" "'.wordlistDirectory$'"'
929                                 elsif windows
930                                         createDirectory(.wordlistDirectory$)
931                                         .winWordListDirectory$ = replace_regex$(.wordlistDirectory$, "/", "\\", 0)
932                                         .winSourceDirectory$ = replace_regex$("'.sourceDir$'\'.file$'", "/", "\\", 0)
933                                         system xcopy "'.winSourceDirectory$'" "'.winWordListDirectory$'" /s /e /q
934                                 endif
935                         endif
936                         
937                         # Set current word list to read list
938                         if .wasWordList
939                                 wordlistName$ = .dirname$
940                         else
941                                 .table$ = "Config"
942                                 .label$ = "!NotAWordlist"
944                                 # Get help text
945                                 call findLabel '.table$' '.label$'
946                                 .row = findLabel.row
947                                 select Table '.table$'
948                                 .helpText$ = Get value... '.row' Helptext
949                                 .filetext$ = replace_regex$("'.sourceDir$'/'.file$'", "_", "\\_ ", 0)
950                         call write_text_popup 'defaultFont$' 14 '.helpText$' "'.filetext$'"
951                                 # Wait for confirmation
952                                 demoWaitForInput()
953                         endif
954                 endif
955         endif
956 endproc