blob: b2555e8429eada5833d18a24d681a2a82f79998b (
plain)
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
|
/*
* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
* Copyright (C) DIGITEO - 2009
*
* This file must be used under the terms of the CeCILL.
* This source file is licensed as described in the file COPYING, which
* you should have received as part of this distribution. The terms
* are also available at
* http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
*
*/
/*--------------------------------------------------------------------------*/
#include "MALLOC.h"
#include "scistrtostr.h"
#include "cvstr.h"
/*--------------------------------------------------------------------------*/
#define MEM_LACK -3
/*--------------------------------------------------------------------------*/
int SciStrtoStr (int *Scistring, int *nstring, int *ptrstrings, char **strh)
{
char *s = NULL, *p = NULL;
int li = 0, ni = 0, *SciS = NULL, i = 0, job = 1;
li = ptrstrings[0];
ni = ptrstrings[*nstring] - li + *nstring + 1;
p = (char *) MALLOC(ni * sizeof(char) );
if (p == NULL)
{
return MEM_LACK;
}
SciS = Scistring;
s = p;
for ( i = 1 ; i < *nstring + 1 ; i++)
{
ni = ptrstrings[i] - li;
li = ptrstrings[i];
F2C(cvstr)(&ni, SciS, s, &job, (long int)ni);
SciS += ni;
s += ni;
if (i < *nstring)
{
*s = '\n';
s++;
}
}
*s = '\0';
*strh = p;
return 0;
}
/*--------------------------------------------------------------------------*/
|
