#!perl
# 
# Set the name of the Application in the directory it is run in
#

@filelist = glob("*.praat");
if(length(@filelist) == 1) {
	$filename = shift(@filelist);
	$filename =~ s/\.praat.*$//g;
	open(APPNAME, ">ApplicationName.txt") || die "ApplicationName.txt: $!\n";
	print APPNAME $filename;
	close(APPNAME);
} elsif(-r "ApplicationName.txt") {
	`touch ApplicationName.txt`;
} elsif (-r "praat_module/ApplicationName.txt") {
	`cp praat_module/ApplicationName.txt ApplicationName.txt`
};