Update of /cvsroot/audacity/audacity-src/scripts
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv30691/scripts
Added Files:
pipe-test.pl
Log Message:
Include a basic test script (perl version) based on the one from the
audacity-extra website. Audacity must be running (with plugin) before launching
the script.
--- NEW FILE: pipe-test.pl ---
#!/usr/bin/env perl
# Test script for communicating with audacity via mod-script-pipe
# Audacity should be running first, with the scripting plugin loaded.
sub startUp{
# TODO: Maybe get the pipe names from audacity?
if ($^O eq 'MSWin32') {
$Name = 'Srv';
$ToSrvName = '\\\\.\\pipe\\To'.$Name.'Pipe';
$FromSrvName = '\\\\.\\pipe\\From'.$Name.'Pipe';
} elsif ($^O eq 'linux') {
$UID = $<;
$ToSrvName = '/tmp/audacity_script_pipe.to.'.$UID;
$FromSrvName = '/tmp/audacity_script_pipe.from.'.$UID;
} # Mac ??
open( TO_SRV, "+<$ToSrvName" )
or die "Could not open $ToSrvName";
open( FROM_SRV, "+<$FromSrvName" )
or die "Could not open $FromSrvName";
# The next 'magic incantation' causes TO_SRV to be flushed every time we
# write something to it.
select((select(TO_SRV),$|=1)[0]);
}
sub finish{
close TO_SRV;
close FROM_SRV;
print "\nDone\n";
}
sub doCommand{
my $command = shift;
if ($^O eq 'MSWin32') {
print TO_SRV "$command
\r\n\0";
} else {
# Don't explicitly send \0 on Linux or reads after the first one fail...
print TO_SRV "$command\n";
}
print "Sent: $command\n";
# Responses are disabled for now.
# my $ttt = <FROM_SRV>;
# if( $ttt =~ /^Lines:(\d+)$/ )
# {
## This block of code deals with multi-line responses.
## When there is more than one line of repsonse,
## Audacity starts out by stating how many lines there
## will be.
# $nLines = $1;
## print "Number of lines is $nLines";
# print "Recd:$ttt";
# for($i=0;$i<$nLines;$i++)
# {
# $ttt = <FROM_SRV>;
# print "Recd:$i:$ttt";
# }
# }
# else
# {
# print "Recd:$ttt";
# }
# return $ttt;
}
# Send some test commands - commands currently allowed are precisely those
# supported by the Batch system, and with the same syntax.
# (Delay between sends so it's clearer what's going on)
startUp();
sleep(1);
doCommand( 'Amplify: Ratio=0.1' );
sleep(2);
doCommand( 'Echo: Delay=1.0 Decay=0.5' );
sleep(2);
doCommand( 'Amplify: Ratio=2.0' );
sleep(2);
doCommand( 'Echo: Delay=1.0 Decay=0.5' );
sleep(2);
doCommand( 'ExportMp3' );
sleep(2);
finish();
------------------------------------------------------------------------------
Register Now for Creativity and Technology (CaT), June 3rd, NYC. CaT
is a gathering of tech-side developers & brand creativity professionals. Meet
the minds behind Google Creative Lab, Visual Complexity, Processing, &
iPhoneDevCamp as they present alongside digital heavyweights like Barbarian
Group, R/GA, & Big Spaceship. http://p.sf.net/sfu/creativitycat-com
_______________________________________________
Audacity-cvs mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/audacity-cvs
