view release on metacpan or  search on metacpan

maybe/unused.pm  view on Meta::CPAN

# Copyright 2007, 2008, 2009, 2010 Kevin Ryde

# This file is part of Chart.
#
# Chart is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 3, or (at your option) any later version.
#
# Chart is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
# details.
#
# You should have received a copy of the GNU General Public License along
# with Chart.  If not, see <http://www.gnu.org/licenses/>.


#------------------------------------------------------------------------------
# generic helpers

# sub widget_clear_region {
#   my ($widget, $region) = @_;
#   if (my $win = $widget->window) {
#     window_clear_region ($win);
#   }
# }


# strftime() on Time::Piece taking and returning a wide-char string
sub time_piece_strftime_wide {
  my ($timepiece, $format) = @_;
  my $charset = I18N::Langinfo::langinfo (I18N::Langinfo::CODESET());
  $format = Encode::encode ($charset, $format);
  my $str = $timepiece->strftime ($format);
  return Encode::decode ($charset, $str);
}



# _all_map_same ($func, $x, $y, ...) returns true if calls $func->($x),
# $func->($y), etc all return the same number.
sub _all_map_same {
  my $func = shift;
  if (@_) {
    my $want = $func->(shift @_);
    foreach (@_) {
      if ($func->($_) != $want) { return 0; }
    }
  }
  return 1;
}


sub symlist_count {
  my ($key) = @_;
  my $last = App::Chart::Database::read_notes_single
    ('SELECT seq FROM symlist ORDER BY seq DESC LIMIT 1');
  if (defined $last) {
    return $last + 1;
  } else {
    return 0;
  }
}

sub adate_time_to_timet {
  my ($adate, $time) = @_;
  my ($year, $month, $day) = App::Chart::adate_to_ymd ($adate);
  return Date::Calc::Date_to_Time ($year, $month, $day, 0,0,$time||0);
}

sub timepiece_to_wdate {
  my ($t) = @_;
  return wdate_to_tdate (timepiece_to_tdate ($t));
}
sub timepiece_to_tdate {
  my ($t) = @_;
  return App::Chart::ymd_to_tdate_floor ($t->year, $t->mon, $t->mday);
}
sub wdate_to_tdate {
  my ($wdate) = @_;
  return $wdate * 5;
}


sub liststore_fill_dbi {
  my ($store, $sth) = @_;

  my $len = $store->iter_n_children(undef);
  my $iter = $store->get_iter_first;
  my @cols = (0 .. $store->get_n_columns - 1);
  while (my @data = $sth->fetchrow_array) {
    @data = List::MoreUtils::mesh (@cols, @data);
    if ($iter) {
      $store->set ($iter, @data);
      $iter = $store->iter_next ($iter);