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
|
/****************************************************************
* *
* Copyright 2001, 2014 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#include "mdef.h"
#include "gdsroot.h"
#include "gdsblk.h"
#include "gtm_facility.h"
#include "fileinfo.h"
#include "gdsbt.h"
#include "gdsfhead.h"
#include "copy.h"
#include "rc.h"
#include "gvsub2str.h"
#ifdef __STDC__
int rc_frmt_lck(char *c, int4 max_size, unsigned char *key, short key_len, short *subcnt)
#else
int rc_frmt_lck(c, max_size, key, key_len, subcnt)
char *c;
int4 max_size;
unsigned char *key;
short key_len;
short *subcnt;
#endif
/* return a pointer that points after the last char added */
{
short t_len;
unsigned char *g, *g_top;
char *length, *start;
char buff[MAX_ZWR_KEY_SZ], *b_top, *b, *c_top, *sub_start;
mstr opstr;
c_top = c + max_size;
g = key;
g_top = g + key_len;
length = c;
c += 1;
*c++ = '^';
for (b = c ; (*c = *g++); c++)
{ ;
}
*length = (c - b) + 1;
t_len = *length;
*subcnt = 1;
if (t_len > 9) /* GT.M does not support global names > 8 chars
(one char for "^") */
return(-RC_KEYTOOLONG);
if (g >= g_top) /* no subscipts */
{ return(t_len);
}
length = c++;
for(;;)
{
*subcnt = *subcnt + 1;
/* sanity check subscript before passing to gvsub2str */
if (*g == '\0') /* not a valid number or a string */
return -RC_BADXBUF;
opstr.addr = buff;
opstr.len = MAX_ZWR_KEY_SZ;
b_top = (char *)gvsub2str(g, &opstr, FALSE);
sub_start = c;
for (b = buff; b < b_top;)
{ if (c >= c_top)
{
return(-RC_SUBTOOLONG);
}
*c++ = *b++;
}
if (c >= c_top)
return (-RC_SUBTOOLONG);
*length = c - sub_start;
t_len += *length;
for(; *g++ ; )
;
if (g >= g_top)
break;
length = c++;
}
return(t_len);
}
|
