view release on metacpan or  search on metacpan

lib/App/Chart/Gtk2/IndicatorModel.pm  view on Meta::CPAN

  }
  if (@$low) {
    my $low_iter = $self->append(undef);
    $self->set ($low_iter,
                COL_KEY,     'low-priority',
                COL_NAME,    __('Low Priority'));
    foreach my $elem (@$low) {
      $self->set($self->append($low_iter),
                 COL_KEY,      $elem->{'key'},
                 COL_NAME,     $elem->{'name'},
                 COL_TYPE,     $elem->{'type'},
                 COL_PRIORITY, $elem->{'priority'});
    }
  }
  if (DEBUG) {
    require Scalar::Util;
    Scalar::Util::weaken ($aref);
    if ($aref) {
      die "Oops, IndicatorModelGenerated array not destroyed";
    } else {
      print "IndicatorModelGenerated array destroyed\n";
    }
  }

  #--------------
  # TA

  if (eval { require Finance::TA }) {
    my $talib_iter = $self->append(undef);
    $self->set ($talib_iter, COL_NAME, __('TA-Lib'));
    my $talib_path = $self->get_path ($talib_iter);

    my %exclude = ('0',                   1,
                   'Math Operators',      1,
                   'Math Transform',      1,
                  );

    my @groups = Finance::TA::TA_GroupTable();
    @groups = grep {!$exclude{$_}} @groups;
    foreach my $group (@groups) {

      my @functions = Finance::TA::TA_FuncTable($group);
      shift @functions;

      $talib_iter = $self->get_iter($talib_path);
      my $group_iter = $self->append($talib_iter);
      $self->set ($group_iter, COL_NAME, $group);
      my $group_path = $self->get_path ($group_iter);

      foreach my $func (@functions) {
        if ($func eq 'MA') { next; } # selectable MA

        my $fh;
        Finance::TA::TA_GetFuncHandle($func, \$fh) == $Finance::TA::TA_SUCCESS
            or die;
        my $fi;
        Finance::TA::TA_GetFuncInfo($fh, \$fi) == $Finance::TA::TA_SUCCESS
            or die;

        # flag bits per ta_abstract.h
        # TA_FUNC_FLG_VOLUME     for volume overlay
        # TA_FUNC_FLG_UNST_PER   initial unstable
        my $flags = $fi->{'flags'};
        no warnings 'once';

        # if ($flags & $Finance::TA::TA_FUNC_FLG_CANDLESTICK) { next; }

        my $type = 'indicator';
        if ($group eq 'Price Transform') {
          $type = 'selector';
        } elsif ($flags & $Finance::TA::TA_FUNC_FLG_OVERLAP) {
          # output same as input
          $type = 'average';
        }

        my $hint = $fi->{'hint'};
        my $name = $hint;
        if ($hint !~ /\Q$func/) {
          $name = "$func - $name";
        }

        $group_iter = $self->get_iter($group_path);
        my $func_iter = $self->append($group_iter);
        $self->set ($func_iter,
                    COL_KEY,  "TA_$func",
                    COL_NAME, $name,
                    COL_TYPE, $type);
      }

      $group_iter = $self->get_iter($group_path);
      if ($self->iter_n_children ($group_iter) == 0) {
        $self->remove ($group_iter);
      }
    }
  }

  #--------------
  # GT

  require Module::Find;
  if (my @modules = Module::Find::findsubmod ('GT::Indicators')) {

    my %type = (ADL   => 'indicator',
                ADX   => 'indicator',
                ADXR  => 'indicator',
                AROON => 'indicator',
                AT3   => 'average',
                ATR   => 'indicator',
                BBO   => 'indicator',
                BOL   => 'average',
                BPCorrelation => [ 'indicator', __('GT Misc') ],
                CCI     => 'indicator',
                CHAIKIN => 'indicator',
                CMO     => 'indicator',

                # result is a binary code or something, so might be much to
                # view
                CNDL    => [ 'indicator', __('GT Misc') ],

                ChaikinsVola => 'indicator',
                Chandelier   => 'average',