combine txt and bonsai modules.

webtools/tinderbox2/src/lib/TinderHeader/TreeState_Bonsai_Plus.pm

@@ -0,0 +1,114 @@
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+#
+
+# TinderHeader::TreeState_Bonsai_Plus - an interface to the bonasi VC
+# managment system this module will get the current tree state.  I
+# also knows about states which Bonsai does not know about.  It can
+# display these states and can also set the states which are not the
+# Bonsai States.
+
+# $Revision: 1.1 $ 
+# $Date: 2002/05/03 02:22:47 $ 
+# $Author: kestes%walrus.com $ 
+# $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/lib/TinderHeader/TreeState_Bonsai_Plus.pm,v $ 
+# $Name:  $ 
+
+# The contents of this file are subject to the Mozilla Public
+# License Version 1.1 (the "License"); you may not use this file
+# except in compliance with the License. You may obtain a copy of
+# the License at http://www.mozilla.org/NPL/
+#
+# Software distributed under the License is distributed on an "AS
+# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+# implied. See the License for the specific language governing
+# rights and limitations under the License.
+#
+# The Original Code is the Tinderbox build tool.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are
+# Copyright (C) 1998 Netscape Communications Corporation. All
+# Rights Reserved.
+#
+
+# complete rewrite by Ken Estes:
+#	 kestes@staff.mail.com Old work.
+#	 kestes@reefedge.com New work.
+#	 kestes@walrus.com Home.
+# Contributor(s): 
+
+
+package TinderHeader::TreeState;
+
+# Load standard perl libraries
+
+
+# Load Tinderbox libraries
+
+use lib '#tinder_libdir#';
+
+use BonsaiData;
+
+
+@ISA = qw(TinderHeader::BasicTxtHeader);
+
+$VERSION = ( qw $Revision: 1.1 $ )[1];
+
+# load the simple name of this module into TinderHeader so we can
+# track the implementations provided.
+
+$TinderHeader::NAMES2OBJS{ 'TreeState' } = 
+  TinderHeader::TreeState->new();
+
+
+
+sub new {
+  my $type = shift;
+  my %params = @_;
+  my $self = {};
+
+  bless $self, $type;
+
+  return  $self;
+}
+
+
+sub gettree_header {
+  my ($self, $tree,) = @_;
+
+  my ($bonsai_treestate) = BonsaiData::get_tree_state($tree);
+  my ($text_treestate) = $self->SUPER::gettree_header($tree);
+  my $treestate;
+
+  if ($text_treestate) {
+      $treestate = $text_treestate;
+  } else {
+      $treestate = $bonsai_treestate;
+  }
+
+  return $treestate;
+}
+
+sub savetree_header {
+  my ($self, $tree, $value) = @_;
+
+  # Don't save the Bonsai States
+
+  $value = egrep { !/^((Open)|(Closed))$/ } $value;
+
+  $self->SUPER::savetree_header($tree, $value);
+
+  return ;
+}
+
+sub get_all_sorted_setable_tree_states {
+
+    my @valid_states = egrep { !/^((Open)|(Closed))$/ } 
+  		TreeData::get_all_sorted_tree_states();
+
+  return @valid_states;
+}
+
+
+1;
+