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
|
/****************************************************************
* *
* Copyright (c) 2006-2018 Fidelity National Information *
* Services, Inc. and/or its subsidiaries. All rights reserved. *
* *
* 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 "gtm_string.h"
#include "op.h"
#include "matchc.h"
#include "fnpc.h"
#include "gtm_utf8.h"
GBLREF boolean_t gtm_utf8_mode;
/* --------------------------------------------------------------------
* NOTE: This module is a near copy of sr_port/op_fnzpiece.c differing
* only in that it calls "matchc" instead of "matchb" to do matching.
* --------------------------------------------------------------------
*/
/*
* -----------------------------------------------
* op_fnpiece()
* MUMPS $Piece function for UTF8
*
* Arguments:
* src - Pointer to Source string mval
* del - Pointer to delimiter mval
* first - starting piece number
* last - last piece number
* dst - destination buffer to save the piece in
*
* Return:
* none
* -----------------------------------------------
*/
void op_fnpiece(mval *src, mval *del, int first, int last, mval *dst)
{
int piece_cnt, del_len, src_len;
char *del_str, *src_str;
char *match_start;
int match_res, int_del;
delimfmt unichar;
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
assert(!TREF(compile_time) || valid_utf_string(&src->str));
assert(gtm_utf8_mode);
if (--first < 0)
first = 0;
if ((piece_cnt = last - first) < 1)
{
MV_INIT_STRING(dst, 0, NULL);
return;
}
MV_FORCE_STR(src);
MV_FORCE_STR(del);
/* See if we can take a short cut to op_fnp1. If so, the delimiter value needs to be reformated. */
if (1 == piece_cnt && 1 == MV_FORCE_LEN(del))
{ /* Both valid chars of char_len=1 and single byte invalid chars get the fast path */
unichar.unichar_val = 0;
assert(SIZEOF(unichar.unibytes_val) >= del->str.len);
memcpy(unichar.unibytes_val, del->str.addr, del->str.len);
op_fnp1(src, unichar.unichar_val, last, dst); /* Use last as it is unmodified */
return;
}
src_len = src->str.len;
src_str = src->str.addr;
del_len = del->str.len;
del_str = del->str.addr;
if (first)
{
match_start = (char *)matchc(del_len, (uchar_ptr_t)del_str, src_len, (uchar_ptr_t)src_str, &match_res, &first);
if (0 == match_res)
{
MV_INIT_STRING(dst, 0, NULL);
return;
}
src_len -= INTCAST(match_start - src_str);
src_str = match_start;
} else
match_start = src_str;
src_str = (char *)matchc(del_len, (uchar_ptr_t)del_str, src_len, (uchar_ptr_t)src_str, &match_res, &piece_cnt);
if (0 != match_res)
src_str -= del_len;
MV_INIT_STRING(dst, INTCAST(src_str - match_start), match_start);
return;
}
|
