1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
/*
* File: sidlfortran.c
* Revision: @(#) $Revision: 4434 $
* Date: $Date: 2005-03-17 09:05:29 -0800 (Thu, 17 Mar 2005) $
* Description: Functions for FORTRAN interoperability
*
* Copyright (c) 2000-2002, The Regents of the University of Calfornia.
* Produced at the Lawrence Livermore National Laboratory.
* Written by the Components Team <components@llnl.gov>
* UCRL-CODE-2002-054
* All rights reserved.
*
* This file is part of Babel. For more information, see
* http://www.llnl.gov/CASC/components/. Please read the COPYRIGHT file
* for Our Notice and the LICENSE file for the GNU Lesser General Public
* License.
*
* This program is free software; you can redistribute it and/or modify it
* under the terms of the GNU Lesser General Public License (as published by
* the Free Software Foundation) version 2.1 dated February 1999.
*
* This program is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the IMPLIED WARRANTY OF
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the terms and
* conditions of the GNU Lesser General Public License for more details.
*
* You should have recieved a copy of the GNU Lesser General Public License
* along with this program; if not, write to the Free Software Foundation,
* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include "sidlfortran.h"
#include <string.h>
#include <stdlib.h>
/*
* Make a copy of the FORTRAN string excluding any trailing space
* characters.
*/
char *
sidl_copy_fortran_str(const char * restrict fstr,
int flen)
{
char *result;
while ((flen > 0) && (' ' == fstr[flen-1])) {
--flen;
}
if (flen < 0) {
flen = 0;
}
if ((result = (char*) malloc(flen + 1))) {
(void)memcpy(result, fstr, flen);
result[flen] = '\0';
}
return result;
}
void
sidl_copy_c_str(char * restrict fstr,
int flen,
const char * restrict cstr)
{
if (fstr && (flen > 0)) {
int clen = (cstr ? strlen(cstr) : 0);
if (clen > 0) {
memcpy(fstr, cstr, ((flen < clen) ? flen : clen));
}
if (clen < flen) {
memset(fstr + clen, ' ', flen - clen);
}
}
}
void
sidl_copy_ior_str(char **newfstr,
int *newflen,
const char *iorstr,
const int minsize)
{
const int iorLen = (iorstr ? strlen(iorstr) : 0);
const int newLen = ((iorLen > minsize) ? iorLen : minsize);
char *newStr = (char*) malloc(newLen+1);
if (newStr) {
if (iorLen) {
(void)memcpy(newStr, iorstr, iorLen);
}
if (iorLen < newLen) {
(void)memset(newStr + iorLen, ' ', newLen - iorLen);
}
/* put a null character after the area that FORTRAN will use */
newStr[newLen] = '\0';
*newfstr = newStr;
*newflen = newLen;
}
else {
*newfstr = NULL;
*newflen = 0;
}
}
char *
sidl_trim_trailing_space(char * restrict buffer,
int buflen)
{
if (buflen >= 0 && buffer) {
do {
--buflen;
}
while ((buflen >= 0) && (buffer[buflen] == ' '));
buffer[buflen+1] = '\0';
}
return buffer;
}
|
