1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
package Demeter::Plugins::X10C; # -*- cperl -*-
use Moose;
extends 'Demeter::Plugins::FileType';
has '+is_binary' => (default => 0);
has '+description' => (default => "NSLS beamline X10C");
has '+version' => (default => 0.1);
has '+metadata_ini' => (default => File::Spec->catfile(File::Basename::dirname($INC{'Demeter.pm'}), 'Demeter', 'share', 'xdi', 'x10c.ini'));
sub is {
my ($self) = @_;
open D, $self->file or $self->Croak("could not open " . $self->file . " as data (X10C)\n");
my $first = <D>;
close D, return 0 unless (uc($first) =~ /^EXAFS/);
my $lines = 0;
while (<D>) {
close D, return 1 if (uc($first) =~ /^\s+DATA START/);
++$lines;
#close D, return 0 if ($lines > 40);
};
close D;
};
sub fix {
my ($self) = @_;
my $new = File::Spec->catfile($self->stash_folder, $self->filename);
($new = File::Spec->catfile($self->stash_folder, "toss")) if (length($new) > 127);
open D, $self->file or die "could not open " , $self->file . " as data (fix in X10C)\n";
open N, ">".$new or die "could not write to $new (fix in X10C)\n";
my $header = 1;
my $null = chr(0).'+';
while (<D>) {
$_ =~ s/$null//g; # clean up nulls
print N "# " . $_ if $header; # comment headers
if (uc($_) =~ /^\s+DATA START/) {
print N "# --------------------", $/;
print N "# energy 1 2 3 4 5 6 7", $/;
$header = 0;
next;
};
next if ($header);
$_ =~ s/([eE][-+]\d{1,2})-/$1 -/g; # clean up 5th column
print N $_;
};
close N;
close D;
$self->fixed($new);
return $new;
}
sub suggest {
my ($self, $which) = @_;
$which ||= 'transmission';
if ($which eq 'transmission') {
return (energy => '$1',
numerator => '$4',
denominator => '$6',
ln => 1,);
} else {
return ();
};
};
__PACKAGE__->meta->make_immutable;
1;
__END__
=head1 NAME
Demeter::Plugin::X10C - NSLS X10C filetype plugin
=head1 VERSION
This documentation refers to Demeter version 0.9.26.
=head1 SYNOPSIS
This plugin directly imports files from NSLS beamline X10C
=head1 Methods
=over 4
=item C<is>
The is method is used to identify the file type, typically by some
information contained within the file. In the case of an NSLS X10C
data, the file is recognized by the string "EXAFS" on the first line
and by the string "DATA START" several lines later.
=item C<fix>
For an NSLS X10C file, the null characters are stripped from the
header, the header lines are commented out with hash characters, and
the situation of the fifth data column not being preceeded by white
space is corrected.
=back
=head1 AUTHOR
Bruce Ravel, L<http://bruceravel.github.io/home>
http://bruceravel.github.io/demeter
|
