1*5f7ddb14SDimitry Andric //===- AutoConvert.cpp - Auto conversion between ASCII/EBCDIC -------------===//
2*5f7ddb14SDimitry Andric //
3*5f7ddb14SDimitry Andric // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4*5f7ddb14SDimitry Andric // See https://llvm.org/LICENSE.txt for license information.
5*5f7ddb14SDimitry Andric // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6*5f7ddb14SDimitry Andric //
7*5f7ddb14SDimitry Andric //===----------------------------------------------------------------------===//
8*5f7ddb14SDimitry Andric //
9*5f7ddb14SDimitry Andric // This file contains functions used for auto conversion between
10*5f7ddb14SDimitry Andric // ASCII/EBCDIC codepages specific to z/OS.
11*5f7ddb14SDimitry Andric //
12*5f7ddb14SDimitry Andric //===----------------------------------------------------------------------===//
13*5f7ddb14SDimitry Andric
14*5f7ddb14SDimitry Andric #ifdef __MVS__
15*5f7ddb14SDimitry Andric
16*5f7ddb14SDimitry Andric #include "llvm/Support/AutoConvert.h"
17*5f7ddb14SDimitry Andric #include <fcntl.h>
18*5f7ddb14SDimitry Andric #include <sys/stat.h>
19*5f7ddb14SDimitry Andric
disableAutoConversion(int FD)20*5f7ddb14SDimitry Andric std::error_code llvm::disableAutoConversion(int FD) {
21*5f7ddb14SDimitry Andric static const struct f_cnvrt Convert = {
22*5f7ddb14SDimitry Andric SETCVTOFF, // cvtcmd
23*5f7ddb14SDimitry Andric 0, // pccsid
24*5f7ddb14SDimitry Andric (short)FT_BINARY, // fccsid
25*5f7ddb14SDimitry Andric };
26*5f7ddb14SDimitry Andric if (fcntl(FD, F_CONTROL_CVT, &Convert) == -1)
27*5f7ddb14SDimitry Andric return std::error_code(errno, std::generic_category());
28*5f7ddb14SDimitry Andric return std::error_code();
29*5f7ddb14SDimitry Andric }
30*5f7ddb14SDimitry Andric
enableAutoConversion(int FD)31*5f7ddb14SDimitry Andric std::error_code llvm::enableAutoConversion(int FD) {
32*5f7ddb14SDimitry Andric struct f_cnvrt Query = {
33*5f7ddb14SDimitry Andric QUERYCVT, // cvtcmd
34*5f7ddb14SDimitry Andric 0, // pccsid
35*5f7ddb14SDimitry Andric 0, // fccsid
36*5f7ddb14SDimitry Andric };
37*5f7ddb14SDimitry Andric
38*5f7ddb14SDimitry Andric if (fcntl(FD, F_CONTROL_CVT, &Query) == -1)
39*5f7ddb14SDimitry Andric return std::error_code(errno, std::generic_category());
40*5f7ddb14SDimitry Andric
41*5f7ddb14SDimitry Andric Query.cvtcmd = SETCVTALL;
42*5f7ddb14SDimitry Andric Query.pccsid =
43*5f7ddb14SDimitry Andric (FD == STDIN_FILENO || FD == STDOUT_FILENO || FD == STDERR_FILENO)
44*5f7ddb14SDimitry Andric ? 0
45*5f7ddb14SDimitry Andric : CCSID_UTF_8;
46*5f7ddb14SDimitry Andric // Assume untagged files to be IBM-1047 encoded.
47*5f7ddb14SDimitry Andric Query.fccsid = (Query.fccsid == FT_UNTAGGED) ? CCSID_IBM_1047 : Query.fccsid;
48*5f7ddb14SDimitry Andric if (fcntl(FD, F_CONTROL_CVT, &Query) == -1)
49*5f7ddb14SDimitry Andric return std::error_code(errno, std::generic_category());
50*5f7ddb14SDimitry Andric return std::error_code();
51*5f7ddb14SDimitry Andric }
52*5f7ddb14SDimitry Andric
setFileTag(int FD,int CCSID,bool Text)53*5f7ddb14SDimitry Andric std::error_code llvm::setFileTag(int FD, int CCSID, bool Text) {
54*5f7ddb14SDimitry Andric assert((!Text || (CCSID != FT_UNTAGGED && CCSID != FT_BINARY)) &&
55*5f7ddb14SDimitry Andric "FT_UNTAGGED and FT_BINARY are not allowed for text files");
56*5f7ddb14SDimitry Andric struct file_tag Tag;
57*5f7ddb14SDimitry Andric Tag.ft_ccsid = CCSID;
58*5f7ddb14SDimitry Andric Tag.ft_txtflag = Text;
59*5f7ddb14SDimitry Andric Tag.ft_deferred = 0;
60*5f7ddb14SDimitry Andric Tag.ft_rsvflags = 0;
61*5f7ddb14SDimitry Andric
62*5f7ddb14SDimitry Andric if (fcntl(FD, F_SETTAG, &Tag) == -1)
63*5f7ddb14SDimitry Andric return std::error_code(errno, std::generic_category());
64*5f7ddb14SDimitry Andric return std::error_code();
65*5f7ddb14SDimitry Andric }
66*5f7ddb14SDimitry Andric
67*5f7ddb14SDimitry Andric #endif // __MVS__
68