Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-11-01 14:43:48 +01:00
Code Issues Releases Wiki Activity

Update Perl pipe-test.pl script.

Browse Source
This commit is contained in:
James Crook
2018-01-14 15:04:05 +00:00
parent 7fb5ec4b7a
commit f9f3da384c
1 changed files with 32 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
scripts/piped-work/pipe-test.pl
View File

@@ -140,11 +140,11 @@ sub menuCommand{
doCommand("MenuCommand: CommandName=$commandName"); doCommand("MenuCommand: CommandName=$commandName");
} }
# Send a command which requests a list of all available menu commands # Send a command which requests a list of all available menu commands
sub getMenuCommands{ sub getMenuCommands{
doCommand("GetMenus: ShowStatus=0"); doCommand("GetMenus: ShowStatus=0");
} }
sub showMenuStatus{ sub showMenuStatus{
sendCommand("GetMenus: ShowStatus=1"); sendCommand("GetMenus: ShowStatus=1");
my @resps = getResponses(); my @resps = getResponses();
@@ -161,7 +161,7 @@ sub noSuchCommand{
doCommand("NoSuchCommand: myParam=3"); doCommand("NoSuchCommand: myParam=3");
} }
sub parameterTest{ sub parameterTest{
# Set a non-existent parameter # Set a non-existent parameter
doCommand("GetMenus: blah=2"); doCommand("GetMenus: blah=2");
# Parameter with no '=' # Parameter with no '='
@@ -197,7 +197,7 @@ sub help{
doCommand("Help: CommandName=$cmdName"); doCommand("Help: CommandName=$cmdName");
} }
# Get help on all of the listed commands # Get help on all of the listed commands
sub fullHelp{ sub fullHelp{
my @cmds = qw(BatchCommand CompareAudio MenuCommand GetMenus GetTrackInfo Help Message Screenshot Select SetTrackInfo); my @cmds = qw(BatchCommand CompareAudio MenuCommand GetMenus GetTrackInfo Help Message Screenshot Select SetTrackInfo);
foreach my $cmd (@cmds){ foreach my $cmd (@cmds){
@@ -260,10 +260,38 @@ sub getTrackInfo{
@resps = getResponses(); @resps = getResponses();
my $startTime = shift(@resps); my $startTime = shift(@resps);
sendCommand("GetTrackInfo: Type=EndTime TrackIndex=0"); sendCommand("GetTrackInfo: Type=EndTime TrackIndex=0");
@resps = getResponses();
my $endTime = shift(@resps);
sendCommand("GetTrackInfo: Type=Pan TrackIndex=0");
@resps = getResponses();
my $pan = shift(@resps);
sendCommand("GetTrackInfo: Type=Gain TrackIndex=0");
@resps = getResponses();
my $gain = shift(@resps);
sendCommand("GetTrackInfo: Type=Mute TrackIndex=0");
@resps = getResponses();
my $mute = shift(@resps);
sendCommand("GetTrackInfo: Type=Solo TrackIndex=0");
@resps = getResponses();
my $solo = shift(@resps);
sendCommand("GetTrackInfo: Type=Selected TrackIndex=0");
@resps = getResponses();
my $selected = shift(@resps);
sendCommand("GetTrackInfo: Type=Focused TrackIndex=0");
@resps = getResponses();
my $focused = shift(@resps);
sendCommand("GetTrackInfo: Type=Linked TrackIndex=0");
@resps = getResponses(); @resps = getResponses();
my $linked = shift(@resps); my $linked = shift(@resps);
print " Name: $name\n"; print " Name: $name\n";
print "StartTime: $startTime\n";
print " EndTime: $endTime\n";
print " Pan: $pan\n";
print " Gain: $gain\n";
print " Mute: $mute\n";
print " Solo: $solo\n";
print " Selected: $selected\n";
print " Focused: $focused\n"; print " Focused: $focused\n";
print " Linked: $linked\n"; print " Linked: $linked\n";
} }
@@ -390,7 +418,6 @@ sub getEffects{
Echo Echo
Equalization Equalization
FadeIn FadeIn
FadeOut
FadeOut FadeOut
Invert Invert
Normalize Normalize