Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 78 lines (69 sloc) 2.135 kb
#!/usr/bin/perl -w
# Program to show cdtext, similar to examples/cdtext.c
#
# Copyright (C) 2012 Rocky Bernstein <rocky@gnu.org>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
# use Enbugger; Enbugger->load_debugger('trepan'); Enbugger->stop;
use strict;
use lib '../blib/lib';
use lib '../blib/arch';
use perlcdio;
use Device::Cdio;
use Device::Cdio::Device;
sub print_cdtext_track_info($)
{
my $cdtext_ref = shift;
foreach my $field (sort keys %{$cdtext_ref}) {
printf "\t%s: %s\n", $field, $cdtext_ref->{$field};
}
}
my $drive_name;
my $d;
if ($ARGV[0]) {
$drive_name = $ARGV[0];
$d = Device::Cdio::Device->new($drive_name);
print "Problem opening CD-ROM: $drive_name\n";
exit 1;
} else {
$d = Device::Cdio::Device->new(undef, $perlcdio::DRIVER_UNKNOWN);
if ($d) {
$drive_name = $d->get_device();
} else {
print "Problem finding a CD-ROM\n";
exit 1;
}
}
my $i_tracks = $d->get_num_tracks();
my $first_track = $d->get_first_track;
my $text;
print "+++$perlcdio::VERSION_NUM\n";
if ($perlcdio::VERSION_NUM <= 82) {
$text = $d->track(0)->cdtext();
} else {
$text = $d->get_track_cdtext(0);
}
print "CD-Text for Disc:\n";
print_cdtext_track_info($text);
my $i;
my $last_track = $d->get_last_track();
for ($i=$first_track->{track}; $i <= $last_track->{track}; $i++) {
if ($perlcdio::VERSION_NUM <= 82) {
$text = $d->track($i)->cdtext();
} else {
$text = $d->get_track_cdtext($i);
}
print "CD-Text for Track $i\n";
print_cdtext_track_info($text);
}
Jump to Line
Something went wrong with that request. Please try again.