-AT_BANNER([BEGIN DATA])
+dnl PSPP - a program for statistical analysis.
+dnl Copyright (C) 2017 Free Software Foundation, Inc.
+dnl
+dnl This program is free software: you can redistribute it and/or modify
+dnl it under the terms of the GNU General Public License as published by
+dnl the Free Software Foundation, either version 3 of the License, or
+dnl (at your option) any later version.
+dnl
+dnl This program is distributed in the hope that it will be useful,
+dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+dnl GNU General Public License for more details.
+dnl
+dnl You should have received a copy of the GNU General Public License
+dnl along with this program. If not, see <http://www.gnu.org/licenses/>.
+dnl AT_BANNER([BEGIN DATA])
# BEGIN DATA can run as a command in itself, or it can appear as part
# of the first procedure. First, test it after a procedure.
m4_define([DATA_READER_BINARY],
[AT_SETUP([read and write files with $1])
+$3
AT_DATA([input.txt], [dnl
07-22-2007
10-06-2007
$out .= ' ' x ($lrecl - length ($out));
length ($out) == 32 or die;
print +a2e ($out);
- }])
+ }],
+ [AT_CHECK([i18n-test supports_encodings EBCDIC-US])])
DATA_READER_BINARY([MODE=360 /RECFORM=VARIABLE],
[for $_ (@data) {
push (@records, pack ("n xx", length ($_) + 4) . a2e ($_));
}
- dump_records ();])
+ dump_records ();],
+ [AT_CHECK([i18n-test supports_encodings EBCDIC-US])])
DATA_READER_BINARY([MODE=360 /RECFORM=SPANNED],
[[for my $line (@data) {
pack ("nCx", length ($r[$i]) + 4, $scc) . a2e ($r[$i]));
}
}
- dump_records ();]])
+ dump_records ();]],
+ [AT_CHECK([i18n-test supports_encodings EBCDIC-US])])