/usr/share/perl5/Audio/Nama/Option_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 | # --------- Command line options ----------
package Audio::Nama;
use Modern::Perl;
our (%opts);
sub process_options {
my %options = qw(
save-alsa a
project-root=s d
use-pwd p
create-project c
config=s f
gui g
text t
no-state M
net-eci n
libecasoundc l
help h
regenerate-effects-cache r
no-static-effects-data S
no-static-effects-cache C
no-reconfigure-engine R
fake-jack J
fake-alsa A
fake-ecasound E
debugging-output D
execute-command=s X
no-terminal T
no-fade-on-transport-start F
);
map{$opts{$_} = ''} values %options;
# long options
Getopt::Long::Configure ("bundling");
my $getopts = 'GetOptions( ';
map{ $getopts .= qq("$options{$_}|$_" => \\\$opts{$options{$_}}, \n)} keys %options;
$getopts .= ' )' ;
#say $getopts;
eval $getopts or die "Stopped.\n";
if ($opts{h}){
say <<HELP; exit; }
USAGE: nama [options] [project_name]
--gui, -g Start Nama in GUI mode
--text, -t Start Nama in text mode
--config, -f Specify configuration file (default: ~/.namarc)
--project-root, -d Specify project root directory
--use-pwd, -p Use current dir for all WAV and project files
--create-project, -c Create project if it doesn't exist
--net-eci, -n Use Ecasound's Net-ECI interface
--libecasoundc, -l Use Ecasound's libecasoundc interface
--save-alsa, -a Save/restore alsa state with project data
--help, -h This help display
--regenerate-effects-cache, -r Regenerate the effects data cache
Debugging options:
--no-state, -M Don't load project state
--no-static-effects-data, -S Don't load effects data
--no-static-effects-cache, -C Bypass effects data cache
--no-reconfigure-engine, -R Don't automatically configure engine
--debugging-output, -D Emit debugging information
--fake-jack, -J Simulate JACK environment
--fake-alsa, -A Simulate ALSA environment
--no-ecasound, -E Don't spawn Ecasound process
--execute-command, -X Supply a command to execute
--no-terminal, -T Don't initialize terminal
--no-fades, -F No fades on transport start/stop
HELP
#--no-ecasound, -E Don't load Ecasound (for testing)
}
1;
__END__
|