lib/ID3FS/Path/Node.pm

   1 package ID3FS::Path::Node;
   2
   3 use strict;
   4 use warnings;
   5
   6 sub new
   7 {
   8     my $proto=shift;
   9     my $class=ref($proto) || $proto;
  10     my $self={};
  11     bless($self,$class);
  12
  13     my $db=shift;
  14     $self->{type}=shift;
  15     $self->{name}=shift;
  16     $self->{parents_id}=shift;
  17     if($self->{type} ne "boolean")
  18     {
  19         my $table=ucfirst($self->{type});
  20         $table .= "s" unless($table=~/s$/);
  21         $self->{id}=$db->lookup_id($table, $self->{name}, $self->{parents_id});
  22         return undef unless(defined($self->{id}));
  23     }
  24     return $self;
  25 }
  26
  27 sub set
  28 {
  29     my($self, $name, $val)=@_;
  30     if(defined($val))
  31     {
  32         $self->{$name}=$val;
  33     }
  34     return $self->{$name};
  35 }
  36
  37 sub left       { return shift->set("left",       shift); }
  38 sub right      { return shift->set("right",      shift); }
  39 sub name       { return shift->set("name",       shift); }
  40 sub type       { return shift->set("type",       shift); }
  41 sub id         { return shift->set("id",         shift); }
  42 sub parents_id { return shift->set("parents_id", shift); }
  43
  44 sub print
  45 {
  46     my($self)=@_;
  47     my $op=$self->name();
  48     my $left=$self->left();
  49     my $right=$self->right();
  50     return "" unless($left || $right);
  51     my $str .= $self->print_node($left);
  52     $str .= (" " . $op . " ") if($op);
  53     $str .= $self->print_node($right);
  54     if($op || ($left && $right))
  55     {
  56         $str="(" . $str . ")";
  57     }
  58     return $str;
  59 }
  60
  61 sub print_node
  62 {
  63     my($self, $node)=@_;
  64     return "" unless(defined($node));
  65     return $node->print() if(ref($node) eq "ID3FS::Path::Node");
  66     return $node->{name};
  67 }
  68
  69 sub to_sql
  70 {
  71     my($self, $hasvals, $not, @joins)=@_;
  72     $not=0 unless(defined($not));
  73     my @outjoins=();
  74     # init
  75     unless(@joins)
  76     {
  77         @outjoins = @joins = ("INNER");
  78     }
  79     my $left=$self->left();
  80     my $right=$self->right();
  81     return ("", @outjoins) unless($left || $right);
  82     my ($leftstr, @leftjoins) = $self->node_to_sql($left, $hasvals, $not, @joins);
  83     push(@joins, @leftjoins);
  84     push(@outjoins, @leftjoins);
  85     my $op=$self->name();
  86     if(defined($op) && $self->type() eq "boolean")
  87     {
  88         # if we are ANDing, add an inner join
  89         # also if we are NOTing, but we are looking for a tag *value*
  90         if( ($op eq "AND") || ($hasvals && ($op eq "NOT")))
  91         {
  92             # hack - if right child is a NOT, we don't need extra join/brackets
  93             # NOT will do the same and we will end up with an extra one
  94             unless($right && $right->name() && $right->name() eq "NOT")
  95             {
  96                 push(@joins, "INNER");
  97                 push(@outjoins, "INNER");
  98             }
  99         }
 100         elsif($op eq "NOT")
 101         {
 102             $not=1;
 103             push(@joins, "LEFT");
 104             push(@outjoins, "LEFT");
 105 #           print("LEFT: ", $left->print(), "\n") if ($left);
 106 #           print("RIGHT: ", $right->print(), "\n") if($right);
 107         }
 108     }
 109     my ($rightstr, @rightjoins) = $self->node_to_sql($right, $hasvals, $not, @joins);
 110     push(@outjoins, @rightjoins);
 111 #    print "LEFT (", scalar(@leftjoins), "): $leftstr\n";
 112 #    print "RIGHT (", scalar(@rightjoins), "): $rightstr\n";
 113     my $str=$leftstr;
 114     $str .= " $op " if($op && !$not);
 115     $str .= $rightstr;
 116     if($op || ($left && $right))
 117     {
 118         $str="(" . $str . ")";
 119     }
 120 #    print "STR: $str\n";
 121     return($str, @outjoins);
 122 }
 123
 124 sub node_to_sql
 125 {
 126     my($self, $node, $hasvals, $not, @joins)=@_;
 127     return ("", ()) unless(defined($node));
 128     return $node->to_sql($hasvals, $not, @joins) if($node->type() eq "boolean");
 129     my $sql;
 130     my $cnt=scalar(@joins)+1;
 131     $sql .= "t" . scalar(@joins) . ".id='" . $node->{id} . "'";
 132     if($not && !$hasvals)
 133     {
 134         $sql .= " AND fxt" . scalar(@joins) . ".files_id IS NULL";
 135     }
 136     return ($sql, ());
 137 }
 138
 139 sub used_tags
 140 {
 141     my($self)=@_;
 142     if($self->type() eq "boolean")
 143     {
 144         my @used=();
 145         push(@used, $self->left()->used_tags())  if($self->left());
 146         push(@used, $self->right()->used_tags()) if($self->right());
 147         return(grep { defined; } @used);
 148     }
 149     return $self->id();
 150 }
 151
 152 1;