summaryrefslogtreecommitdiff
path: root/reentr.c
diff options
context:
space:
mode:
authorMike Fulton <mikefultonpersonal@gmail.com>2021-12-31 13:50:32 -0800
committerKarl Williamson <khw@cpan.org>2022-01-01 18:09:35 -0700
commit1c267c880abb4d52f0dc23c70636b5f2e80253be (patch)
treedb658be8b12abcaefadb5cc012cb985e69a73b4f /reentr.c
parent7643f9bc98b3e5397ff14343c1c5f1ee3e00a8d9 (diff)
downloadperl-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 'reentr.c')
0 files changed, 0 insertions, 0 deletions