SWE/DB/NamedText.pm

package SWE::DB::NamedText;
use strict;

sub new ($) {
  my $self = bless {
    root_directory_name => './',
    leaf_suffix => '.txt',
  }, shift;
  return $self;
} # new

sub _get_file_name ($$$) {
  my $self = shift;
  my $name = $_[0];
  my $mkdir = $_[1];
  
  my $encoded_name = $name;
  $encoded_name =~ s/([^0-9A-Za-z_-])/sprintf '@%06X', ord $1/ge;

  my $dir = $self->{root_directory_name};
  my $file_name = $dir . '/' . $encoded_name . $self->{leaf_suffix};

  unless ($mkdir) {
    return $file_name;
  }
  
  unless (-d $dir) {
    mkdir $dir or die "$0: $dir: $!";
  }

  $self->{version_control}->add_directory ($dir) if $self->{version_control};

  return $file_name;
} # _get_file_name

sub get_data ($$) {
  my $self = shift;
  my $file_name = $self->_get_file_name ($_[0]);

  unless (-f $file_name) {
    return undef;
  }

  open my $file, '<:encoding(utf8)', $file_name or die "$0: $file_name: $!";
  local $/ = undef;
  return \ (<$file>);
} # get_data

sub set_data ($$$) {
  my $self = shift;
  my $file_name = $self->_get_file_name ($_[0], 1);
  my $textref = $_[1];
  
  open my $file, '>:encoding(utf8)', $file_name or die "$0: $file_name: $!";
  print $file $$textref;
  close $file;

  $self->{version_control}->add_file ($file_name) if $self->{version_control};
} # set_data

1;
1	wakaba	1.1	package SWE::DB::NamedText;
2			use strict;
3
4			sub new ($) {
5			my $self = bless {
6			root_directory_name => './',
7			leaf_suffix => '.txt',
8			}, shift;
9			return $self;
10			} # new
11
12			sub _get_file_name ($$$) {
13			my $self = shift;
14			my $name = $_[0];
15			my $mkdir = $_[1];
16
17			my $encoded_name = $name;
18	wakaba	1.2	$encoded_name =~ s/([^0-9A-Za-z_-])/sprintf '@%06X', ord $1/ge;
19	wakaba	1.1
20			my $dir = $self->{root_directory_name};
21			my $file_name = $dir . '/' . $encoded_name . $self->{leaf_suffix};
22
23			unless ($mkdir) {
24			return $file_name;
25			}
26
27			unless (-d $dir) {
28			mkdir $dir or die "$0: $dir: $!";
29			}
30
31			$self->{version_control}->add_directory ($dir) if $self->{version_control};
32
33			return $file_name;
34			} # _get_file_name
35
36			sub get_data ($$) {
37			my $self = shift;
38			my $file_name = $self->_get_file_name ($_[0]);
39
40			unless (-f $file_name) {
41			return undef;
42			}
43
44			open my $file, '<:encoding(utf8)', $file_name or die "$0: $file_name: $!";
45			local $/ = undef;
46			return \ (<$file>);
47			} # get_data
48
49			sub set_data ($$$) {
50			my $self = shift;
51			my $file_name = $self->_get_file_name ($_[0], 1);
52			my $textref = $_[1];
53
54			open my $file, '>:encoding(utf8)', $file_name or die "$0: $file_name: $!";
55			print $file $$textref;
56			close $file;
57
58			$self->{version_control}->add_file ($file_name) if $self->{version_control};
59			} # set_data
60
61			1;