[Home] [Help]
PACKAGE BODY: XDB.DBMS_XDB_VERSION
Source
1 package body DBMS_XDB_VERSION as
2
3 PROCEDURE makeversioned_int(pathname IN varchar2, resid OUT resid_type) is
4 LANGUAGE C NAME "qmevsMakeVersioned"
5 LIBRARY XDB.DBMS_XDB_VERSION_LIB
6 WITH CONTEXT
7 PARAMETERS (context,
8 pathname OCIString,
9 pathname indicator sb4,
10 resid,
11 resid indicator sb4,
12 resid length size_t
13 );
14
15 FUNCTION makeversioned(pathname varchar2) RETURN resid_type is
16 ret resid_type;
17 BEGIN
18 makeversioned_int(pathname, ret);
19 return ret;
20 END;
21
22 PROCEDURE checkout(pathname varchar2) is
23 LANGUAGE C NAME "qmevsCheckout"
24 LIBRARY XDB.DBMS_XDB_VERSION_LIB
25 WITH CONTEXT
26 PARAMETERS (context,
27 pathname OCIString,
28 pathname indicator sb4);
29
30 PROCEDURE checkin_int(pathname IN varchar2, resid OUT resid_type) is
31 LANGUAGE C NAME "qmevsCheckin"
32 LIBRARY XDB.DBMS_XDB_VERSION_LIB
33 WITH CONTEXT
34 PARAMETERS (context,
35 pathname OCIString,
36 pathname indicator sb4,
37 resid,
38 resid indicator sb4,
39 resid length size_t
40 );
41
42 FUNCTION checkin(pathname varchar2) RETURN resid_type is
43 ret resid_type;
44 BEGIN
45 checkin_int(pathname, ret);
46 return ret;
47 END;
48
49 PROCEDURE uncheckout_int(pathname IN varchar2, resid OUT resid_type) is
50 LANGUAGE C NAME "qmevsUncheckout"
51 LIBRARY XDB.DBMS_XDB_VERSION_LIB
52 WITH CONTEXT
53 PARAMETERS (context,
54 pathname OCIString,
55 pathname indicator sb4,
56 resid,
57 resid indicator sb4,
58 resid length size_t
59 );
60
61 FUNCTION uncheckout(pathname varchar2) RETURN resid_type is
62 ret resid_type;
63 BEGIN
64 uncheckout_int(pathname, ret);
65 return ret;
66 END;
67
68 FUNCTION ischeckedout(pathname varchar2) RETURN BOOLEAN is
69 LANGUAGE C NAME "qmevsIsResCheckedOut"
70 LIBRARY XDB.DBMS_XDB_VERSION_LIB
71 WITH CONTEXT
72 PARAMETERS (context,
73 pathname OCIString, pathname indicator sb4,
74 RETURN INDICATOR sb4,
75 return
76 );
77
78 FUNCTION getresid(pathname varchar2) RETURN resid_type is
79 LANGUAGE C NAME "qmevsGetResID"
80 LIBRARY XDB.DBMS_XDB_VERSION_LIB
81 WITH CONTEXT
82 PARAMETERS (context,
83 pathname OCIString, pathname indicator sb4,
84 RETURN INDICATOR sb4,
85 RETURN LENGTH size_t
86 );
87
88 FUNCTION GetPredecessors(pathname varchar2) RETURN resid_list_type is
89 resid resid_type;
90 BEGIN
91 resid := getresid(pathname);
92 return GetPredsByResId(resid);
93 END;
94
95 FUNCTION GetPredsByResId(resid resid_type) RETURN resid_list_type is
96 LANGUAGE C NAME "qmevsGetPredsByResId"
97 LIBRARY XDB.DBMS_XDB_VERSION_LIB
98 WITH CONTEXT
99 PARAMETERS (context,
100 resid OCIRaw, resid indicator sb2,
101 RETURN INDICATOR sb4,
102 RETURN DURATION OCIDuration,
103 RETURN
104 );
105
106 FUNCTION GetSuccessors(pathname varchar2) RETURN resid_list_type is
107 resid resid_type;
108 BEGIN
109 resid := getresid(pathname);
110 return GetSuccsByResId(resid);
111 END;
112
113 FUNCTION GetSuccsByResId(resid resid_type) RETURN resid_list_type is
114 LANGUAGE C NAME "qmevsGetSuccsByResId"
115 LIBRARY XDB.DBMS_XDB_VERSION_LIB
116 WITH CONTEXT
117 PARAMETERS (context,
118 resid OCIRaw, resid indicator sb2,
119 RETURN INDICATOR sb4,
120 RETURN DURATION OCIDuration,
121 RETURN
122 );
123
124 FUNCTION GetResourceByResId(resid resid_type) RETURN XMLType is
125 LANGUAGE C NAME "qmevsGetResByResId"
126 LIBRARY XDB.DBMS_XDB_VERSION_LIB
127 WITH CONTEXT
128 PARAMETERS (context,
129 resid OCIRaw, resid indicator sb2,
130 RETURN INDICATOR sb4,
131 RETURN DURATION OCIDuration,
132 RETURN
133 );
134
135 FUNCTION GetContentsBlobByResId(resid resid_type) RETURN BLOB is
136 LANGUAGE C NAME "qmevsGetCtsBlobByResId"
137 LIBRARY XDB.DBMS_XDB_VERSION_LIB
138 WITH CONTEXT
139 PARAMETERS (context,
140 resid OCIRaw, resid indicator sb2,
141 RETURN INDICATOR sb4,
142 RETURN DURATION OCIDuration,
143 RETURN OCILobLocator
144 );
145
146 FUNCTION GetContentsClobByResId(resid resid_type) RETURN CLOB is
147 LANGUAGE C NAME "qmevsGetCtsClobByResId"
148 LIBRARY XDB.DBMS_XDB_VERSION_LIB
149 WITH CONTEXT
150 PARAMETERS (context,
151 resid OCIRaw, resid indicator sb2,
152 RETURN INDICATOR sb4,
153 RETURN DURATION OCIDuration,
154 RETURN OCILobLocator
155 );
156
157 FUNCTION GetContentsXmlByResId(resid resid_type) RETURN XMLType is
158 LANGUAGE C NAME "qmevsGetCtsXmlByResId"
159 LIBRARY XDB.DBMS_XDB_VERSION_LIB
160 WITH CONTEXT
161 PARAMETERS (context,
162 resid OCIRaw, resid indicator sb2,
163 RETURN INDICATOR sb4,
164 RETURN DURATION OCIDuration,
165 RETURN
166 );
167
168 FUNCTION GetVersionHistoryID(pathname varchar2) RETURN resid_type is
169 LANGUAGE C NAME "qmevsGetVerHistID"
170 LIBRARY XDB.DBMS_XDB_VERSION_LIB
171 WITH CONTEXT
172 PARAMETERS (context,
173 pathname OCIString, pathname indicator sb4,
174 RETURN INDICATOR sb4,
175 RETURN LENGTH size_t
176 );
177
178 FUNCTION GetVersionHistory(resid resid_type) RETURN resid_list_type is
179 LANGUAGE C NAME "qmevsGetVerHist"
180 LIBRARY XDB.DBMS_XDB_VERSION_LIB
181 WITH CONTEXT
182 PARAMETERS (context,
183 resid OCIRaw, resid indicator sb2,
184 RETURN INDICATOR sb4,
185 RETURN DURATION OCIDuration,
186 RETURN
187 );
188
189 FUNCTION GetVersionHistoryRoot(resid resid_type) RETURN resid_type IS
190 LANGUAGE C NAME "qmevsGetVerHistRoot"
191 LIBRARY XDB.DBMS_XDB_VERSION_LIB
192 WITH CONTEXT
193 PARAMETERS (context,
194 resid OCIRaw, resid indicator sb2,
195 RETURN INDICATOR sb4,
196 RETURN LENGTH size_t
197 );
198
199 PROCEDURE CreateRealWorkspace(wsname IN VARCHAR2,
200 initializer IN VARCHAR2,
201 published IN boolean,
202 privateNonVCR IN boolean) IS
203 LANGUAGE C NAME "qmevsCreateRealWS"
204 LIBRARY XDB.DBMS_XDB_VERSION_LIB
205 WITH CONTEXT
206 PARAMETERS (context,
207 wsname OCIString,
208 wsname indicator sb4,
209 initializer OCIString,
210 initializer indicator sb4,
211 published ub2,
212 published indicator sb4,
213 privateNonVCR ub2,
214 privateNonVCR indicator sb4
215 );
216
217 PROCEDURE CreateVirtualWorkspace(wsname IN VARCHAR2,
218 base_wsname IN VARCHAR2) IS
219 LANGUAGE C NAME "qmevsCreateVirtualWS"
220 LIBRARY XDB.DBMS_XDB_VERSION_LIB
221 WITH CONTEXT
222 PARAMETERS (context,
223 wsname OCIString,
224 wsname indicator sb4,
225 base_wsname OCIString,
226 base_wsname indicator sb4
227 );
228
229 PROCEDURE DeleteWorkspace(wsname IN VARCHAR2) IS
230 LANGUAGE C NAME "qmevsDeleteWS"
231 LIBRARY XDB.DBMS_XDB_VERSION_LIB
232 WITH CONTEXT
233 PARAMETERS (context,
234 wsname OCIString,
235 wsname indicator sb4
236 );
237
238 PROCEDURE SetWorkspace(wsname IN VARCHAR2) IS
239 LANGUAGE C NAME "qmevsSetWS"
240 LIBRARY XDB.DBMS_XDB_VERSION_LIB
241 WITH CONTEXT
242 PARAMETERS (context,
243 wsname OCIString,
244 wsname indicator sb4
245 );
246
247 PROCEDURE GetWorkspace(wsname OUT VARCHAR2) IS
248 LANGUAGE C NAME "qmevsGetWS"
249 LIBRARY XDB.DBMS_XDB_VERSION_LIB
250 WITH CONTEXT
251 PARAMETERS (context,
252 wsname STRING,
253 wsname INDICATOR sb4,
254 wsname LENGTH sb4,
255 wsname MAXLEN sb4
256 );
257
258 PROCEDURE PublishWorkspace(wsname IN VARCHAR2) IS
259 LANGUAGE C NAME "qmevsPublishWS"
260 LIBRARY XDB.DBMS_XDB_VERSION_LIB
261 WITH CONTEXT
262 PARAMETERS (context,
263 wsname OCIString,
264 wsname indicator sb4
265 );
266
267 PROCEDURE UnPublishWorkspace(wsname IN VARCHAR2) IS
268 LANGUAGE C NAME "qmevsUnPublishWS"
269 LIBRARY XDB.DBMS_XDB_VERSION_LIB
270 WITH CONTEXT
271 PARAMETERS (context,
272 wsname OCIString,
273 wsname indicator sb4
274 );
275
276 PROCEDURE UpdateWorkspace(target_wsname IN VARCHAR2,
277 source_wsname IN VARCHAR2,
278 privateNonVCR IN BOOLEAN) IS
279 LANGUAGE C NAME "qmevsUpdateWS"
280 LIBRARY XDB.DBMS_XDB_VERSION_LIB
281 WITH CONTEXT
282 PARAMETERS (context,
283 target_wsname OCIString,
284 target_wsname indicator sb4,
285 source_wsname OCIString,
286 source_wsname indicator sb4,
287 privateNonVCR ub2,
288 privateNonVCR indicator sb4
289 );
290
291 PROCEDURE CreateBranch(name IN VARCHAR2) IS
292 LANGUAGE C NAME "qmevsCreateBranch"
293 LIBRARY XDB.DBMS_XDB_VERSION_LIB
294 WITH CONTEXT
295 PARAMETERS (context,
296 name OCIString,
297 name indicator sb4
298 );
299
300 PROCEDURE MakeShared(path IN VARCHAR2) IS
301 LANGUAGE C NAME "qmevsMakeShared"
302 LIBRARY XDB.DBMS_XDB_VERSION_LIB
303 WITH CONTEXT
304 PARAMETERS (context,
305 path OCIString,
306 path indicator sb4
307 );
308
309 PROCEDURE CreateVCR(path IN VARCHAR2, versionResID IN resid_type) IS
310 LANGUAGE C NAME "qmevsCreateVCR"
311 LIBRARY XDB.DBMS_XDB_VERSION_LIB
312 WITH CONTEXT
313 PARAMETERS (context,
314 path OCIString,
315 path indicator sb4,
316 versionResID OCIRaw,
317 versionResID indicator sb4
318 );
319
320 PROCEDURE UpdateVCRVersion(path IN VARCHAR2, newResID IN resid_type) IS
321 LANGUAGE C NAME "qmevsUpdateVCR"
322 LIBRARY XDB.DBMS_XDB_VERSION_LIB
323 WITH CONTEXT
324 PARAMETERS (context,
325 path OCIString,
326 path indicator sb4,
327 newResID OCIRaw,
328 newResID indicator sb4
329 );
330
331 PROCEDURE DeleteVersion(versionResID IN resid_type) IS
332 LANGUAGE C NAME "qmevsDelVersion"
333 LIBRARY XDB.DBMS_XDB_VERSION_LIB
334 WITH CONTEXT
335 PARAMETERS (context,
336 versionResID OCIRaw,
337 versionResID indicator sb4
338 );
339
340 PROCEDURE DeleteVersionHistory(vhid resid_type) IS
341 LANGUAGE C NAME "qmevsDeleteVerHist"
342 LIBRARY XDB.DBMS_XDB_VERSION_LIB
343 WITH CONTEXT
344 PARAMETERS (context,
345 vhid OCIRaw,
346 vhid indicator sb4
347 );
348
349 end DBMS_XDB_VERSION;