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