1/* Runtime conversion of strings from one character kind to another. 2 Copyright (C) 2008-2022 Free Software Foundation, Inc. 3 4This file is part of the GNU Fortran runtime library (libgfortran). 5 6Libgfortran is free software; you can redistribute it and/or 7modify it under the terms of the GNU General Public 8License as published by the Free Software Foundation; either 9version 3 of the License, or (at your option) any later version. 10 11Libgfortran is distributed in the hope that it will be useful, 12but WITHOUT ANY WARRANTY; without even the implied warranty of 13MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14GNU General Public License for more details. 15 16Under Section 7 of GPL version 3, you are granted additional 17permissions described in the GCC Runtime Library Exception, version 183.1, as published by the Free Software Foundation. 19 20You should have received a copy of the GNU General Public License and 21a copy of the GCC Runtime Library Exception along with this program; 22see the files COPYING3 and COPYING.RUNTIME respectively. If not, see 23<http://www.gnu.org/licenses/>. */ 24 25#include "libgfortran.h" 26 27 28extern void convert_char1_to_char4 (gfc_char4_t **, gfc_charlen_type, 29 const unsigned char *); 30export_proto(convert_char1_to_char4); 31 32extern void convert_char4_to_char1 (unsigned char **, gfc_charlen_type, 33 const gfc_char4_t *); 34export_proto(convert_char4_to_char1); 35 36 37void 38convert_char1_to_char4 (gfc_char4_t **dst, gfc_charlen_type len, 39 const unsigned char *src) 40{ 41 gfc_charlen_type i, l; 42 43 l = len > 0 ? len : 0; 44 *dst = xmallocarray ((l + 1), sizeof (gfc_char4_t)); 45 46 for (i = 0; i < l; i++) 47 (*dst)[i] = src[i]; 48 49 (*dst)[l] = '\0'; 50} 51 52 53void 54convert_char4_to_char1 (unsigned char **dst, gfc_charlen_type len, 55 const gfc_char4_t *src) 56{ 57 gfc_charlen_type i, l; 58 59 l = len > 0 ? len : 0; 60 *dst = xmalloc (l + 1); 61 62 for (i = 0; i < l; i++) 63 (*dst)[i] = src[i]; 64 65 (*dst)[l] = '\0'; 66} 67