Convert/CD/Cue.pm

=head1 NAME

Convert::CD::Cue - import/export .bin/.cue files.

=head1 SYNOPSIS

 use Convert::CD::Cue;

 # to be done

=head1 DESCRIPTION

Parse/Write .cue files.

=head2 Convert:CD::Cue METHODS

This class represents a .bin/.cue file combination.

=over 4

=cut

package Convert::CD::Cue;

$VERSION = 0.01;

use Carp;

use base Convert::CD::TOCFile;

=item new param => value...

Create a new Convert::CD::Cue object.

Parameters:

 path       the base image filename
 tocpath    the (optional) path of the tocfile

=cut

sub new {
   my $class = shift;
   my $self = bless { @_, }, $class;
   exists $self->{tocpath} or $self->{tocpath} = $self->find_tocfile ("cue", "CUE", "Cue");
   $self;
}

sub _read {
   my ($self, $cd) = @_;

   defined $self->{tocpath}
      or croak "no tocpath specified and/or no .cue found";

   open my $cue, "<", $self->{tocpath}
      or croak "$self->{tocpath}: $!";

   my @tracks; # perliminary track data
   my $file;
   my $track;

   # assumption #1: these thingies are line-based
   while (<$cue>) {
      s/[\015\012]+$//;
      # assumption #2, leading whitespace don't matter much
      # assumption #3, case? what case?
      if (/\S*FILE \"?(.*?)\"? (\S+)$/i) {
         my ($path, $type) = ($1, $2);
         if (-e $path) {
            $file = $path;
         } else {
            my $name = $path; $name =~ s/^.*[\/\\]//;
            if (-e $name) {
               $file = $name;
            } elsif (-e lc $name) {
               $file = lc $name;
            } else {
               $file = $self->{path};
            }
            warn "\"$path\" not found, using \"$file\" instead\n";
         }

      } elsif (/\S*TRACK (\d+) (\S+)/i) {
         my ($idx, $mode) = ($1, $2);
         my $secsize = 2352;

         $secsize = $1   if $mode =~ s/\/(\d+)$//; # MODE2/1234 => MODE2
         $secsize = 2448 if $mode eq "CDG";

         $track = $tracks[$idx - 1] = {};

         $track->{path}    = $file;
         $track->{mode}    = $mode;
         $track->{secsize} = $secsize;

      } elsif (/\S*INDEX (\d+) ([0-9:]+)/i) {
         my ($idx, $time) = ($1, $self->parse_msf ($2));

         $track->{index}[$idx] = $time;
         $track->{offset} = $time * $track->{secsize} if $idx == 1;

      } elsif (/\S*PREGAP ([0-9:]+)/i) {
         $track->{pregap} = $self->parse_msf ($1);

      } elsif (/\S*POSTGAP ([0-9:]+)/i) {
         $track->{postgap} = $self->parse_msf ($1);

      } else {
         warn "unknown .cue directive skipped: $_";
      }
   }

   # now go through the tracks array
   my $prev = undef;
   for (@tracks) {
      next unless $_;
      if ($prev && $prev->{offset} <= $_->{offset}) {
         $prev->{rawsize} = $_->{offset} - $prev->{offset};
      }
      $prev = $_;
   }

   for (@tracks) {
      if (defined $_) {
         $cd->append_track (%$_);
      } else {
         # synthesize empty track
         $cd->append_track (size => 0, mode => "MODE1", secsize => 2048);
      }
   }
}

#sub _write {
#   my ($self, $cd) = @_;
#}

1;

=back

=head1 AUTHOR

 Marc Lehmann <pcg@goof.com>

=cut

Revision:	1.6
Committed:	Tue Jun 10 14:53:22 2003 UTC (23 years, 3 months ago) by root
Branch:	MAIN
Changes since 1.5:	+3 -3 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	=head1 NAME
2
3			Convert::CD::Cue - import/export .bin/.cue files.
4
5			=head1 SYNOPSIS
6
7			use Convert::CD::Cue;
8
9			# to be done
10
11			=head1 DESCRIPTION
12
13			Parse/Write .cue files.
14
15			=head2 Convert:CD::Cue METHODS
16
17			This class represents a .bin/.cue file combination.
18
19			=over 4
20
21			=cut
22
23			package Convert::CD::Cue;
24
25			$VERSION = 0.01;
26
27	root	1.3	use Carp;
28
29	root	1.1	use base Convert::CD::TOCFile;
30
31			=item new param => value...
32
33			Create a new Convert::CD::Cue object.
34
35			Parameters:
36
37			path the base image filename
38			tocpath the (optional) path of the tocfile
39
40			=cut
41
42			sub new {
43			my $class = shift;
44			my $self = bless { @_, }, $class;
45	root	1.3	exists $self->{tocpath} or $self->{tocpath} = $self->find_tocfile ("cue", "CUE", "Cue");
46	root	1.1	$self;
47			}
48
49	root	1.2	sub _read {
50			my ($self, $cd) = @_;
51
52	root	1.3	defined $self->{tocpath}
53			or croak "no tocpath specified and/or no .cue found";
54
55	root	1.2	open my $cue, "<", $self->{tocpath}
56	root	1.3	or croak "$self->{tocpath}: $!";
57
58	root	1.5	my @tracks; # perliminary track data
59			my $file;
60			my $track;
61
62	root	1.3	# assumption #1: these thingies are line-based
63			while (<$cue>) {
64			s/[\015\012]+$//;
65	root	1.5	# assumption #2, leading whitespace don't matter much
66	root	1.3	# assumption #3, case? what case?
67	root	1.5	if (/\SFILE \"?(.?)\"? (\S+)$/i) {
68			my ($path, $type) = ($1, $2);
69			if (-e $path) {
70			$file = $path;
71			} else {
72			my $name = $path; $name =~ s/^.*[\/\\]//;
73			if (-e $name) {
74			$file = $name;
75			} elsif (-e lc $name) {
76			$file = lc $name;
77			} else {
78			$file = $self->{path};
79			}
80			warn "\"$path\" not found, using \"$file\" instead\n";
81			}
82
83			} elsif (/\S*TRACK (\d+) (\S+)/i) {
84			my ($idx, $mode) = ($1, $2);
85			my $secsize = 2352;
86
87			$secsize = $1 if $mode =~ s/\/(\d+)$//; # MODE2/1234 => MODE2
88			$secsize = 2448 if $mode eq "CDG";
89
90			$track = $tracks[$idx - 1] = {};
91
92			$track->{path} = $file;
93			$track->{mode} = $mode;
94			$track->{secsize} = $secsize;
95
96			} elsif (/\S*INDEX (\d+) ([0-9:]+)/i) {
97			my ($idx, $time) = ($1, $self->parse_msf ($2));
98
99			$track->{index}[$idx] = $time;
100			$track->{offset} = $time * $track->{secsize} if $idx == 1;
101
102			} elsif (/\S*PREGAP ([0-9:]+)/i) {
103	root	1.6	$track->{pregap} = $self->parse_msf ($1);
104	root	1.5
105			} elsif (/\S*POSTGAP ([0-9:]+)/i) {
106	root	1.6	$track->{postgap} = $self->parse_msf ($1);
107	root	1.5
108	root	1.3	} else {
109			warn "unknown .cue directive skipped: $_";
110	root	1.5	}
111			}
112
113			# now go through the tracks array
114			my $prev = undef;
115			for (@tracks) {
116			next unless $_;
117			if ($prev && $prev->{offset} <= $_->{offset}) {
118	root	1.6	$prev->{rawsize} = $_->{offset} - $prev->{offset};
119	root	1.5	}
120			$prev = $_;
121			}
122
123			for (@tracks) {
124			if (defined $_) {
125			$cd->append_track (%$_);
126			} else {
127			# synthesize empty track
128			$cd->append_track (size => 0, mode => "MODE1", secsize => 2048);
129	root	1.3	}
130			}
131	root	1.2	}
132	root	1.1
133			#sub _write {
134			# my ($self, $cd) = @_;
135			#}
136
137			1;
138
139			=back
140
141			=head1 AUTHOR
142
143			Marc Lehmann <pcg@goof.com>
144
145			=cut
146