[Home] [Help]
TYPE BODY: SYS.DMBANIMP
Source
1 TYPE BODY dmbanimp IS
2
3 STATIC FUNCTION ODCITablePrepare (
4 sctx IN OUT dmbanimp,
5 tf_info SYS.ODCITabFuncInfo,
6 qkn_ptr IN RAW,
7 heap_ptr IN RAW,
8 query_sequence IN CLOB,
9 seqdb_cursor SYS_REFCURSOR,
10 subsequence_from IN PLS_INTEGER,
11 subsequence_to IN PLS_INTEGER,
12 filter_low_complexity IN PLS_INTEGER,
13 mask_lower_case IN PLS_INTEGER,
14 expect_value IN NUMBER,
15 open_gap_cost IN PLS_INTEGER,
16 extend_gap_cost IN PLS_INTEGER,
17 mismatch_cost IN PLS_INTEGER,
18 match_reward IN PLS_INTEGER,
19 word_size IN PLS_INTEGER,
20 xdropoff IN PLS_INTEGER,
21 final_x_dropoff IN PLS_INTEGER
22 ) RETURN PLS_INTEGER
23 IS
24 PRAGMA AUTONOMOUS_TRANSACTION;
25 BEGIN
26 RETURN dmbanimp.dmbanPrepareStub (
27 sctx,
28 tf_info,
29 qkn_ptr,
30 heap_ptr,
31 query_sequence,
32 seqdb_cursor,
33 subsequence_from,
34 subsequence_to,
35 filter_low_complexity,
36 mask_lower_case,
37 expect_value,
38 open_gap_cost,
39 extend_gap_cost,
40 mismatch_cost,
41 match_reward,
42 word_size,
43 xdropoff,
44 final_x_dropoff);
45 END;
46
47 STATIC FUNCTION dmbanPrepareStub (
48 sctx IN OUT dmbanimp,
49 tf_info SYS.ODCITabFuncInfo,
50 qkn_ptr IN RAW,
51 heap_ptr IN RAW,
52 query_sequence IN CLOB,
53 seqdb_cursor SYS_REFCURSOR,
54 subsequence_from IN PLS_INTEGER,
55 subsequence_to IN PLS_INTEGER,
56 filter_low_complexity IN PLS_INTEGER,
57 mask_lower_case IN PLS_INTEGER,
58 expect_value IN NUMBER,
59 open_gap_cost IN PLS_INTEGER,
60 extend_gap_cost IN PLS_INTEGER,
61 mismatch_cost IN PLS_INTEGER,
62 match_reward IN PLS_INTEGER,
63 word_size IN PLS_INTEGER,
64 xdropoff IN PLS_INTEGER,
65 final_x_dropoff IN PLS_INTEGER
66 ) RETURN PLS_INTEGER
67 IS
68 LANGUAGE C
69 LIBRARY DMBLAST_LIB
70 NAME "dmba_n_prepare"
71 WITH CONTEXT
72 PARAMETERS (
73 context,
74 sctx,
75 sctx INDICATOR STRUCT,
76 tf_info,
77 tf_info INDICATOR STRUCT,
78 query_sequence OCILobLocator,
79 query_sequence INDICATOR sb2,
80 seqdb_cursor,
81 subsequence_from UB4,
82 subsequence_from INDICATOR,
83 subsequence_to SB4,
84 subsequence_to INDICATOR,
85 filter_low_complexity UB1,
86 filter_low_complexity INDICATOR,
87 mask_lower_case UB1,
88 mask_lower_case INDICATOR,
89 expect_value,
90 expect_value INDICATOR,
91 open_gap_cost UB2,
92 open_gap_cost INDICATOR,
93 extend_gap_cost UB2,
94 extend_gap_cost INDICATOR,
95 mismatch_cost SB2,
96 mismatch_cost INDICATOR,
97 match_reward UB2,
98 match_reward INDICATOR,
99 word_size UB1,
100 word_size INDICATOR,
101 xdropoff UB2,
102 xdropoff INDICATOR,
103 final_x_dropoff UB2,
104 final_x_dropoff INDICATOR,
105 qkn_ptr OCIRaw,
106 heap_ptr OCIRaw,
107 RETURN INT
108 );
109
110 STATIC FUNCTION ODCITableStart (
111 sctx IN OUT dmbanimp,
112 rws_ptr IN RAW,
113 query_sequence IN CLOB,
114 seqdb_cursor SYS_REFCURSOR,
115 subsequence_from IN PLS_INTEGER,
116 subsequence_to IN PLS_INTEGER,
117 filter_low_complexity IN PLS_INTEGER,
118 mask_lower_case IN PLS_INTEGER,
119 expect_value IN NUMBER,
120 open_gap_cost IN PLS_INTEGER,
121 extend_gap_cost IN PLS_INTEGER,
122 mismatch_cost IN PLS_INTEGER,
123 match_reward IN PLS_INTEGER,
124 word_size IN PLS_INTEGER,
125 xdropoff IN PLS_INTEGER,
126 final_x_dropoff IN PLS_INTEGER
127 ) RETURN NUMBER
128 IS
129 PRAGMA AUTONOMOUS_TRANSACTION;
130 BEGIN
131 RETURN dmbanimp.dmbanStartStub (
132 sctx,
133 rws_ptr,
134 query_sequence,
135 seqdb_cursor,
136 subsequence_from,
137 subsequence_to,
138 filter_low_complexity,
139 mask_lower_case,
140 expect_value,
141 open_gap_cost,
142 extend_gap_cost,
143 mismatch_cost,
144 match_reward,
145 word_size,
146 xdropoff,
147 final_x_dropoff);
148 END;
149
150 STATIC FUNCTION dmbanStartStub (
151 sctx IN OUT dmbanimp,
152 rws_ptr IN RAW,
153 query_sequence IN CLOB,
154 seqdb_cursor SYS_REFCURSOR,
155 subsequence_from IN PLS_INTEGER,
156 subsequence_to IN PLS_INTEGER,
157 filter_low_complexity IN PLS_INTEGER,
158 mask_lower_case IN PLS_INTEGER,
159 expect_value IN NUMBER,
160 open_gap_cost IN PLS_INTEGER,
161 extend_gap_cost IN PLS_INTEGER,
162 mismatch_cost IN PLS_INTEGER,
163 match_reward IN PLS_INTEGER,
164 word_size IN PLS_INTEGER,
165 xdropoff IN PLS_INTEGER,
166 final_x_dropoff IN PLS_INTEGER
167 ) RETURN NUMBER
168 IS
169 LANGUAGE C
170 LIBRARY DMBLAST_LIB
171 NAME "dmba_n_start"
172 WITH CONTEXT
173 PARAMETERS (
174 context,
175 sctx,
176 sctx INDICATOR STRUCT,
177 query_sequence OCILobLocator,
178 query_sequence INDICATOR sb2,
179 seqdb_cursor,
180 subsequence_from UB4,
181 subsequence_from INDICATOR,
182 subsequence_to SB4,
183 subsequence_to INDICATOR,
184 filter_low_complexity UB1,
185 filter_low_complexity INDICATOR,
186 mask_lower_case UB1,
187 mask_lower_case INDICATOR,
188 expect_value,
189 expect_value INDICATOR,
190 open_gap_cost UB2,
191 open_gap_cost INDICATOR,
192 extend_gap_cost UB2,
193 extend_gap_cost INDICATOR,
194 mismatch_cost SB2,
195 mismatch_cost INDICATOR,
196 match_reward UB2,
197 match_reward INDICATOR,
198 word_size UB1,
199 word_size INDICATOR,
200 xdropoff UB2,
201 xdropoff INDICATOR,
202 final_x_dropoff UB2,
203 final_x_dropoff INDICATOR,
204 rws_ptr OCIRaw,
205 RETURN OCINumber
206 );
207
208 MEMBER FUNCTION ODCITableFetch (
209 self IN OUT dmbanimp,
210 nrows IN NUMBER,
211 outset OUT dmbaos
212 ) RETURN NUMBER
213 IS
214 PRAGMA AUTONOMOUS_TRANSACTION;
215 BEGIN
216 RETURN self.dmbanFetchStub (nrows, outset);
217 END;
218
219 MEMBER FUNCTION dmbanFetchStub (
220 self IN OUT dmbanimp,
221 nrows IN NUMBER,
222 outset OUT dmbaos
223 ) RETURN NUMBER
224 AS
225 LANGUAGE C
226 LIBRARY DMBLAST_LIB
227 NAME "dmba_n_fetch"
228 WITH CONTEXT
229 PARAMETERS (
230 context,
231 self,
232 self INDICATOR STRUCT,
233 nrows,
234 nrows INDICATOR,
235 outset,
236 outset INDICATOR,
237 RETURN OCINumber
238 );
239
240 MEMBER FUNCTION ODCITableClose (
241 self IN dmbanimp
242 ) RETURN NUMBER
243 IS
244 PRAGMA AUTONOMOUS_TRANSACTION;
245 BEGIN
246 RETURN self.dmbanCloseStub();
247 END;
248
249 MEMBER FUNCTION dmbanCloseStub (
250 self IN dmbanimp
251 ) RETURN NUMBER
252 AS
253 LANGUAGE C
254 LIBRARY DMBLAST_LIB
255 NAME "dmba_n_close"
256 WITH CONTEXT
257 PARAMETERS (
258 context,
259 self,
260 self INDICATOR STRUCT,
261 RETURN OCINumber
262 );
263 END;