psibre

Poll Praat TextGrid Editor

Getting the editor info (visible window, selection start and end, etc.) in a Praat script is easy. But say you want to do this continuously to log the state of your editor window into a text file while you're interacting with it. The problem is that Praat doesn't seem to have a sleep or timeout command to pause execution of the script for a given amount of time, then continue without user interaction.

One hypothetical solution might be a Praat script that runs a system command such as sleep (or timeout on Windows), but the Praat UI blocks while the script is running, which is a dealbreaker.

Another solution is to poll from an external thread such as a shell script that can sleep or timeout natively. This approach requires sending the corresponding commands to a running graphical Praat, which can be done using the sendpraat program.



	dependencies {
	classpath group: "org.codehaus.groovy.modules.http-builder", name: "http-builder", version: "0.7"
	}


	import groovyx.net.http.HTTPBuilder
	import static groovyx.net.http.ContentType.URLENC
	import static groovyx.net.http.Method.POST

	apply plugin: ForcedAlignPlugin

	class ForcedAlignPlugin implements Plugin<Project> {
	void apply(Project project) {
	project.task('prepareForcedAlignment', type: PrepareForcedAlignment) {
	dependsOn project.generateAllophones, project.wav
	maryXmlDir = project.file(project.generateAllophones.destDir)
	wavDir = project.file(project.wav.destDir)
	forcedAlignmentDir = project.file("$project.buildDir/forcedAlignment")
	}

	plugins {
	id 'java'
	}

	repositories {
	jcenter()
	}

	dependencies {
	compile 'de.dfki.mary:marytts-lang-en:5.2'

	buildscript {
	repositories {
	jcenter()
	}
	dependencies {
	classpath 'com.xlson.groovycsv:groovycsv:1.1'
	classpath 'org.yaml:snakeyaml:1.18'
	}
	}

	select all
	nocheck Remove
	clearinfo

	# timit.txt contains all TIMIT prompts (without comments!)
	# utterances.TextGrid contains all utterances, speech intervals must not be empty
	timit = Read Strings from raw text file... timit.txt
	tg = Read from file... utterances.TextGrid
	snd = Open long sound file... group1.flac
	plus tg

	form Concatenate recoverably from list of WAV files
	sentence File_list file.lst
	sentence Output_file chain.wav
	endform

	clearinfo

	output_file$ = if startsWith(output_file$, "/") or shellDirectory$ == "/" then output_file$ else shellDirectory$ + "/" + output_file$ fi

	file_list$ = if startsWith(file_list$, "/") or shellDirectory$ == "/" then file_list$ else shellDirectory$ + "/" + file_list$ fi

	#! /usr/bin/env perl

	$indir = "lab_raw";
	opendir INDIR, $indir;

	@files = grep (/\.lab$/,readdir INDIR);

	closedir INDIR;

	foreach $file (@files)

	GlobWavPlayer gwp = new ie.tcd.globwavplayer.GlobWavPlayer();
	try {
	gwp.main(new String[] {"/Users/ingmar/"});
	} catch (Exception e) {
	print("boo");
	}