fix file splitting; tweaks

[id3fs.git] / lib / ID3FS / Path.pm

diff --git a/lib/ID3FS/Path.pm b/lib/ID3FS/Path.pm
index 1babe7d..ea575a0 100644 (file)
--- a/lib/ID3FS/Path.pm
+++ b/lib/ID3FS/Path.pm
@@ -31,14 +31,21 @@ sub new
 sub isdir
 {
     my($self)=@_;
-    if(($self->state() eq $STATE_FILE) ||
-       ($self->state() eq $STATE_INVALID))
+    if(($self->state() == $STATE_FILE) ||
+       ($self->state() == $STATE_INVALID))
     {
        return 0;
     }
     return 1;
 }
 
+sub isfile
+{
+    my($self)=@_;
+    return 1 if($self->state() == $STATE_FILE);
+    return 0;
+}
+
 sub isvalid
 {
     my($self)=@_;
@@ -168,40 +175,24 @@ sub parse
                }
            }
 
-           when(255) #FIXME - dead code
-           {
-               print "SM: WANTMORE: $name\n";
-               $tag=ID3FS::PathElement::Tag->new($self->{db}, $name);
-               if($tag)
-               {
-                   push(@{$self->{elements}}, $tag);
-#                  $self->state($STATE_TAG);
-               }
-               else
-               {
-                   $self->state($STATE_INVALID);
-               }
-               my @valid_tagvals=$self->{db}->tag_values($tag);
-               print "TAGVALUES: $name: ", join(', ', @valid_tagvals), "\n";
-               if(@valid_tagvals)
-               {
-                   if(grep { $name eq $_; } @valid_tagvals)
-                   {
-                       print "TAGVAL VALID\n";
-                       $self->state($STATE_TAGVAL);
-                       push(@{$self->{elements}}, ID3FS::PathElement::Tagval($name));
-                   }
-                   else
-                   {
-                       print "ERROR: unknown tagval: $tagval\n";
-                       $self->state($STATE_INVALID);
-                   }
-               }
-               else
-               {
-                   $self->state($STATE_INVALID);
-               }
-           }
+#          when(255) #FIXME - dead code
+#          {
+#              my @valid_tagvals=$self->{db}->tag_values($tag);
+#              print "TAGVALUES: $name: ", join(', ', @valid_tagvals), "\n";
+#              if(@valid_tagvals)
+#              {
+#                  if(grep { $name eq $_; } @valid_tagvals)
+#                  {
+#                      print "TAGVAL VALID\n";
+#                      $self->state($STATE_TAGVAL);
+#                      push(@{$self->{elements}}, ID3FS::PathElement::Tagval($name));
+#                  }
+#                  else
+#                  {
+#                      print "ERROR: unknown tagval: $tagval\n";
+#                      $self->state($STATE_INVALID);
+#                  }
+#          }
            when($STATE_TAGVAL)
            {
                print "SM: TAGVAL: $name\n";
@@ -252,7 +243,7 @@ sub parse
            }
            when($STATE_TRACKLIST)
            {
-               print "SM: TRACKS: $name\n";
+               print "SM: TRACKLIST: $name\n";
                my $track=ID3FS::PathElement::File->new($self->{db}, $name);
                push(@{$self->{elements}}, $track);
                if($track)