| 1 | # ---?--- |
| 2 | # |
| 3 | # $Id$ |
| 4 | # |
| 5 | # Key-management interface |
| 6 | # |
| 7 | # (c) 2001 Straylight/Edgeware |
| 8 | # |
| 9 | |
| 10 | #----- Licensing notice ----------------------------------------------------- |
| 11 | # |
| 12 | # This file is part of the Perl interface to Catacomb. |
| 13 | # |
| 14 | # Catacomb/Perl is free software; you can redistribute it and/or modify |
| 15 | # it under the terms of the GNU General Public License as published by |
| 16 | # the Free Software Foundation; either version 2 of the License, or |
| 17 | # (at your option) any later version. |
| 18 | # |
| 19 | # Catacomb/Perl is distributed in the hope that it will be useful, |
| 20 | # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 21 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 22 | # GNU General Public License for more details. |
| 23 | # |
| 24 | # You should have received a copy of the GNU General Public License |
| 25 | # along with Catacomb/Perl; if not, write to the Free Software Foundation, |
| 26 | # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
| 27 | |
| 28 | MODULE = Catacomb PACKAGE = Catacomb::Key PREFIX = key_ |
| 29 | |
| 30 | SV * |
| 31 | DESTROY(k) |
| 32 | Key *k |
| 33 | CODE: |
| 34 | keyfile_dec(k->kf); |
| 35 | DESTROY(k); |
| 36 | XSRETURN_YES; |
| 37 | |
| 38 | bool |
| 39 | key_chkident(me, p) |
| 40 | SV *me |
| 41 | char *p |
| 42 | C_ARGS: |
| 43 | p |
| 44 | |
| 45 | bool |
| 46 | key_chkcomment(me, p) |
| 47 | SV *me |
| 48 | char *p |
| 49 | C_ARGS: |
| 50 | p |
| 51 | |
| 52 | time_t |
| 53 | exp(k) |
| 54 | Key *k |
| 55 | CODE: |
| 56 | RETVAL = k->k->exp; |
| 57 | OUTPUT: |
| 58 | RETVAL |
| 59 | |
| 60 | time_t |
| 61 | del(k) |
| 62 | Key *k |
| 63 | CODE: |
| 64 | RETVAL = k->k->del; |
| 65 | OUTPUT: |
| 66 | RETVAL |
| 67 | |
| 68 | Key_DataImpl * |
| 69 | _data(k) |
| 70 | Key *k |
| 71 | CODE: |
| 72 | RETVAL = &k->k->k; |
| 73 | OUTPUT: |
| 74 | RETVAL |
| 75 | |
| 76 | char * |
| 77 | comment(k) |
| 78 | Key *k |
| 79 | CODE: |
| 80 | RETVAL = k->k->c; |
| 81 | OUTPUT: |
| 82 | RETVAL |
| 83 | |
| 84 | U32 |
| 85 | id(k) |
| 86 | Key *k |
| 87 | CODE: |
| 88 | RETVAL = k->k->id; |
| 89 | OUTPUT: |
| 90 | RETVAL |
| 91 | |
| 92 | char * |
| 93 | tag(k) |
| 94 | Key *k |
| 95 | CODE: |
| 96 | RETVAL = k->k->tag; |
| 97 | OUTPUT: |
| 98 | RETVAL |
| 99 | |
| 100 | char * |
| 101 | type(k) |
| 102 | Key *k |
| 103 | CODE: |
| 104 | RETVAL = k->k->type; |
| 105 | OUTPUT: |
| 106 | RETVAL |
| 107 | |
| 108 | KeyErr |
| 109 | key_setcomment(k, p) |
| 110 | Key *k |
| 111 | char *p |
| 112 | C_ARGS: |
| 113 | &k->kf->kf, k->k, p |
| 114 | |
| 115 | KeyErr |
| 116 | key_settag(k, p) |
| 117 | Key *k |
| 118 | char *p |
| 119 | C_ARGS: |
| 120 | &k->kf->kf, k->k, p |
| 121 | |
| 122 | KeyErr |
| 123 | key_delete(k) |
| 124 | Key *k |
| 125 | C_ARGS: |
| 126 | &k->kf->kf, k->k |
| 127 | |
| 128 | SV * |
| 129 | fulltag(k) |
| 130 | Key *k |
| 131 | PREINIT: |
| 132 | dstr d = DSTR_INIT; |
| 133 | CODE: |
| 134 | key_fulltag(k->k, &d); |
| 135 | RETVAL = newSVpvn(d.buf, d.len); |
| 136 | dstr_destroy(&d); |
| 137 | OUTPUT: |
| 138 | RETVAL |
| 139 | |
| 140 | const char * |
| 141 | key_getattr(k, a) |
| 142 | Key *k |
| 143 | char *a |
| 144 | C_ARGS: |
| 145 | &k->kf->kf, k->k, a |
| 146 | |
| 147 | KeyErr |
| 148 | putattr(k, a, v = &PL_sv_undef) |
| 149 | Key *k |
| 150 | char *a |
| 151 | SV *v |
| 152 | PREINIT: |
| 153 | char *vv; |
| 154 | STRLEN len; |
| 155 | CODE: |
| 156 | if (!SvOK(v)) |
| 157 | vv = 0; |
| 158 | else |
| 159 | vv = SvPV(v, len); |
| 160 | RETVAL = key_putattr(&k->kf->kf, k->k, a, vv); |
| 161 | OUTPUT: |
| 162 | RETVAL |
| 163 | |
| 164 | Key_AttrIter * |
| 165 | attriter(k) |
| 166 | Key *k |
| 167 | CODE: |
| 168 | RETVAL = CREATE(Key_AttrIter); |
| 169 | key_mkattriter(&RETVAL->i, k->k); |
| 170 | RETVAL->kf = k->kf; |
| 171 | k->kf->ref++; |
| 172 | OUTPUT: |
| 173 | RETVAL |
| 174 | |
| 175 | bool |
| 176 | expiredp(k) |
| 177 | Key *k |
| 178 | CODE: |
| 179 | RETVAL = key_expired(k->k); |
| 180 | OUTPUT: |
| 181 | RETVAL |
| 182 | |
| 183 | KeyErr |
| 184 | key_expire(k) |
| 185 | Key *k |
| 186 | C_ARGS: |
| 187 | &k->kf->kf, k->k |
| 188 | |
| 189 | KeyErr |
| 190 | key_used(k, t) |
| 191 | Key *k |
| 192 | time_t t |
| 193 | C_ARGS: |
| 194 | &k->kf->kf, k->k, t |
| 195 | |
| 196 | bool |
| 197 | key_fingerprint(k, h, kf = 0) |
| 198 | Key *k |
| 199 | ghash *h |
| 200 | Key_Filter *kf |
| 201 | C_ARGS: |
| 202 | k->k, h, kf |
| 203 | |
| 204 | const char * |
| 205 | key_strerror(me, err) |
| 206 | SV *me |
| 207 | int err |
| 208 | C_ARGS: |
| 209 | err |
| 210 | |
| 211 | MODULE = Catacomb PACKAGE = Catacomb::Key::AttrIter |
| 212 | |
| 213 | void |
| 214 | next(i) |
| 215 | Key_AttrIter *i |
| 216 | PREINIT: |
| 217 | const char *a, *v; |
| 218 | PPCODE: |
| 219 | if (key_nextattr(&i->i, &a, &v)) { |
| 220 | XPUSHs(sv_2mortal(newSVpv(a, 0))); |
| 221 | if (GIMME_V == G_ARRAY) |
| 222 | XPUSHs(sv_2mortal(newSVpv(v, 0))); |
| 223 | } |
| 224 | |
| 225 | SV * |
| 226 | DESTROY(i) |
| 227 | Key_AttrIter *i |
| 228 | CODE: |
| 229 | keyfile_dec(i->kf); |
| 230 | DESTROY(i); |
| 231 | XSRETURN_YES; |
| 232 | |
| 233 | MODULE = Catacomb PACKAGE = Catacomb::Key::Filter |
| 234 | |
| 235 | Key_Filter * |
| 236 | new(me, f = 0, m = 0) |
| 237 | SV *me |
| 238 | SV *f |
| 239 | SV *m |
| 240 | PREINIT: |
| 241 | char *p; |
| 242 | STRLEN len; |
| 243 | CODE: |
| 244 | RETVAL = CREATE(Key_Filter); |
| 245 | if (!f || !SvOK(f)) |
| 246 | RETVAL->f = RETVAL->m = 0; |
| 247 | else if (m) { |
| 248 | RETVAL->f = SvUV(f); |
| 249 | RETVAL->m = SvUV(m); |
| 250 | } else { |
| 251 | p = SvPV(f, len); |
| 252 | if (key_readflags(p, 0, &RETVAL->f, &RETVAL->m)) { |
| 253 | DESTROY(RETVAL); |
| 254 | RETVAL = 0; |
| 255 | } |
| 256 | } |
| 257 | OUTPUT: |
| 258 | RETVAL |
| 259 | |
| 260 | SV * |
| 261 | DESTROY(kf) |
| 262 | Key_Filter *kf |
| 263 | CODE: |
| 264 | if (!kf) |
| 265 | XSRETURN_UNDEF; |
| 266 | DESTROY(kf); |
| 267 | XSRETURN_YES; |
| 268 | |
| 269 | SV * |
| 270 | tostring(kf) |
| 271 | Key_Filter *kf |
| 272 | PREINIT: |
| 273 | dstr d = DSTR_INIT; |
| 274 | CODE: |
| 275 | if (!kf) |
| 276 | XSRETURN_UNDEF; |
| 277 | key_writeflags(kf->f, &d); |
| 278 | RETVAL = newSVpvn(d.buf, d.len); |
| 279 | dstr_destroy(&d); |
| 280 | OUTPUT: |
| 281 | RETVAL |
| 282 | |
| 283 | UV |
| 284 | f(kf) |
| 285 | Key_Filter *kf |
| 286 | CODE: |
| 287 | RETVAL = kf ? kf->f : 0; |
| 288 | OUTPUT: |
| 289 | RETVAL |
| 290 | |
| 291 | UV |
| 292 | m(kf) |
| 293 | Key_Filter *kf |
| 294 | CODE: |
| 295 | RETVAL = kf ? kf->m : 0; |
| 296 | OUTPUT: |
| 297 | RETVAL |
| 298 | |
| 299 | MODULE = Catacomb PACKAGE = Catacomb::Key::DataImpl PREFIX = key_ |
| 300 | |
| 301 | Key_DataImpl * |
| 302 | new(me) |
| 303 | SV *me |
| 304 | CODE: |
| 305 | RETVAL = CREATE(key_data); |
| 306 | RETVAL->e = 0; |
| 307 | RETVAL->u.k.k = 0; |
| 308 | RETVAL->u.k.sz = 0; |
| 309 | OUTPUT: |
| 310 | RETVAL |
| 311 | |
| 312 | SV * |
| 313 | free(kd) |
| 314 | Key_DataImpl *kd |
| 315 | CODE: |
| 316 | key_destroy(kd); |
| 317 | DESTROY(kd); |
| 318 | XSRETURN_YES; |
| 319 | |
| 320 | SV * |
| 321 | clear(kd) |
| 322 | Key_DataImpl *kd |
| 323 | CODE: |
| 324 | key_destroy(kd); |
| 325 | kd->e = 0; |
| 326 | kd->u.k.k = 0; |
| 327 | kd->u.k.sz = 0; |
| 328 | XSRETURN_YES; |
| 329 | |
| 330 | SV * |
| 331 | setbinary(kd, sv) |
| 332 | Key_DataImpl *kd |
| 333 | SV *sv |
| 334 | PREINIT: |
| 335 | char *p; |
| 336 | STRLEN len; |
| 337 | CODE: |
| 338 | p = SvPV(sv, len); |
| 339 | key_destroy(kd); |
| 340 | key_binary(kd, p, len); |
| 341 | XSRETURN_YES; |
| 342 | |
| 343 | SV * |
| 344 | setencrypted(kd, sv) |
| 345 | Key_DataImpl *kd |
| 346 | SV *sv |
| 347 | PREINIT: |
| 348 | char *p; |
| 349 | STRLEN len; |
| 350 | CODE: |
| 351 | p = SvPV(sv, len); |
| 352 | key_destroy(kd); |
| 353 | key_encrypted(kd, p, len); |
| 354 | XSRETURN_YES; |
| 355 | |
| 356 | SV * |
| 357 | setmp(kd, x) |
| 358 | Key_DataImpl *kd |
| 359 | mp *x |
| 360 | CODE: |
| 361 | key_destroy(kd); |
| 362 | key_mp(kd, x); |
| 363 | XSRETURN_YES; |
| 364 | |
| 365 | SV * |
| 366 | setstring(kd, p) |
| 367 | Key_DataImpl *kd |
| 368 | char *p |
| 369 | CODE: |
| 370 | key_destroy(kd); |
| 371 | key_string(kd, p); |
| 372 | XSRETURN_YES; |
| 373 | |
| 374 | SV * |
| 375 | setec(kd, p) |
| 376 | Key_DataImpl *kd |
| 377 | ec *p |
| 378 | CODE: |
| 379 | key_destroy(kd); |
| 380 | key_ec(kd, p); |
| 381 | XSRETURN_YES; |
| 382 | |
| 383 | U32 |
| 384 | flags(kd) |
| 385 | Key_DataImpl *kd |
| 386 | CODE: |
| 387 | RETVAL = kd->e; |
| 388 | OUTPUT: |
| 389 | RETVAL |
| 390 | |
| 391 | SV * |
| 392 | setflags(kd, f) |
| 393 | Key_DataImpl *kd |
| 394 | U32 f |
| 395 | CODE: |
| 396 | if (f & KF_ENCMASK) |
| 397 | croak("can't change encoding flags"); |
| 398 | kd->e = (kd->e & KF_ENCMASK) | (f & ~KF_ENCMASK); |
| 399 | XSRETURN_YES; |
| 400 | |
| 401 | SV * |
| 402 | getbinary(kd) |
| 403 | Key_DataImpl *kd |
| 404 | CODE: |
| 405 | if ((kd->e & KF_ENCMASK) != KENC_BINARY) |
| 406 | croak("key is not binary"); |
| 407 | RETVAL = newSVpvn(kd->u.k.k, kd->u.k.sz); |
| 408 | OUTPUT: |
| 409 | RETVAL |
| 410 | |
| 411 | SV * |
| 412 | getencrypted(kd) |
| 413 | Key_DataImpl *kd |
| 414 | CODE: |
| 415 | if ((kd->e & KF_ENCMASK) != KENC_ENCRYPT) |
| 416 | croak("key is not encrypted"); |
| 417 | RETVAL = newSVpvn(kd->u.k.k, kd->u.k.sz); |
| 418 | OUTPUT: |
| 419 | RETVAL |
| 420 | |
| 421 | mp * |
| 422 | getmp(kd) |
| 423 | Key_DataImpl *kd |
| 424 | CODE: |
| 425 | if ((kd->e & KF_ENCMASK) != KENC_MP) |
| 426 | croak("key is not bignum"); |
| 427 | RETVAL = MP_COPY(kd->u.m); |
| 428 | OUTPUT: |
| 429 | RETVAL |
| 430 | |
| 431 | ec * |
| 432 | getec(kd) |
| 433 | Key_DataImpl *kd |
| 434 | CODE: |
| 435 | if ((kd->e & KF_ENCMASK) != KENC_EC) |
| 436 | croak("key is not a curve point"); |
| 437 | RETVAL = CREATE(ec); |
| 438 | EC_CREATE(RETVAL); |
| 439 | EC_COPY(RETVAL, &kd->u.e); |
| 440 | OUTPUT: |
| 441 | RETVAL |
| 442 | |
| 443 | char * |
| 444 | getstring(kd) |
| 445 | Key_DataImpl *kd |
| 446 | CODE: |
| 447 | if ((kd->e & KF_ENCMASK) != KENC_STRING) |
| 448 | croak("key is not string"); |
| 449 | RETVAL = kd->u.p; |
| 450 | OUTPUT: |
| 451 | RETVAL |
| 452 | |
| 453 | SV * |
| 454 | setstruct(kd) |
| 455 | Key_DataImpl *kd |
| 456 | CODE: |
| 457 | key_destroy(kd); |
| 458 | key_structure(kd); |
| 459 | XSRETURN_YES; |
| 460 | |
| 461 | Key_DataImpl * |
| 462 | key_structfind(kd, tag) |
| 463 | Key_DataImpl *kd |
| 464 | char *tag |
| 465 | INIT: |
| 466 | if ((kd->e & KF_ENCMASK) != KENC_STRUCT) |
| 467 | XSRETURN_UNDEF; |
| 468 | |
| 469 | Key_DataImpl * |
| 470 | key_structcreate(kd, tag) |
| 471 | Key_DataImpl *kd |
| 472 | char *tag |
| 473 | INIT: |
| 474 | if ((kd->e & KF_ENCMASK) != KENC_STRUCT) |
| 475 | croak("key is not structured"); |
| 476 | |
| 477 | Key_StructIter * |
| 478 | structiter(kd) |
| 479 | Key_DataImpl *kd |
| 480 | CODE: |
| 481 | if ((kd->e & KF_ENCMASK) != KENC_STRUCT) |
| 482 | croak("key is not structured"); |
| 483 | RETVAL = CREATE(Key_StructIter); |
| 484 | sym_mkiter(RETVAL, &kd->u.s); |
| 485 | OUTPUT: |
| 486 | RETVAL |
| 487 | |
| 488 | SV * |
| 489 | structdel(kd, tag) |
| 490 | Key_DataImpl *kd |
| 491 | char *tag |
| 492 | PREINIT: |
| 493 | key_struct *ks; |
| 494 | CODE: |
| 495 | if ((kd->e & KF_ENCMASK) != KENC_STRUCT) |
| 496 | croak("key is not structured"); |
| 497 | if ((ks = sym_find(&kd->u.s, tag, -1, 0, 0)) == 0) |
| 498 | XSRETURN_UNDEF; |
| 499 | key_destroy(&ks->k); |
| 500 | sym_remove(&kd->u.s, ks); |
| 501 | XSRETURN_YES; |
| 502 | |
| 503 | bool |
| 504 | key_match(kd, kf) |
| 505 | Key_DataImpl *kd |
| 506 | Key_Filter *kf |
| 507 | |
| 508 | bool |
| 509 | set(kd, kkd, kf = 0) |
| 510 | Key_DataImpl *kd |
| 511 | Key_DataImpl *kkd |
| 512 | Key_Filter *kf |
| 513 | CODE: |
| 514 | key_destroy(kd); |
| 515 | kd->e = 0; |
| 516 | kd->u.k.k = 0; |
| 517 | kd->u.k.sz = 0; |
| 518 | RETVAL = key_copy(kd, kkd, kf); |
| 519 | OUTPUT: |
| 520 | RETVAL |
| 521 | |
| 522 | Key_DataImpl * |
| 523 | lock(kd, key) |
| 524 | Key_DataImpl *kd |
| 525 | SV *key |
| 526 | PREINIT: |
| 527 | STRLEN len; |
| 528 | char *p; |
| 529 | CODE: |
| 530 | if ((kd->e & KF_ENCMASK) == KENC_ENCRYPT) |
| 531 | croak("already encrypted"); |
| 532 | RETVAL = CREATE(Key_DataImpl); |
| 533 | p = SvPV(key, len); |
| 534 | key_lock(RETVAL, kd, p, len); |
| 535 | OUTPUT: |
| 536 | RETVAL |
| 537 | |
| 538 | Key_DataImpl * |
| 539 | unlock(kd, key) |
| 540 | Key_DataImpl *kd |
| 541 | SV *key |
| 542 | PREINIT: |
| 543 | STRLEN len; |
| 544 | char *p; |
| 545 | int rc; |
| 546 | CODE: |
| 547 | if ((kd->e & KF_ENCMASK) != KENC_ENCRYPT) |
| 548 | croak("not encrypted"); |
| 549 | RETVAL = CREATE(Key_DataImpl); |
| 550 | p = SvPV(key, len); |
| 551 | if ((rc = key_unlock(RETVAL, kd, p, len)) != 0) { |
| 552 | DESTROY(RETVAL); |
| 553 | keyerr(rc); |
| 554 | RETVAL = 0; |
| 555 | } |
| 556 | OUTPUT: |
| 557 | RETVAL |
| 558 | |
| 559 | Key_DataImpl * |
| 560 | plock(kd, tag) |
| 561 | Key_DataImpl *kd |
| 562 | char *tag |
| 563 | PREINIT: |
| 564 | int rc; |
| 565 | CODE: |
| 566 | if ((kd->e & KF_ENCMASK) == KENC_ENCRYPT) |
| 567 | croak("already encrypted"); |
| 568 | RETVAL = CREATE(Key_DataImpl); |
| 569 | if ((rc = key_plock(tag, kd, RETVAL)) != 0) { |
| 570 | DESTROY(RETVAL); |
| 571 | keyerr(rc); |
| 572 | RETVAL = 0; |
| 573 | } |
| 574 | OUTPUT: |
| 575 | RETVAL |
| 576 | |
| 577 | Key_DataImpl * |
| 578 | punlock(kd, tag) |
| 579 | Key_DataImpl *kd |
| 580 | char *tag |
| 581 | PREINIT: |
| 582 | int rc; |
| 583 | CODE: |
| 584 | if ((kd->e & KF_ENCMASK) != KENC_ENCRYPT) |
| 585 | croak("not encrypted"); |
| 586 | RETVAL = CREATE(Key_DataImpl); |
| 587 | if ((rc = key_punlock(tag, kd, RETVAL)) != 0) { |
| 588 | DESTROY(RETVAL); |
| 589 | keyerr(rc); |
| 590 | RETVAL = 0; |
| 591 | } |
| 592 | OUTPUT: |
| 593 | RETVAL |
| 594 | |
| 595 | void |
| 596 | read(me, p) |
| 597 | SV *me |
| 598 | char *p |
| 599 | PREINIT: |
| 600 | key_data *kd; |
| 601 | char *pp; |
| 602 | PPCODE: |
| 603 | kd = CREATE(key_data); |
| 604 | if (key_read(p, kd, &pp)) |
| 605 | DESTROY(kd); |
| 606 | else { |
| 607 | XPUSHs(RET(kd, "Catacomb::Key::DataImpl")); |
| 608 | if (GIMME_V == G_ARRAY) |
| 609 | XPUSHs(sv_2mortal(newSVpvn(pp, strlen(pp)))); |
| 610 | } |
| 611 | |
| 612 | SV * |
| 613 | write(kd, kf = 0) |
| 614 | Key_DataImpl *kd |
| 615 | Key_Filter *kf |
| 616 | PREINIT: |
| 617 | dstr d = DSTR_INIT; |
| 618 | CODE: |
| 619 | if (key_write(kd, &d, kf)) |
| 620 | RETVAL = newSVpvn(d.buf, d.len); |
| 621 | else |
| 622 | RETVAL = &PL_sv_undef; |
| 623 | dstr_destroy(&d); |
| 624 | OUTPUT: |
| 625 | RETVAL |
| 626 | |
| 627 | Key_DataImpl * |
| 628 | decode(me, sv) |
| 629 | SV *me |
| 630 | SV *sv |
| 631 | PREINIT: |
| 632 | char *p; |
| 633 | STRLEN len; |
| 634 | CODE: |
| 635 | p = SvPV(sv, len); |
| 636 | RETVAL = CREATE(key_data); |
| 637 | if (key_decode(p, len, RETVAL)) { |
| 638 | DESTROY(RETVAL); |
| 639 | RETVAL = 0; |
| 640 | } |
| 641 | OUTPUT: |
| 642 | RETVAL |
| 643 | |
| 644 | SV * |
| 645 | encode(kd, kf = 0) |
| 646 | Key_DataImpl *kd |
| 647 | Key_Filter *kf |
| 648 | PREINIT: |
| 649 | dstr d = DSTR_INIT; |
| 650 | CODE: |
| 651 | if (key_encode(kd, &d, kf)) |
| 652 | RETVAL = newSVpvn(d.buf, d.len); |
| 653 | else |
| 654 | RETVAL = &PL_sv_undef; |
| 655 | dstr_destroy(&d); |
| 656 | OUTPUT: |
| 657 | RETVAL |
| 658 | |
| 659 | MODULE = Catacomb PACKAGE = Catacomb::Key::StructIter |
| 660 | |
| 661 | SV * |
| 662 | next(i) |
| 663 | Key_StructIter *i |
| 664 | PREINIT: |
| 665 | key_struct *s; |
| 666 | CODE: |
| 667 | if ((s = sym_next(i)) == 0) |
| 668 | XSRETURN_UNDEF; |
| 669 | RETVAL = newSVpvn(SYM_NAME(s), SYM_LEN(s)); |
| 670 | OUTPUT: |
| 671 | RETVAL |
| 672 | |
| 673 | SV * |
| 674 | DESTROY(i) |
| 675 | Key_StructIter *i |
| 676 | CODE: |
| 677 | DESTROY(i); |
| 678 | XSRETURN_YES; |
| 679 | |
| 680 | MODULE = Catacomb PACKAGE = Catacomb::Key::Data |
| 681 | |
| 682 | void |
| 683 | readflags(me, p) |
| 684 | SV *me |
| 685 | char *p |
| 686 | PREINIT: |
| 687 | unsigned f, m; |
| 688 | PPCODE: |
| 689 | if (key_readflags(p, &p, &f, &m) || *p) |
| 690 | croak("bad flags string"); |
| 691 | XPUSHs(sv_2mortal(newSVuv(m))); |
| 692 | XPUSHs(sv_2mortal(newSVuv(f))); |
| 693 | |
| 694 | SV * |
| 695 | getflags(me, f) |
| 696 | SV *me |
| 697 | U32 f |
| 698 | PREINIT: |
| 699 | dstr d = DSTR_INIT; |
| 700 | CODE: |
| 701 | key_writeflags(f, &d); |
| 702 | RETVAL = newSVpvn(d.buf, d.len); |
| 703 | dstr_destroy(&d); |
| 704 | OUTPUT: |
| 705 | RETVAL |
| 706 | |
| 707 | MODULE = Catacomb PACKAGE = Catacomb::Key::File PREFIX = key_ |
| 708 | |
| 709 | Key_File * |
| 710 | new(me, file, how = KOPEN_READ, report = &PL_sv_undef) |
| 711 | SV *me |
| 712 | char *file |
| 713 | unsigned how |
| 714 | SV *report |
| 715 | CODE: |
| 716 | RETVAL = CREATE(key_file); |
| 717 | if (key_open(&RETVAL->kf, file, how, keyreport, report)) { |
| 718 | DESTROY(RETVAL); |
| 719 | RETVAL = 0; |
| 720 | } |
| 721 | OUTPUT: |
| 722 | RETVAL |
| 723 | |
| 724 | SV * |
| 725 | DESTROY(kf) |
| 726 | Key_File *kf |
| 727 | CODE: |
| 728 | keyfile_dec(kf); |
| 729 | XSRETURN_UNDEF; |
| 730 | |
| 731 | KeyErr |
| 732 | merge(kf, name, fp, report = &PL_sv_undef) |
| 733 | Key_File *kf |
| 734 | char *name |
| 735 | FILE *fp |
| 736 | SV *report |
| 737 | CODE: |
| 738 | RETVAL = key_merge(&kf->kf, name, fp, keyreport, report); |
| 739 | OUTPUT: |
| 740 | RETVAL |
| 741 | |
| 742 | bool |
| 743 | key_extract(kf, k, fp, kfilt = 0) |
| 744 | Key_File *kf |
| 745 | Key *k |
| 746 | FILE *fp |
| 747 | Key_Filter *kfilt |
| 748 | C_ARGS: |
| 749 | &kf->kf, k->k, fp, kfilt |
| 750 | |
| 751 | int |
| 752 | key_save(kf) |
| 753 | Key_File *kf |
| 754 | C_ARGS: |
| 755 | &kf->kf |
| 756 | |
| 757 | Key * |
| 758 | bytype(kf, type) |
| 759 | Key_File *kf |
| 760 | char *type |
| 761 | CODE: |
| 762 | RETVAL = CREATE(Key); |
| 763 | if ((RETVAL->k = key_bytype(&kf->kf, type)) != 0) { |
| 764 | kf->ref++; |
| 765 | RETVAL->kf = kf; |
| 766 | } else { |
| 767 | DESTROY(RETVAL); |
| 768 | RETVAL = 0; |
| 769 | } |
| 770 | OUTPUT: |
| 771 | RETVAL |
| 772 | |
| 773 | Key * |
| 774 | byid(kf, id) |
| 775 | Key_File *kf |
| 776 | U32 id |
| 777 | CODE: |
| 778 | RETVAL = CREATE(Key); |
| 779 | if ((RETVAL->k = key_byid(&kf->kf, id)) != 0) { |
| 780 | kf->ref++; |
| 781 | RETVAL->kf = kf; |
| 782 | } else { |
| 783 | DESTROY(RETVAL); |
| 784 | RETVAL = 0; |
| 785 | } |
| 786 | OUTPUT: |
| 787 | RETVAL |
| 788 | |
| 789 | Key * |
| 790 | bytag(kf, tag) |
| 791 | Key_File *kf |
| 792 | char *tag |
| 793 | CODE: |
| 794 | RETVAL = CREATE(Key); |
| 795 | if ((RETVAL->k = key_bytag(&kf->kf, tag)) != 0) { |
| 796 | kf->ref++; |
| 797 | RETVAL->kf = kf; |
| 798 | } else { |
| 799 | DESTROY(RETVAL); |
| 800 | RETVAL = 0; |
| 801 | } |
| 802 | OUTPUT: |
| 803 | RETVAL |
| 804 | |
| 805 | Key * |
| 806 | newkey(kf, id, type, exp) |
| 807 | Key_File *kf |
| 808 | U32 id |
| 809 | const char *type |
| 810 | time_t exp |
| 811 | PREINIT: |
| 812 | int err; |
| 813 | CODE: |
| 814 | RETVAL = CREATE(Key); |
| 815 | if ((RETVAL->k = key_new(&kf->kf, id, type, exp, &err)) == 0) { |
| 816 | DESTROY(RETVAL); |
| 817 | keyerr(err); |
| 818 | RETVAL = 0; |
| 819 | } else { |
| 820 | kf->ref++; |
| 821 | RETVAL->kf = kf; |
| 822 | } |
| 823 | OUTPUT: |
| 824 | RETVAL |
| 825 | |
| 826 | |
| 827 | Key_FileIter * |
| 828 | iterate(kf) |
| 829 | Key_File *kf |
| 830 | CODE: |
| 831 | RETVAL = CREATE(Key_FileIter); |
| 832 | key_mkiter(&RETVAL->i, &kf->kf); |
| 833 | RETVAL->kf = kf; |
| 834 | kf->ref++; |
| 835 | OUTPUT: |
| 836 | RETVAL |
| 837 | |
| 838 | MODULE = Catacomb PACKAGE = Catacomb::Key::FileIter |
| 839 | |
| 840 | Key * |
| 841 | next(ki) |
| 842 | Key_FileIter *ki |
| 843 | CODE: |
| 844 | RETVAL = CREATE(Key); |
| 845 | if ((RETVAL->k = key_next(&ki->i)) == 0) { |
| 846 | DESTROY(RETVAL); |
| 847 | RETVAL = 0; |
| 848 | } else { |
| 849 | RETVAL->kf = ki->kf; |
| 850 | ki->kf->ref++; |
| 851 | } |
| 852 | OUTPUT: |
| 853 | RETVAL |
| 854 | |
| 855 | SV * |
| 856 | DESTROY(ki) |
| 857 | Key_FileIter *ki |
| 858 | CODE: |
| 859 | keyfile_dec(ki->kf); |
| 860 | DESTROY(ki); |
| 861 | XSRETURN_YES; |
| 862 | |
| 863 | #----- That's all, folks ---------------------------------------------------- |