activate_sgc2_logging.praat

   1 #!praat
   2 #
   3 # Create a file 'preferencesDirectory$'/sgc2/log/logPerformance
   4 #
   5
   6 form Activate performance logging for SGC2
   7         sentence Target_directory_(can_be_empty) ~/Documents
   8 endform
   9
  10
  11 call activate_sgc2_logging 'target_directory$'
  12
  13
  14 procedure activate_sgc2_logging .targetDirectory$
  15         createDirectory("'preferencesDirectory$'/sgc2")
  16         createDirectory("'preferencesDirectory$'/sgc2/log")
  17
  18         if startsWith(.targetDirectory$, "~")
  19                 .targetDirectory$ = replace$(.targetDirectory$, "~", homeDirectory$, 1)
  20         endif
  21
  22         .targetDirectory$ > 'preferencesDirectory$'/sgc2/log/logPerformance.txt
  23         newline$ >> 'preferencesDirectory$'/sgc2/log/logPerformance.txt
  24 endproc
  25