/usr/share/perl5/Audio/Nama/Engine_setup_subs.pm is in nama 1.078-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 | # ----------- Engine Setup and Teardown -----------
package Audio::Nama;
use Modern::Perl;
no warnings 'uninitialized';
our (
# generate_setup()
$debug,
$debug2,
$regenerate_setup,
$length,
$ui,
$seek_delay,
$jack_seek_delay,
# reconfigure_engine()
$this_track,
%opts,
$disable_auto_reconfigure,
$old_snapshot,
$preview,
$project_name,
$offset_run_flag,
# status_snapshot()
$mastering_mode,
$jack_running,
# find_duplicate_inputs()
$main,
%already_used,
%duplicate_inputs,
%tn,
# transport_status()
%cooked_record_pending,
$loop_enable,
$press_space_to_start_transport,
# adjust_latency()
%copp,
%ti,
$sampling_frequency,
);
sub generate_setup {
# return 1 if successful
# catch errors from generate_setup_try() and cleanup
$debug2 and print "&generate_setup\n";
# save current track
local $this_track;
# prevent engine from starting an old setup
eval_iam('cs-disconnect') if eval_iam('cs-connected');
Audio::Nama::ChainSetup::initialize();
$length = 0; # TODO replace global with sub
# TODO: use try/catch
# catch errors unless testing (no-terminal option)
local $@ unless $opts{T};
track_memoize(); # freeze track state
my $success = $opts{T} # don't catch errors during testing
? Audio::Nama::ChainSetup::generate_setup_try(@_)
: eval { Audio::Nama::ChainSetup::generate_setup_try(@_) };
remove_temporary_tracks(); # cleanup
track_unmemoize(); # unfreeze track state
if ($@){
say("error caught while generating setup: $@");
Audio::Nama::ChainSetup::initialize() unless $debug;
return
}
$success;
}
sub remove_temporary_tracks {
$debug2 and say "&remove_temporary_tracks";
map { $_->remove } grep{ $_->group eq 'Temp'} Audio::Nama::Track::all();
}
{ my $old_offset_run_status;
sub reconfigure_engine {
$debug2 and print "&reconfigure_engine\n";
# skip if command line option is set
return if $opts{R};
return if $disable_auto_reconfigure;
# don't disturb recording/mixing
return if Audio::Nama::ChainSetup::really_recording() and engine_running();
rememoize(); # check if someone has snuck in some files
find_duplicate_inputs(); # we will warn the user later
# only act if change in configuration
# skip check if regenerate_setup flag is already set
if( $regenerate_setup ){
$regenerate_setup = 0; # reset for next time
}
else {
my $current = yaml_out(status_snapshot());
my $old = yaml_out($old_snapshot);
if ( $current eq $old){
$debug and print("no change in setup\n");
return;
}
}
$debug and print("setup change\n");
my $old_pos;
my $was_running;
my $restore_position;
my $previous_snapshot = $old_snapshot;
# restore previous playback position unless
# - doodle mode
# - change in global version (TODO)
# - change in project
# - new setup involves recording
# - change in edit mode
if ( $preview eq 'doodle'
or $old_snapshot->{project} ne $project_name
or $offset_run_flag != $old_offset_run_status
# TODO: or change in global version
){} # do nothing
else
{
$old_pos = eval_iam('getpos') if eval_iam('cs-selected');
$was_running = engine_running();
$restore_position++;
# say "old_pos: $old_pos";
# say "was_running: $was_running";
# say "restore_position: $restore_position";
}
$old_snapshot = status_snapshot();
$old_offset_run_status = $offset_run_flag;
command_process('show_tracks_all');
stop_transport('quiet') if $was_running;
if ( generate_setup() ){
#say "I generated a new setup";
connect_transport('quiet');
Audio::Nama::Text::show_status();
if( $restore_position and not Audio::Nama::ChainSetup::really_recording()){
eval_iam("setpos $old_pos") if $old_pos and $old_pos < $length;
start_transport('quiet') if $was_running;
}
transport_status();
$ui->flash_ready;
}
}
}
# status_snapshot()
#
# hashref output for detecting if we need to reconfigure engine
# compared as YAML strings
# %status_snaphot indicates Nama's internal
# state. It consists of
# - the values of selected global variables
# - selected field values of each track
{
# these track fields will be inspected
my @relevant_track_fields = qw(
name
width
group
playat
region_start
region_end
looping
source_id
source_type
send_id
send_type
rec_defeat
rec_status
current_version
);
sub status_snapshot {
my %snapshot = ( project => $project_name,
mastering_mode => $mastering_mode,
preview => $preview,
jack_running => $jack_running,
tracks => [], );
map { push @{$snapshot{tracks}}, $_->snapshot(\@relevant_track_fields) }
Audio::Nama::Track::all();
\%snapshot;
}
}
sub find_duplicate_inputs { # in Main bus only
%duplicate_inputs = ();
%already_used = ();
$debug2 and print "&find_duplicate_inputs\n";
map{ my $source = $_->source;
$duplicate_inputs{$_->name}++ if $already_used{$source} ;
$already_used{$source} //= $_->name;
}
grep { $_->rw eq 'REC' }
map{ $tn{$_} }
$main->tracks(); # track names;
}
sub load_ecs {
my $setup = setup_file();
#say "setup file: $setup " . ( -e $setup ? "exists" : "");
return unless -e $setup;
#say "passed conditional";
teardown_engine();
eval_iam("cs-load $setup");
eval_iam("cs-select $setup"); # needed by Audio::Ecasound, but not Net-ECI !!
$debug and map{eval_iam($_)} qw(cs es fs st ctrl-status);
1;
}
sub teardown_engine {
eval_iam("cs-disconnect") if eval_iam("cs-connected");
eval_iam("cs-remove") if eval_iam("cs-selected");
}
sub arm {
# now that we have reconfigure_engine(), use is limited to
# - exiting preview
# - automix
$debug2 and print "&arm\n";
exit_preview_mode();
#adjust_latency();
$regenerate_setup++;
generate_setup() and connect_transport();
}
sub connect_transport {
$debug2 and print "&connect_transport\n";
my $quiet = shift;
remove_riff_header_stubs();
load_ecs() or say("No chain setup, engine not ready."), return;
valid_engine_setup()
or say("Invalid chain setup, engine not ready."),return;
find_op_offsets();
eval_iam('cs-connect');
#or say("Failed to connect setup, engine not ready"),return;
apply_ops();
apply_fades();
my $status = eval_iam("engine-status");
if ($status ne 'not started'){
print("Invalid chain setup, cannot connect engine.\n");
return;
}
eval_iam('engine-launch');
$status = eval_iam("engine-status");
if ($status ne 'stopped'){
print "Failed to launch engine. Engine status: $status\n";
return;
}
$length = eval_iam('cs-get-length');
$ui->length_display(-text => colonize($length));
# eval_iam("cs-set-length $length") unless @record;
$ui->clock_config(-text => colonize(0));
sleeper(0.2); # time for ecasound engine to launch
{ # set delay for seeking under JACK
my $track_count; map{ $track_count++ } Audio::Nama::ChainSetup::engine_tracks();
$seek_delay = $jack_seek_delay || 0.1 + 0.1 * $track_count / 20;
}
connect_jack_ports_list();
transport_status() unless $quiet;
$ui->flash_ready();
#print eval_iam("fs");
1;
}
sub transport_status {
map{
say("Warning: $_: input ",$tn{$_}->source,
" is already used by track ",$already_used{$tn{$_}->source},".")
if $duplicate_inputs{$_};
} grep { $tn{$_}->rec_status eq 'REC' } $main->tracks;
# assume transport is stopped
# print looping status, setup length, current position
my $start = Audio::Nama::Mark::loop_start();
my $end = Audio::Nama::Mark::loop_end();
#print "start: $start, end: $end, loop_enable: $loop_enable\n";
if (%cooked_record_pending){
say join(" ", keys %cooked_record_pending), ": ready for caching";
}
if ($loop_enable and $start and $end){
#if (! $end){ $end = $start; $start = 0}
say "looping from ", heuristic_time($start),
"to ", heuristic_time($end);
}
say "\nNow at: ", current_position();
say "Engine is ". ( engine_running() ? "running." : "ready.");
say "\nPress SPACE to start or stop engine.\n"
if $press_space_to_start_transport;
}
sub adjust_latency {
$debug2 and print "&adjust_latency\n";
map { $copp{$_->latency}[0] = 0 if $_->latency() }
Audio::Nama::Track::all();
set_preview_mode();
exit_preview_mode();
my $cop_status = eval_iam('cop-status');
$debug and print $cop_status;
my $chain_re = qr/Chain "(\d+)":\s+(.*?)(?=Chain|$)/s;
my $latency_re = qr/\[\d+\]\s+latency\s+([\d\.]+)/;
my %chains = $cop_status =~ /$chain_re/sg;
$debug and print yaml_out(\%chains);
my %latency;
map { my @latencies = $chains{$_} =~ /$latency_re/g;
$debug and print "chain $_: latencies @latencies\n";
my $chain = $_;
map{ $latency{$chain} += $_ } @latencies;
} grep { $_ > 2 } sort keys %chains;
$debug and print yaml_out(\%latency);
my $max;
map { $max = $_ if $_ > $max } values %latency;
$debug and print "max: $max\n";
map { my $adjustment = ($max - $latency{$_}) / $sampling_frequency * 1000;
$debug and print "chain: $_, adjustment: $adjustment\n";
effect_update_copp_set($ti{$_}->latency, 2, $adjustment);
} keys %latency;
}
1;
__END__
|