projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add perl functions to get the format of a variable
[pspp-builds.git]
/
perl-module
/
lib
/
PSPP.pm
diff --git
a/perl-module/lib/PSPP.pm
b/perl-module/lib/PSPP.pm
index ab656415c3305eee8ff6d17d2864e1e5ad00e124..e5599908b683f7b6e6bde716fbfa9f74d3460338 100644
(file)
--- a/
perl-module/lib/PSPP.pm
+++ b/
perl-module/lib/PSPP.pm
@@
-21,7
+21,7
@@
None by default.
=cut
BEGIN {
=cut
BEGIN {
-
do 'pspp-vers.pl' || die "No version set"
;
+
$PSPP::VERSION='0.7.2'
;
require XSLoader;
XSLoader::load('PSPP', $PSPP::VERSION);
}
require XSLoader;
XSLoader::load('PSPP', $PSPP::VERSION);
}
@@
-87,9
+87,15
@@
sub new
=pod
=pod
+=head3 get_var_cnt ()
+
+Returns the number of variables in the dictionary.
+
=head3 get_var ($idx)
Returns the C<idx>th variable from the dictionary.
=head3 get_var ($idx)
Returns the C<idx>th variable from the dictionary.
+Returns undef if C<idx> is greater than or equal to the number
+of variables in the dictionary.
=cut
=cut
@@
-243,7
+249,7
@@
An integer denoting the number of decimal places for the format.
=item width
=item width
-An integer denoting the
number of
width of the format.
+An integer denoting the width of the format.
=back
=back
@@
-276,6
+282,16
@@
sub set_print_format
=pod
=pod
+
+=head3 get_write_format ()
+
+Returns a reference to a hash containing the write format for the variable.
+
+
+=head3 get_print_format ()
+
+Returns a reference to a hash containing the print format for the variable.
+
=head3 set_output_format (%fmt)
Sets the write and print formats to C<fmt>. This is the same as
=head3 set_output_format (%fmt)
Sets the write and print formats to C<fmt>. This is the same as
@@
-491,7
+507,8
@@
This method returns an array of scalars, each of which are the values of
the data in the system file.
The first call to C<get_next_case> after C<open> has been called retrieves
the first case in the system file. Each subsequent call retrieves the next
the data in the system file.
The first call to C<get_next_case> after C<open> has been called retrieves
the first case in the system file. Each subsequent call retrieves the next
-case. If there are no more cases to be read, the function returns undef.
+case. If there are no more cases to be read, the function returns an empty
+list.
If the case contains system missing values, these values are set to the
empty string.
If the case contains system missing values, these values are set to the
empty string.
@@
-503,7
+520,7
@@
values retrieved from a reader.
=head3 PSPP::format_value ($value, $variable)
=head3 PSPP::format_value ($value, $variable)
-Returns a scalar containing a string representing C<value> formatted accoring
+Returns a scalar containing a string representing C<value> formatted accor
d
ing
to the print format of C<variable>.
In the most common ussage, C<value> should be a value of C<variable>.
to the print format of C<variable>.
In the most common ussage, C<value> should be a value of C<variable>.