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     $self->left(shift);
  14     $self->op(shift);
  15     $self->right(shift);
  16
  17     return $self;
  18 }
  19
  20 sub set
  21 {
  22     my($self, $name, $val)=@_;
  23     if(defined($val))
  24     {
  25         $self->{$name}=$val;
  26     }
  27     return $self->{$name};
  28 }
  29
  30 sub left  { return shift->set("left",  shift); }
  31 sub right { return shift->set("right", shift); }
  32 sub op    { return shift->set("op",    shift); }
  33
  34 sub print
  35 {
  36     my($self)=@_;
  37     my $op=$self->op();
  38     my $left=$self->left();
  39     my $right=$self->right();
  40     return "" unless($left || $right);
  41     my $str .= $self->print_node($left);
  42     $str .= (" " . $op->{name} . " ") if($op);
  43     $str .= $self->print_node($right);
  44     if($op || ($left && $right))
  45     {
  46         $str="(" . $str . ")";
  47     }
  48     return $str;
  49 }
  50
  51 sub print_node
  52 {
  53     my($self, $node)=@_;
  54     return "" unless(defined($node));
  55     return $node->print() if(ref($node) eq "ID3FS::Path::Node");
  56     return $node->{name};
  57 }
  58
  59 sub to_sql
  60 {
  61     my($self, $parent, @injoins)=@_;
  62     my @childjoins=@injoins;
  63     my @outjoins=();
  64     # init
  65     unless(@injoins)
  66     {
  67         print "\nSTART\n";
  68         @outjoins = @childjoins = ("INNER");
  69     }
  70     print "OUT: ", join(', ', @outjoins), "\n";
  71     print "CLD: ", join(', ', @childjoins), "\n";
  72     my (@leftjoins, @rightjoins);
  73     my ($leftstr, $rightstr);
  74     my $op=$self->op();
  75     my $left=$self->left();
  76     my $right=$self->right();
  77     return ("", @outjoins) unless($left || $right);
  78     ($leftstr, @leftjoins) = $self->node_to_sql($left, $parent, @childjoins);
  79 #    $andlevel=$self->max($andlevel, $leftandlevel);
  80     if(defined($op))
  81     {
  82         if($op->{name} eq "AND")
  83         {
  84             push(@childjoins, "INNER");
  85             push(@outjoins, "INNER");
  86         }
  87         elsif($op->{name} eq "NOT")
  88         {
  89             push(@childjoins, "LEFT");
  90             push(@outjoins, "LEFT");
  91         }
  92     }
  93     ($rightstr, @rightjoins) = $self->node_to_sql($right, $parent, @leftjoins, @childjoins);
  94     print "LEFT (", scalar(@leftjoins), "): $leftstr\n";
  95     print "RIGHT (", scalar(@rightjoins), "): $rightstr\n";
  96     my $str=$leftstr;
  97     $str .= (" " . $op->{name} . " ") if($op);
  98     $str .= $rightstr;
  99     if($op || ($left && $right))
 100     {
 101         $str="(" . $str . ")";
 102     }
 103     print "STR: $str\n";
 104 #    return($str, $self->max($leftandlevel, $rightandlevel));
 105     my @oldout=@outjoins;
 106     @outjoins = (@leftjoins, @outjoins,  @rightjoins);
 107     if($op)
 108     {
 109         print "ME (", (defined($op) ? $op->{name} : ""), "): ";
 110         print(scalar(@outjoins), " = " , scalar(@leftjoins), " + ", scalar(@oldout),
 111               " + ", scalar(@rightjoins), "\n");
 112     }
 113     return($str, @outjoins);
 114 }
 115
 116 sub node_to_sql
 117 {
 118     my($self, $node, $parent, @joins)=@_;
 119     return ("", ()) unless(defined($node));
 120     return $node->to_sql($parent, @joins) if(ref($node) eq "ID3FS::Path::Node");
 121     my $sql;
 122     my $cnt=scalar(@joins)+1;
 123     if(defined($node->{parents_id}))
 124     {
 125         $sql= "(t" . scalar(@joins) . ".parents_id='$node->{parents_id}'";
 126         $sql .= " AND fxt" . scalar(@joins) . ".tags_id='" . $node->{id} . "')";
 127     }
 128     else
 129     {
 130         $sql= "(t" . scalar(@joins) .".parents_id=''";
 131         $sql .= " AND fxt" . scalar(@joins) . ".tags_id='" . $node->{id} . "')";
 132     }
 133     return ($sql, ());
 134 }
 135
 136 sub used_tags
 137 {
 138     my($self)=@_;
 139     my @used=(grep { defined; }  ($self->node_used_tags($self->left()),
 140                                   $self->node_used_tags($self->right())));
 141     return(@used);
 142 }
 143
 144 sub node_used_tags
 145 {
 146     my($self, $node)=@_;
 147     return (undef) unless(defined($node));
 148     return $node->used_tags() if(ref($node) eq "ID3FS::Path::Node");
 149     if(defined($node->{parents_id}))
 150     {
 151         return([ $node->{parents_id}, $node->{id} ]);
 152     }
 153     return $node->{id};
 154 }
 155
 156
 157 sub max
 158 {
 159     my($self, $a, $b)=@_;
 160     return(($a > $b) ? $a : $b);
 161 }
 162
 163 1;