Config.praat

   1 #
   2 # SpeakGoodChinese 2.0
   3 #
   4 # Praat script handling configuration page
   5 #
   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 #
  28
  29 ###############################################################
  30 #
  31 # Button Drawing Routines
  32 #
  33 ###############################################################
  34
  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
  47
  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)
  57
  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'
  69
  70         demo Text... '.x' Centre '.botY' Bottom '.displayWordList$'
  71     demo Black
  72         demoShow()
  73         call set_font_size 'defaultFontSize'
  74 endproc
  75
  76 procedure DrawManual .color$ .x .y .size
  77         .size *= 0.71
  78         .lineheight = 2*.size
  79         call adjustFontSizeOnHeight 'defaultFont$' 24 '.lineheight'
  80         .currentFontSize = adjustFontSizeOnHeight.newFontSize
  81     demo Paint circle... {0.2,0.2,0.8} '.x' '.y' '.size'
  82         demo Colour... White
  83         demo Text special... '.x' centre '.y' half Times '.currentFontSize' 0 M
  84         demoShow()
  85         demo Colour... Black
  86         call set_font_size 'defaultFontSize'
  87 endproc
  88
  89 procedure DrawSaveAudio .color$ .x .y .size
  90     .size /= 2
  91         .y += .size
  92     if .color$ = "White"
  93         .color$ = "White"
  94     elsif .color$ = "Blue"
  95         .color$ = "{0.5,0.5,1}"
  96     else
  97         .color$ = "Blue"
  98     endif
  99     demo Paint circle... '.color$' '.x' '.y' '.size'
 100 endproc
 101
 102 ###############################################################
 103 #
 104 # Obligatory button Drawing Routines
 105 #
 106 # These MUST be defined
 107 #
 108 ###############################################################
 109
 110 procedure DrawReturn .color$ .x .y .size
 111     call DrawConfig '.color$' '.x' '.y' '.size'
 112 endproc
 113
 114 # Set the correct button states after redrawing the window
 115 procedure setConfigMainPage
 116     call Draw_button 'config$' +SaveAudio 'sgc.saveAudioOn'
 117     if sgc2.synthesizer < 0 or config.synthesis$ = "" or config.synthesis$ = "_DISABLED_"
 118                 call Draw_button 'config$' Voice -1
 119         else
 120                 call Draw_button 'config$' Voice 2
 121         endif
 122 endproc
 123
 124 ###############################################################
 125 #
 126 # Button Processing Routines
 127 #
 128 ###############################################################
 129
 130 procedure processConfigShuffleLists .clickX .clickY .pressed$
 131         .table$ = "Config"
 132         .label$ = "ShuffleLists"
 133         config.shuffleLists = not config.shuffleLists
 134         .displayButton = 2*config.shuffleLists
 135     call Draw_button '.table$' '.label$' '.displayButton'
 136 endproc
 137
 138 procedure processConfigAdaptiveLists .clickX .clickY .pressed$
 139         .table$ = "Config"
 140         .label$ = "AdaptiveLists"
 141         config.adaptiveLists = not config.adaptiveLists
 142         .displayButton = 2*config.adaptiveLists
 143     call Draw_button '.table$' '.label$' '.displayButton'
 144 endproc
 145
 146 procedure processConfigUseSoundExample .clickX .clickY .pressed$
 147         .table$ = "Config"
 148         .label$ = "UseSoundExample"
 149         config.useSoundExample = not config.useSoundExample
 150         .displayButton = 2*config.useSoundExample
 151     call Draw_button '.table$' '.label$' '.displayButton'
 152 endproc
 153
 154 procedure processConfigSynthesis .tts$ .clickX .clickY .pressed$
 155         .table$ = "Config"
 156         .label$ = "Synthesis_'.tts$'"
 157         if sgc2.synthesizer > 0 or (speakCommandFile$ <> "" and fileReadable(speakCommandFile$))
 158                 if config.synthesis$ = ""
 159                         config.synthesis$ = .tts$
 160                         .displayButton = 2
 161                 else
 162                         config.synthesis$ = ""
 163                         .displayButton = 0
 164                 endif
 165         else
 166                 config.synthesis$ = "_DISABLED_"
 167                 .displayButton = -1
 168         endif
 169     call Draw_button '.table$' '.label$' '.displayButton'
 170
 171     # Disable or enable voices button!
 172     .voiceButton = .displayButton
 173     if .voiceButton <= 0
 174                 .voiceButton = -1
 175         endif
 176     call Draw_button Config Voice '.voiceButton'
 177 endproc
 178
 179 procedure processConfigStrict .clickX .clickY .pressed$
 180         .table$ = "Config"
 181         .label$ = "Strict"
 182         .tmp = 'config.strict$'
 183         .tmp += 1
 184         if .tmp > sgc.highestLevel
 185                 .tmp = 0
 186         endif
 187         config.strict$ = "'.tmp'"
 188         if .tmp > 0
 189                 .displayButton = 2
 190         else
 191                 .displayButton = 0
 192         endif
 193         # Change TTS for Strict!
 194         call set_up_TTS
 195     call Draw_button '.table$' '.label$' '.displayButton'
 196 endproc
 197
 198 procedure processConfigVoice .clickX .clickY .pressed$
 199         .table$ = "Config"
 200         .label$ = "Voice"
 201         .tmp = config.voice
 202         .tmp += 1
 203         if .tmp > sgc.lastVoice
 204                 .tmp = 0
 205         endif
 206         .displayButton = 2
 207         if sgc2.synthesizer <= 0 or config.synthesis$ = "" or config.synthesis$ = "_DISABLED_"
 208                 .displayButton = -1
 209         else
 210                 config.voice = .tmp
 211                 # Change TTS Voice
 212                 call set_TTS_parameters
 213                 call set_up_TTS
 214         endif
 215     call Draw_button '.table$' '.label$' '.displayButton'
 216 endproc
 217
 218 procedure processConfigDisplayPinyin .clickX .clickY .pressed$
 219         .table$ = "Config"
 220         .label$ = "DisplayPinyin"
 221         config.displayPinyin = not config.displayPinyin
 222         .displayButton = 2*config.displayPinyin
 223     call Draw_button '.table$' '.label$' '.displayButton'
 224 endproc
 225
 226 procedure processConfigDisplayChar .clickX .clickY .pressed$
 227         .table$ = "Config"
 228         .label$ = "DisplayChar"
 229         config.displayChar = not config.displayChar
 230         .displayButton = 2*config.displayChar
 231     call Draw_button '.table$' '.label$' '.displayButton'
 232 endproc
 233
 234 procedure processConfigDisplayTrans .clickX .clickY .pressed$
 235         .table$ = "Config"
 236         .label$ = "DisplayTrans"
 237         config.displayTrans = not config.displayTrans
 238         .displayButton = 2*config.displayTrans
 239     call Draw_button '.table$' '.label$' '.displayButton'
 240 endproc
 241
 242 procedure processConfigDisplayNumbers .clickX .clickY .pressed$
 243         .table$ = "Config"
 244         .label$ = "DisplayNumbers"
 245         config.displayNumbers = not config.displayNumbers
 246         .displayButton = 2*config.displayNumbers
 247     call Draw_button '.table$' '.label$' '.displayButton'
 248 endproc
 249
 250 procedure processConfigLanguage .language$ .clickX .clickY .pressed$
 251         .table$ = "Config"
 252         .label$ = "Language_'.language$'"
 253         call processLanguageCodes '.table$' '.label$'
 254 endproc
 255
 256 procedure processConfigShowBackground .clickX .clickY .pressed$
 257         .table$ = "Config"
 258         .label$ = "ShowBackground"
 259         config.showBackground = not config.showBackground
 260         .displayButton = 2*config.showBackground
 261     call Draw_button '.table$' '.label$' '.displayButton'
 262 endproc
 263
 264 procedure processConfigInput .input$ .clickX .clickY .pressed$
 265         .table$ = "Config"
 266         .label$ = "Input_'.input$'"
 267     call Draw_button '.table$' Input_'config.input$' 0
 268         config.input$ = .input$
 269     call Draw_button '.table$' Input_'config.input$' 2
 270 endproc
 271
 272 procedure processConfigRegister .register .clickX .clickY .pressed$
 273         .table$ = "Config"
 274         .label$ = "Register_'.register'"
 275         call setRegisterFromLabel '.table$' '.label$'
 276 endproc
 277
 278 procedure setRegisterFromLabel .table$ .label$
 279     call Draw_button '.table$' Register_'config.register' 0
 280     call Draw_button '.table$' '.label$' 2
 281     # Someone might have to use more than 3 chars for the config.register code
 282     .numChars = length(.label$) - length("Register_")
 283         .registerText$ = right$(.label$, .numChars)
 284         config.register = '.registerText$'
 285 endproc
 286
 287 procedure processConfigDeleteWordlist .clickX .clickY .pressed$
 288         .table$ = "Config"
 289         .label$ = "DeleteWordlist"
 290
 291     # Do not process undeletable word lists, only those stored in the
 292     # preferencesDirectory$ can be deleted
 293     if fileReadable("'sgc2wordlists$'/'wordlistName$'") or fileReadable("'sgc2wordlists$'/'wordlistName$'/wordlist.txt") or     fileReadable("'sgc2wordlists$'/'wordlistName$'/wordlist.Table")
 294                 call findLabel '.table$' !'.label$'
 295                 if findLabel.row > 0
 296                 select Table '.table$'
 297                 .alertText$ = Get value... 'findLabel.row' Text
 298                 .confirmKey$ = Get value... 'findLabel.row' Key
 299                 .popupText$ = Get value... 'findLabel.row' Helptext
 300         else
 301             exit Cannot find delete directive: '.table$' !'.label$'
 302         endif
 303         call write_text_popup 'defaultFont$' 14 '.popupText$'
 304         call Draw_button '.table$' '.label$' 2
 305         alertText$ = .alertText$
 306         call Draw_button '.table$' '.label$' 3
 307         alertText$ = ""
 308
 309                 # Wait for confirmation
 310                 demoWaitForInput()
 311         if demoInput(.confirmKey$)
 312                 .deleteWordListDir$ = wordlistName$
 313                 call load_word_list "'localWordlistDir$'" 1
 314                 call removeWordlist '.deleteWordListDir$'
 315                         call load_word_list "'localWordlistDir$'" 0
 316         endif
 317                 call Draw_button '.table$' '.label$' 0
 318                 call Draw_config_page
 319     endif
 320 endproc
 321
 322 wordlistTag$ = "Wordlist name"
 323 procedure processConfigInstallWordlist .clickX .clickY .pressed$
 324         .table$ = "Config"
 325         .label$ = "InstallWordlist"
 326     call Draw_button '.table$' '.label$' 1
 327         if windows
 328                 # Do not use the automatic sgc list option, ask for a wordlist NAME
 329                 # Get help text
 330                 call findLabel '.table$' '.label$'
 331                 .row = findLabel.row
 332                 select Table '.table$'
 333                 .openDialogue$ = Get value... '.row' Helptext
 334                 call convert_praat_to_latin1 '.openDialogue$'
 335                 .openDialogue$ = convert_praat_to_latin1.text$
 336                 .wordlistButton$ = replace$(wordlistTag$, " ", "_", 0)
 337                 .wordlistButton$ = replace_regex$(.wordlistButton$, "^.", "\l&", 0)
 338                 beginPause(.openDialogue$)
 339                         sentence (wordlistTag$, "")
 340                 clicked = endPause ("Cancel", "Open", 2, 1)
 341                 .wordlist_Name$ = ""
 342                 if clicked = 2
 343                         .wordlist_Name$ = '.wordlistButton$'$
 344                 endif
 345                 call install_wordlists_by_name '.wordlist_Name$'
 346         else
 347         call sgc2wordlist 'homeDirectory$'
 348         call sgc2wordlist 'homeDirectory$'/Downloads
 349         call sgc2wordlist 'homeDirectory$'/Documents
 350         call sgc2wordlist 'homeDirectory$'/My Documents
 351         call sgc2wordlist 'homeDirectory$'/My Documents/Downloads
 352         call sgc2wordlist 'homeDirectory$'/Desktop
 353         call sgc2wordlist 'preferencesAppDir$'
 354         endif
 355         call load_word_list "'localWordlistDir$'" 0
 356     call Draw_button '.table$' '.label$' 0
 357         call Draw_config_page
 358 endproc
 359
 360 procedure processConfigOpenWordlist .clickX .clickY .pressed$
 361         .table$ = "Config"
 362         .label$ = "OpenWordlist"
 363     call Draw_button '.table$' '.label$' 1
 364
 365         # Get help text
 366         call findLabel '.table$' '.label$'
 367         .row = findLabel.row
 368         select Table '.table$'
 369         .openDialogue$ = Get value... '.row' Helptext
 370         call convert_praat_to_latin1 '.openDialogue$'
 371         .openDialogue$ = convert_praat_to_latin1.text$
 372
 373         .wordlist_Name$ = chooseReadFile$ (.openDialogue$)
 374         call install_wordlists_by_name '.wordlist_Name$'
 375         call load_word_list "'localWordlistDir$'" 0
 376     call Draw_button '.table$' '.label$' 0
 377         call Draw_config_page
 378 endproc
 379
 380 procedure processConfigExportWordlist .clickX .clickY .pressed$
 381         .table$ = "Config"
 382         .label$ = "ExportWordlist"
 383
 384     call Draw_button '.table$' '.label$' 1
 385
 386         # Get help text
 387         call findLabel '.table$' '.label$'
 388         .row = findLabel.row
 389         select Table '.table$'
 390         .openDialogue$ = Get value... '.row' Helptext
 391         call convert_praat_to_latin1 '.openDialogue$'
 392         .openDialogue$ = convert_praat_to_latin1.text$
 393
 394         .newWordlistName$ = "'wordlist$'_SGC2"
 395
 396         # Ensure the right extension: ".tsv"
 397         while .newWordlistName$ <> "" and not endsWith(.newWordlistName$, ".tsv")
 398                 .newWordlistName$ = .newWordlistName$ + ".tsv"
 399                 .newWordlistName$ = chooseWriteFile$ (.openDialogue$, .newWordlistName$)
 400
 401                 .tableName$ = replace_regex$(.newWordlistName$, "^.*[/\\:]([^/\\:]+)\.(tsv|Table)$", "\1", 0)
 402                 call testLoadTable '.tableName$'
 403                 if testLoadTable.table > 0
 404                         call loadTable '.tableName$'
 405                         .tmpTable = selected()
 406                         Save as tab-separated file: .newWordlistName$
 407                         Remove
 408                         .newWordlistName$ = ""
 409                 endif
 410
 411         endwhile
 412         if .newWordlistName$ <> ""
 413                 select sgc.currentWordlist
 414                 .tmpSaveWordlist = Copy: "SaveWordlist"
 415                 # Get the table sorted
 416                 .lessonCol = Get column index: "Lesson"
 417                 if .lessonCol > 0
 418                         Sort rows... Lesson Pinyin
 419                 else
 420                         Sort rows... Pinyin
 421                 endif
 422
 423                 # Remove all words that are deselected
 424                 .showCol = Get column index: "Show"
 425                 if .showCol > 0
 426                         .numRows = Get number of rows
 427                         .row = .numRows
 428                         while .row > 0
 429                                 .show$ = Get value: .row, "Show"
 430                                 .sound$ = Get value: .row, "Sound"
 431                                 if .show$ = "-"
 432                                         .numRows = Get number of rows
 433                                         # Do NOT remove all the rows
 434                                         if .numRows > 1
 435                                                 Remove row: .row
 436                                         endif
 437                                 elsif .sound$ <> "" and .sound$ <> "-" and .sound$ <> "?"
 438                                         # Put path before sound examples
 439                                         # If there is no path, add the current wordlist path
 440                                         if index_regex(.sound$, "^(/|~/|[A-Z]:\\)") <= 0
 441                                                 .sound$ = localWordlistDir$+"/"+wordlistName$+"/"+.sound$
 442                                                 Set string value: .row, "Sound", .sound$
 443                                         endif
 444                                 endif
 445                                 .row -= 1
 446                         endwhile
 447                         Remove column: "Show"
 448                 endif
 449                 Write to table file... '.newWordlistName$'
 450                 Remove
 451         endif
 452
 453     call Draw_button '.table$' '.label$' 0
 454         call Draw_config_page
 455 endproc
 456
 457 procedure processConfigPerfSummary .clickX .clickY .pressed$
 458         .table$ = "Config"
 459         .label$ = "PerfSummary"
 460
 461         call testLoadTable SummaryToneEvaluation
 462         if testLoadTable.table > 0
 463                 call Draw_button '.table$' '.label$' 1
 464                 call loadTable SummaryToneEvaluation
 465                 call write_tabbed_table SummaryToneEvaluation Evaluation_'config.language$'
 466                 demoWaitForInput()
 467                 select Table SummaryToneEvaluation
 468                 Remove
 469
 470                 call Draw_button '.table$' '.label$' 0
 471                 call Draw_config_page
 472         endif
 473 endproc
 474
 475 # Wipe current performance table and initialize a new one
 476 procedure processConfigClearSummary .clickX .clickY .pressed$
 477         .table$ = "Config"
 478         .label$ = "ClearSummary"
 479
 480     call Draw_button '.table$' '.label$' 1
 481
 482         if not sgc.saveAudioOn
 483                 select Table '.table$'
 484                 call findLabel '.table$' !'.label$'
 485                 if findLabel.row > 0
 486                         .alertText$ = Get value... 'findLabel.row' Text
 487                         .confirmKey$ = Get value... 'findLabel.row' Key
 488                         .popupText$ = Get value... 'findLabel.row' Helptext
 489
 490                 call write_text_popup 'defaultFont$' 14 '.popupText$'
 491                 call Draw_button '.table$' '.label$' 2
 492                 alertText$ = .alertText$
 493                 call Draw_button '.table$' '.label$' 3
 494                 alertText$ = ""
 495
 496                         # Wait for confirmation
 497                         demoWaitForInput()
 498                 if demoInput(.confirmKey$)
 499                                 sgc.savePerf$ = ""
 500                                 call initialize_toneevaluation_tables
 501                         endif
 502                 endif
 503         endif
 504
 505     call Draw_button '.table$' '.label$' 'sgc.saveAudioOn'
 506         call Draw_config_page
 507
 508 endproc
 509
 510 procedure processConfigListPerf .clickX .clickY .pressed$
 511         .table$ = "Config"
 512         .label$ = "ListPerf"
 513     call Draw_button '.table$' '.label$' 1
 514
 515         select sgc2.performanceTable
 516         View & Edit
 517         demoWaitForInput()
 518
 519     call Draw_button '.table$' '.label$' 0
 520         call Draw_config_page
 521 endproc
 522
 523 procedure processConfigOpenPerf .clickX .clickY .pressed$
 524         .table$ = "Config"
 525         .label$ = "OpenPerf"
 526     call Draw_button '.table$' '.label$' 1
 527
 528         if not sgc.saveAudioOn
 529                 # Get help text
 530                 call findLabel '.table$' !'.label$'
 531                 .row = findLabel.row
 532                 select Table '.table$'
 533                 .openDialogue$ = Get value... '.row' Helptext
 534                 call convert_praat_to_latin1 '.openDialogue$'
 535                 .openDialogue$ = convert_praat_to_latin1.text$
 536                 if variableExists("eval.performance$")
 537                         .defaultName$= "'eval.performance$'.tsv"
 538                 else
 539                         .defaultName$= "Performance.tsv"
 540                 endif
 541                 if sgc.savePerf$ <> ""
 542                         .defaultName$= sgc.savePerf$
 543                 endif
 544                 .notChoosen = 1
 545                 while .notChoosen > 0
 546                         .notChoosen = 0
 547                         .performance_Name$ = chooseReadFile$ (.openDialogue$)
 548                         while .performance_Name$ <> "" and index_regex(.performance_Name$, "\.(tsv|TSV)$") <= 0
 549                                 .performance_Name$ = chooseReadFile$ (.openDialogue$)
 550                         endwhile
 551                         if .performance_Name$ <> "" and fileReadable(.performance_Name$)
 552                                 sgc.savePerf$ = .performance_Name$
 553
 554                                 # Set SaveAudio directory if it is not currently "in use"
 555                                 if not sgc.saveAudioOn
 556                                         sgc.saveAudio$ = replace_regex$(sgc.savePerf$, "[/\\][^/\\]+$", "", 0)
 557                                         .fileName$ = right$(sgc.savePerf$, length(sgc.savePerf$) - index_regex(sgc.savePerf$, "[/\\][^/\\]+$"))
 558                                         .dirName$ = replace_regex$(.fileName$, "(?i\.tsv$)", "", 0)
 559                                         if fileReadable("'sgc.saveAudio$'/'.dirName$'/'.fileName$'")
 560                                                 sgc.saveAudio$ = "'sgc.saveAudio$'/'.dirName$'"
 561                                         else
 562                                                 .audioDir = Create Strings as directory list: "AudioDir", "'sgc.saveAudio$'/*"
 563                                                 .numStrings = Get number of strings
 564                                                 for .d to .numStrings
 565                                                         .subdir$ = Get string: .d
 566                                                         if fileReadable("'sgc.saveAudio$'/'.subdir$'/'.dirName$'/'.fileName$'")
 567                                                                 sgc.saveAudio$ = "'sgc.saveAudio$'/'.subdir$'/'.dirName$'"
 568                                                         endif
 569                                                 endfor
 570                                         endif
 571                                         # We are not sure yet that this is actually an audio directory
 572                                         config.audioName$ = ""
 573                                 endif
 574
 575                                 # Initialize the table
 576                                 call initialize_toneevaluation_tables
 577                                 .notChoosen = initialize_toneevaluation_tables.invalidperformanceTable
 578                         endif
 579                 endwhile
 580         endif
 581
 582     call Draw_button '.table$' '.label$' 'sgc.saveAudioOn'
 583         call Draw_config_page
 584 endproc
 585
 586 procedure processConfigSavePerf .clickX .clickY .pressed$
 587         .table$ = "Config"
 588         .label$ = "SavePerf"
 589     call Draw_button '.table$' '.label$' 1
 590
 591         if not sgc.saveAudioOn
 592                 # Get help text
 593                 call findLabel '.table$' '.label$'
 594                 .row = findLabel.row
 595                 select Table '.table$'
 596                 .openDialogue$ = Get value... '.row' Helptext
 597                 call convert_praat_to_latin1 '.openDialogue$'
 598                 .openDialogue$ = convert_praat_to_latin1.text$
 599                 if variableExists("eval.performance$")
 600                         .defaultName$= "'eval.performance$'.tsv"
 601                 else
 602                         .defaultName$= "Performance.tsv"
 603                 endif
 604                 if sgc.savePerf$ <> ""
 605                         .defaultName$= sgc.savePerf$
 606                 endif
 607                 .performance_Name$ = chooseWriteFile$ (.openDialogue$, .defaultName$)
 608                 # Ensure the right extension: ".tsv"
 609                 while .performance_Name$ <> "" and not endsWith(.performance_Name$, ".tsv")
 610                         .performance_Name$ = .performance_Name$ + ".tsv"
 611                         .performance_Name$ = chooseWriteFile$ (.openDialogue$, .performance_Name$)
 612                 endwhile
 613                 if .performance_Name$ <> ""
 614                         select sgc2.performanceTable
 615                         Write to table file... '.performance_Name$'
 616                         sgc.savePerf$ = .performance_Name$
 617                 endif
 618         endif
 619
 620     call Draw_button '.table$' '.label$' 'sgc.saveAudioOn'
 621         call Draw_config_page
 622 endproc
 623
 624 procedure processConfigManual .clickX .clickY .pressed$
 625         .table$ = "Config"
 626         .label$ = "Manual"
 627         call Draw_button '.table$' '.label$' 1
 628         if fileReadable("ManPages/SpeakGoodChinese_2.man")
 629                 Read from file... ManPages/SpeakGoodChinese_2.man
 630         else
 631                 Go to manual page... SpeakGoodChinese 2
 632         endif
 633         # Wait until the manual is put to the background
 634         demoWaitForInput()
 635     call Draw_button '.table$' '.label$' 0
 636     demo Erase all
 637     call Draw_config_page
 638 endproc
 639
 640 procedure processConfigSaveAudio .clickX .clickY .pressed$
 641         .table$ = "Config"
 642         .label$ = "SaveAudio"
 643     call Draw_button '.table$' '.label$' 1
 644
 645         if sgc.saveAudioOn = 0
 646                 # Get help text
 647                 call findLabel '.table$' '.label$'
 648                 .row = findLabel.row
 649                 select Table '.table$'
 650                 .openDialogue$ = Get value... '.row' Helptext
 651                 call convert_praat_to_latin1 '.openDialogue$'
 652                 .openDialogue$ = convert_praat_to_latin1.text$
 653                 .defaultName$= ""
 654                 sgc.saveAudio$ = chooseDirectory$ (.openDialogue$)
 655                 if sgc.saveAudio$ <> ""
 656                         sgc.saveAudioOn = 1
 657                         .currentPathName$ = replace_regex$(sgc.saveAudio$, "[^/\\]*[/\\]?$", "", 0)
 658                         .currentDirName$ = replace$(sgc.saveAudio$, .currentPathName$, "", 0)
 659                         config.savePerf = -1
 660                         config.openPerf = -1
 661                         config.clearSummary = -1
 662                         config.audioName$ = .currentDirName$
 663
 664                         # Clear performance table and open/create sgc.savePerf$
 665                         sgc.savePerf$ = "'sgc.saveAudio$'/'.currentDirName$'.tsv"
 666                         call initialize_toneevaluation_tables
 667                         # Write empty table
 668                         call update_toneevaluation_file
 669                         if sgc.savePerf$ <> "" and initialiseSGC2.toneevaluation_table$ <> ""
 670                                 select sgc2.performanceTable
 671                                 Write to table file: sgc.savePerf$
 672                         endif
 673                 else
 674                         config.audioName$ = ""
 675                 endif
 676         else
 677                 sgc.saveAudioOn = 0
 678                 config.savePerf = 0
 679                 config.openPerf = 0
 680                 config.clearSummary = 0
 681                 # Store current performance table
 682                 call update_toneevaluation_file
 683         endif
 684
 685     call Draw_button '.table$' '.label$' 'sgc.saveAudioOn'
 686         call Draw_config_page
 687 endproc
 688
 689 ###############################################################
 690 #
 691 # Obligatory button Processing Routines
 692 #
 693 # These MUST be defined
 694 #
 695 ###############################################################
 696
 697 procedure processConfigReturn .clickX .clickY .pressed$
 698         .table$ = "Config"
 699         .label$ = "Return"
 700         call Draw_button '.table$' '.label$' 1
 701         call write_preferences ""
 702 endproc
 703
 704 procedure processConfigRefresh .clickX .clickY .pressed$
 705         .table$ = "Config"
 706         .label$ = "Refresh"
 707         call Draw_config_page
 708 endproc
 709
 710 procedure processConfigCredits .clickX .clickY .pressed$
 711         .table$ = "Config"
 712         .label$ = "Credits"
 713         call Draw_button '.table$' '.label$' 1
 714         call write_text_table Credits_'config.language$'
 715         demoWaitForInput()
 716     call Draw_button '.table$' '.label$' 0
 717     demo Erase all
 718     call Draw_config_page
 719 endproc
 720
 721 procedure processConfigHelp .clickX .clickY .pressed$
 722         .table$ = "Config"
 723         .label$ = "Help"
 724         call help_loop  '.table$' Draw_config_page
 725 endproc
 726
 727 ###############################################################
 728 #
 729 # Miscelaneous supporting code
 730 #
 731 ###############################################################
 732 procedure install_wordlists_by_name .wordlist_Name$
 733         if .wordlist_Name$ <> ""
 734                 if index_regex(.wordlist_Name$, "(?iwordlist|LICENSE)\.")
 735                         .wordlist_Name$ = replace_regex$(.wordlist_Name$, "[/\\](?iwordlist|LICENSE)\.([^/\\]+)$", "", 0)
 736                 elsif index_regex(.wordlist_Name$, "(?i\.(wav|flac|iaf[fc]|mp3))")
 737                         .wordlist_Name$ = replace_regex$(.wordlist_Name$, "[/\\][^/\\]+$", "", 0)
 738                 endif
 739                 if index_regex(.wordlist_Name$, "[/\\]")
 740                         .sourceDir$ = left$(.wordlist_Name$, rindex_regex(.wordlist_Name$, "[/\\]") -1)
 741                         .file$ = right$(.wordlist_Name$, length(.wordlist_Name$) - rindex_regex(.wordlist_Name$, "[/\\]"))
 742                         call readWordlist "'.sourceDir$'" '.file$'
 743                 else
 744                         .start = 1
 745                         if index(.wordlist_Name$, ".")
 746                                 .start = 4
 747                         endif
 748                         .extension1$ = ".sgc"
 749                         .extension2$ = ".Table"
 750                         .extension3$ = ".txt"
 751                         .extension4$ = ".tsv"
 752                         .extension5$ = ""
 753                         for .e from .start to 5
 754                                 .currentExtension$ = .extension'.e'$
 755                         call readWordlist "'homeDirectory$'" '.wordlist_Name$''.currentExtension$'
 756                         call readWordlist "'homeDirectory$'/Downloads" '.wordlist_Name$''.currentExtension$'
 757                         call readWordlist "'homeDirectory$'/Documents" '.wordlist_Name$''.currentExtension$'
 758                         call readWordlist "'homeDirectory$'/My Documents/Downloads" '.wordlist_Name$''.currentExtension$'
 759                         call readWordlist "'homeDirectory$'/My Documents" '.wordlist_Name$''.currentExtension$'
 760                         call readWordlist "'homeDirectory$'/Desktop" '.wordlist_Name$''.currentExtension$'
 761                         call readWordlist "'preferencesAppDir$'" '.wordlist_Name$''.currentExtension$'
 762                         endfor
 763                 endif
 764         endif
 765 endproc
 766
 767 # Word lists: It is a VERY good idea to make sure that word-lists
 768 # have unique names.
 769 procedure load_word_list .localdir$ .relnumber
 770         call clean_up_sound
 771         if sgc.allWordLists > 0
 772                 select sgc.allWordLists
 773                 Remove
 774                 sgc.allWordLists = -1
 775         endif
 776
 777     # Remove old word list
 778     if wordlist$ <> ""
 779                 select sgc.currentWordlist
 780                 Remove
 781                 call wipeArea 'wipeWordlistArea$'
 782                 wordlist$ = ""
 783                 sgc.currentWordlist = -1
 784                 sgc.currentWord = 1
 785     endif
 786
 787         # Create Table that will recieve the wordlists and directories
 788         sgc.allWordLists = Create Table with column names... AllWordLists 0 Name Directory
 789         .sgc.currentWordlistRow = 0
 790
 791         # First the global word lists
 792         if fileReadable(globalwordlists$) or fileReadable("'globalwordlists$'/directory.txt")
 793         Create Strings as directory list... WordList 'globalwordlists$'
 794         .numLists = Get number of strings
 795         for .i to .numLists
 796             select Strings WordList
 797             .currentName$ = Get string... '.i'
 798                         if .currentName$ <> "directory.txt"
 799                                 select sgc.allWordLists
 800                                 .listExist = Search column: "Name", .currentName$
 801                                 if not .listExist
 802                                         Append row
 803                                         .sgc.currentWordlistRow = Get number of rows
 804                                         Set string value... '.sgc.currentWordlistRow' Name '.currentName$'
 805                                 .currentDirectory$ = globalwordlists$+"/"+.currentName$
 806                                         Set string value... '.sgc.currentWordlistRow' Directory '.currentDirectory$'
 807                                 endif
 808                         endif
 809         endfor
 810         select Strings WordList
 811         Remove
 812         endif
 813
 814         # Now the preferences word lists
 815         if fileReadable(sgc2wordlists$) or fileReadable("'sgc2wordlists$'/directory.txt")
 816         Create Strings as directory list... WordList 'sgc2wordlists$'
 817         .numLists = Get number of strings
 818         for .i to .numLists
 819                         select Strings WordList
 820             .currentName$ = Get string... '.i'
 821                         if .currentName$ <> "directory.txt"
 822                                 select sgc.allWordLists
 823                                 .listExist = Search column: "Name", .currentName$
 824                                 if not .listExist
 825                                         Append row
 826                                         .sgc.currentWordlistRow = Get number of rows
 827                                         Set string value... '.sgc.currentWordlistRow' Name '.currentName$'
 828                                 .currentDirectory$ = sgc2wordlists$+"/"+.currentName$
 829                                         Set string value... '.sgc.currentWordlistRow' Directory '.currentDirectory$'
 830                                 endif
 831                         endif
 832         endfor
 833         select Strings WordList
 834         Remove
 835         endif
 836
 837         # End with the word lists in the distribution
 838         call CreateCreateWordlists
 839         select Table CreateWordlists
 840     .numLists = Get number of rows
 841         for .i to .numLists
 842                 select Table CreateWordlists
 843                 .currentName$ = Get value... '.i' Name
 844                 if .currentName$ <> "directory.txt"
 845                         select sgc.allWordLists
 846                         .listExist = Search column: "Name", .currentName$
 847                         if not .listExist
 848                                 .procedureName$ = replace_regex$(.currentName$, "[^\w\-\.]", "_", 0)
 849                                 select sgc.allWordLists
 850                                 Append row
 851                                 .sgc.currentWordlistRow = Get number of rows
 852                                 Set string value... '.sgc.currentWordlistRow' Name '.currentName$'
 853                                 .currentDirectory$ = "*call Create'.procedureName$'"
 854                                 Set string value... '.sgc.currentWordlistRow' Directory '.currentDirectory$'
 855                         endif
 856                 endif
 857         endfor
 858         select Table CreateWordlists
 859         Remove
 860
 861         # Finally, the local word lists
 862         if fileReadable(.localdir$) or fileReadable("'.localdir$'/directory.txt")
 863         Create Strings as directory list... WordList '.localdir$'
 864         .numLists = Get number of strings
 865         for .i to .numLists
 866             select Strings WordList
 867             .currentName$ = Get string... '.i'
 868                         if .currentName$ <> "directory.txt"
 869                                 select sgc.allWordLists
 870                                 .listExist = Search column: "Name", .currentName$
 871                                 if not .listExist
 872                                         Append row
 873                                         .sgc.currentWordlistRow = Get number of rows
 874                                         Set string value... '.sgc.currentWordlistRow' Name '.currentName$'
 875                                 .currentDirectory$ = .localdir$+"/"+.currentName$
 876                                         Set string value... '.sgc.currentWordlistRow' Directory '.currentDirectory$'
 877                                 endif
 878                         endif
 879         endfor
 880         select Strings WordList
 881         Remove
 882     endif
 883
 884         # Get the position of the current word list
 885         select sgc.allWordLists
 886         .currentNumber = 1
 887     .numLists = Get number of rows
 888
 889         if wordlistName$ <> ""
 890                 select sgc.allWordLists
 891                 .currentNumber = Search column... Name 'wordlistName$'
 892                 if .currentNumber <= 0
 893                         .currentNumber = 1
 894                 endif
 895         endif
 896
 897     wordlistNum = .currentNumber + .relnumber
 898     if wordlistNum > .numLists
 899         wordlistNum = 1
 900         elsif wordlistNum < 1 and .numLists > 0
 901                 wordlistNum = .numLists
 902     endif
 903     select sgc.allWordLists
 904     wordlistName$ = Get value... 'wordlistNum' Name
 905         .dirWordlistName$ = Get value... 'wordlistNum' Directory
 906     .dirString$ = replace_regex$(.dirWordlistName$, "[ ]", "&", 0)
 907
 908         # Read in full tables
 909         if fileReadable("'.dirString$'/wordlist.Table")
 910                 call readTable '.dirString$'/wordlist.Table
 911         if readTable.tableID > 0
 912                         Rename... 'wordlistName$'
 913                         # Praat wil change the name if it feels like it
 914                         wordlist$ = selected$("Table")
 915                         # Add a Sound column if it is not present
 916                         .soundIndex = Get column index: "Sound"
 917                         if .soundIndex <= 0
 918                                 Append column: "Sound"
 919                         endif
 920                 else
 921                         .numLists = 0
 922                         goto EMERGENCYEXIT
 923                 endif
 924         # Handle (legacy) simple word lists
 925         elsif fileReadable("'.dirString$'/wordlist.txt")
 926                 Create Table with column names... "'wordlistName$'" 0 Pinyin Character Sound Translation
 927         wordlist$ = selected$("Table")
 928                 Read Strings from raw text file... '.dirString$'/wordlist.txt
 929                 Rename... RawWordList
 930                 .numWordStrings = Get number of strings
 931                 for .i to .numWordStrings
 932                         select Strings RawWordList
 933                         .currentFile$ = "-"
 934                         .currentChar$ = "-"
 935                         .currentTrans$ = "-"
 936                         .currentLine$ = Get string... '.i'
 937                         # Remove leading whitespace
 938                         .currentLine$ = replace_regex$(.currentLine$, "^[ \t]+", "", 0)
 939                         .separatorIndex = index_regex(.currentLine$, "[ \t;\-]")
 940                         if .separatorIndex <= 0
 941                                 .separatorIndex = length(.currentLine$) + 1
 942                         endif
 943                         .currentPinyin$ = left$(.currentLine$, .separatorIndex-1)
 944                         .currentLine$ = right$(.currentLine$, length(.currentLine$) - .separatorIndex)
 945                         # There is more on the line, but we do not know what
 946                         if length(.currentLine$) > 0
 947                                 while length(.currentLine$) > 0
 948                                         .separatorIndex = index_regex(.currentLine$, "[\t;]")
 949                                         if .separatorIndex <= 0
 950                                                 .separatorIndex = length(.currentLine$)+1
 951                                         endif
 952                                         .currentItem$ = left$(.currentLine$, .separatorIndex-1)
 953                                         .currentLine$ = right$(.currentLine$, length(.currentLine$) - .separatorIndex )
 954                                         if index_regex(.currentItem$, ".(spx|flac|wav|mp3)")
 955                                                 # Audio
 956                                                 .currentFile$ = .currentItem$
 957                                         elsif index_regex(.currentItem$, "[a-zA-Z0-9]") > 0
 958                                                 # Translation
 959                                                 .currentTrans$ = .currentItem$
 960                                         elsif index_regex(.currentItem$, "[^ \t\r\l]") > 0 && index_regex(.currentItem$, "[a-zA-Z0-9\-]") <= 0
 961                                                 # Characters
 962                                                 .currentChar$ = .currentItem$
 963                                         endif
 964                                 endwhile
 965                         endif
 966                         if .currentFile$ = "-"
 967                                 if fileReadable("'.dirString$'/'.currentPinyin$'.spx")
 968                                         .currentFile$ = .currentPinyin$+".spx"
 969                                 elsif fileReadable("'.dirString$'/'.currentPinyin$'.flac")
 970                                         .currentFile$ = .currentPinyin$+".flac"
 971                                 elsif fileReadable("'.dirString$'/'.currentPinyin$'.wav")
 972                                         .currentFile$ = .currentPinyin$+".wav"
 973                                 elsif fileReadable("'.dirString$'/'.currentPinyin$'.mp3")
 974                                         .currentFile$ = .currentPinyin$+".mp3"
 975                                 endif
 976                         endif
 977                         select Table 'wordlist$'
 978                         Append row
 979                         Set string value... '.i' Pinyin '.currentPinyin$'
 980                         Set string value... '.i' Sound '.currentFile$'
 981                         Set string value... '.i' Character '.currentChar$'
 982                         Set string value... '.i' Translation '.currentTrans$'
 983                 endfor
 984                 select Strings RawWordList
 985                 Remove
 986
 987                 select Table 'wordlist$'
 988         elsif fileReadable(.dirString$) or fileReadable("'.dirString$'/directory.txt")
 989                 Create Table with column names... "'wordlistName$'" 0 Pinyin Sound
 990         wordlist$ = selected$("Table")
 991                 Create Strings as file list... RawWordList '.dirString$'/*
 992                 .numWordStrings = Get number of strings
 993                 .i = 0
 994                 for .j to .numWordStrings
 995                         select Strings RawWordList
 996                         .currentLine$ = Get string... '.j'
 997                         .currentFile$ = extractWord$(.currentLine$, "")
 998                         if index_regex(.currentFile$, "\.(spx|flac|wav|mp3)")
 999                                 .currentPinyin$ = left$(.currentFile$, index(.currentFile$, ".")-1)
1000                                 select Table 'wordlist$'
1001                                 Append row
1002                                 .i += 1
1003                                 Set string value... '.i' Pinyin '.currentPinyin$'
1004                                 Set string value... '.i' Sound '.currentFile$'
1005                         endif
1006                 endfor
1007                 select Strings RawWordList
1008                 Remove
1009
1010                 select Table 'wordlist$'
1011         elsif startsWith(.dirString$, "*call ")
1012                 .callProcedure$ = right$(.dirString$, length(.dirString$)-1)
1013                 '.callProcedure$'
1014                 wordlist$ = selected$("Table")
1015         else
1016                 # Nothing, get out
1017                 .numLists = 0
1018                 goto EMERGENCYEXIT
1019         endif
1020
1021         # Can this wordlist be deleted?
1022         if fileReadable("'sgc2wordlists$'/'wordlistName$'") or fileReadable("'sgc2wordlists$'/'wordlistName$'/wordlist.txt") or fileReadable("'sgc2wordlists$'/'wordlistName$'/wordlist.Table")
1023                 config.deleteWordlist = 0
1024         else
1025                 config.deleteWordlist = -1
1026         endif
1027
1028         # Check first column name and add Character, Translation, Sound and Show columns if missing
1029         if wordlist$ <> ""
1030                 select Table 'wordlist$'
1031                 # Hack to correct odd behavior of tables with unicode characters
1032                 .firstColumn$ = Get column label: 1
1033                 if index_regex(.firstColumn$, "^[^!-~]") > 0
1034                         .firstColumn$ = replace_regex$(.firstColumn$, "^[^!-~]", "", 0)
1035                         Set column label (index): 1, .firstColumn$
1036                 endif
1037
1038         sgc.numberOfWords = Get number of rows
1039                 .characterColumn = Get column index... Character
1040                 if not .characterColumn
1041                         Append column... Character
1042                         for .i to sgc.numberOfWords
1043                                 Set string value... '.i' Character -
1044                         endfor
1045                 endif
1046                 .translationColumn = Get column index... Translation
1047                 if not .translationColumn
1048                         Append column... Translation
1049                         for .i to sgc.numberOfWords
1050                                 Set string value... '.i' Translation -
1051                         endfor
1052                 endif
1053                 .translationColumn = Get column index... Sound
1054                 if not .translationColumn
1055                         Append column... Sound
1056                         for .i to sgc.numberOfWords
1057                                 Set string value... '.i' Sound -
1058                         endfor
1059                 endif
1060                 .showColumn = Get column index... Show
1061                 if not .showColumn
1062                         Append column... Show
1063                         for .i to sgc.numberOfWords
1064                                 Set string value... '.i' Show +
1065                         endfor
1066                 endif
1067         endif
1068
1069         # Remove all rows without Pinyin
1070         .numRows = Get number of rows
1071         for i to .numRows
1072                 .rowNum = .numRows - i + 1
1073                 .pinyinValue$ = Get value... '.rowNum' Pinyin
1074                 .currLength = Get number of rows
1075                 if not index_regex(.pinyinValue$, "^[a-zA-Z]")
1076                         if .currLength > 1
1077                                 Remove row: .rowNum
1078                         else
1079                                 Set string value: .rowNum, "Pinyin", "bu4"
1080                         endif
1081                 endif
1082         endfor
1083         .numRows = Get number of rows
1084         sgc.numberOfWords = Get number of rows
1085
1086         # Shuffle words if requested
1087     if config.shuffleLists
1088         Randomize rows
1089     endif
1090
1091         # Determine number of words actually shown
1092         sgc.currentWord = 0
1093         sgc.currentWordNum = 1
1094         sgc.numberOfDisplayedWords = 0
1095         for .i to .numRows
1096                 .show$ = Get value: .i, "Show"
1097                 if .show$ = "+"
1098                         if sgc.currentWord < 1
1099                                 sgc.currentWord = .i
1100                         endif
1101                         sgc.numberOfDisplayedWords += 1
1102                 endif
1103         endfor
1104
1105         # Clean up
1106         label EMERGENCYEXIT
1107     #select sgc.allWordLists
1108     #Remove
1109
1110     # There were no Word Lists
1111     label NOWORDLISTS
1112     if .numLists <= 0
1113         wordlistName$ = wordlistName$+" No Word Lists available"
1114         wordlistNum = 1
1115                 Create Table with column names... "'wordlistName$'" 1 Pinyin Character Translation Sound
1116         wordlist$ = selected$("Table")
1117         .i = 0
1118                 Append row
1119                 .i += 1
1120                 Set string value... '.i' Pinyin ni3hao3
1121                 Set string value... '.i' Character 你好
1122                 Set string value... '.i' Translation hello
1123                 Set string value... '.i' Sound -
1124                 Append row
1125                 .i += 1
1126                 Set string value... '.i' Pinyin xie4xie0
1127                 Set string value... '.i' Character 谢谢
1128                 Set string value... '.i' Translation thanks
1129                 Set string value... '.i' Sound -
1130                 Append row
1131                 .i += 1
1132                 Set string value... '.i' Pinyin zai4jian4
1133                 Set string value... '.i' Character 再见
1134                 Set string value... '.i' Translation goodbye
1135                 Set string value... '.i' Sound -
1136                 # Get rid of empty first row
1137                 Remove row: 1
1138
1139                 # Set default values
1140         sgc.numberOfWords = Get number of rows
1141                 sgc.currentWord = 1
1142                 sgc.numberOfDisplayedWords = Get number of rows
1143     endif
1144
1145         select Table 'wordlist$'
1146         sgc.currentWordlist = selected()
1147         call set_window_title 'buttons$' 'wordlistName$'
1148 endproc
1149
1150 procedure read_wordlist .wordlistName$ .dirString$
1151         # Read in full tables
1152         if fileReadable("'.dirString$'/wordlist.Table")
1153                 call readTable '.dirString$'/wordlist.Table
1154                 .wordlistID = selected ()
1155         if .wordlistID > 0
1156                         Rename... '.wordlistName$'
1157                         # Praat wil change the name if it feels like it
1158                         .wordlist$ = selected$("Table")
1159                         # Add a Sound column if it is not present
1160                         .soundIndex = Get column index: "Sound"
1161                         if .soundIndex <= 0
1162                                 Append column: "Sound"
1163                         endif
1164                 else
1165                         goto EMERGENCYEXITWL
1166                 endif
1167         # Handle (legacy) simple word lists
1168         elsif fileReadable("'.dirString$'/wordlist.txt")
1169                 .wordlistID = Create Table with column names... "'.wordlistName$'" 0 Pinyin Character Sound Translation
1170                 .wordlist$ = selected$("Table")
1171                 Read Strings from raw text file... '.dirString$'/wordlist.txt
1172                 Rename... RawWordList
1173                 .numWordStrings = Get number of strings
1174                 for .i to .numWordStrings
1175                         select Strings RawWordList
1176                         .currentFile$ = "-"
1177                         .currentChar$ = "-"
1178                         .currentTrans$ = "-"
1179                         .currentLine$ = Get string... '.i'
1180                         # Remove leading whitespace
1181                         .currentLine$ = replace_regex$(.currentLine$, "^[ \t]+", "", 0)
1182                         .separatorIndex = index_regex(.currentLine$, "[ \t;\-]")
1183                         if .separatorIndex <= 0
1184                                 .separatorIndex = length(.currentLine$) + 1
1185                         endif
1186                         .currentPinyin$ = left$(.currentLine$, .separatorIndex-1)
1187                         .currentLine$ = right$(.currentLine$, length(.currentLine$) - .separatorIndex)
1188                         # There is more on the line, but we do not know what
1189                         if length(.currentLine$) > 0
1190                                 while length(.currentLine$) > 0
1191                                         .separatorIndex = index_regex(.currentLine$, "[\t;]")
1192                                         if .separatorIndex <= 0
1193                                                 .separatorIndex = length(.currentLine$)+1
1194                                         endif
1195                                         .currentItem$ = left$(.currentLine$, .separatorIndex-1)
1196                                         .currentLine$ = right$(.currentLine$, length(.currentLine$) - .separatorIndex )
1197                                         if index_regex(.currentItem$, ".(spx|flac|wav|mp3)")
1198                                                 # Audio
1199                                                 .currentFile$ = .currentItem$
1200                                         elsif index_regex(.currentItem$, "[a-zA-Z0-9]") > 0
1201                                                 # Translation
1202                                                 .currentTrans$ = .currentItem$
1203                                         elsif index_regex(.currentItem$, "[^ \t\r\l]") > 0 && index_regex(.currentItem$, "[a-zA-Z0-9\-]") <= 0
1204                                                 # Characters
1205                                                 .currentChar$ = .currentItem$
1206                                         endif
1207                                 endwhile
1208                         endif
1209                         if .currentFile$ = "-"
1210                                 if fileReadable("'.dirString$'/'.currentPinyin$'.spx")
1211                                         .currentFile$ = .currentPinyin$+".spx"
1212                                 elsif fileReadable("'.dirString$'/'.currentPinyin$'.flac")
1213                                         .currentFile$ = .currentPinyin$+".flac"
1214                                 elsif fileReadable("'.dirString$'/'.currentPinyin$'.wav")
1215                                         .currentFile$ = .currentPinyin$+".wav"
1216                                 elsif fileReadable("'.dirString$'/'.currentPinyin$'.mp3")
1217                                         .currentFile$ = .currentPinyin$+".mp3"
1218                                 endif
1219                         endif
1220                         select .wordlistID
1221                         Append row
1222                         Set string value... '.i' Pinyin '.currentPinyin$'
1223                         Set string value... '.i' Sound '.currentFile$'
1224                         Set string value... '.i' Character '.currentChar$'
1225                         Set string value... '.i' Translation '.currentTrans$'
1226                 endfor
1227                 select Strings RawWordList
1228                 Remove
1229
1230                 select .wordlistID
1231         elsif fileReadable(.dirString$) or fileReadable("'.dirString$'/directory.txt")
1232                 .wordlistID = Create Table with column names... "'.wordlistName$'" 0 Pinyin Sound
1233         .wordlist$ = selected$("Table")
1234                 .tmp = Create Strings as file list... RawWordList '.dirString$'/*
1235                 .numWordStrings = Get number of strings
1236                 .i = 0
1237                 for .j to .numWordStrings
1238                         select .tmp
1239                         .currentLine$ = Get string... '.j'
1240                         .currentFile$ = extractWord$(.currentLine$, "")
1241                         if index_regex(.currentFile$, "\.(spx|flac|wav|mp3)")
1242                                 .currentPinyin$ = left$(.currentFile$, index(.currentFile$, ".")-1)
1243                                 select sgc.currentWordlist
1244                                 Append row
1245                                 .i += 1
1246                                 Set string value... '.i' Pinyin '.currentPinyin$'
1247                                 Set string value... '.i' Sound '.currentFile$'
1248                         endif
1249                 endfor
1250                 select .tmp
1251                 Remove
1252
1253                 select sgc.currentWordlist
1254         elsif startsWith(.dirString$, "*call ")
1255                 .callProcedure$ = right$(.dirString$, length(.dirString$)-1)
1256                 '.callProcedure$'
1257                 .wordlistID = selected()
1258                 .wordlist$ = selected$("Table")
1259         else
1260                 # Nothing, get out
1261                 goto EMERGENCYEXITWL
1262         endif
1263
1264         # Add the path to the file Sound file names
1265         select .wordlistID
1266         .numRows = Get number of rows
1267         for .w to .numRows
1268                 .soundfile$ = Get value: .w, "Sound"
1269                 if index_regex(.soundfile$, "[/\\]") <= 0
1270                         if index_regex(.dirString$, "[/\\]$")
1271                                 .soundfile$ = .dirString$+.soundfile$
1272                         elsif index_regex(.dirString$, "[\\]")
1273                                 .soundfile$ = .dirString$+"\\"+.soundfile$
1274                         else
1275                                 .soundfile$ = .dirString$+"/"+.soundfile$
1276                         endif
1277                         Set string value: .w, "Sound", .soundfile$
1278                 endif
1279         endfor
1280
1281         label EMERGENCYEXITWL
1282
1283 endproc
1284
1285 procedure merge_into_wordlist .newTableID .lessonPostfix$
1286         select sgc.currentWordlist
1287         .oldLessonColumn = Get column index: "Lesson"
1288
1289         select .newTableID
1290         .numRows = Get number of rows
1291         .lessonColumn = Get column index: "Lesson"
1292         .characterColumn = Get column index: "Character"
1293         .soundColumn = Get column index: "Sound"
1294         .translationColumn = Get column index: "Translation"
1295         for .w to .numRows
1296                 .currentFile$ = "-"
1297                 .currentChar$ = "-"
1298                 .currentTrans$ = "-"
1299                 .currentLesson$ = "-"
1300
1301                 select .newTableID
1302                 .currentPinyin$ = Get value: .w, "Pinyin"
1303                 if .soundColumn > 0
1304                         .currentFile$ = Get value: .w, "Sound"
1305                 endif
1306                 if .characterColumn > 0
1307                         .currentChar$ = Get value: .w, "Character"
1308                 endif
1309                 if .translationColumn > 0
1310                         .currentTrans$ = Get value: .w, "Translation"
1311                 endif
1312                 if .lessonColumn > 0
1313                         .currentLesson$ = Get value: .w, "Lesson"
1314                 endif
1315                 select sgc.currentWordlist
1316                 Append row
1317                 .n = Get number of rows
1318                 Set string value: .n, "Pinyin", .currentPinyin$
1319                 Set string value: .n, "Sound", .currentFile$
1320                 Set string value: .n, "Character", .currentChar$
1321                 Set string value: .n, "Translation", .currentTrans$
1322                 if .oldLessonColumn > 0
1323                         if .currentLesson$ = "-" or .currentLesson$ = "" or .currentLesson$ = "?"
1324                                 Set string value: .n, "Lesson", .lessonPostfix$
1325                         else
1326                                 Set string value: .n, "Lesson", .currentLesson$+" "+.lessonPostfix$
1327                         endif
1328                 endif
1329         endfor
1330 endproc
1331
1332 procedure next_word
1333         if wordlist$ <> ""
1334                 select sgc.currentWordlist
1335                 .showCurrent$ = "-"
1336                 if sgc.currentWord < 0 or sgc.currentWord > sgc.numberOfWords
1337                 if config.shuffleLists
1338                             Randomize rows
1339                 endif
1340                         sgc.currentWord = 0
1341                         sgc.currentWordNum = 0
1342                 endif
1343                 while .showCurrent$ = "-" and sgc.currentWord <= sgc.numberOfWords
1344                         sgc.currentWord += 1
1345                         if sgc.currentWord <= sgc.numberOfWords
1346                                 .showCurrent$ = Get value... 'sgc.currentWord' Show
1347                         endif
1348                 endwhile
1349                 if sgc.currentWord > 0
1350                         sgc.currentWordNum += 1
1351                 else
1352                         sgc.currentWordNum = 0
1353                 endif
1354         endif
1355 endproc
1356
1357 procedure previous_word
1358         if wordlist$ <> ""
1359                 select sgc.currentWordlist
1360                 .showCurrent$ = "-"
1361                 if sgc.currentWord <= 0
1362                 if config.shuffleLists
1363                             Randomize rows
1364                 endif
1365                         sgc.currentWord = sgc.numberOfWords + 1
1366                         sgc.currentWordNum = sgc.numberOfDisplayedWords + 1
1367                 endif
1368                 while .showCurrent$ = "-" and sgc.currentWord > 0
1369                         sgc.currentWord -= 1
1370                         if sgc.currentWord > 0
1371                                 .showCurrent$ = Get value... 'sgc.currentWord' Show
1372                         endif
1373                 endwhile
1374                 if sgc.currentWord > 0
1375                         sgc.currentWordNum -= 1
1376                 else
1377                         sgc.currentWordNum = 0
1378                 endif
1379         endif
1380 endproc
1381
1382 procedure display_word_list_name
1383     .xtext = 50
1384     .ytext = 12
1385    call reset_viewport
1386     .displayWordList$ = replace_regex$(wordlistName$, "[_]", " ", 0)
1387     call wipeArea 'wipeWordlistArea$'
1388         call adjustFontSizeOnHeight 'defaultFont$' 'defaultFontSize' 5
1389         .currentFontSize = adjustFontSizeOnHeight.newFontSize
1390
1391     demo Blue
1392         demo Text special... '.xtext' Centre '.ytext' Bottom 'defaultFont$' '.currentFontSize' 0 '.displayWordList$'
1393     demo Black
1394         demoShow()
1395         call set_font_size 'defaultFontSize'
1396 endproc
1397
1398 procedure write_word_list
1399         # Write current Pinyin text
1400         call display_text Black
1401
1402         # Write the current word list name
1403         call display_word_list_name
1404 endproc
1405
1406 procedure paint_saveAudio_light
1407     select Table 'config$'
1408     .row = Search column... Label SaveAudio
1409         if .row < 1
1410                 exit Button Table Config does not have a row with label SaveAudio
1411         endif
1412         # Get button values
1413     .leftX = Get value... '.row' LeftX
1414     .rightX = Get value... '.row' RightX
1415     .lowY = Get value... '.row' LowY
1416     .highY = Get value... '.row' HighY
1417     .buttonColor$ = Get value... '.row' Color
1418     # The button text and symbol
1419         .horWC = demo Horizontal mm to wc... 10.0
1420         .verWC = demo Vertical mm to wc... 10.0
1421         if .verWC > 0
1422                 .verCoeff = .horWC / .verWC
1423         else
1424                 .verCoeff = 1
1425         endif
1426
1427     .centerX = (.leftX + .rightX)/2
1428     .centerY = .lowY + 0.6*(.highY-.lowY)
1429     .radius = min(.verCoeff * (.highY - .lowY ), (.rightX - .leftX))/3
1430     .wipeRadius = 1.1*.radius
1431     call DrawSaveAudio White '.centerX' '.centerY' '.wipeRadius'
1432
1433     if sgc.saveAudioOn and sgc.saveAudio$ <> ""
1434                 call DrawSaveAudio "DarkBlue" '.centerX' '.centerY' '.radius'
1435     endif
1436     demoShow()
1437 endproc
1438
1439 # Uninstall word lists
1440 procedure removeWordlist .deletedWordlistName$
1441     .targetDir$ = ""
1442     if fileReadable("'sgc2wordlists$'/'.deletedWordlistName$'") or fileReadable("'sgc2wordlists$'/'.deletedWordlistName$'/wordlist.txt") or fileReadable("'sgc2wordlists$'/'.deletedWordlistName$'/wordlist.Table")
1443         .targetDir$ = "'sgc2wordlists$'/'.deletedWordlistName$'"
1444     endif
1445         if .targetDir$ <> ""
1446         Create Strings as file list... DeleteList '.targetDir$'
1447         .numdeleteFiles = Get number of strings
1448         for .i to .numdeleteFiles
1449                 .file$ = Get string... '.i'
1450                 deleteFile("'.targetDir$'/'.file$'")
1451         endfor
1452         filedelete '.targetDir$'
1453         # Check whether the directory was actually deleted. Make sure this is a valid directory name!
1454         # That is, it does not contain funny characters, nor funny names
1455         if index_regex(.deletedWordlistName$, "[^a-zA-Z0-9_ .\-]") <= 0 and index(.deletedWordlistName$, "..") <= 0 and index_regex(.deletedWordlistName$, "[a-zA-Z]") > 0
1456                         if windows
1457                                 nocheck system rmdir "'.targetDir$'" /s /q
1458                         elsif fileReadable(.targetDir$)
1459                                 system bash -rc -- 'rm -r -- "'.targetDir$'"'
1460                         endif
1461                 endif
1462                 # Remove deleted word list
1463                 select Strings DeleteList
1464                 plus Table 'wordlist$'
1465                 Remove
1466                 wordlist$ = ""
1467         endif
1468 endproc
1469
1470 # Install word lists
1471 procedure sgc2wordlist .sourceDir$
1472         if startsWith(.sourceDir$, "preferencesDirectory$")
1473                 .sourceDir$ = replace$(.sourceDir$, "preferencesDirectory$", preferencesDirectory$)
1474         endif
1475
1476         .targetDirectory$ = "'sgc2wordlists$'"
1477         if  fileReadable(.sourceDir$) or fileReadable("'.sourceDir$'/directory.txt")
1478                 Create Strings as file list... PackageList '.sourceDir$'/*.sgc
1479                 .numFiles = Get number of strings
1480                 for .i to .numFiles
1481                         select Strings PackageList
1482                         .file$ = Get string... '.i'
1483                         call readWordlist '.sourceDir$' '.file$'
1484                 endfor
1485
1486                 select Strings PackageList
1487                 Remove
1488         endif
1489 endproc
1490
1491 # Debuggin remarks!!!
1492 # fileReadable(<directory>) does not work in Windows
1493 # The file paths / -> \\ must be performed on the filenames in Windows before the system_nocheck is given
1494 # And yet only the 7z decompression has been implemented
1495 windowsUnzipCommand$ = ""
1496 if fileReadable("C:\Program Files\7-Zip\7z.exe")
1497         windowsUnzipCommand$ = """C:\Program Files\7-Zip\7z.exe"" -y e"
1498         windowsUnzipDestDir$ = " -o"
1499 elsif fileReadable("C:\Program Files\WinZip\winzip32.exe")
1500         # !!! Find a way to include the output folder !!!
1501         windowsUnzipCommand$ = "C:\Program Files\WinZip\winzip32.exe"" -min -e -o -j "
1502         windowsUnzipDestDir$ = ""
1503 endif
1504 procedure readWordlist .sourceDir$ .file$
1505         # No use doing anything if the source does not exist
1506         if fileReadable("'.sourceDir$'/'.file$'") or fileReadable("'.sourceDir$'/'.file$'/wordlist.txt") or fileReadable("'.sourceDir$'/'.file$'/wordlist.Table")
1507                 # What will be the target wordlist directory?
1508                 .targetDirectory$ = "'sgc2wordlists$'"
1509                 .dirname$ = left$(.file$, rindex(.file$, ".")-1)
1510                 if .dirname$ = ""
1511                         .dirname$ = .file$
1512                 endif
1513                 .wordlistDirectory$ = .targetDirectory$+"/"+.dirname$
1514                 # Wordlist directory does not exist, neither locally nor in the preferences
1515                 .wordListExists = 0
1516                 .tmpDirs = nocheck Create Strings as directory list... TMPWORDLISTS '.targetDirectory$'/
1517                 if .tmpDirs != undefined and .tmpDirs > 0
1518                         .numDirs = Get number of strings
1519                         for .d to .numDirs
1520                                 select .tmpDirs
1521                                 .currentString$ = Get string... '.d'
1522                                 if .currentString$ = .dirname$
1523                                         .wordListExists = 1
1524                                 endif
1525                         endfor
1526                         Remove
1527                 endif
1528                 if not (.wordListExists or fileReadable(.dirname$) or fileReadable("'.dirname$'/directory.txt") or fileReadable(.wordlistDirectory$) or fileReadable("'.wordlistDirectory$'/directory.txt"))
1529                         .wasWordList = 0
1530                         # Move source to destination
1531                         # Use this if you want to allow direct loading of ZIP files. Could lead to problems.
1532                         # if index(.file$, ".sgc") or index(.file$, ".zip")
1533                         #
1534                         if index(.file$, ".sgc")
1535                                 if index_regex(.wordlistDirectory$, "[^a-zA-Z0-9_\.\- /~\:]") <= 0 and index_regex(.dirname$, "[^a-zA-Z0-9_\.\- ]") <= 0 and not (windows and windowsUnzipCommand$ = "")
1536                                         # Create wordlist directory
1537                                         createDirectory(.wordlistDirectory$)
1538                                         .wasWordList = 1
1539                                         if macintosh or unix
1540                                                 system bash -rc -- 'unzip -j "'.sourceDir$'/'.file$'" -d "'.wordlistDirectory$'"'
1541                                         elsif windows and windowsUnzipCommand$ <> ""
1542                                                 .winWordListDirectory$ = replace_regex$(.wordlistDirectory$, "/", "\\", 0)
1543                                                 .winSourceDirectory$ = replace_regex$("'.sourceDir$'\'.file$'", "/", "\\", 0)
1544                                                 system mkdir "'.winWordListDirectory$'" & 'windowsUnzipCommand$' "'.winSourceDirectory$'" 'windowsUnzipDestDir$'"'.winWordListDirectory$'"
1545                                         endif
1546                                 elsif (windows and windowsUnzipCommand$ = "")
1547                                         # Warn to install 7Zip
1548                                         call get_feedback_text 'config.language$' InstallUnzip
1549                                         call convert_praat_to_latin1 'get_feedback_text.text$'
1550                                         .zipText$ = convert_praat_to_latin1.text$
1551                                         call write_text_popup 'defaultFont$' 14 '.zipText$'
1552                                         # Wait for confirmation
1553                                         demoWaitForInput()
1554                                         call Draw_config_page
1555                                 endif
1556                                 # Remove if not valid!
1557                                 if fileReadable("'.wordlistDirectory$'/wordlist.Table") or fileReadable("'.wordlistDirectory$'/wordlist.txt") or fileReadable("'.wordlistDirectory$'/LICENSE.txt")
1558                                         if fileReadable("'.wordlistDirectory$'/wordlist.Table")
1559                                                 call readTable '.sourceDir$'/'.file$'
1560                                                 if readTable.tableID > 0
1561                                                         select readTable.tableID
1562                                                         # Hack around odd behavior of column index
1563                                                         .pinyinCol = 0
1564                                                         .firstColumn$ = Get column label: 1
1565                                                         .firstColumn$ = replace_regex$(.firstColumn$, "^[^!-~]", "", 0)
1566                                                         if .firstColumn$ = "Pinyin"
1567                                                                 .pinyinCol = 1
1568                                                         else
1569                                                                 .pinyinCol = Get column index... Pinyin
1570                                                         endif
1571                                                         Remove
1572                                                         # No Pinyin in table
1573                                                         if .pinyinCol <= 0
1574                                                                 .wasWordList = 0
1575                                                         endif
1576                                                 else
1577                                                         .wasWordList = 0
1578                                                 endif
1579                                         endif
1580                                 else
1581                                         # None of wordlist.Table, wordlist.txt, nor LICENSE.txt
1582                                         .wasWordList = 0
1583                                 endif
1584                                 ### REALLY DANGEROUS STUFF, SHOULD BE HANDLED BETTER
1585                                 if .wasWordList = 0
1586                                         # Remove newly created directory
1587                                         if index_regex(.wordlistDirectory$, "[^a-zA-Z0-9_\.\- /~\:]") <= 0 and index_regex(.dirname$, "[^a-zA-Z0-9_\.\- ]") <= 0 and index(.dirname$, "..") <= 0
1588                                                 if macintosh or unix
1589                                                         system bash -rc -- 'rm -r "'.wordlistDirectory$'/"'
1590                                                 elsif windows
1591                                                         system rmdir /Q /S "'.winWordListDirectory$'/"
1592                                                 endif
1593                                         endif
1594                                 endif
1595                         elsif index_regex(.file$, "\.(Table|tsv|csv)")
1596                                 # Check whether this is a valid table
1597                                 call readTable '.sourceDir$'/'.file$'
1598                                 if readTable.tableID > 0
1599                                         select readTable.tableID
1600                                         # Hack around odd behavior of column index
1601                                         .pinyinCol = 0
1602                                         .firstColumn$ = Get column label: 1
1603                                         .firstColumn$ = replace_regex$(.firstColumn$, "^[^!-~]", "", 0)
1604                                         if .firstColumn$ = "Pinyin"
1605                                                 .pinyinCol = 1
1606                                         else
1607                                                 .pinyinCol = Get column index... Pinyin
1608                                         endif
1609
1610                                         if .pinyinCol > 0
1611                                                 select readTable.tableID
1612                                                 # Create wordlist directory
1613                                                 createDirectory(.wordlistDirectory$)
1614                                                 .wasWordList = 1
1615                                                 .extension$ = "Table"
1616                                                 .wordlistFilePath$ = "'.wordlistDirectory$'/wordlist.'.extension$'"
1617                                                 if windows
1618                                                         .wordlistFilePath$ = replace_regex$(.wordlistFilePath$, "/", "\\", 0)
1619                                                 endif
1620                                                 # Save
1621                                                 select readTable.tableID
1622                                                 Save as tab-separated file: .wordlistFilePath$
1623                                                 if not fileReadable(.wordlistFilePath$)
1624                                                         .wasWordList = 0
1625                                                 endif
1626                                         endif
1627                                         select readTable.tableID
1628                                         Remove
1629                                 endif
1630                         elsif index_regex(.file$, "\.(?itxt)")
1631                                 # Check whether this is a valid table
1632                                 readTable.tableID = nocheck Read Strings from raw text file: "'.sourceDir$'/'.file$'"
1633                                 if readTable.tableID > 0
1634                                         .wasWordList = 1
1635                                         # Create wordlist directory
1636                                         createDirectory(.wordlistDirectory$)
1637                                         .extension$ = "txt"
1638                                         .wordlistFilePath$ = "'.wordlistDirectory$'/wordlist.'.extension$'"
1639                                         if windows
1640                                                 .wordlistFilePath$ = replace_regex$(.wordlistFilePath$, "/", "\\", 0)
1641                                         endif
1642                                         select readTable.tableID
1643                                         Save as raw text file: .wordlistFilePath$
1644                                         select readTable.tableID
1645                                         Remove
1646                                 endif
1647                         elsif fileReadable("'.sourceDir$'/'.file$'/wordlist.Table") or fileReadable("'.sourceDir$'/'.file$'/wordlist.txt") or fileReadable("'.sourceDir$'/'.file$'/LICENSE.txt")
1648                                 # Copy wordlist directory
1649                                 if index_regex(.file$, "[^a-zA-Z0-9_\.\- ]") <= 0
1650                                         .wasWordList = 1
1651                                         if macintosh or unix
1652                                                 system bash -rc -- 'cp -r "'.sourceDir$'/'.file$'" "'.wordlistDirectory$'"'
1653                                         elsif windows
1654                                                 createDirectory(.wordlistDirectory$)
1655                                                 .winWordListDirectory$ = replace_regex$(.wordlistDirectory$, "/", "\\", 0)
1656                                                 .winSourceDirectory$ = replace_regex$("'.sourceDir$'\'.file$'", "/", "\\", 0)
1657                                                 system xcopy "'.winSourceDirectory$'" "'.winWordListDirectory$'" /s /e /q
1658                                         endif
1659                                 endif
1660                         endif
1661
1662                         # Set current word list to read list
1663                         if .wasWordList
1664                                 wordlistName$ = .dirname$
1665                         else
1666                                 .table$ = "Config"
1667                                 .label$ = "!NotAWordlist"
1668
1669                                 # Get help text
1670                                 call findLabel '.table$' '.label$'
1671                                 .row = findLabel.row
1672                                 select Table '.table$'
1673                                 .helpText$ = Get value... '.row' Helptext
1674                                 .printablePath$ = "'.sourceDir$'/'.file$'"
1675                                 if windows
1676                                         .printablePath$ = replace$("'.sourceDir$'\'.file$'", "\", "\bs", 0)
1677                                 endif
1678                                 .filetext$ = replace_regex$(.printablePath$, "_", "\\_ ", 0)
1679                         call write_text_popup 'defaultFont$' 14 '.helpText$' "'.filetext$'"
1680                                 # Wait for confirmation
1681                                 demoWaitForInput()
1682                         endif
1683                 endif
1684         endif
1685 endproc