PLSQL-JSON/json_node.tpb at master · yutianc/PLSQL-JSON · GitHub

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
CREATE OR REPLACE
TYPE BODY json_node
IS

----------------------------------------------------------
--	json_node
--
CONSTRUCTOR FUNCTION json_node(SELF IN OUT NOCOPY json_node) RETURN SELF AS RESULT
IS
BEGIN
	SELF.typ	:=	NULL;
	SELF.nam	:=	NULL;
	SELF.str	:=	NULL;
	SELF.num	:=	NULL;
	SELF.dat		:=	NULL;
	SELF.par	:=	NULL;
	SELF.nex	:=	NULL;
	SELF.sub 	:=	NULL;
	RETURN;
END json_node;

----------------------------------------------------------
--	json_node
--
CONSTRUCTOR FUNCTION json_node(SELF IN OUT NOCOPY json_node, theName IN VARCHAR2) RETURN SELF AS RESULT
IS
BEGIN
	SELF.typ		:=	'0';
	SELF.nam		:=	theName;
	SELF.str		:=	NULL;
	SELF.num		:=	NULL;
	SELF.dat		:=	NULL;
	SELF.par		:=	NULL;
	SELF.nex		:=	NULL;
	SELF.sub 		:=	NULL;
	RETURN;
END json_node;

----------------------------------------------------------
--	json_node
--
CONSTRUCTOR FUNCTION json_node(SELF IN OUT NOCOPY json_node, theName IN VARCHAR2, theValue IN VARCHAR2) RETURN SELF AS RESULT
IS
BEGIN
	SELF.typ		:=	'S';
	SELF.nam		:=	theName;
	SELF.str		:=	theValue;
	SELF.num		:=	NULL;
	SELF.dat		:=	NULL;
	SELF.par		:=	NULL;
	SELF.nex		:=	NULL;
	SELF.sub 		:=	NULL;
	RETURN;
END json_node;

----------------------------------------------------------
--	json_node
--
CONSTRUCTOR FUNCTION json_node(SELF IN OUT NOCOPY json_node, theName IN VARCHAR2, theValue IN NUMBER) RETURN SELF AS RESULT
IS
BEGIN
	SELF.typ		:=	CASE WHEN theValue IS NOT NULL THEN 'N' ELSE '0' END;
	SELF.nam		:=	theName;
	SELF.str		:=	NULL;
	SELF.num		:=	theValue;
	SELF.dat		:=	NULL;
	SELF.par		:=	NULL;
	SELF.nex		:=	NULL;
	SELF.sub 		:=	NULL;
	RETURN;
END json_node;

----------------------------------------------------------
--	json_node
--
CONSTRUCTOR FUNCTION json_node(SELF IN OUT NOCOPY json_node, theName IN VARCHAR2, theValue IN DATE) RETURN SELF AS RESULT
IS
BEGIN
	SELF.typ		:=	CASE WHEN theValue IS NOT NULL THEN 'D' ELSE '0' END;
	SELF.nam		:=	theName;
	SELF.str		:=	NULL;
	SELF.num		:=	NULL;
	SELF.dat		:=	theValue;
	SELF.par		:=	NULL;
	SELF.nex		:=	NULL;
	SELF.sub 		:=	NULL;
	RETURN;
END json_node;

----------------------------------------------------------
--	json_node
--
CONSTRUCTOR FUNCTION json_node(SELF IN OUT NOCOPY json_node, theName IN VARCHAR2, theValue IN BOOLEAN) RETURN SELF AS RESULT
IS
BEGIN
	SELF.typ		:=	CASE WHEN theValue IS NOT NULL THEN 'B' ELSE '0' END;
	SELF.nam		:=	theName;
	SELF.str		:=	NULL;
	IF (theValue IS NOT NULL) THEN
		SELF.num	:=	CASE theValue WHEN TRUE THEN 1 ELSE 0 END;
	ELSE
		SELF.num	:=	NULL;
	END IF;
	SELF.dat		:=	NULL;
	SELF.par		:=	NULL;
	SELF.nex		:=	NULL;
	SELF.sub 		:=	NULL;
	RETURN;
END json_node;


END;
/