1 |
/* |
2 |
openisis - an open implementation of the CDS/ISIS database |
3 |
Version 0.8.x (patchlevel see file Version) |
4 |
Copyright (C) 2001-2003 by Erik Grziwotz, erik@openisis.org |
5 |
|
6 |
This library is free software; you can redistribute it and/or |
7 |
modify it under the terms of the GNU Lesser General Public |
8 |
License as published by the Free Software Foundation; either |
9 |
version 2.1 of the License, or (at your option) any later version. |
10 |
|
11 |
This library is distributed in the hope that it will be useful, |
12 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
13 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
14 |
Lesser General Public License for more details. |
15 |
|
16 |
You should have received a copy of the GNU Lesser General Public |
17 |
License along with this library; if not, write to the Free Software |
18 |
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
19 |
|
20 |
see README for more information |
21 |
EOH */ |
22 |
|
23 |
/* |
24 |
$Id: ldsp.c,v 1.32 2003/06/15 15:57:43 mawag Exp $ |
25 |
server side request processing. |
26 |
*/ |
27 |
|
28 |
#include <errno.h> |
29 |
#include <limits.h> /* PATH_MAX */ |
30 |
#include <stdarg.h> |
31 |
#include <stdio.h> /* vsnprintf */ |
32 |
#include <string.h> |
33 |
|
34 |
#include "openisis.h" |
35 |
#include "loi.h" |
36 |
#include "ldb.h" |
37 |
#include "ldsp.h" |
38 |
#include "lfdt.h" |
39 |
/* #include "lsv.h" */ |
40 |
#include "luti.h" |
41 |
|
42 |
#ifdef WIN32 |
43 |
#define vsnprintf _vsnprintf |
44 |
#endif |
45 |
|
46 |
#define ISID 0 |
47 |
#define ISER 1 |
48 |
#define ITMS 2 |
49 |
#define SSTS 3 |
50 |
|
51 |
#define RSPVAR \ |
52 |
Db *dbh = 0; \ |
53 |
Rec *rsp = 0; \ |
54 |
int sdbid; |
55 |
|
56 |
#define RSPADDR \ |
57 |
if (! rspa) { rspa = &rsp; } |
58 |
|
59 |
#define RSPHEAD \ |
60 |
*rspa = rAddI (*rspa, OPENISIS_COM_SID, sst[ISID], !0); \ |
61 |
*rspa = rAddI (*rspa, OPENISIS_COM_SER, sst[ISER], !0); |
62 |
|
63 |
#define RSPNOERR \ |
64 |
*rspa = rAddI (*rspa, OPENISIS_RSP_ERR, 0, !0); |
65 |
|
66 |
#define RSPDB \ |
67 |
RADDS (*rspa, OPENISIS_COM_DBN, dbn, !0); |
68 |
|
69 |
#define RSPFREE mFree (rsp); |
70 |
|
71 |
#define GETDB(rname) \ |
72 |
sdbid = ldspGetDb (&dbh, sst, dbn); \ |
73 |
if (0 > sdbid) { \ |
74 |
int rt = _RqsError (sst, ERR_INVAL, rspa, cb, \ |
75 |
cld, rname, sst[ITMS] ? \ |
76 |
"db %s remounted" : "db %s not open", dbn); \ |
77 |
return rt; \ |
78 |
} |
79 |
|
80 |
#define RSPFDT \ |
81 |
if (dbh->fdt) { \ |
82 |
*rspa = openIsisFFdt2Rec (dbh->fdt, *rspa, 0); \ |
83 |
} \ |
84 |
if (dbh->cfg) { \ |
85 |
*rspa = luti_wrap (*rspa, dbh->cfg, OPENISIS_COM_CFG); \ |
86 |
} |
87 |
|
88 |
#define DELIVER \ |
89 |
if (*rspa) { \ |
90 |
int rt = 0; \ |
91 |
if (cb) { \ |
92 |
rt = (*cb) (rspa, cld); \ |
93 |
mFree (*rspa); \ |
94 |
} \ |
95 |
return rt; \ |
96 |
} \ |
97 |
return sMsg (ERR_NOMEM, "ldsp: deliver: rsp == 0"); |
98 |
|
99 |
#define UTF8REC(rec,inv,rname) \ |
100 |
if (openIsisEnc2Utf8 && dbh->cfg) { \ |
101 |
char ebuf[128]; \ |
102 |
char *enc = rString (dbh->cfg, OPENISIS_DENC, 0, ebuf, sizeof(ebuf)); \ |
103 |
if (enc && *enc && strcmp (enc, "utf-8")) { \ |
104 |
ldspUtf8Rec (&rec, enc, inv); \ |
105 |
} \ |
106 |
} |
107 |
|
108 |
/* ************************************************************ |
109 |
*/ |
110 |
|
111 |
static int ldspGetDb (Db **db, int sst[], const char *dbn) { |
112 |
Db *dbh = nDbByName (stub0, dbn); |
113 |
if (! dbh) { |
114 |
sst[ITMS] = 0; |
115 |
return -1; |
116 |
} |
117 |
if (sst[ITMS]) { |
118 |
if (-1 == sst[ITMS] || /* dont want default of rInt call */ |
119 |
(dbh->tms && dbh->tms != sst[ITMS]) |
120 |
) { |
121 |
sst[ITMS] = dbh->tms; |
122 |
return -1; |
123 |
} |
124 |
} |
125 |
if (db) { |
126 |
*db = dbh; |
127 |
} |
128 |
return dbh->dbid; |
129 |
} |
130 |
|
131 |
static int ldspUtf8Rec (Rec **rec, const char *enc, int invert) { |
132 |
char buf[4096]; |
133 |
const char *dst; |
134 |
Rec *res = 0; |
135 |
Field *F, *E; |
136 |
if (*rec && (*rec)->len) { |
137 |
E = (*rec)->field + (*rec)->len; |
138 |
for (F = (*rec)->field; E > F; ++F) { |
139 |
if (0 == F->len || (1 == F->len && ! *(F->val))) { |
140 |
RADDS (res, F->tag, "", !0); |
141 |
} |
142 |
else { |
143 |
dst = (*openIsisEnc2Utf8) (enc, |
144 |
F->val, F->len, buf, sizeof(buf), invert); |
145 |
if (! dst) { |
146 |
if (res) { |
147 |
mFree (res); |
148 |
} |
149 |
return sMsg (ERR_TRASH, |
150 |
"ldsp: cannot convert %s %s utf8: %.*s", |
151 |
enc, (invert ? "from" : "to"), F->len, F->val); |
152 |
} |
153 |
RADDS (res, F->tag, dst, !0); |
154 |
if (dst != buf && dst != F->val) { |
155 |
(*openIsisEnc2Utf8) (0, dst, 0, 0, 0, 0); |
156 |
} |
157 |
} |
158 |
if (! res) { |
159 |
return sMsg (ERR_NOMEM, "ldsp: convert %s %s utf8: res == 0", |
160 |
enc, (invert ? "from" : "to")); |
161 |
} |
162 |
} |
163 |
res->rowid = (*rec)->rowid; |
164 |
res->dbid = (*rec)->dbid; |
165 |
mFree (*rec); |
166 |
*rec = res; |
167 |
} |
168 |
return 0; |
169 |
} |
170 |
|
171 |
static int _RqsError ( |
172 |
int sst[], int err, Rec **rspa, LdspDlvCb *cb, |
173 |
void *cld, const char *rname, const char *fmt, ... |
174 |
) { |
175 |
Rec *rsp = 0; |
176 |
char msg[OPENISIS_ERRMSGLEN]; |
177 |
va_list ap; |
178 |
RSPADDR |
179 |
RSPHEAD |
180 |
sMsg (LOG_VERBOSE, "ldsp: _RqsError %s %x from %d/%d", |
181 |
rname, err, sst[ISID], sst[ISER]); |
182 |
if (sst[ITMS] && -1 != sst[ITMS]) { |
183 |
*rspa = rAddI (*rspa, OPENISIS_COM_TMS, sst[ITMS], !0); |
184 |
} |
185 |
*rspa = rAddI (*rspa, OPENISIS_RSP_ERR, err, !0); |
186 |
if (0 != fmt && 0 != *fmt) { |
187 |
va_start (ap, fmt); |
188 |
vsnprintf (msg, OPENISIS_ERRMSGLEN - 1, fmt, ap); |
189 |
msg[OPENISIS_ERRMSGLEN - 1] = 0; |
190 |
va_end (ap); |
191 |
RADDS (*rspa, OPENISIS_RSP_MSG, msg, !0); |
192 |
sMsg (LOG_WARN, "ldsp: err on rqs %s: %d(%x) - %s", |
193 |
rname, err, err, msg); |
194 |
} |
195 |
else { |
196 |
sMsg (LOG_WARN, "ldsp: err on rqs %s: %d(%x)", |
197 |
rname, err, err); |
198 |
} |
199 |
DELIVER |
200 |
} |
201 |
|
202 |
static int _RqsLsDb ( |
203 |
int sst[], Rec **rspa, LdspDlvCb *cb, void *cld |
204 |
) { |
205 |
Rec *rsp = 0; |
206 |
Schema *sc; |
207 |
char *n; |
208 |
int j; |
209 |
sc = nSchema (stub0); |
210 |
if (! sc) { |
211 |
j = _RqsError (sst, ERR_BADF, rspa, cb, cld, |
212 |
"lsdb", "local schema not initialized"); |
213 |
return j; |
214 |
} |
215 |
RSPADDR |
216 |
RSPHEAD |
217 |
RSPNOERR |
218 |
sMsg (LOG_VERBOSE, "ldsp: _RqsLsDb from %d/%d", sst[ISID], sst[ISER]); |
219 |
for (j = 0; sc->ndbs > j; ++j) { |
220 |
if (*(n = sc->dbs[j]->name)) { |
221 |
RADDS (*rspa, OPENISIS_COM_DBN, n, !0); |
222 |
} |
223 |
} |
224 |
DELIVER |
225 |
} |
226 |
|
227 |
static int _RqsEval ( |
228 |
int sst[], Rec *cmd, Rec **rspa, LdspDlvCb *cb, void *cld |
229 |
) { |
230 |
Rec *res = 0; |
231 |
Rec *rsp = 0; |
232 |
int j; |
233 |
if (! openIsisEval) { |
234 |
j = _RqsError (sst, ERR_IDIOT, rspa, cb, cld, |
235 |
"eval", "server has no eval function"); |
236 |
mFree (cmd); |
237 |
return j; |
238 |
} |
239 |
j = (*openIsisEval) (cmd, &res); |
240 |
mFree (cmd); |
241 |
RSPADDR |
242 |
RSPHEAD |
243 |
*rspa = rAddI (*rspa, OPENISIS_RSP_ERR, j, !0); |
244 |
if (res) { |
245 |
*rspa = rAddI (*rspa, OPENISIS_RSP_NUMT, 1, !0); |
246 |
*rspa = rAddI (*rspa, OPENISIS_RSP_NUMR, 1, !0); |
247 |
*rspa = rAddI (*rspa, OPENISIS_COM_ROW, 0, !0); |
248 |
*rspa = luti_wrap (*rspa, res, OPENISIS_COM_REC); |
249 |
mFree (res); |
250 |
} |
251 |
else { |
252 |
*rspa = rAddI (*rspa, OPENISIS_RSP_NUMT, 0, !0); |
253 |
*rspa = rAddI (*rspa, OPENISIS_RSP_NUMR, 0, !0); |
254 |
} |
255 |
DELIVER |
256 |
} |
257 |
|
258 |
static int _RqsOpen ( |
259 |
int sst[], const char *dbn, Rec *dbpar, Fdt *fdt, |
260 |
Rec **rspa, LdspDlvCb *cb, void *cld |
261 |
) { |
262 |
#define STRERRNOLEN 128 |
263 |
RSPVAR |
264 |
Schema *sc; |
265 |
char msg[STRERRNOLEN]; |
266 |
sst[ITMS] = 0; |
267 |
sc = nSchema (stub0); |
268 |
if (! sc) { |
269 |
int rt = _RqsError (sst, ERR_BADF, rspa, cb, cld, |
270 |
"open", "%s: local schema not initialized", dbn); |
271 |
mFree (dbpar); |
272 |
return rt; |
273 |
} |
274 |
sMsg (LOG_VERBOSE, "ldsp: _RqsOpen %s from %d/%d", |
275 |
dbn, sst[ISID], sst[ISER]); |
276 |
errno = 0; |
277 |
dbh = cDOpen (dbn, dbpar, sc->cfg, fdt); |
278 |
if (! dbh) { |
279 |
int rt; |
280 |
strncpy (msg, strerror (errno), STRERRNOLEN - 1) |
281 |
[STRERRNOLEN - 1] = 0; |
282 |
rt = _RqsError (sst, ERR_BADF, rspa, cb, cld, |
283 |
"open", "%s: %s", dbn, msg); |
284 |
mFree (dbpar); |
285 |
return rt; |
286 |
} |
287 |
sdbid = dbh->dbid; |
288 |
dbn = dbh->name; |
289 |
RSPADDR |
290 |
RSPHEAD |
291 |
RSPNOERR |
292 |
RSPDB |
293 |
*rspa = rAddI (*rspa, OPENISIS_RSP_DBID, sdbid, !0); |
294 |
*rspa = rAddI (*rspa, OPENISIS_COM_TMS, dbh->tms, !0); |
295 |
mFree (dbpar); |
296 |
DELIVER |
297 |
} |
298 |
|
299 |
static int _RqsClose ( |
300 |
int sst[], const char *dbn, Rec **rspa, LdspDlvCb *cb, void *cld |
301 |
) { |
302 |
RSPVAR |
303 |
int err; |
304 |
GETDB("close") |
305 |
sMsg (LOG_VERBOSE, "ldsp: _RqsClose %s from %d/%d", |
306 |
dbn, sst[ISID], sst[ISER]); |
307 |
err = cDClose (sdbid); |
308 |
RSPADDR |
309 |
RSPHEAD |
310 |
*rspa = rAddI (*rspa, OPENISIS_RSP_DBID, sdbid, !0); |
311 |
*rspa = rAddI (*rspa, OPENISIS_RSP_ERR, err, !0); |
312 |
RSPDB |
313 |
DELIVER |
314 |
} |
315 |
|
316 |
static int _RqsMount ( |
317 |
int sst[], const char *dbn, Rec **rspa, LdspDlvCb *cb, void *cld |
318 |
) { |
319 |
RSPVAR |
320 |
GETDB("mount") |
321 |
RSPADDR |
322 |
RSPHEAD |
323 |
sMsg (LOG_VERBOSE, "ldsp: _RqsMount %s from %d/%d", |
324 |
dbn, sst[ISID], sst[ISER]); |
325 |
RSPNOERR |
326 |
RSPDB |
327 |
RSPFDT |
328 |
DELIVER |
329 |
} |
330 |
|
331 |
static int _RqsMaxrow ( |
332 |
int sst[], const char *dbn, int flags, |
333 |
Rec **rspa, LdspDlvCb *cb, void *cld |
334 |
) { |
335 |
RSPVAR |
336 |
int maxrow; |
337 |
GETDB("maxrow") |
338 |
maxrow = dMaxId (sdbid); |
339 |
if (0 > maxrow) { |
340 |
int rt = _RqsError (sst, ERR_TRASH, rspa, cb, cld, "maxrow", |
341 |
"no maxrow for %s", dbn); |
342 |
RSPFREE |
343 |
return rt; |
344 |
} |
345 |
RSPADDR |
346 |
RSPHEAD |
347 |
sMsg (LOG_VERBOSE, "ldsp: _RqsMaxrow %s from %d/%d", |
348 |
dbn, sst[ISID], sst[ISER]); |
349 |
RSPNOERR |
350 |
RSPDB |
351 |
if (OPENISIS_RQSF_MNT & flags) { |
352 |
RSPFDT |
353 |
} |
354 |
*rspa = rAddI (*rspa, OPENISIS_COM_ROW, maxrow, !0); |
355 |
DELIVER |
356 |
} |
357 |
|
358 |
static int _RqsQuery ( |
359 |
int sst[], const char *dbn, const char *key, int mode, int skip, |
360 |
int size, int flags, Rec **rspa, LdspDlvCb *cb, void *cld |
361 |
) { |
362 |
RSPVAR |
363 |
Set set; |
364 |
Rec *rec; |
365 |
int lrt; |
366 |
int j; |
367 |
int rdr = OPENISIS_RQSF_QRR & flags; |
368 |
GETDB("query") |
369 |
sMsg (LOG_VERBOSE, "ldsp: _RqsQuery %s from %d/%d", |
370 |
dbn, sst[ISID], sst[ISER]); |
371 |
set.len = 0; /* input */ |
372 |
lrt = dQuery (&set, sdbid, key, mode, skip); |
373 |
if (0 > lrt) { |
374 |
int rt = _RqsError (sst, ERR_TRASH, rspa, cb, cld, "query", |
375 |
"%d,%s = %d", sdbid, key, lrt); |
376 |
return rt; |
377 |
} |
378 |
RSPADDR |
379 |
RSPHEAD |
380 |
RSPNOERR |
381 |
RSPDB |
382 |
if (OPENISIS_RQSF_MNT & flags) { |
383 |
RSPFDT |
384 |
} |
385 |
*rspa = rAddI (*rspa, OPENISIS_RSP_NUMT, lrt, !0); |
386 |
if (0 < size && lrt > size) { |
387 |
lrt = size; |
388 |
} |
389 |
*rspa = rAddI (*rspa, OPENISIS_RSP_NUMR, lrt, !0); |
390 |
for (j = 0; lrt > j; ++j) { |
391 |
*rspa = rAddI (*rspa, OPENISIS_COM_ROW, set.id[j], !0); |
392 |
} |
393 |
if (rdr) { |
394 |
for (j = 0; *rspa && lrt > j; ++j) { |
395 |
rec = dRead (sdbid, set.id[j]); |
396 |
if (rec) { |
397 |
UTF8REC (rec, 0, "query") |
398 |
} |
399 |
else { |
400 |
sMsg (ERR_TRASH | LOG_WARN, |
401 |
"db %s: non-existent mfn %d for key %s", |
402 |
dbn, set.id[j], key); |
403 |
rec = rDup (0, 0, 0); |
404 |
} |
405 |
*rspa = luti_wrap (*rspa, rec, OPENISIS_COM_REC); |
406 |
mFree (rec); |
407 |
} |
408 |
} |
409 |
DELIVER |
410 |
} |
411 |
|
412 |
static int _RqsRead ( |
413 |
int sst[], const char *dbn, int row, int flags, |
414 |
Rec **rspa, LdspDlvCb *cb, void *cld |
415 |
) { |
416 |
RSPVAR |
417 |
Rec *rec; |
418 |
GETDB("read") |
419 |
RSPADDR |
420 |
RSPHEAD |
421 |
sMsg (LOG_VERBOSE, "ldsp: _RqsRead %s %d from %d/%d", |
422 |
dbn, row, sst[ISID], sst[ISER]); |
423 |
RSPNOERR |
424 |
RSPDB |
425 |
if (OPENISIS_RQSF_MNT & flags) { |
426 |
RSPFDT |
427 |
} |
428 |
rec = dRead (sdbid, row); |
429 |
if (rec) { |
430 |
*rspa = rAddI (*rspa, OPENISIS_RSP_NUMT, 1, !0); |
431 |
*rspa = rAddI (*rspa, OPENISIS_RSP_NUMR, 1, !0); |
432 |
*rspa = rAddI (*rspa, OPENISIS_COM_ROW, row, !0); |
433 |
UTF8REC (rec, 0, "read") |
434 |
*rspa = luti_wrap (*rspa, rec, OPENISIS_COM_REC); |
435 |
mFree (rec); |
436 |
} |
437 |
else { |
438 |
*rspa = rAddI (*rspa, OPENISIS_RSP_NUMT, 0, !0); |
439 |
*rspa = rAddI (*rspa, OPENISIS_RSP_NUMR, 0, !0); |
440 |
} |
441 |
DELIVER |
442 |
} |
443 |
|
444 |
static int _RqsUpdate ( |
445 |
int sst[], const char *dbn, int row, Rec *rec, Rec *idx, int flags, |
446 |
Rec **rspa, LdspDlvCb *cb, void *cld |
447 |
) { |
448 |
RSPVAR |
449 |
int rtw; |
450 |
GETDB("update") |
451 |
sMsg (LOG_VERBOSE, "ldsp: _RqsUpdate %s %d from %d/%d", |
452 |
dbn, row, sst[ISID], sst[ISER]); |
453 |
if (rec) { |
454 |
rec->rowid = row; |
455 |
rec->dbid = sdbid; |
456 |
UTF8REC (rec, !0, "update") |
457 |
} |
458 |
rtw = dWritex (sdbid, rec, idx); |
459 |
if (rtw) { |
460 |
rtw = _RqsError (sst, ERR_TRASH, rspa, cb, cld, |
461 |
"update", "write error %d", rtw); |
462 |
mFree (rec); |
463 |
mFree (idx); |
464 |
return rtw; |
465 |
} |
466 |
RSPADDR |
467 |
RSPHEAD |
468 |
RSPNOERR |
469 |
RSPDB |
470 |
if (OPENISIS_RQSF_MNT & flags) { |
471 |
RSPFDT |
472 |
} |
473 |
if (rec) { |
474 |
row = rec->rowid; |
475 |
mFree (rec); |
476 |
} |
477 |
mFree (idx); |
478 |
*rspa = rAddI (*rspa, OPENISIS_COM_ROW, row, !0); |
479 |
DELIVER |
480 |
} |
481 |
|
482 |
static int _RqsDelete ( |
483 |
int sst[], const char *dbn, int row, int flags, |
484 |
Rec **rspa, LdspDlvCb *cb, void *cld |
485 |
) { |
486 |
(void)flags; |
487 |
sMsg (LOG_VERBOSE, "ldsp: _RqsDelete %s %d from %d/%d", |
488 |
dbn, row, sst[ISID], sst[ISER]); |
489 |
return _RqsError (sst, ERR_TRASH, rspa, cb, cld, "delete", |
490 |
"request not implemented yet"); |
491 |
} |
492 |
|
493 |
/* ************************************************************ |
494 |
package functions |
495 |
*/ |
496 |
|
497 |
int ldspProcess (Rec *rqs, Rec **rspa, LdspDlvCb *cb, void *cld) { |
498 |
char buf[PATH_MAX]; |
499 |
char *dbn = 0; |
500 |
int sst[SSTS]; |
501 |
int rtyp; |
502 |
int flags = 0; |
503 |
|
504 |
if (0 == rqs) { |
505 |
return sMsg (ERR_IDIOT, "ldspProcess: no request"); |
506 |
} |
507 |
if (0 == rspa && 0 == cb) { |
508 |
return sMsg (ERR_IDIOT, "ldspProcess: no callback"); |
509 |
} |
510 |
|
511 |
rtyp = rInt (rqs, OPENISIS_RQS_TYPE, -1, 0); |
512 |
sst[ISID] = rInt (rqs, OPENISIS_COM_SID, -1, 0); |
513 |
sst[ISER] = rInt (rqs, OPENISIS_COM_SER, -1, 0); |
514 |
sst[ITMS] = rInt (rqs, OPENISIS_COM_TMS, -1, 0); |
515 |
|
516 |
if (OPENISIS_RQST_LSDB != rtyp && |
517 |
OPENISIS_RQST_EVAL != rtyp |
518 |
) { |
519 |
dbn = rString (rqs, OPENISIS_COM_DBN, 0, buf, sizeof(buf)); |
520 |
if (!dbn) { |
521 |
i2a (buf, rtyp); |
522 |
return _RqsError (sst, ERR_INVAL, rspa, cb, cld, buf, |
523 |
"no db name given"); |
524 |
} |
525 |
flags = rInt (rqs, OPENISIS_RQS_FLG, 0, 0); |
526 |
} |
527 |
|
528 |
switch (rtyp) { |
529 |
|
530 |
case OPENISIS_RQST_LSDB: |
531 |
return _RqsLsDb (sst, rspa, cb, cld); |
532 |
|
533 |
case OPENISIS_RQST_OPEN: { |
534 |
Rec *dbpar = luti_unwrap (rqs, 0, OPENISIS_COM_CFG, -1); |
535 |
Fdt *fdt = fRec2Fdt (rqs); |
536 |
return _RqsOpen (sst, dbn, dbpar, fdt, rspa, cb, cld); |
537 |
} |
538 |
|
539 |
case OPENISIS_RQST_CLOS: |
540 |
return _RqsClose (sst, dbn, rspa, cb, cld); |
541 |
|
542 |
case OPENISIS_RQST_MNT: |
543 |
return _RqsMount (sst, dbn, rspa, cb, cld); |
544 |
|
545 |
case OPENISIS_RQST_MROW: |
546 |
return _RqsMaxrow (sst, dbn, flags, rspa, cb, cld); |
547 |
|
548 |
case OPENISIS_RQST_QRY: { |
549 |
char kybuf[OPENISIS_QRY_KEYLEN]; |
550 |
char *key; |
551 |
int mode, skip, size; |
552 |
key = rString (rqs, OPENISIS_RQS_KEY, 0, kybuf, OPENISIS_QRY_KEYLEN); |
553 |
mode = rInt (rqs, OPENISIS_RQS_QMOD, -1, 0); |
554 |
skip = rInt (rqs, OPENISIS_RQS_SKIP, 0, 0); |
555 |
size = rInt (rqs, OPENISIS_RQS_SIZE, -1, 0); |
556 |
if (0 > mode || 0 == key) { |
557 |
return _RqsError (sst, ERR_INVAL, rspa, cb, cld, "query", |
558 |
"missing mode or key"); |
559 |
} |
560 |
return _RqsQuery (sst, dbn, key, |
561 |
mode, skip, size, flags, rspa, cb, cld); |
562 |
} |
563 |
|
564 |
case OPENISIS_RQST_READ: { |
565 |
int rowid; |
566 |
rowid = rInt (rqs, OPENISIS_COM_ROW, -1, 0); |
567 |
if (0 > rowid) { |
568 |
return _RqsError (sst, ERR_INVAL, rspa, cb, cld, "read", |
569 |
"missing rowid"); |
570 |
} |
571 |
return _RqsRead (sst, dbn, rowid, flags, rspa, cb, cld); |
572 |
} |
573 |
|
574 |
case OPENISIS_RQST_INS: |
575 |
case OPENISIS_RQST_UPD: { |
576 |
Rec *rec, *idx; |
577 |
int rowid = 0; |
578 |
int ins = rtyp == OPENISIS_RQST_INS; |
579 |
rec = luti_unwrap (rqs, 0, OPENISIS_COM_REC, -1); |
580 |
idx = luti_unwrap (rqs, 0, OPENISIS_RQS_IDX, -1); |
581 |
if (!(rec || idx)) { |
582 |
return _RqsError (sst, ERR_INVAL, rspa, cb, cld, |
583 |
"update", "missing record or index"); |
584 |
} |
585 |
rowid = rInt (rqs, OPENISIS_COM_ROW, 0, 0); |
586 |
if (! ins && 0 >= rowid) { |
587 |
return _RqsError (sst, ERR_INVAL, rspa, cb, cld, |
588 |
"update", "missing rowid"); |
589 |
} |
590 |
return _RqsUpdate (sst, dbn, rowid, rec, idx, flags, rspa, cb, cld); |
591 |
} |
592 |
|
593 |
case OPENISIS_RQST_DEL: { |
594 |
int rowid; |
595 |
rowid = rInt (rqs, OPENISIS_COM_ROW, -1, 0); |
596 |
if (0 > rowid) { |
597 |
return _RqsError (sst, ERR_INVAL, rspa, cb, cld, "delete", |
598 |
"missing rowid"); |
599 |
} |
600 |
return _RqsDelete (sst, dbn, rowid, flags, rspa, cb, cld); |
601 |
} |
602 |
|
603 |
case OPENISIS_RQST_EVAL: { |
604 |
Rec *rec; |
605 |
rec = luti_unwrap (rqs, 0, OPENISIS_COM_REC, -1); |
606 |
if (! rec) { |
607 |
return _RqsError (sst, ERR_INVAL, rspa, cb, cld, |
608 |
"eval", "missing command record"); |
609 |
} |
610 |
return _RqsEval (sst, rec, rspa, cb, cld); |
611 |
} |
612 |
|
613 |
} /* switch */ |
614 |
|
615 |
i2a (buf, rtyp); |
616 |
return _RqsError (sst, ERR_INVAL, rspa, cb, cld, buf, |
617 |
"unrecognized request type"); |
618 |
} /* ldspProcess */ |
619 |
|