diff options
author | Mike Fulton <mikefultonpersonal@gmail.com> | 2021-12-31 13:50:32 -0800 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-01-01 18:09:35 -0700 |
commit | 1c267c880abb4d52f0dc23c70636b5f2e80253be (patch) | |
tree | db658be8b12abcaefadb5cc012cb985e69a73b4f /README.micro | |
parent | 7643f9bc98b3e5397ff14343c1c5f1ee3e00a8d9 (diff) | |
download | perl-1c267c880abb4d52f0dc23c70636b5f2e80253be.tar.gz |
Provide asciiopen and asciiopen3 for z/OS ASCII I/O
- Provide an _asciiopen_ and _asciiopen3_ pair of functions for opening
files on z/OS. These services do a standard open and then, if the
open is successful, update the CCSID of the file descriptor to 819
(ASCII) iff the oflag has ``O_CREAT`` set (e.g. a file is being
created). We could consider printing out a warning if a file is
untagged - right now this will _work correctly_ if the file in
encoded as ASCII (CCSID 819) but will fail if the file is EBCDIC.
- Provide a wrapper _Perl_mkstemp_cloexec_ which not only creates a
temporary file using mkstemp but will also tag the file as CCSID 819.
The tagging is only performed if ``__CHARSET_LIB == 1``, i.e. the
code is compiled with -qascii.
- Define _PerlIO_open_ and _PerlLIO_open3_ as _asciiopen_ and
_asciiopen3_ respectively, when the code is built for ASCII ``#if
(__CHARSET_LIB == 1)`` on z/OS ``#if defined(OEMVS)``.
Diffstat (limited to 'README.micro')
0 files changed, 0 insertions, 0 deletions