Video-Capture-V4l/XawTV.pm

package Video::XawTV;

=head1 NAME

Video::XawTV - read, create and edit .xawtvrc's.

=head1 SYNOPSIS

   use Video::XawTV;

   $rc = new Video::XawTV;
   # - or -
   $rc = new Video::XawTV "$HOME{ENV}/.xawtv";
   $rc->load("otherrcfile");
   $rc->save;
   $rc->save("filename");

   $source = $rc->opt('source');
   $rc->opt('source') = "Television";

   @channels = $rc->channels;
   $rc->channels(@channels);

   print $channels[0]{name};    # Arte
   print $channels[0]{channel}; # E4

=head1 DESCRIPTION

Pardon? Ha! Haa! Hahahahahaha!!!

=cut

$VESRSION = 0.1;

use Carp;

sub new {
   my $self = bless {}, shift;
   $self->load(shift) if @_;
   $self;
}

my %std_global = (
   norm         => 1,
   capture      => 1,
   source       => 1,
   color        => 1,
   bright       => 1,
   hue          => 1,
   contrast     => 1,
   fullscreen   => 1,
   wm-off-by    => 1,
   freqtab      => 1,
   pixsize      => 1,
  'jpeg-quality'=> 1,
   mixer        => 1,
   lauch        => 1,
);

my %std_channel = (
   channel      => 1,
   fine         => 1,
   norm         => 1,
   key          => 1,
   capture      => 1,
   source       => 1,
   color        => 1,
   bright       => 1,
   hue          => 1,
   contrast     => 1,
);

sub load {
   my $self = shift;
   my $fn = shift;
   local $_;
   open FN, "<$fn" or croak "unable to open '$fn': $!";
   $self->{fn} = $fn;
   $self->{channels} = [];
   my $channel = $self->{global} = {};
   my $std = \%std_global;
   while (<FN>) {
      if (/^#Video::XawTV=#\s*(\S+)\s*=\s*(.*)\s*$/) {
         $channel->{lc $1} = $2;
      } elsif (/^\s*#(.*)$/) {
         # comments are being reordered, but.. my!
         $channel->{"#$1"} = 1;
      } elsif (/^\s*(\S+)\s*=\s*(.*)\s*$/) {
         $channel->{lc $1} = $2;
         $std->{lc $1}++;
      } elsif (/\s*\[(.*)\]\s*$/) {
         push @{$self->{channels}}, $channel = { name => $1 };
         $std = \%std_channel;
      } elsif (/\S/) {
         chomp;
         croak "unparsable statement in '$fn': '$_'";
      }
   }
   close FN;
}

sub save_hash {
   my ($fh, $hash, $std) = @_;
   while (my ($k,$v) = each %$hash) {
      next if $k eq 'name';
      if ($k =~ /^#/) {
         print $fh $k, "\n";
      } else {
         print $fh "#Video::XawTV=#" unless $std->{lc $k};
         print $fh "$k = $v\n";
      }
   }
   print $fh "\n";
}

sub save {
   my $self = shift;
   my $fn = shift || $self->{fn};
   open FN,">$fn~" or croak "unable to open '$fn~' for writing: $!";
   save_hash(*FN, $self->{global}, \%std_global);
   for (@{$self->{channels}}) {
      print FN "[", $_->{name}, "]\n";
      save_hash(*FN, $_, \%std_channel);
   }
   close FN;
   rename "$fn~", $fn or croak "unable to replace '$fn': $!";
}

sub opt {
   my $self = shift;
   my $opt = shift;
   $self->{global}{$opt} = shift if @_;
   $self->{global}{$opt};
}

sub channels {
   my $self = shift;
   if (@_) {
      $self->{channels} = ref $_[0] eq "ARRAY" ? $_[0] : [@_];
   }
   wantarray ? @{$self->{channels}} : $self->{channels};
}

1;
Revision:	1.1
Committed:	Fri May 5 20:21:52 2000 UTC (24 years ago) by pcg
Branch:	MAIN
CVS Tags:	rel-0_9, rel-0_902, HEAD
Log Message:	Initial check-in
#	User	Rev	Content
1	pcg	1.1	package Video::XawTV;
2
3			=head1 NAME
4
5			Video::XawTV - read, create and edit .xawtvrc's.
6
7			=head1 SYNOPSIS
8
9			use Video::XawTV;
10
11			$rc = new Video::XawTV;
12			# - or -
13			$rc = new Video::XawTV "$HOME{ENV}/.xawtv";
14			$rc->load("otherrcfile");
15			$rc->save;
16			$rc->save("filename");
17
18			$source = $rc->opt('source');
19			$rc->opt('source') = "Television";
20
21			@channels = $rc->channels;
22			$rc->channels(@channels);
23
24			print $channels[0]{name}; # Arte
25			print $channels[0]{channel}; # E4
26
27			=head1 DESCRIPTION
28
29			Pardon? Ha! Haa! Hahahahahaha!!!
30
31			=cut
32
33			$VESRSION = 0.1;
34
35			use Carp;
36
37			sub new {
38			my $self = bless {}, shift;
39			$self->load(shift) if @_;
40			$self;
41			}
42
43			my %std_global = (
44			norm => 1,
45			capture => 1,
46			source => 1,
47			color => 1,
48			bright => 1,
49			hue => 1,
50			contrast => 1,
51			fullscreen => 1,
52			wm-off-by => 1,
53			freqtab => 1,
54			pixsize => 1,
55			'jpeg-quality'=> 1,
56			mixer => 1,
57			lauch => 1,
58			);
59
60			my %std_channel = (
61			channel => 1,
62			fine => 1,
63			norm => 1,
64			key => 1,
65			capture => 1,
66			source => 1,
67			color => 1,
68			bright => 1,
69			hue => 1,
70			contrast => 1,
71			);
72
73			sub load {
74			my $self = shift;
75			my $fn = shift;
76			local $_;
77			open FN, "<$fn" or croak "unable to open '$fn': $!";
78			$self->{fn} = $fn;
79			$self->{channels} = [];
80			my $channel = $self->{global} = {};
81			my $std = \%std_global;
82			while (<FN>) {
83			if (/^#Video::XawTV=#\s(\S+)\s=\s(.)\s*$/) {
84			$channel->{lc $1} = $2;
85			} elsif (/^\s#(.)$/) {
86			# comments are being reordered, but.. my!
87			$channel->{"#$1"} = 1;
88			} elsif (/^\s(\S+)\s=\s(.)\s*$/) {
89			$channel->{lc $1} = $2;
90			$std->{lc $1}++;
91			} elsif (/\s\[(.)\]\s*$/) {
92			push @{$self->{channels}}, $channel = { name => $1 };
93			$std = \%std_channel;
94			} elsif (/\S/) {
95			chomp;
96			croak "unparsable statement in '$fn': '$_'";
97			}
98			}
99			close FN;
100			}
101
102			sub save_hash {
103			my ($fh, $hash, $std) = @_;
104			while (my ($k,$v) = each %$hash) {
105			next if $k eq 'name';
106			if ($k =~ /^#/) {
107			print $fh $k, "\n";
108			} else {
109			print $fh "#Video::XawTV=#" unless $std->{lc $k};
110			print $fh "$k = $v\n";
111			}
112			}
113			print $fh "\n";
114			}
115
116			sub save {
117			my $self = shift;
118			my $fn = shift \|\| $self->{fn};
119			open FN,">$fn~" or croak "unable to open '$fn~' for writing: $!";
120			save_hash(*FN, $self->{global}, \%std_global);
121			for (@{$self->{channels}}) {
122			print FN "[", $_->{name}, "]\n";
123			save_hash(*FN, $_, \%std_channel);
124			}
125			close FN;
126			rename "$fn~", $fn or croak "unable to replace '$fn': $!";
127			}
128
129			sub opt {
130			my $self = shift;
131			my $opt = shift;
132			$self->{global}{$opt} = shift if @_;
133			$self->{global}{$opt};
134			}
135
136			sub channels {
137			my $self = shift;
138			if (@_) {
139			$self->{channels} = ref $_[0] eq "ARRAY" ? $_[0] : [@_];
140			}
141			wantarray ? @{$self->{channels}} : $self->{channels};
142			}
143
144			1;