bindings/solv.i

   1 #
   2 # WARNING: for perl iterator/array support you need to run
   3 #   sed -i -e 's/SvTYPE(tsv) == SVt_PVHV/SvTYPE(tsv) == SVt_PVHV || SvTYPE(tsv) == SVt_PVAV/'
   4 # on the generated c code
   5 #
   6
   7 %module solv
   8
   9 #ifdef SWIGRUBY
  10 %markfunc Pool "mark_Pool";
  11 #endif
  12
  13 #if defined(SWIGPYTHON)
  14 %typemap(in) Queue {
  15   /* Check if is a list */
  16   queue_init(&$1);
  17   if (PyList_Check($input)) {
  18     int size = PyList_Size($input);
  19     int i = 0;
  20     for (i = 0; i < size; i++) {
  21       PyObject *o = PyList_GetItem($input,i);
  22       int v;
  23       int e = SWIG_AsVal_int(o, &v);
  24       if (!SWIG_IsOK(e)) {
  25         SWIG_exception_fail(SWIG_ArgError(e), "list must contain only integers");
  26         queue_free(&$1);
  27         return NULL;
  28       }
  29       queue_push(&$1, v);
  30     }
  31   } else {
  32     PyErr_SetString(PyExc_TypeError,"not a list");
  33     return NULL;
  34   }
  35 }
  36
  37 %typemap(out) Queue {
  38   int i;
  39   PyObject *o = PyList_New($1.count);
  40   for (i = 0; i < $1.count; i++)
  41     PyList_SetItem(o, i, SWIG_From_int($1.elements[i]));
  42   queue_free(&$1);
  43   $result = o;
  44 }
  45
  46 %define Queue2Array(type, step, con) %{
  47   int i;
  48   int cnt = $1.count / step;
  49   Id *idp = $1.elements;
  50   PyObject *o = PyList_New(cnt);
  51   for (i = 0; i < cnt; i++, idp += step)
  52     {
  53       Id id = *idp;
  54 #define result resultx
  55       type result = con;
  56       $typemap(out, type)
  57       PyList_SetItem(o, i, $result);
  58 #undef result
  59     }
  60   queue_free(&$1);
  61   $result = o;
  62 %}
  63
  64 %enddef
  65
  66 #endif
  67
  68
  69 #if defined(SWIGPERL)
  70 %typemap(in) Queue {
  71   AV *av;
  72   int i, size;
  73   queue_init(&$1);
  74   if (!SvROK($input) || SvTYPE(SvRV($input)) != SVt_PVAV)
  75     SWIG_croak("Argument $argnum is not an array reference.");
  76   av = (AV*)SvRV($input);
  77   size = av_len(av);
  78   for (i = 0; i <= size; i++) {
  79     SV **sv = av_fetch(av, i, 0);
  80     int v;
  81     int e = SWIG_AsVal_int(*sv, &v);
  82     if (!SWIG_IsOK(e)) {
  83       SWIG_croak("list must contain only integers");
  84     }
  85     queue_push(&$1, v);
  86   }
  87 }
  88 # AV *o = newAV();
  89 # av_push(o, SvREFCNT_inc(SWIG_From_int($1.elements[i])));
  90 # $result = newRV_noinc((SV*)o); argvi++;
  91 #
  92 %typemap(out) Queue {
  93   int i;
  94   if (argvi + $1.count + 1 >= items) {
  95     EXTEND(sp, (argvi + $1.count + 1) - items + 1);
  96   }
  97   for (i = 0; i < $1.count; i++)
  98     ST(argvi++) = SvREFCNT_inc(SWIG_From_int($1.elements[i]));
  99   queue_free(&$1);
 100   $result = 0;
 101 }
 102 %define Queue2Array(type, step, con) %{
 103   int i;
 104   int cnt = $1.count / step;
 105   Id *idp = $1.elements;
 106   if (argvi + cnt + 1 >= items) {
 107     EXTEND(sp, (argvi + cnt + 1) - items + 1);
 108   }
 109   for (i = 0; i < cnt; i++, idp += step)
 110     {
 111       Id id = *idp;
 112 #define result resultx
 113       type result = con;
 114       $typemap(out, type)
 115       SvREFCNT_inc(ST(argvi - 1));
 116 #undef result
 117     }
 118   queue_free(&$1);
 119   $result = 0;
 120 %}
 121 %enddef
 122
 123 #endif
 124
 125 %typemap(arginit) Queue {
 126   queue_init(&$1);
 127 }
 128 %typemap(freearg) Queue {
 129   queue_free(&$1);
 130 }
 131
 132 #if defined(SWIGRUBY)
 133 %typemap(in) Queue {
 134   int size, i;
 135   VALUE *o;
 136   queue_init(&$1);
 137   size = RARRAY_LEN($input);
 138   i = 0;
 139   o = RARRAY_PTR($input);
 140   for (i = 0; i < size; i++, o++) {
 141     int v;
 142     int e = SWIG_AsVal_int(*o, &v);
 143     if (!SWIG_IsOK(e))
 144       {
 145         SWIG_Error(SWIG_RuntimeError, "list must contain only integers");
 146         SWIG_fail;
 147       }
 148     queue_push(&$1, v);
 149   }
 150 }
 151 %typemap(out) Queue {
 152   int i;
 153   VALUE o = rb_ary_new2($1.count);
 154   for (i = 0; i < $1.count; i++)
 155     rb_ary_store(o, i, SWIG_From_int($1.elements[i]));
 156   queue_free(&$1);
 157   $result = o;
 158 }
 159 %typemap(arginit) Queue {
 160   queue_init(&$1);
 161 }
 162 %typemap(freearg) Queue {
 163   queue_free(&$1);
 164 }
 165 %define Queue2Array(type, step, con) %{
 166   int i;
 167   int cnt = $1.count / step;
 168   Id *idp = $1.elements;
 169   VALUE o = rb_ary_new2(cnt);
 170   for (i = 0; i < cnt; i++, idp += step)
 171     {
 172       Id id = *idp;
 173 #define result resultx
 174       type result = con;
 175       $typemap(out, type)
 176       rb_ary_store(o, i, $result);
 177 #undef result
 178     }
 179   queue_free(&$1);
 180   $result = o;
 181 %}
 182 %enddef
 183 #endif
 184
 185
 186
 187
 188 #if defined(SWIGPERL)
 189
 190 # work around a swig bug
 191 %{
 192 #undef SWIG_CALLXS
 193 #ifdef PERL_OBJECT
 194 #  define SWIG_CALLXS(_name) TOPMARK=MARK-PL_stack_base;_name(cv,pPerl)
 195 #else
 196 #  ifndef MULTIPLICITY
 197 #    define SWIG_CALLXS(_name) TOPMARK=MARK-PL_stack_base;_name(cv)
 198 #  else
 199 #    define SWIG_CALLXS(_name) TOPMARK=MARK-PL_stack_base;_name(PERL_GET_THX, cv)
 200 #  endif
 201 #endif
 202 %}
 203
 204
 205 %define perliter(class)
 206   %perlcode {
 207     sub class##::FETCH {
 208       my $i = ${##class##::ITERATORS}{$_[0]};
 209       if ($i) {
 210         $_[1] == $i->[0] - 1 ? $i->[1] : undef;
 211       } else {
 212         $_[0]->__getitem__($_[1]);
 213       }
 214     }
 215     sub class##::FETCHSIZE {
 216       my $i = ${##class##::ITERATORS}{$_[0]};
 217       if ($i) {
 218         ($i->[1] = $_[0]->__next__()) ? ++$i->[0]  : 0;
 219       } else {
 220         $_[0]->__len__();
 221       }
 222     }
 223   }
 224 %enddef
 225
 226 %{
 227
 228 #define SWIG_PERL_ITERATOR      0x80
 229
 230 SWIGRUNTIMEINLINE SV *
 231 SWIG_Perl_NewArrayObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
 232   SV *result = sv_newmortal();
 233   if (ptr && (flags & (SWIG_SHADOW | SWIG_POINTER_OWN))) {
 234     SV *self;
 235     SV *obj=newSV(0);
 236     AV *array=newAV();
 237     HV *stash;
 238     sv_setref_pv(obj, (char *) SWIG_Perl_TypeProxyName(t), ptr);
 239     stash=SvSTASH(SvRV(obj));
 240     if (flags & SWIG_POINTER_OWN) {
 241       HV *hv;
 242       GV *gv=*(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
 243       if (!isGV(gv))
 244         gv_init(gv, stash, "OWNER", 5, FALSE);
 245       hv=GvHVn(gv);
 246       hv_store_ent(hv, obj, newSViv(1), 0);
 247     }
 248     if (flags & SWIG_PERL_ITERATOR) {
 249       HV *hv;
 250       GV *gv=*(GV**)hv_fetch(stash, "ITERATORS", 9, TRUE);
 251       AV *av=newAV();
 252       if (!isGV(gv))
 253         gv_init(gv, stash, "ITERATORS", 9, FALSE);
 254       hv=GvHVn(gv);
 255       hv_store_ent(hv, obj, newRV_inc((SV *)av), 0);
 256     }
 257     sv_magic((SV *)array, (SV *)obj, 'P', Nullch, 0);
 258     SvREFCNT_dec(obj);
 259     self=newRV_noinc((SV *)array);
 260     sv_setsv(result, self);
 261     SvREFCNT_dec((SV *)self);
 262     sv_bless(result, stash);
 263   } else {
 264     sv_setref_pv(result, (char *) SWIG_Perl_TypeProxyName(t), ptr);
 265   }
 266   return result;
 267 }
 268
 269 %}
 270
 271 %typemap(out) Perlarray {
 272   ST(argvi) = SWIG_Perl_NewArrayObj(SWIG_PERL_OBJECT_CALL SWIG_as_voidptr(result), $1_descriptor, $owner | $shadow); argvi++;
 273 }
 274 %typemap(out) Perliterator {
 275   ST(argvi) = SWIG_Perl_NewArrayObj(SWIG_PERL_OBJECT_CALL SWIG_as_voidptr(result), $1_descriptor, $owner | $shadow | SWIG_PERL_ITERATOR); argvi++;
 276 }
 277
 278 %typemap(out) Pool_solvable_iterator * = Perlarray;
 279 %typemap(out) Pool_solvable_iterator * solvables_iter = Perliterator;
 280 %typemap(out) Pool_repo_iterator * = Perlarray;
 281 %typemap(out) Pool_repo_iterator * repos_iter = Perliterator;
 282 %typemap(out) Repo_solvable_iterator * = Perlarray;
 283 %typemap(out) Repo_solvable_iterator * solvables_iter = Perliterator;
 284 %typemap(out) Dataiterator * = Perliterator;
 285
 286 #endif
 287
 288
 289 #if defined(SWIGPYTHON)
 290 typedef PyObject *AppObjectPtr;
 291 %typemap(out) AppObjectPtr {
 292   $result = $1 ? $1 : Py_None;
 293   Py_INCREF($result);
 294 }
 295 #endif
 296 #if defined(SWIGPERL)
 297 typedef SV *AppObjectPtr;
 298 %typemap(in) AppObjectPtr {
 299   $1 = SvROK($input) ? SvRV($input) : 0;
 300 }
 301 %typemap(out) AppObjectPtr {
 302   $result = $1 ? newRV_inc($1) : newSV(0);
 303   argvi++;
 304 }
 305 #endif
 306 #if defined(SWIGRUBY)
 307 typedef VALUE AppObjectPtr;
 308 %typemap(in) AppObjectPtr {
 309   $1 = (void *)$input;
 310 }
 311 %typemap(out) AppObjectPtr {
 312   $result = (VALUE)$1;
 313 }
 314 #endif
 315
 316
 317 %include "cdata.i"
 318 #ifdef SWIGPYTHON
 319 %include "file.i"
 320 #else
 321 %fragment("SWIG_AsValFilePtr","header") {}
 322 #endif
 323
 324
 325 %fragment("SWIG_AsValSolvFpPtr","header", fragment="SWIG_AsValFilePtr") {
 326
 327 SWIGINTERN int
 328 #ifdef SWIGRUBY
 329 SWIG_AsValSolvFpPtr(VALUE obj, FILE **val) {
 330 #else
 331 SWIG_AsValSolvFpPtr(void *obj, FILE **val) {
 332 #endif
 333   static swig_type_info* desc = 0;
 334   void *vptr = 0;
 335   int ecode;
 336
 337   if (!desc) desc = SWIG_TypeQuery("SolvFp *");
 338   if ((SWIG_ConvertPtr(obj, &vptr, desc, 0)) == SWIG_OK) {
 339     if (val)
 340       *val = vptr ? ((SolvFp *)vptr)->fp : 0;
 341     return SWIG_OK;
 342   }
 343 #ifdef SWIGPYTHON
 344   ecode = SWIG_AsValFilePtr(obj, val);
 345   if (ecode == SWIG_OK)
 346     return ecode;
 347 #endif
 348   return SWIG_TypeError;
 349 }
 350
 351 }
 352
 353
 354 %fragment("SWIG_AsValDepId","header") {
 355
 356 SWIGINTERN int
 357 #ifdef SWIGRUBY
 358 SWIG_AsValDepId(VALUE obj, int *val) {
 359 #else
 360 SWIG_AsValDepId(void *obj, int *val) {
 361 #endif
 362   static swig_type_info* desc = 0;
 363   void *vptr = 0;
 364   int ecode;
 365   if (!desc) desc = SWIG_TypeQuery("Dep *");
 366   ecode = SWIG_AsVal_int(obj, val);
 367   if (SWIG_IsOK(ecode))
 368     return ecode;
 369   if ((SWIG_ConvertPtr(obj, &vptr, desc, 0)) == SWIG_OK) {
 370     if (val)
 371       *val = vptr ? ((Dep *)vptr)->id : 0;
 372     return SWIG_OK;
 373   }
 374   return SWIG_TypeError;
 375 }
 376
 377 }
 378
 379
 380
 381 %include "typemaps.i"
 382
 383 %typemaps_asval(%checkcode(POINTER), SWIG_AsValSolvFpPtr, "SWIG_AsValSolvFpPtr", FILE*);
 384 %typemaps_asval(%checkcode(INT32), SWIG_AsValDepId, "SWIG_AsValDepId", DepId);
 385
 386
 387 %{
 388 #include <stdbool.h>
 389 #include <stdio.h>
 390 #include <sys/stat.h>
 391 #include <sys/utsname.h>
 392 #include <sys/types.h>
 393 #include <unistd.h>
 394
 395 /* argh, swig undefs bool for perl */
 396 #ifndef bool
 397 typedef int bool;
 398 #endif
 399
 400 #include "pool.h"
 401 #include "poolarch.h"
 402 #include "solver.h"
 403 #include "policy.h"
 404 #include "solverdebug.h"
 405 #include "repo_solv.h"
 406 #include "chksum.h"
 407 #include "selection.h"
 408
 409 #include "repo_write.h"
 410 #ifdef ENABLE_RPMDB
 411 #include "repo_rpmdb.h"
 412 #endif
 413 #ifdef ENABLE_RPMDB_PUBKEYS
 414 #include "repo_rpmdb_pubkey.h"
 415 #endif
 416 #ifdef ENABLE_DEBIAN
 417 #include "repo_deb.h"
 418 #endif
 419 #ifdef ENABLE_RPMMD
 420 #include "repo_rpmmd.h"
 421 #include "repo_updateinfoxml.h"
 422 #include "repo_deltainfoxml.h"
 423 #include "repo_repomdxml.h"
 424 #endif
 425 #ifdef ENABLE_SUSEREPO
 426 #include "repo_products.h"
 427 #include "repo_susetags.h"
 428 #include "repo_content.h"
 429 #endif
 430 #ifdef ENABLE_MDKREPO
 431 #include "repo_mdk.h"
 432 #endif
 433 #ifdef ENABLE_ARCHREPO
 434 #include "repo_arch.h"
 435 #endif
 436 #include "solv_xfopen.h"
 437
 438 /* for old ruby versions */
 439 #ifndef RARRAY_PTR
 440 #define RARRAY_PTR(ary) (RARRAY(ary)->ptr)
 441 #endif
 442 #ifndef RARRAY_LEN
 443 #define RARRAY_LEN(ary) (RARRAY(ary)->len)
 444 #endif
 445
 446 #define SOLVER_SOLUTION_ERASE                   -100
 447 #define SOLVER_SOLUTION_REPLACE                 -101
 448 #define SOLVER_SOLUTION_REPLACE_DOWNGRADE       -102
 449 #define SOLVER_SOLUTION_REPLACE_ARCHCHANGE      -103
 450 #define SOLVER_SOLUTION_REPLACE_VENDORCHANGE    -104
 451 #define SOLVER_SOLUTION_REPLACE_NAMECHANGE      -105
 452
 453 typedef struct chksum Chksum;
 454 typedef void *AppObjectPtr;
 455 typedef Id DepId;
 456
 457 typedef struct {
 458   Pool *pool;
 459   Id id;
 460 } Dep;
 461
 462 typedef struct {
 463   Pool *pool;
 464   Id id;
 465 } XSolvable;
 466
 467 typedef struct {
 468   Solver *solv;
 469   Id id;
 470 } XRule;
 471
 472 typedef struct {
 473   Repo *repo;
 474   Id id;
 475 } XRepodata;
 476
 477 typedef struct {
 478   Pool *pool;
 479   Id id;
 480 } Pool_solvable_iterator;
 481
 482 typedef struct {
 483   Pool *pool;
 484   Id id;
 485 } Pool_repo_iterator;
 486
 487 typedef struct {
 488   Repo *repo;
 489   Id id;
 490 } Repo_solvable_iterator;
 491
 492 typedef struct {
 493   Pool *pool;
 494   int how;
 495   Id what;
 496 } Job;
 497
 498 typedef struct {
 499   Solver *solv;
 500   Id id;
 501 } Problem;
 502
 503 typedef struct {
 504   Solver *solv;
 505   Id problemid;
 506   Id id;
 507 } Solution;
 508
 509 typedef struct {
 510   Solver *solv;
 511   Id problemid;
 512   Id solutionid;
 513   Id id;
 514
 515   Id type;
 516   Id p;
 517   Id rp;
 518 } Solutionelement;
 519
 520 typedef struct {
 521   Solver *solv;
 522   Id rid;
 523   Id type;
 524   Id source;
 525   Id target;
 526   Id dep_id;
 527 } Ruleinfo;
 528
 529 typedef struct {
 530   Transaction *transaction;
 531   int mode;
 532   Id type;
 533   int count;
 534   Id fromid;
 535   Id toid;
 536 } TransactionClass;
 537
 538 typedef struct {
 539   Pool *pool;
 540   Queue q;
 541   int flags;
 542 } Selection;
 543
 544 typedef struct {
 545   FILE *fp;
 546 } SolvFp;
 547
 548 typedef Dataiterator Datamatch;
 549
 550 %}
 551
 552 #ifdef SWIGRUBY
 553 %mixin Dataiterator "Enumerable";
 554 %mixin Pool_solvable_iterator "Enumerable";
 555 %mixin Pool_repo_iterator "Enumerable";
 556 %mixin Repo_solvable_iterator "Enumerable";
 557 #endif
 558
 559 typedef int Id;
 560
 561 %include "knownid.h"
 562
 563 # from repodata.h
 564 %constant Id SOLVID_META;
 565 %constant Id SOLVID_POS;
 566
 567 %constant int REL_EQ;
 568 %constant int REL_GT;
 569 %constant int REL_LT;
 570 %constant int REL_ARCH;
 571
 572 typedef struct {
 573   Pool* const pool;
 574 } Selection;
 575
 576 typedef struct {
 577   Pool* const pool;
 578   Id const id;
 579 } Dep;
 580
 581 # put before pool/repo so we can access the constructor
 582 %nodefaultdtor Dataiterator;
 583 typedef struct {} Dataiterator;
 584
 585 typedef struct {
 586   Pool* const pool;
 587   Id const id;
 588 } XSolvable;
 589
 590 typedef struct {
 591   Solver* const solv;
 592   Id const type;
 593   Id const dep_id;
 594 } Ruleinfo;
 595
 596 typedef struct {
 597   Solver* const solv;
 598   Id const id;
 599 } XRule;
 600
 601 typedef struct {
 602   Repo* const repo;
 603   Id const id;
 604 } XRepodata;
 605
 606 typedef struct {} Pool_solvable_iterator;
 607 typedef struct {} Pool_repo_iterator;
 608 typedef struct {} Repo_solvable_iterator;
 609
 610 %nodefaultctor Datamatch;
 611 %nodefaultdtor Datamatch;
 612 typedef struct {
 613   Pool * const pool;
 614   Repo * const repo;
 615   Id const solvid;
 616 } Datamatch;
 617
 618 %nodefaultctor Datapos;
 619 typedef struct {
 620   Repo * const repo;
 621 } Datapos;
 622
 623 typedef struct {
 624   Pool * const pool;
 625   int how;
 626   Id what;
 627 } Job;
 628
 629 %nodefaultctor Pool;
 630 %nodefaultdtor Pool;
 631 typedef struct {
 632   AppObjectPtr appdata;
 633 } Pool;
 634
 635 %nodefaultctor Repo;
 636 %nodefaultdtor Repo;
 637 typedef struct {
 638   Pool * const pool;
 639   const char * const name;
 640   int priority;
 641   int subpriority;
 642   int const nsolvables;
 643   AppObjectPtr appdata;
 644 } Repo;
 645
 646 %nodefaultctor Solver;
 647 %nodefaultdtor Solver;
 648 typedef struct {
 649   Pool * const pool;
 650 } Solver;
 651
 652 typedef struct {
 653 } Chksum;
 654
 655 %rename(xfopen) solvfp_xfopen;
 656 %rename(xfopen_fd) solvfp_xfopen_fd;
 657
 658 %nodefaultctor SolvFp;
 659 typedef struct {
 660 } SolvFp;
 661
 662 %newobject solvfp_xfopen;
 663 %newobject solvfp_xfopen_fd;
 664
 665 SolvFp *solvfp_xfopen(const char *fn, const char *mode = 0);
 666 SolvFp *solvfp_xfopen_fd(const char *fn, int fd, const char *mode = 0);
 667
 668 %{
 669   SWIGINTERN SolvFp *solvfp_xfopen_fd(const char *fn, int fd, const char *mode) {
 670     SolvFp *sfp;
 671     FILE *fp;
 672     fd = dup(fd);
 673     fp = fd == -1 ? 0 : solv_xfopen_fd(fn, fd, mode);
 674     if (!fp)
 675       return 0;
 676     sfp = solv_calloc(1, sizeof(SolvFp));
 677     sfp->fp = fp;
 678     return sfp;
 679   }
 680   SWIGINTERN SolvFp *solvfp_xfopen(const char *fn, const char *mode) {
 681     SolvFp *sfp;
 682     FILE *fp;
 683     fp = solv_xfopen(fn, mode);
 684     if (!fp)
 685       return 0;
 686     sfp = solv_calloc(1, sizeof(SolvFp));
 687     sfp->fp = fp;
 688     return sfp;
 689   }
 690 %}
 691
 692 typedef struct {
 693   Solver * const solv;
 694   Id const id;
 695 } Problem;
 696
 697 typedef struct {
 698   Solver * const solv;
 699   Id const problemid;
 700   Id const id;
 701 } Solution;
 702
 703 typedef struct {
 704   Solver *const solv;
 705   Id const problemid;
 706   Id const solutionid;
 707   Id const id;
 708   Id const type;
 709 } Solutionelement;
 710
 711 %nodefaultctor Transaction;
 712 %nodefaultdtor Transaction;
 713 typedef struct {
 714   Pool * const pool;
 715 } Transaction;
 716
 717 typedef struct {
 718   Transaction * const transaction;
 719   Id const type;
 720   Id const fromid;
 721   Id const toid;
 722   int const count;
 723 } TransactionClass;
 724
 725 %extend SolvFp {
 726   ~SolvFp() {
 727     if ($self->fp)
 728       fclose($self->fp);
 729     free($self);
 730   }
 731   int fileno() {
 732     return $self->fp ? fileno($self->fp) : -1;
 733   }
 734   int dup() {
 735     return $self->fp ? dup(fileno($self->fp)) : -1;
 736   }
 737   bool flush() {
 738     if (!$self->fp)
 739       return 1;
 740     return fflush($self->fp) == 0;
 741   }
 742   bool close() {
 743     bool ret;
 744     if (!$self->fp)
 745       return 1;
 746     ret = fclose($self->fp) == 0;
 747     $self->fp = 0;
 748     return ret;
 749   }
 750 }
 751
 752 %extend Job {
 753   static const Id SOLVER_SOLVABLE = SOLVER_SOLVABLE;
 754   static const Id SOLVER_SOLVABLE_NAME = SOLVER_SOLVABLE_NAME;
 755   static const Id SOLVER_SOLVABLE_PROVIDES = SOLVER_SOLVABLE_PROVIDES;
 756   static const Id SOLVER_SOLVABLE_ONE_OF = SOLVER_SOLVABLE_ONE_OF;
 757   static const Id SOLVER_SOLVABLE_REPO = SOLVER_SOLVABLE_REPO;
 758   static const Id SOLVER_SOLVABLE_ALL = SOLVER_SOLVABLE_ALL;
 759   static const Id SOLVER_SELECTMASK = SOLVER_SELECTMASK;
 760   static const Id SOLVER_NOOP = SOLVER_NOOP;
 761   static const Id SOLVER_INSTALL = SOLVER_INSTALL;
 762   static const Id SOLVER_ERASE = SOLVER_ERASE;
 763   static const Id SOLVER_UPDATE = SOLVER_UPDATE;
 764   static const Id SOLVER_WEAKENDEPS = SOLVER_WEAKENDEPS;
 765   static const Id SOLVER_MULTIVERSION = SOLVER_MULTIVERSION;
 766   static const Id SOLVER_LOCK = SOLVER_LOCK;
 767   static const Id SOLVER_DISTUPGRADE = SOLVER_DISTUPGRADE;
 768   static const Id SOLVER_VERIFY = SOLVER_VERIFY;
 769   static const Id SOLVER_DROP_ORPHANED = SOLVER_DROP_ORPHANED;
 770   static const Id SOLVER_USERINSTALLED = SOLVER_USERINSTALLED;
 771   static const Id SOLVER_JOBMASK = SOLVER_JOBMASK;
 772   static const Id SOLVER_WEAK = SOLVER_WEAK;
 773   static const Id SOLVER_ESSENTIAL = SOLVER_ESSENTIAL;
 774   static const Id SOLVER_CLEANDEPS = SOLVER_CLEANDEPS;
 775   static const Id SOLVER_FORCEBEST = SOLVER_FORCEBEST;
 776   static const Id SOLVER_TARGETED = SOLVER_TARGETED;
 777   static const Id SOLVER_SETEV = SOLVER_SETEV;
 778   static const Id SOLVER_SETEVR = SOLVER_SETEVR;
 779   static const Id SOLVER_SETARCH = SOLVER_SETARCH;
 780   static const Id SOLVER_SETVENDOR = SOLVER_SETVENDOR;
 781   static const Id SOLVER_SETREPO = SOLVER_SETREPO;
 782   static const Id SOLVER_SETNAME = SOLVER_SETNAME;
 783   static const Id SOLVER_NOAUTOSET = SOLVER_NOAUTOSET;
 784   static const Id SOLVER_SETMASK = SOLVER_SETMASK;
 785
 786   Job(Pool *pool, int how, Id what) {
 787     Job *job = solv_calloc(1, sizeof(*job));
 788     job->pool = pool;
 789     job->how = how;
 790     job->what = what;
 791     return job;
 792   }
 793
 794   %typemap(out) Queue solvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
 795   %newobject solvables;
 796   Queue solvables() {
 797     Queue q;
 798     queue_init(&q);
 799     pool_job2solvables($self->pool, &q, $self->how, $self->what);
 800     return q;
 801   }
 802 #ifdef SWIGRUBY
 803   %rename("isemptyupdate?") isemptyupdate;
 804 #endif
 805   bool isemptyupdate() {
 806     return pool_isemptyupdatejob($self->pool, $self->how, $self->what);
 807   }
 808
 809   bool __eq__(Job *j) {
 810     return $self->pool == j->pool && $self->how == j->how && $self->what == j->what;
 811   }
 812   bool __ne__(Job *j) {
 813     return !Job___eq__($self, j);
 814   }
 815 #if defined(SWIGPERL)
 816   %rename("str") __str__;
 817 #endif
 818   const char *__str__() {
 819     return pool_job2str($self->pool, $self->how, $self->what, 0);
 820   }
 821   const char *__repr__() {
 822     const char *str = pool_job2str($self->pool, $self->how, $self->what, ~0);
 823     return pool_tmpjoin($self->pool, "<Job ", str, ">");
 824   }
 825 }
 826
 827 %extend Selection {
 828   static const Id SELECTION_NAME = SELECTION_NAME;
 829   static const Id SELECTION_PROVIDES = SELECTION_PROVIDES;
 830   static const Id SELECTION_FILELIST = SELECTION_FILELIST;
 831   static const Id SELECTION_CANON = SELECTION_CANON;
 832   static const Id SELECTION_DOTARCH = SELECTION_DOTARCH;
 833   static const Id SELECTION_REL = SELECTION_REL;
 834   static const Id SELECTION_INSTALLED_ONLY = SELECTION_INSTALLED_ONLY;
 835   static const Id SELECTION_GLOB = SELECTION_GLOB;
 836   static const Id SELECTION_FLAT = SELECTION_FLAT;
 837   static const Id SELECTION_NOCASE = SELECTION_NOCASE;
 838   static const Id SELECTION_SOURCE_ONLY = SELECTION_SOURCE_ONLY;
 839   static const Id SELECTION_WITH_SOURCE = SELECTION_WITH_SOURCE;
 840
 841   Selection(Pool *pool) {
 842     Selection *s;
 843     s = solv_calloc(1, sizeof(*s));
 844     s->pool = pool;
 845     return s;
 846   }
 847
 848   ~Selection() {
 849     queue_free(&$self->q);
 850     solv_free($self);
 851   }
 852   int flags() {
 853     return $self->flags;
 854   }
 855 #ifdef SWIGRUBY
 856   %rename("isempty?") isempty;
 857 #endif
 858   bool isempty() {
 859     return $self->q.count == 0;
 860   }
 861   void filter(Selection *lsel) {
 862     if ($self->pool != lsel->pool)
 863       queue_empty(&$self->q);
 864     else
 865       selection_filter($self->pool, &$self->q, &lsel->q);
 866   }
 867   void add(Selection *lsel) {
 868     if ($self->pool == lsel->pool)
 869       {
 870         selection_add($self->pool, &$self->q, &lsel->q);
 871         $self->flags |= lsel->flags;
 872       }
 873   }
 874   void add_raw(Id how, Id what) {
 875     queue_push2(&$self->q, how, what);
 876   }
 877   %typemap(out) Queue jobs Queue2Array(Job *, 2, new_Job(arg1->pool, id, idp[1]));
 878   %newobject jobs;
 879   Queue jobs(int flags) {
 880     Queue q;
 881     int i;
 882     queue_init_clone(&q, &$self->q);
 883     for (i = 0; i < q.count; i += 2)
 884       q.elements[i] |= flags;
 885     return q;
 886   }
 887
 888   %typemap(out) Queue solvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
 889   %newobject solvables;
 890   Queue solvables() {
 891     Queue q;
 892     queue_init(&q);
 893     selection_solvables($self->pool, &$self->q, &q);
 894     return q;
 895   }
 896
 897 #if defined(SWIGPERL)
 898   %rename("str") __str__;
 899 #endif
 900   const char *__str__() {
 901     return pool_selection2str($self->pool, &$self->q, 0);
 902   }
 903   const char *__repr__() {
 904     const char *str = pool_selection2str($self->pool, &$self->q, ~0);
 905     return pool_tmpjoin($self->pool, "<Selection ", str, ">");
 906   }
 907 }
 908
 909 %extend Chksum {
 910   Chksum(Id type) {
 911     return (Chksum *)solv_chksum_create(type);
 912   }
 913   Chksum(Id type, const char *hex) {
 914     unsigned char buf[64];
 915     int l = solv_chksum_len(type);
 916     if (!l)
 917       return 0;
 918     if (solv_hex2bin(&hex, buf, sizeof(buf)) != l || hex[0])
 919       return 0;
 920     return (Chksum *)solv_chksum_create_from_bin(type, buf);
 921   }
 922   ~Chksum() {
 923     solv_chksum_free($self, 0);
 924   }
 925   Id const type;
 926   %{
 927   SWIGINTERN Id Chksum_type_get(Chksum *chksum) {
 928     return solv_chksum_get_type(chksum);
 929   }
 930   %}
 931   void add(const char *str) {
 932     solv_chksum_add($self, str, strlen((char *)str));
 933   }
 934   void add_fp(FILE *fp) {
 935     char buf[4096];
 936     int l;
 937     while ((l = fread(buf, 1, sizeof(buf), fp)) > 0)
 938       solv_chksum_add($self, buf, l);
 939     rewind(fp);         /* convenience */
 940   }
 941   void add_fd(int fd) {
 942     char buf[4096];
 943     int l;
 944     while ((l = read(fd, buf, sizeof(buf))) > 0)
 945       solv_chksum_add($self, buf, l);
 946     lseek(fd, 0, 0);    /* convenience */
 947   }
 948   void add_stat(const char *filename) {
 949     struct stat stb;
 950     if (stat(filename, &stb))
 951       memset(&stb, 0, sizeof(stb));
 952     solv_chksum_add($self, &stb.st_dev, sizeof(stb.st_dev));
 953     solv_chksum_add($self, &stb.st_ino, sizeof(stb.st_ino));
 954     solv_chksum_add($self, &stb.st_size, sizeof(stb.st_size));
 955     solv_chksum_add($self, &stb.st_mtime, sizeof(stb.st_mtime));
 956   }
 957   void add_fstat(int fd) {
 958     struct stat stb;
 959     if (fstat(fd, &stb))
 960       memset(&stb, 0, sizeof(stb));
 961     solv_chksum_add($self, &stb.st_dev, sizeof(stb.st_dev));
 962     solv_chksum_add($self, &stb.st_ino, sizeof(stb.st_ino));
 963     solv_chksum_add($self, &stb.st_size, sizeof(stb.st_size));
 964     solv_chksum_add($self, &stb.st_mtime, sizeof(stb.st_mtime));
 965   }
 966   SWIGCDATA raw() {
 967     int l;
 968     const unsigned char *b;
 969     b = solv_chksum_get($self, &l);
 970     return cdata_void((void *)b, l);
 971   }
 972   %newobject hex;
 973   char *hex() {
 974     int l;
 975     const unsigned char *b;
 976     char *ret;
 977
 978     b = solv_chksum_get($self, &l);
 979     ret = solv_malloc(2 * l + 1);
 980     solv_bin2hex(b, l, ret);
 981     return ret;
 982   }
 983
 984   bool __eq__(Chksum *chk) {
 985     int l;
 986     const unsigned char *b, *bo;
 987     if (!chk)
 988       return 0;
 989     if (solv_chksum_get_type($self) != solv_chksum_get_type(chk))
 990       return 0;
 991     b = solv_chksum_get($self, &l);
 992     bo = solv_chksum_get(chk, 0);
 993     return memcmp(b, bo, l) == 0;
 994   }
 995   bool __ne__(Chksum *chk) {
 996     return !Chksum___eq__($self, chk);
 997   }
 998 #if defined(SWIGRUBY)
 999   %rename("to_s") __str__;
1000 #endif
1001 #if defined(SWIGPERL)
1002   %rename("str") __str__;
1003 #endif
1004   %newobject __str__;
1005   const char *__str__() {
1006     const char *str;
1007     const char *h = 0;
1008     if (solv_chksum_isfinished($self))
1009       h = Chksum_hex($self);
1010     str = solv_dupjoin(solv_chksum_type2str(solv_chksum_get_type($self)), ":", h ? h : "unfinished");
1011     solv_free((void *)h);
1012     return str;
1013   }
1014   %newobject __repr__;
1015   const char *__repr__() {
1016     const char *h = Chksum___str__($self);
1017     const char *str = solv_dupjoin("<Chksum ", h, ">");
1018     solv_free((void *)h);
1019     return str;
1020   }
1021 }
1022
1023 %extend Pool {
1024   static const int POOL_FLAG_PROMOTEEPOCH = POOL_FLAG_PROMOTEEPOCH;
1025   static const int POOL_FLAG_FORBIDSELFCONFLICTS = POOL_FLAG_FORBIDSELFCONFLICTS;
1026   static const int POOL_FLAG_OBSOLETEUSESPROVIDES = POOL_FLAG_OBSOLETEUSESPROVIDES;
1027   static const int POOL_FLAG_IMPLICITOBSOLETEUSESPROVIDES = POOL_FLAG_IMPLICITOBSOLETEUSESPROVIDES;
1028   static const int POOL_FLAG_OBSOLETEUSESCOLORS = POOL_FLAG_OBSOLETEUSESCOLORS;
1029   static const int POOL_FLAG_IMPLICITOBSOLETEUSESCOLORS = POOL_FLAG_IMPLICITOBSOLETEUSESCOLORS;
1030   static const int POOL_FLAG_NOINSTALLEDOBSOLETES = POOL_FLAG_NOINSTALLEDOBSOLETES;
1031   static const int POOL_FLAG_HAVEDISTEPOCH = POOL_FLAG_HAVEDISTEPOCH;
1032   static const int POOL_FLAG_NOOBSOLETESMULTIVERSION = POOL_FLAG_NOOBSOLETESMULTIVERSION;
1033
1034   Pool() {
1035     Pool *pool = pool_create();
1036     return pool;
1037   }
1038   ~Pool() {
1039   }
1040   void set_debuglevel(int level) {
1041     pool_setdebuglevel($self, level);
1042   }
1043   int set_flag(int flag, int value) {
1044     return pool_set_flag($self, flag, value);
1045   }
1046   int get_flag(int flag) {
1047     return pool_get_flag($self, flag);
1048   }
1049   void set_rootdir(const char *rootdir) {
1050     pool_set_rootdir($self, rootdir);
1051   }
1052   const char *get_rootdir(int flag) {
1053     return pool_get_rootdir($self);
1054   }
1055 #if defined(SWIGPYTHON)
1056   %{
1057   SWIGINTERN int loadcallback(Pool *pool, Repodata *data, void *d) {
1058     XRepodata *xd = new_XRepodata(data->repo, data->repodataid);
1059     PyObject *args = Py_BuildValue("(O)", SWIG_NewPointerObj(SWIG_as_voidptr(xd), SWIGTYPE_p_XRepodata, SWIG_POINTER_OWN | 0));
1060     PyObject *result = PyEval_CallObject((PyObject *)d, args);
1061     int ecode = 0;
1062     int vresult = 0;
1063     Py_DECREF(args);
1064     if (!result)
1065       return 0; /* exception */
1066     ecode = SWIG_AsVal_int(result, &vresult);
1067     Py_DECREF(result);
1068     return SWIG_IsOK(ecode) ? vresult : 0;
1069   }
1070   %}
1071   void set_loadcallback(PyObject *callable) {
1072     if ($self->loadcallback == loadcallback) {
1073       PyObject *obj = $self->loadcallbackdata;
1074       Py_DECREF(obj);
1075     }
1076     if (callable) {
1077       Py_INCREF(callable);
1078     }
1079     pool_setloadcallback($self, callable ? loadcallback : 0, callable);
1080   }
1081 #endif
1082 #if defined(SWIGPERL)
1083 %{
1084   SWIGINTERN int loadcallback(Pool *pool, Repodata *data, void *d) {
1085     int count;
1086     int ret = 0;
1087     dSP;
1088     XRepodata *xd = new_XRepodata(data->repo, data->repodataid);
1089
1090     ENTER;
1091     SAVETMPS;
1092     PUSHMARK(SP);
1093     XPUSHs(SWIG_NewPointerObj(SWIG_as_voidptr(xd), SWIGTYPE_p_XRepodata, SWIG_OWNER | SWIG_SHADOW));
1094     PUTBACK;
1095     count = perl_call_sv((SV *)d, G_EVAL|G_SCALAR);
1096     SPAGAIN;
1097     if (count)
1098       ret = POPi;
1099     PUTBACK;
1100     FREETMPS;
1101     LEAVE;
1102     return ret;
1103   }
1104 %}
1105   void set_loadcallback(SV *callable) {
1106     if ($self->loadcallback == loadcallback)
1107       SvREFCNT_dec($self->loadcallbackdata);
1108     if (callable)
1109       SvREFCNT_inc(callable);
1110     pool_setloadcallback($self, callable ? loadcallback : 0, callable);
1111   }
1112 #endif
1113
1114 #if defined(SWIGRUBY)
1115 %{
1116   SWIGINTERN int loadcallback(Pool *pool, Repodata *data, void *d) {
1117     XRepodata *xd = new_XRepodata(data->repo, data->repodataid);
1118     VALUE callable = (VALUE)d;
1119     VALUE rd = SWIG_NewPointerObj(SWIG_as_voidptr(xd), SWIGTYPE_p_XRepodata, SWIG_POINTER_OWN | 0);
1120     VALUE res = rb_funcall(callable, rb_intern("call"), 1, rd);
1121     return res == Qtrue;
1122   }
1123   SWIGINTERN void mark_Pool(void *ptr) {
1124     Pool *pool = ptr;
1125     if (pool->loadcallback == loadcallback && pool->loadcallbackdata) {
1126       VALUE callable = (VALUE)pool->loadcallbackdata;
1127       rb_gc_mark(callable);
1128     }
1129   }
1130 %}
1131   %typemap(in, numinputs=0) VALUE callable {
1132     $1 = rb_block_given_p() ? rb_block_proc() : 0;
1133   }
1134   void set_loadcallback(VALUE callable) {
1135     pool_setloadcallback($self, callable ? loadcallback : 0, (void *)callable);
1136   }
1137 #endif
1138
1139   void free() {
1140     Pool_set_loadcallback($self, 0);
1141     pool_free($self);
1142   }
1143   Id str2id(const char *str, bool create=1) {
1144     return pool_str2id($self, str, create);
1145   }
1146   %newobject Dep;
1147   Dep *Dep(const char *str, bool create=1) {
1148     Id id = pool_str2id($self, str, create);
1149     return new_Dep($self, id);
1150   }
1151   const char *id2str(Id id) {
1152     return pool_id2str($self, id);
1153   }
1154   const char *dep2str(Id id) {
1155     return pool_dep2str($self, id);
1156   }
1157   Id rel2id(Id name, Id evr, int flags, bool create=1) {
1158     return pool_rel2id($self, name, evr, flags, create);
1159   }
1160   Id id2langid(Id id, const char *lang, bool create=1) {
1161     return pool_id2langid($self, id, lang, create);
1162   }
1163   void setarch(const char *arch = 0) {
1164     struct utsname un;
1165     if (!arch) {
1166       if (uname(&un)) {
1167         perror("uname");
1168         return;
1169       }
1170       arch = un.machine;
1171     }
1172     pool_setarch($self, arch);
1173   }
1174   Repo *add_repo(const char *name) {
1175     return repo_create($self, name);
1176   }
1177   const char *lookup_str(Id entry, Id keyname) {
1178     return pool_lookup_str($self, entry, keyname);
1179   }
1180   Id lookup_id(Id entry, Id keyname) {
1181     return pool_lookup_id($self, entry, keyname);
1182   }
1183   unsigned long long lookup_num(Id entry, Id keyname, unsigned long long notfound = 0) {
1184     return pool_lookup_num($self, entry, keyname, notfound);
1185   }
1186   bool lookup_void(Id entry, Id keyname) {
1187     return pool_lookup_void($self, entry, keyname);
1188   }
1189   %newobject lookup_checksum;
1190   Chksum *lookup_checksum(Id entry, Id keyname) {
1191     Id type = 0;
1192     const unsigned char *b = pool_lookup_bin_checksum($self, entry, keyname, &type);
1193     return solv_chksum_create_from_bin(type, b);
1194   }
1195
1196   %newobject Dataiterator;
1197   Dataiterator *Dataiterator(Id p, Id key, const char *match, int flags) {
1198     return new_Dataiterator($self, 0, p, key, match, flags);
1199   }
1200   const char *solvid2str(Id solvid) {
1201     return pool_solvid2str($self, solvid);
1202   }
1203   void addfileprovides() {
1204     pool_addfileprovides($self);
1205   }
1206   Queue addfileprovides_queue() {
1207     Queue r;
1208     queue_init(&r);
1209     pool_addfileprovides_queue($self, &r, 0);
1210     return r;
1211   }
1212   void createwhatprovides() {
1213     pool_createwhatprovides($self);
1214   }
1215
1216   %newobject id2solvable;
1217   XSolvable *id2solvable(Id id) {
1218     return new_XSolvable($self, id);
1219   }
1220   %newobject solvables;
1221   Pool_solvable_iterator * const solvables;
1222   %{
1223   SWIGINTERN Pool_solvable_iterator * Pool_solvables_get(Pool *pool) {
1224     return new_Pool_solvable_iterator(pool);
1225   }
1226   %}
1227   %newobject solvables_iter;
1228   Pool_solvable_iterator * solvables_iter() {
1229     return new_Pool_solvable_iterator($self);
1230   }
1231
1232   Repo *id2repo(Id id) {
1233     if (id < 1 || id >= $self->nrepos)
1234       return 0;
1235     return pool_id2repo($self, id);
1236   }
1237
1238   %newobject repos;
1239   Pool_repo_iterator * const repos;
1240   %{
1241   SWIGINTERN Pool_repo_iterator * Pool_repos_get(Pool *pool) {
1242     return new_Pool_repo_iterator(pool);
1243   }
1244   %}
1245   %newobject repos_iter;
1246   Pool_repo_iterator * repos_iter() {
1247     return new_Pool_repo_iterator($self);
1248   }
1249
1250   Repo *installed;
1251   const char * const errstr;
1252   %{
1253   SWIGINTERN void Pool_installed_set(Pool *pool, Repo *installed) {
1254     pool_set_installed(pool, installed);
1255   }
1256   Repo *Pool_installed_get(Pool *pool) {
1257     return pool->installed;
1258   }
1259   const char *Pool_errstr_get(Pool *pool) {
1260     return pool_errstr(pool);
1261   }
1262   %}
1263
1264   Queue matchprovidingids(const char *match, int flags) {
1265     Pool *pool = $self;
1266     Queue q;
1267     Id id;
1268     queue_init(&q);
1269     if (!flags) {
1270       for (id = 1; id < pool->ss.nstrings; id++)
1271         if (pool->whatprovides[id])
1272           queue_push(&q, id);
1273     } else {
1274       Datamatcher ma;
1275       if (!datamatcher_init(&ma, match, flags)) {
1276         for (id = 1; id < pool->ss.nstrings; id++)
1277           if (pool->whatprovides[id] && datamatcher_match(&ma, pool_id2str(pool, id)))
1278             queue_push(&q, id);
1279         datamatcher_free(&ma);
1280       }
1281     }
1282     return q;
1283   }
1284
1285   %newobject Job;
1286   Job *Job(int how, Id what) {
1287     return new_Job($self, how, what);
1288   }
1289
1290   %typemap(out) Queue whatprovides Queue2Array(XSolvable *, 1, new_XSolvable(arg1, id));
1291   %newobject whatprovides;
1292   Queue whatprovides(DepId dep) {
1293     Pool *pool = $self;
1294     Queue q;
1295     Id p, pp;
1296     queue_init(&q);
1297     FOR_PROVIDES(p, pp, dep)
1298       queue_push(&q, p);
1299     return q;
1300   }
1301
1302   Id towhatprovides(Queue q) {
1303     return pool_queuetowhatprovides($self, &q);
1304   }
1305
1306 #ifdef SWIGRUBY
1307   %rename("isknownarch?") isknownarch;
1308 #endif
1309   bool isknownarch(DepId id) {
1310     Pool *pool = $self;
1311     if (!id || id == ID_EMPTY)
1312       return 0;
1313     if (id == ARCH_SRC || id == ARCH_NOSRC || id == ARCH_NOARCH)
1314       return 1;
1315     if (pool->id2arch && (id > pool->lastarch || !pool->id2arch[id]))
1316       return 0;
1317     return 1;
1318   }
1319
1320   %newobject Solver;
1321   Solver *Solver() {
1322     return solver_create($self);
1323   }
1324
1325   %newobject Selection;
1326   Selection *Selection() {
1327     return new_Selection($self);
1328   }
1329   %newobject Selection_all;
1330   Selection *Selection_all(int setflags=0) {
1331     Selection *sel = new_Selection($self);
1332     queue_push2(&sel->q, SOLVER_SOLVABLE_ALL | setflags, 0);
1333     return sel;
1334   }
1335   %newobject select;
1336   Selection *select(const char *name, int flags) {
1337     Selection *sel = new_Selection($self);
1338     sel->flags = selection_make($self, &sel->q, name, flags);
1339     return sel;
1340   }
1341
1342   void setpooljobs_helper(Queue jobs) {
1343     queue_free(&$self->pooljobs);
1344     queue_init_clone(&$self->pooljobs, &jobs);
1345   }
1346   %typemap(out) Queue getpooljobs Queue2Array(Job *, 2, new_Job(arg1, id, idp[1]));
1347   %newobject getpooljobs;
1348   Queue getpooljobs() {
1349     Queue q;
1350     queue_init_clone(&q, &$self->pooljobs);
1351     return q;
1352   }
1353
1354 #if defined(SWIGPYTHON)
1355   %pythoncode {
1356     def setpooljobs(self, jobs):
1357       j = []
1358       for job in jobs: j += [job.how, job.what]
1359       self.setpooljobs_helper(j)
1360   }
1361 #endif
1362 #if defined(SWIGPERL)
1363   %perlcode {
1364     sub solv::Solver::setpooljobs {
1365       my ($self, $jobs) = @_;
1366       my @j = map {($_->{'how'}, $_->{'what'})} @$jobs;
1367       return $self->setpooljobs_helper(\@j);
1368     }
1369   }
1370 #endif
1371 #if defined(SWIGRUBY)
1372 %init %{
1373 rb_eval_string(
1374     "class Solv::Pool\n"
1375     "  def setpooljobs(jobs)\n"
1376     "    jl = []\n"
1377     "    jobs.each do |j| ; jl << j.how << j.what ; end\n"
1378     "    setpooljobs_helper(jl)\n"
1379     "  end\n"
1380     "end\n"
1381   );
1382 %}
1383 #endif
1384 }
1385
1386 %extend Repo {
1387   static const int REPO_REUSE_REPODATA = REPO_REUSE_REPODATA;
1388   static const int REPO_NO_INTERNALIZE = REPO_NO_INTERNALIZE;
1389   static const int REPO_LOCALPOOL = REPO_LOCALPOOL;
1390   static const int REPO_USE_LOADING = REPO_USE_LOADING;
1391   static const int REPO_EXTEND_SOLVABLES = REPO_EXTEND_SOLVABLES;
1392   static const int REPO_USE_ROOTDIR = REPO_USE_ROOTDIR;
1393   static const int REPO_NO_LOCATION = REPO_NO_LOCATION;
1394   static const int SOLV_ADD_NO_STUBS = SOLV_ADD_NO_STUBS;       /* repo_solv */
1395 #ifdef ENABLE_SUSEREPO
1396   static const int SUSETAGS_RECORD_SHARES = SUSETAGS_RECORD_SHARES;     /* repo_susetags */
1397 #endif
1398
1399   void free(bool reuseids = 0) {
1400     repo_free($self, reuseids);
1401   }
1402   void empty(bool reuseids = 0) {
1403     repo_empty($self, reuseids);
1404   }
1405 #ifdef SWIGRUBY
1406   %rename("isempty?") isempty;
1407 #endif
1408   bool isempty() {
1409     return !$self->nsolvables;
1410   }
1411   bool add_solv(const char *name, int flags = 0) {
1412     FILE *fp = fopen(name, "r");
1413     int r;
1414     if (!fp)
1415       return 0;
1416     r = repo_add_solv($self, fp, flags);
1417     fclose(fp);
1418     return r == 0;
1419   }
1420   bool add_solv(FILE *fp, int flags = 0) {
1421     return repo_add_solv($self, fp, flags) == 0;
1422   }
1423
1424   %newobject add_solvable;
1425   XSolvable *add_solvable() {
1426     Id solvid = repo_add_solvable($self);
1427     return new_XSolvable($self->pool, solvid);
1428   }
1429
1430 #ifdef ENABLE_RPMDB
1431   bool add_rpmdb(int flags = 0) {
1432     return repo_add_rpmdb($self, 0, flags) == 0;
1433   }
1434   bool add_rpmdb_reffp(FILE *reffp, int flags = 0) {
1435     return repo_add_rpmdb_reffp($self, reffp, flags) == 0;
1436   }
1437   %newobject add_rpm;
1438   XSolvable *add_rpm(const char *name, int flags = 0) {
1439     return new_XSolvable($self->pool, repo_add_rpm($self, name, flags));
1440   }
1441 #endif
1442 #ifdef ENABLE_RPMDB_PUBKEYS
1443   bool add_rpmdb_pubkeys(int flags = 0) {
1444     return repo_add_rpmdb_pubkeys($self, flags) == 0;
1445   }
1446   %newobject add_pubkey;
1447   XSolvable *add_pubkey(const char *key, int flags = 0) {
1448     return new_XSolvable($self->pool, repo_add_pubkey($self, key, flags));
1449   }
1450 #endif
1451 #ifdef ENABLE_RPMMD
1452   bool add_rpmmd(FILE *fp, const char *language, int flags = 0) {
1453     return repo_add_rpmmd($self, fp, language, flags) == 0;
1454   }
1455   bool add_repomdxml(FILE *fp, int flags = 0) {
1456     return repo_add_repomdxml($self, fp, flags) == 0;
1457   }
1458   bool add_updateinfoxml(FILE *fp, int flags = 0) {
1459     return repo_add_updateinfoxml($self, fp, flags) == 0;
1460   }
1461   bool add_deltainfoxml(FILE *fp, int flags = 0) {
1462     return repo_add_deltainfoxml($self, fp, flags) == 0;
1463   }
1464 #endif
1465 #ifdef ENABLE_DEBIAN
1466   bool add_debdb(int flags = 0) {
1467     return repo_add_debdb($self, flags) == 0;
1468   }
1469   bool add_debpackages(FILE *fp, int flags = 0) {
1470     return repo_add_debpackages($self, fp, flags) == 0;
1471   }
1472   %newobject add_deb;
1473   XSolvable *add_deb(const char *name, int flags = 0) {
1474     return new_XSolvable($self->pool, repo_add_deb($self, name, flags));
1475   }
1476 #endif
1477 #ifdef ENABLE_SUSEREPO
1478   bool add_susetags(FILE *fp, Id defvendor, const char *language, int flags = 0) {
1479     return repo_add_susetags($self, fp, defvendor, language, flags) == 0;
1480   }
1481   bool add_content(FILE *fp, int flags = 0) {
1482     return repo_add_content($self, fp, flags) == 0;
1483   }
1484   bool add_products(const char *proddir, int flags = 0) {
1485     return repo_add_products($self, proddir, flags) == 0;
1486   }
1487 #endif
1488 #ifdef ENABLE_MDKREPO
1489   bool add_mdk(FILE *fp, int flags = 0) {
1490     return repo_add_mdk($self, fp, flags) == 0;
1491   }
1492   bool add_mdk_info(FILE *fp, int flags = 0) {
1493     return repo_add_mdk_info($self, fp, flags) == 0;
1494   }
1495 #endif
1496 #ifdef ENABLE_ARCHREPO
1497   bool add_arch_repo(FILE *fp, int flags = 0) {
1498     return repo_add_arch_repo($self, fp, flags) == 0;
1499   }
1500   bool add_arch_local(const char *dir, int flags = 0) {
1501     return repo_add_arch_local($self, dir, flags) == 0;
1502   }
1503   %newobject add_arch_pkg;
1504   XSolvable *add_arch_pkg(const char *name, int flags = 0) {
1505     return new_XSolvable($self->pool, repo_add_arch_pkg($self, name, flags));
1506   }
1507 #endif
1508   void internalize() {
1509     repo_internalize($self);
1510   }
1511   bool write(FILE *fp) {
1512     return repo_write($self, fp) == 0;
1513   }
1514   # HACK, remove if no longer needed!
1515   bool write_first_repodata(FILE *fp) {
1516     int oldnrepodata = $self->nrepodata;
1517     int res;
1518     $self->nrepodata = oldnrepodata > 2 ? 2 : oldnrepodata;
1519     res = repo_write($self, fp);
1520     $self->nrepodata = oldnrepodata;
1521     return res == 0;
1522   }
1523
1524   %newobject Dataiterator;
1525   Dataiterator *Dataiterator(Id p, Id key, const char *match, int flags) {
1526     return new_Dataiterator($self->pool, $self, p, key, match, flags);
1527   }
1528
1529   Id const id;
1530   %{
1531   SWIGINTERN Id Repo_id_get(Repo *repo) {
1532     return repo->repoid;
1533   }
1534   %}
1535   %newobject solvables;
1536   Repo_solvable_iterator * const solvables;
1537   %{
1538   SWIGINTERN Repo_solvable_iterator * Repo_solvables_get(Repo *repo) {
1539     return new_Repo_solvable_iterator(repo);
1540   }
1541   %}
1542   %newobject meta;
1543   Datapos * const meta;
1544   %{
1545   SWIGINTERN Datapos * Repo_meta_get(Repo *repo) {
1546     Datapos *pos = solv_calloc(1, sizeof(*pos));
1547     pos->solvid = SOLVID_META;
1548     pos->repo = repo;
1549     return pos;
1550   }
1551   %}
1552
1553   %newobject solvables_iter;
1554   Repo_solvable_iterator *solvables_iter() {
1555     return new_Repo_solvable_iterator($self);
1556   }
1557
1558   %newobject add_repodata;
1559   XRepodata *add_repodata(int flags = 0) {
1560     Repodata *rd = repo_add_repodata($self, flags);
1561     return new_XRepodata($self, rd->repodataid);
1562   }
1563
1564   void create_stubs() {
1565     Repodata *data;
1566     if (!$self->nrepodata)
1567       return;
1568     data = repo_id2repodata($self, $self->nrepodata - 1);
1569     if (data->state != REPODATA_STUB)
1570       repodata_create_stubs(data);
1571   }
1572 #ifdef SWIGRUBY
1573   %rename("iscontiguous?") iscontiguous;
1574 #endif
1575   bool iscontiguous() {
1576     int i;
1577     for (i = $self->start; i < $self->end; i++)
1578       if ($self->pool->solvables[i].repo != $self)
1579         return 0;
1580     return 1;
1581   }
1582   %newobject first_repodata;
1583   XRepodata *first_repodata() {
1584     Repodata *data;
1585     int i;
1586     if ($self->nrepodata < 2)
1587       return 0;
1588     /* make sure all repodatas but the first are extensions */
1589     data = repo_id2repodata($self, 1);
1590     if (data->loadcallback)
1591        return 0;
1592     for (i = 2; i < $self->nrepodata; i++)
1593       {
1594         data = repo_id2repodata($self, i);
1595         if (!data->loadcallback)
1596           return 0;       /* oops, not an extension */
1597       }
1598     return new_XRepodata($self, 1);
1599   }
1600
1601   %newobject Selection;
1602   Selection *Selection(int setflags=0) {
1603     Selection *sel = new_Selection($self->pool);
1604     setflags |= SOLVER_SETREPO;
1605     queue_push2(&sel->q, SOLVER_SOLVABLE_REPO | setflags, $self->repoid);
1606     return sel;
1607   }
1608
1609   bool __eq__(Repo *repo) {
1610     return $self == repo;
1611   }
1612   bool __ne__(Repo *repo) {
1613     return $self != repo;
1614   }
1615 #if defined(SWIGPERL)
1616   %rename("str") __str__;
1617 #endif
1618   %newobject __str__;
1619   const char *__str__() {
1620     char buf[20];
1621     if ($self->name)
1622       return solv_strdup($self->name);
1623     sprintf(buf, "Repo#%d", $self->repoid);
1624     return solv_strdup(buf);
1625   }
1626   %newobject __repr__;
1627   const char *__repr__() {
1628     char buf[20];
1629     if ($self->name)
1630       {
1631         sprintf(buf, "<Repo #%d ", $self->repoid);
1632         return solv_dupjoin(buf, $self->name, ">");
1633       }
1634     sprintf(buf, "<Repo #%d>", $self->repoid);
1635     return solv_strdup(buf);
1636   }
1637 }
1638
1639 %extend Dataiterator {
1640   static const int SEARCH_STRING = SEARCH_STRING;
1641   static const int SEARCH_STRINGSTART = SEARCH_STRINGSTART;
1642   static const int SEARCH_STRINGEND = SEARCH_STRINGEND;
1643   static const int SEARCH_SUBSTRING = SEARCH_SUBSTRING;
1644   static const int SEARCH_GLOB = SEARCH_GLOB;
1645   static const int SEARCH_REGEX = SEARCH_REGEX;
1646   static const int SEARCH_NOCASE = SEARCH_NOCASE;
1647   static const int SEARCH_FILES = SEARCH_FILES;
1648   static const int SEARCH_COMPLETE_FILELIST = SEARCH_COMPLETE_FILELIST;
1649   static const int SEARCH_CHECKSUMS = SEARCH_CHECKSUMS;
1650
1651   Dataiterator(Pool *pool, Repo *repo, Id p, Id key, const char *match, int flags) {
1652     Dataiterator *di = solv_calloc(1, sizeof(*di));
1653     dataiterator_init(di, pool, repo, p, key, match, flags);
1654     return di;
1655   }
1656   ~Dataiterator() {
1657     dataiterator_free($self);
1658     solv_free($self);
1659   }
1660 #if defined(SWIGPYTHON)
1661   %newobject __iter__;
1662   Dataiterator *__iter__() {
1663     Dataiterator *ndi;
1664     ndi = solv_calloc(1, sizeof(*ndi));
1665     dataiterator_init_clone(ndi, $self);
1666     return ndi;
1667   }
1668   %rename("next") __next__();
1669   %exception __next__ {
1670     $action
1671     if (!result) {
1672       PyErr_SetString(PyExc_StopIteration,"no more matches");
1673       return NULL;
1674     }
1675   }
1676 #endif
1677
1678 #ifdef SWIGPERL
1679   perliter(solv::Dataiterator)
1680 #endif
1681
1682   %newobject __next__;
1683   Datamatch *__next__() {
1684     Dataiterator *ndi;
1685     if (!dataiterator_step($self)) {
1686       return 0;
1687     }
1688     ndi = solv_calloc(1, sizeof(*ndi));
1689     dataiterator_init_clone(ndi, $self);
1690     dataiterator_strdup(ndi);
1691     return ndi;
1692   }
1693 #ifdef SWIGRUBY
1694   void each() {
1695     Datamatch *d;
1696     while ((d = Dataiterator___next__($self)) != 0) {
1697       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(d), SWIGTYPE_p_Datamatch, SWIG_POINTER_OWN | 0));
1698     }
1699   }
1700 #endif
1701   void prepend_keyname(Id key) {
1702     dataiterator_prepend_keyname($self, key);
1703   }
1704   void skip_solvable() {
1705     dataiterator_skip_solvable($self);
1706   }
1707 }
1708
1709 %extend Datapos {
1710   Id lookup_id(Id keyname) {
1711     Pool *pool = $self->repo->pool;
1712     Datapos oldpos = pool->pos;
1713     Id r;
1714     pool->pos = *$self;
1715     r = pool_lookup_id(pool, SOLVID_POS, keyname);
1716     pool->pos = oldpos;
1717     return r;
1718   }
1719   const char *lookup_str(Id keyname) {
1720     Pool *pool = $self->repo->pool;
1721     Datapos oldpos = pool->pos;
1722     const char *r;
1723     pool->pos = *$self;
1724     r = pool_lookup_str(pool, SOLVID_POS, keyname);
1725     pool->pos = oldpos;
1726     return r;
1727   }
1728   unsigned long long lookup_num(Id keyname, unsigned long long notfound = 0) {
1729     Pool *pool = $self->repo->pool;
1730     Datapos oldpos = pool->pos;
1731     unsigned long long r;
1732     pool->pos = *$self;
1733     r = pool_lookup_num(pool, SOLVID_POS, keyname, notfound);
1734     pool->pos = oldpos;
1735     return r;
1736   }
1737   bool lookup_void(Id keyname) {
1738     Pool *pool = $self->repo->pool;
1739     Datapos oldpos = pool->pos;
1740     int r;
1741     pool->pos = *$self;
1742     r = pool_lookup_void(pool, SOLVID_POS, keyname);
1743     pool->pos = oldpos;
1744     return r;
1745   }
1746   %newobject lookup_checksum;
1747   Chksum *lookup_checksum(Id keyname) {
1748     Pool *pool = $self->repo->pool;
1749     Datapos oldpos = pool->pos;
1750     Id type = 0;
1751     const unsigned char *b;
1752     pool->pos = *$self;
1753     b = pool_lookup_bin_checksum(pool, SOLVID_POS, keyname, &type);
1754     pool->pos = oldpos;
1755     return solv_chksum_create_from_bin(type, b);
1756   }
1757   const char *lookup_deltaseq() {
1758     Pool *pool = $self->repo->pool;
1759     Datapos oldpos = pool->pos;
1760     const char *seq;
1761     pool->pos = *$self;
1762     seq = pool_lookup_str(pool, SOLVID_POS, DELTA_SEQ_NAME);
1763     if (seq) {
1764       seq = pool_tmpjoin(pool, seq, "-", pool_lookup_str(pool, SOLVID_POS, DELTA_SEQ_EVR));
1765       seq = pool_tmpappend(pool, seq, "-", pool_lookup_str(pool, SOLVID_POS, DELTA_SEQ_NUM));
1766     }
1767     pool->pos = oldpos;
1768     return seq;
1769   }
1770   const char *lookup_deltalocation(unsigned int *OUTPUT) {
1771     Pool *pool = $self->repo->pool;
1772     Datapos oldpos = pool->pos;
1773     const char *loc;
1774     pool->pos = *$self;
1775     loc = pool_lookup_deltalocation(pool, SOLVID_POS, OUTPUT);
1776     pool->pos = oldpos;
1777     return loc;
1778   }
1779   Queue lookup_idarray(Id keyname) {
1780     Pool *pool = $self->repo->pool;
1781     Datapos oldpos = pool->pos;
1782     Queue r;
1783     queue_init(&r);
1784     pool->pos = *$self;
1785     pool_lookup_idarray(pool, SOLVID_POS, keyname, &r);
1786     pool->pos = oldpos;
1787     return r;
1788   }
1789   %newobject Dataiterator;
1790   Dataiterator *Dataiterator(Id key, const char *match, int flags) {
1791     Pool *pool = $self->repo->pool;
1792     Datapos oldpos = pool->pos;
1793     Dataiterator *di;
1794     pool->pos = *$self;
1795     di = new_Dataiterator(pool, 0, SOLVID_POS, key, match, flags);
1796     pool->pos = oldpos;
1797     return di;
1798   }
1799 }
1800
1801 %extend Datamatch {
1802   ~Datamatch() {
1803     dataiterator_free($self);
1804     solv_free($self);
1805   }
1806   %newobject solvable;
1807   XSolvable * const solvable;
1808   %{
1809   SWIGINTERN XSolvable *Datamatch_solvable_get(Dataiterator *di) {
1810     return new_XSolvable(di->pool, di->solvid);
1811   }
1812   %}
1813   Id key_id() {
1814     return $self->key->name;
1815   }
1816   const char *key_idstr() {
1817     return pool_id2str($self->pool, $self->key->name);
1818   }
1819   Id type_id() {
1820     return $self->key->type;
1821   }
1822   const char *type_idstr() {
1823     return pool_id2str($self->pool, $self->key->type);
1824   }
1825   Id id() {
1826      return $self->kv.id;
1827   }
1828   const char *idstr() {
1829      return pool_id2str($self->pool, $self->kv.id);
1830   }
1831   const char *str() {
1832      return $self->kv.str;
1833   }
1834   unsigned long long num() {
1835      if ($self->key->type == REPOKEY_TYPE_NUM)
1836        return SOLV_KV_NUM64(&$self->kv);
1837      return $self->kv.num;
1838   }
1839   int num2() {
1840      return $self->kv.num2;
1841   }
1842   %newobject pos;
1843   Datapos *pos() {
1844     Pool *pool = $self->pool;
1845     Datapos *pos, oldpos = pool->pos;
1846     dataiterator_setpos($self);
1847     pos = solv_calloc(1, sizeof(*pos));
1848     *pos = pool->pos;
1849     pool->pos = oldpos;
1850     return pos;
1851   }
1852   %newobject parentpos;
1853   Datapos *parentpos() {
1854     Pool *pool = $self->pool;
1855     Datapos *pos, oldpos = pool->pos;
1856     dataiterator_setpos_parent($self);
1857     pos = solv_calloc(1, sizeof(*pos));
1858     *pos = pool->pos;
1859     pool->pos = oldpos;
1860     return pos;
1861   }
1862 #if defined(SWIGPERL)
1863   %rename("str") __str__;
1864 #endif
1865   const char *__str__() {
1866     if (!repodata_stringify($self->pool, $self->data, $self->key, &$self->kv, $self->flags))
1867       return "";
1868     return $self->kv.str;
1869   }
1870 }
1871
1872 %extend Pool_solvable_iterator {
1873   Pool_solvable_iterator(Pool *pool) {
1874     Pool_solvable_iterator *s;
1875     s = solv_calloc(1, sizeof(*s));
1876     s->pool = pool;
1877     return s;
1878   }
1879 #if defined(SWIGPYTHON)
1880   %newobject __iter__;
1881   Pool_solvable_iterator *__iter__() {
1882     Pool_solvable_iterator *s;
1883     s = solv_calloc(1, sizeof(*s));
1884     *s = *$self;
1885     return s;
1886   }
1887   %rename("next") __next__();
1888   %exception __next__ {
1889     $action
1890     if (!result) {
1891       PyErr_SetString(PyExc_StopIteration,"no more matches");
1892       return NULL;
1893     }
1894   }
1895 #endif
1896
1897 #ifdef SWIGPERL
1898   perliter(solv::Pool_solvable_iterator)
1899 #endif
1900   %newobject __next__;
1901   XSolvable *__next__() {
1902     Pool *pool = $self->pool;
1903     if ($self->id >= pool->nsolvables)
1904       return 0;
1905     while (++$self->id < pool->nsolvables)
1906       if (pool->solvables[$self->id].repo)
1907         return new_XSolvable(pool, $self->id);
1908     return 0;
1909   }
1910 #ifdef SWIGRUBY
1911   void each() {
1912     XSolvable *n;
1913     while ((n = Pool_solvable_iterator___next__($self)) != 0) {
1914       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(n), SWIGTYPE_p_XSolvable, SWIG_POINTER_OWN | 0));
1915     }
1916   }
1917 #endif
1918   %newobject __getitem__;
1919   XSolvable *__getitem__(Id key) {
1920     Pool *pool = $self->pool;
1921     if (key > 0 && key < pool->nsolvables && pool->solvables[key].repo)
1922       return new_XSolvable(pool, key);
1923     return 0;
1924   }
1925   int __len__() {
1926     return $self->pool->nsolvables;
1927   }
1928 }
1929
1930 %extend Pool_repo_iterator {
1931   Pool_repo_iterator(Pool *pool) {
1932     Pool_repo_iterator *s;
1933     s = solv_calloc(1, sizeof(*s));
1934     s->pool = pool;
1935     return s;
1936   }
1937 #if defined(SWIGPYTHON)
1938   %newobject __iter__;
1939   Pool_repo_iterator *__iter__() {
1940     Pool_repo_iterator *s;
1941     s = solv_calloc(1, sizeof(*s));
1942     *s = *$self;
1943     return s;
1944   }
1945   %rename("next") __next__();
1946   %exception __next__ {
1947     $action
1948     if (!result) {
1949       PyErr_SetString(PyExc_StopIteration,"no more matches");
1950       return NULL;
1951     }
1952   }
1953 #endif
1954   %newobject __next__;
1955   Repo *__next__() {
1956     Pool *pool = $self->pool;
1957     if ($self->id >= pool->nrepos)
1958       return 0;
1959     while (++$self->id < pool->nrepos) {
1960       Repo *r = pool_id2repo(pool, $self->id);
1961       if (r)
1962         return r;
1963     }
1964     return 0;
1965   }
1966 #ifdef SWIGRUBY
1967   void each() {
1968     Repo *n;
1969     while ((n = Pool_repo_iterator___next__($self)) != 0) {
1970       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(n), SWIGTYPE_p_Repo, SWIG_POINTER_OWN | 0));
1971     }
1972   }
1973 #endif
1974   Repo *__getitem__(Id key) {
1975     Pool *pool = $self->pool;
1976     if (key > 0 && key < pool->nrepos)
1977       return pool_id2repo(pool, key);
1978     return 0;
1979   }
1980   int __len__() {
1981     return $self->pool->nrepos;
1982   }
1983 }
1984
1985 %extend Repo_solvable_iterator {
1986   Repo_solvable_iterator(Repo *repo) {
1987     Repo_solvable_iterator *s;
1988     s = solv_calloc(1, sizeof(*s));
1989     s->repo = repo;
1990     return s;
1991   }
1992 #if defined(SWIGPYTHON)
1993   %newobject __iter__;
1994   Repo_solvable_iterator *__iter__() {
1995     Repo_solvable_iterator *s;
1996     s = solv_calloc(1, sizeof(*s));
1997     *s = *$self;
1998     return s;
1999   }
2000   %rename("next") __next__();
2001   %exception __next__ {
2002     $action
2003     if (!result) {
2004       PyErr_SetString(PyExc_StopIteration,"no more matches");
2005       return NULL;
2006     }
2007   }
2008 #endif
2009   %newobject __next__;
2010   XSolvable *__next__() {
2011     Repo *repo = $self->repo;
2012     Pool *pool = repo->pool;
2013     if (repo->start > 0 && $self->id < repo->start)
2014       $self->id = repo->start - 1;
2015     if ($self->id >= repo->end)
2016       return 0;
2017     while (++$self->id < repo->end)
2018       if (pool->solvables[$self->id].repo == repo)
2019         return new_XSolvable(pool, $self->id);
2020     return 0;
2021   }
2022 #ifdef SWIGRUBY
2023   void each() {
2024     XSolvable *n;
2025     while ((n = Repo_solvable_iterator___next__($self)) != 0) {
2026       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(n), SWIGTYPE_p_XSolvable, SWIG_POINTER_OWN | 0));
2027     }
2028   }
2029 #endif
2030   %newobject __getitem__;
2031   XSolvable *__getitem__(Id key) {
2032     Repo *repo = $self->repo;
2033     Pool *pool = repo->pool;
2034     if (key > 0 && key < pool->nsolvables && pool->solvables[key].repo == repo)
2035       return new_XSolvable(pool, key);
2036     return 0;
2037   }
2038   int __len__() {
2039     return $self->repo->pool->nsolvables;
2040   }
2041 }
2042
2043 %extend Dep {
2044   Dep(Pool *pool, Id id) {
2045     Dep *s;
2046     if (!id)
2047       return 0;
2048     s = solv_calloc(1, sizeof(*s));
2049     s->pool = pool;
2050     s->id = id;
2051     return s;
2052   }
2053   %newobject Rel;
2054   Dep *Rel(int flags, DepId evrid, bool create=1) {
2055     Id id = pool_rel2id($self->pool, $self->id, evrid, flags, create);
2056     if (!id)
2057       return 0;
2058     return new_Dep($self->pool, id);
2059   }
2060   %newobject Selection_name;
2061   Selection *Selection_name(int setflags=0) {
2062     Selection *sel = new_Selection($self->pool);
2063     if (ISRELDEP($self->id)) {
2064       Reldep *rd = GETRELDEP($self->pool, $self->id);
2065       if (rd->flags == REL_EQ) {
2066         setflags |= $self->pool->disttype == DISTTYPE_DEB || strchr(pool_id2str($self->pool, rd->evr), '-') != 0 ? SOLVER_SETEVR : SOLVER_SETEV;
2067         if (ISRELDEP(rd->name))
2068           rd = GETRELDEP($self->pool, rd->name);
2069       }
2070       if (rd->flags == REL_ARCH)
2071         setflags |= SOLVER_SETARCH;
2072     }
2073     queue_push2(&sel->q, SOLVER_SOLVABLE_NAME | setflags, $self->id);
2074     return sel;
2075   }
2076   %newobject Selection_provides;
2077   Selection *Selection_provides(int setflags=0) {
2078     Selection *sel = new_Selection($self->pool);
2079     if (ISRELDEP($self->id)) {
2080       Reldep *rd = GETRELDEP($self->pool, $self->id);
2081       if (rd->flags == REL_ARCH)
2082         setflags |= SOLVER_SETARCH;
2083     }
2084     queue_push2(&sel->q, SOLVER_SOLVABLE_PROVIDES | setflags, $self->id);
2085     return sel;
2086   }
2087   const char *str() {
2088     return pool_dep2str($self->pool, $self->id);
2089   }
2090   bool __eq__(Dep *s) {
2091     return $self->pool == s->pool && $self->id == s->id;
2092   }
2093   bool __ne__(Dep *s) {
2094     return !Dep___eq__($self, s);
2095   }
2096 #if defined(SWIGPERL)
2097   %rename("str") __str__;
2098 #endif
2099   const char *__str__() {
2100     return pool_dep2str($self->pool, $self->id);
2101   }
2102   %newobject __repr__;
2103   const char *__repr__() {
2104     char buf[20];
2105     sprintf(buf, "<Id #%d ", $self->id);
2106     return solv_dupjoin(buf, pool_dep2str($self->pool, $self->id), ">");
2107   }
2108 }
2109
2110 %extend XSolvable {
2111   XSolvable(Pool *pool, Id id) {
2112     XSolvable *s;
2113     if (!id || id >= pool->nsolvables)
2114       return 0;
2115     s = solv_calloc(1, sizeof(*s));
2116     s->pool = pool;
2117     s->id = id;
2118     return s;
2119   }
2120   const char *str() {
2121     return pool_solvid2str($self->pool, $self->id);
2122   }
2123   const char *lookup_str(Id keyname) {
2124     return pool_lookup_str($self->pool, $self->id, keyname);
2125   }
2126   Id lookup_id(Id keyname) {
2127     return pool_lookup_id($self->pool, $self->id, keyname);
2128   }
2129   unsigned long long lookup_num(Id keyname, unsigned long long notfound = 0) {
2130     return pool_lookup_num($self->pool, $self->id, keyname, notfound);
2131   }
2132   bool lookup_void(Id keyname) {
2133     return pool_lookup_void($self->pool, $self->id, keyname);
2134   }
2135   %newobject lookup_checksum;
2136   Chksum *lookup_checksum(Id keyname) {
2137     Id type = 0;
2138     const unsigned char *b = pool_lookup_bin_checksum($self->pool, $self->id, keyname, &type);
2139     return solv_chksum_create_from_bin(type, b);
2140   }
2141   Queue lookup_idarray(Id keyname, Id marker = -1) {
2142     Solvable *s = $self->pool->solvables + $self->id;
2143     Queue r;
2144     queue_init(&r);
2145     if (marker == -1 || marker == 1) {
2146       if (keyname == SOLVABLE_PROVIDES)
2147         marker = marker < 0 ? -SOLVABLE_FILEMARKER : SOLVABLE_FILEMARKER;
2148       else if (keyname == SOLVABLE_REQUIRES)
2149         marker = marker < 0 ? -SOLVABLE_PREREQMARKER : SOLVABLE_PREREQMARKER;
2150       else
2151         marker = 0;
2152     }
2153     solvable_lookup_deparray(s, keyname, &r, marker);
2154     return r;
2155   }
2156   %typemap(out) Queue lookup_deparray Queue2Array(Dep *, 1, new_Dep(arg1->pool, id));
2157   %newobject lookup_deparray;
2158   Queue lookup_deparray(Id keyname, Id marker = -1) {
2159     Solvable *s = $self->pool->solvables + $self->id;
2160     Queue r;
2161     queue_init(&r);
2162     if (marker == -1 || marker == 1) {
2163       if (keyname == SOLVABLE_PROVIDES)
2164         marker = marker < 0 ? -SOLVABLE_FILEMARKER : SOLVABLE_FILEMARKER;
2165       else if (keyname == SOLVABLE_REQUIRES)
2166         marker = marker < 0 ? -SOLVABLE_PREREQMARKER : SOLVABLE_PREREQMARKER;
2167       else
2168         marker = 0;
2169     }
2170     solvable_lookup_deparray(s, keyname, &r, marker);
2171     return r;
2172   }
2173   const char *lookup_location(unsigned int *OUTPUT) {
2174     return solvable_lookup_location($self->pool->solvables + $self->id, OUTPUT);
2175   }
2176   %newobject Dataiterator;
2177   Dataiterator *Dataiterator(Id key, const char *match, int flags) {
2178     return new_Dataiterator($self->pool, 0, $self->id, key, match, flags);
2179   }
2180 #ifdef SWIGRUBY
2181   %rename("installable?") installable;
2182 #endif
2183   bool installable() {
2184     return pool_installable($self->pool, pool_id2solvable($self->pool, $self->id));
2185   }
2186 #ifdef SWIGRUBY
2187   %rename("isinstalled?") isinstalled;
2188 #endif
2189   bool isinstalled() {
2190     Pool *pool = $self->pool;
2191     return pool->installed && pool_id2solvable(pool, $self->id)->repo == pool->installed;
2192   }
2193
2194   const char *name;
2195   %{
2196     SWIGINTERN void XSolvable_name_set(XSolvable *xs, const char *name) {
2197       Pool *pool = xs->pool;
2198       pool->solvables[xs->id].name = pool_str2id(pool, name, 1);
2199     }
2200     SWIGINTERN const char *XSolvable_name_get(XSolvable *xs) {
2201       Pool *pool = xs->pool;
2202       return pool_id2str(pool, pool->solvables[xs->id].name);
2203     }
2204   %}
2205   Id nameid;
2206   %{
2207     SWIGINTERN void XSolvable_nameid_set(XSolvable *xs, Id nameid) {
2208       xs->pool->solvables[xs->id].name = nameid;
2209     }
2210     SWIGINTERN Id XSolvable_nameid_get(XSolvable *xs) {
2211       return xs->pool->solvables[xs->id].name;
2212     }
2213   %}
2214   const char *evr;
2215   %{
2216     SWIGINTERN void XSolvable_evr_set(XSolvable *xs, const char *evr) {
2217       Pool *pool = xs->pool;
2218       pool->solvables[xs->id].evr = pool_str2id(pool, evr, 1);
2219     }
2220     SWIGINTERN const char *XSolvable_evr_get(XSolvable *xs) {
2221       Pool *pool = xs->pool;
2222       return pool_id2str(pool, pool->solvables[xs->id].evr);
2223     }
2224   %}
2225   Id evrid;
2226   %{
2227     SWIGINTERN void XSolvable_evrid_set(XSolvable *xs, Id evrid) {
2228       xs->pool->solvables[xs->id].evr = evrid;
2229     }
2230     SWIGINTERN Id XSolvable_evrid_get(XSolvable *xs) {
2231       return xs->pool->solvables[xs->id].evr;
2232     }
2233   %}
2234   const char *arch;
2235   %{
2236     SWIGINTERN void XSolvable_arch_set(XSolvable *xs, const char *arch) {
2237       Pool *pool = xs->pool;
2238       pool->solvables[xs->id].arch = pool_str2id(pool, arch, 1);
2239     }
2240     SWIGINTERN const char *XSolvable_arch_get(XSolvable *xs) {
2241       Pool *pool = xs->pool;
2242       return pool_id2str(pool, pool->solvables[xs->id].arch);
2243     }
2244   %}
2245   Id archid;
2246   %{
2247     SWIGINTERN void XSolvable_archid_set(XSolvable *xs, Id archid) {
2248       xs->pool->solvables[xs->id].arch = archid;
2249     }
2250     SWIGINTERN Id XSolvable_archid_get(XSolvable *xs) {
2251       return xs->pool->solvables[xs->id].arch;
2252     }
2253   %}
2254   const char *vendor;
2255   %{
2256     SWIGINTERN void XSolvable_vendor_set(XSolvable *xs, const char *vendor) {
2257       Pool *pool = xs->pool;
2258       pool->solvables[xs->id].vendor = pool_str2id(pool, vendor, 1);
2259     }
2260     SWIGINTERN const char *XSolvable_vendor_get(XSolvable *xs) {
2261       Pool *pool = xs->pool;
2262       return pool_id2str(pool, pool->solvables[xs->id].vendor);
2263     }
2264   %}
2265   Id vendorid;
2266   %{
2267     SWIGINTERN void XSolvable_vendorid_set(XSolvable *xs, Id vendorid) {
2268       xs->pool->solvables[xs->id].vendor = vendorid;
2269     }
2270     SWIGINTERN Id XSolvable_vendorid_get(XSolvable *xs) {
2271       return xs->pool->solvables[xs->id].vendor;
2272     }
2273   %}
2274   Repo * const repo;
2275   %{
2276     SWIGINTERN Repo *XSolvable_repo_get(XSolvable *xs) {
2277       return xs->pool->solvables[xs->id].repo;
2278     }
2279   %}
2280
2281   /* old interface, please use the generic add_deparray instead */
2282   void add_provides(DepId id, Id marker = -1) {
2283     Solvable *s = $self->pool->solvables + $self->id;
2284     if (marker == -1 || marker == 1)
2285       marker = marker < 0 ? -SOLVABLE_FILEMARKER : SOLVABLE_FILEMARKER;
2286     s->provides = repo_addid_dep(s->repo, s->provides, id, marker);
2287   }
2288   void add_obsoletes(DepId id) {
2289     Solvable *s = $self->pool->solvables + $self->id;
2290     s->obsoletes = repo_addid_dep(s->repo, s->obsoletes, id, 0);
2291   }
2292   void add_conflicts(DepId id) {
2293     Solvable *s = $self->pool->solvables + $self->id;
2294     s->conflicts = repo_addid_dep(s->repo, s->conflicts, id, 0);
2295   }
2296   void add_requires(DepId id, Id marker = -1) {
2297     Solvable *s = $self->pool->solvables + $self->id;
2298     if (marker == -1 || marker == 1)
2299       marker = marker < 0 ? -SOLVABLE_PREREQMARKER : SOLVABLE_PREREQMARKER;
2300     s->requires = repo_addid_dep(s->repo, s->requires, id, marker);
2301   }
2302   void add_recommends(DepId id) {
2303     Solvable *s = $self->pool->solvables + $self->id;
2304     s->recommends = repo_addid_dep(s->repo, s->recommends, id, 0);
2305   }
2306   void add_suggests(DepId id) {
2307     Solvable *s = $self->pool->solvables + $self->id;
2308     s->suggests = repo_addid_dep(s->repo, s->suggests, id, 0);
2309   }
2310   void add_supplements(DepId id) {
2311     Solvable *s = $self->pool->solvables + $self->id;
2312     s->supplements = repo_addid_dep(s->repo, s->supplements, id, 0);
2313   }
2314   void add_enhances(DepId id) {
2315     Solvable *s = $self->pool->solvables + $self->id;
2316     s->enhances = repo_addid_dep(s->repo, s->enhances, id, 0);
2317   }
2318
2319   void add_deparray(Id keyname, DepId id, Id marker = -1) {
2320     Solvable *s = $self->pool->solvables + $self->id;
2321     if (marker == -1 || marker == 1) {
2322       if (keyname == SOLVABLE_PROVIDES)
2323         marker = marker < 0 ? -SOLVABLE_FILEMARKER : SOLVABLE_FILEMARKER;
2324       else if (keyname == SOLVABLE_REQUIRES)
2325         marker = marker < 0 ? -SOLVABLE_PREREQMARKER : SOLVABLE_PREREQMARKER;
2326       else
2327         marker = 0;
2328     }
2329     solvable_add_deparray(s, keyname, id, marker);
2330   }
2331
2332   %newobject Selection;
2333   Selection *Selection(int setflags=0) {
2334     Selection *sel = new_Selection($self->pool);
2335     queue_push2(&sel->q, SOLVER_SOLVABLE | setflags, $self->id);
2336     return sel;
2337   }
2338
2339   bool __eq__(XSolvable *s) {
2340     return $self->pool == s->pool && $self->id == s->id;
2341   }
2342   bool __ne__(XSolvable *s) {
2343     return !XSolvable___eq__($self, s);
2344   }
2345 #if defined(SWIGPERL)
2346   %rename("str") __str__;
2347 #endif
2348   const char *__str__() {
2349     return pool_solvid2str($self->pool, $self->id);
2350   }
2351   %newobject __repr__;
2352   const char *__repr__() {
2353     char buf[20];
2354     sprintf(buf, "<Solvable #%d ", $self->id);
2355     return solv_dupjoin(buf, pool_solvid2str($self->pool, $self->id), ">");
2356   }
2357 }
2358
2359 %extend Problem {
2360   Problem(Solver *solv, Id id) {
2361     Problem *p;
2362     p = solv_calloc(1, sizeof(*p));
2363     p->solv = solv;
2364     p->id = id;
2365     return p;
2366   }
2367   %newobject findproblemrule;
2368   XRule *findproblemrule() {
2369     Id r = solver_findproblemrule($self->solv, $self->id);
2370     return new_XRule($self->solv, r);
2371   }
2372   %newobject findallproblemrules;
2373   %typemap(out) Queue findallproblemrules Queue2Array(XRule *, 1, new_XRule(arg1->solv, id));
2374   Queue findallproblemrules(int unfiltered=0) {
2375     Solver *solv = $self->solv;
2376     Id probr;
2377     int i, j;
2378     Queue q;
2379     queue_init(&q);
2380     solver_findallproblemrules(solv, $self->id, &q);
2381     if (!unfiltered)
2382       {
2383         for (i = j = 0; i < q.count; i++)
2384           {
2385             SolverRuleinfo rclass;
2386             probr = q.elements[i];
2387             rclass = solver_ruleclass(solv, probr);
2388             if (rclass == SOLVER_RULE_UPDATE || rclass == SOLVER_RULE_JOB)
2389               continue;
2390             q.elements[j++] = probr;
2391           }
2392         if (j)
2393           queue_truncate(&q, j);
2394       }
2395     return q;
2396   }
2397   int solution_count() {
2398     return solver_solution_count($self->solv, $self->id);
2399   }
2400   %typemap(out) Queue solutions Queue2Array(Solution *, 1, new_Solution(arg1, id));
2401   %newobject solutions;
2402   Queue solutions() {
2403     Queue q;
2404     int i, cnt;
2405     queue_init(&q);
2406     cnt = solver_solution_count($self->solv, $self->id);
2407     for (i = 1; i <= cnt; i++)
2408       queue_push(&q, i);
2409     return q;
2410   }
2411 }
2412
2413 %extend Solution {
2414   Solution(Problem *p, Id id) {
2415     Solution *s;
2416     s = solv_calloc(1, sizeof(*s));
2417     s->solv = p->solv;
2418     s->problemid = p->id;
2419     s->id = id;
2420     return s;
2421   }
2422   int element_count() {
2423     return solver_solutionelement_count($self->solv, $self->problemid, $self->id);
2424   }
2425
2426   %typemap(out) Queue elements Queue2Array(Solutionelement *, 4, new_Solutionelement(arg1->solv, arg1->problemid, arg1->id, id, idp[1], idp[2], idp[3]));
2427   %newobject elements;
2428   Queue elements(bool expandreplaces=0) {
2429     Queue q;
2430     int i, cnt;
2431     queue_init(&q);
2432     cnt = solver_solutionelement_count($self->solv, $self->problemid, $self->id);
2433     for (i = 1; i <= cnt; i++)
2434       {
2435         Id p, rp, type;
2436         solver_next_solutionelement($self->solv, $self->problemid, $self->id, i - 1, &p, &rp);
2437         if (p > 0) {
2438           type = rp ? SOLVER_SOLUTION_REPLACE : SOLVER_SOLUTION_ERASE;
2439         } else {
2440           type = p;
2441           p = rp;
2442           rp = 0;
2443         }
2444         if (type == SOLVER_SOLUTION_REPLACE && expandreplaces) {
2445           int illegal = policy_is_illegal(self->solv, self->solv->pool->solvables + p, self->solv->pool->solvables + rp, 0);
2446           if (illegal) {
2447             if ((illegal & POLICY_ILLEGAL_DOWNGRADE) != 0) {
2448               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_DOWNGRADE);
2449               queue_push2(&q, p, rp);
2450             }
2451             if ((illegal & POLICY_ILLEGAL_ARCHCHANGE) != 0) {
2452               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_ARCHCHANGE);
2453               queue_push2(&q, p, rp);
2454             }
2455             if ((illegal & POLICY_ILLEGAL_VENDORCHANGE) != 0) {
2456               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_VENDORCHANGE);
2457               queue_push2(&q, p, rp);
2458             }
2459             if ((illegal & POLICY_ILLEGAL_NAMECHANGE) != 0) {
2460               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_NAMECHANGE);
2461               queue_push2(&q, p, rp);
2462             }
2463             continue;
2464           }
2465         }
2466         queue_push2(&q, i, type);
2467         queue_push2(&q, p, rp);
2468       }
2469     return q;
2470   }
2471 }
2472
2473 %extend Solutionelement {
2474   Solutionelement(Solver *solv, Id problemid, Id solutionid, Id id, Id type, Id p, Id rp) {
2475     Solutionelement *e;
2476     e = solv_calloc(1, sizeof(*e));
2477     e->solv = solv;
2478     e->problemid = problemid;
2479     e->solutionid = id;
2480     e->id = id;
2481     e->type = type;
2482     e->p = p;
2483     e->rp = rp;
2484     return e;
2485   }
2486   const char *str() {
2487     Id p = $self->type;
2488     Id rp = $self->p;
2489     int illegal = 0;
2490     if (p == SOLVER_SOLUTION_ERASE)
2491       {
2492         p = rp;
2493         rp = 0;
2494       }
2495     else if (p == SOLVER_SOLUTION_REPLACE)
2496       {
2497         p = rp;
2498         rp = $self->rp;
2499       }
2500     else if (p == SOLVER_SOLUTION_REPLACE_DOWNGRADE)
2501       illegal = POLICY_ILLEGAL_DOWNGRADE;
2502     else if (p == SOLVER_SOLUTION_REPLACE_ARCHCHANGE)
2503       illegal = POLICY_ILLEGAL_ARCHCHANGE;
2504     else if (p == SOLVER_SOLUTION_REPLACE_VENDORCHANGE)
2505       illegal = POLICY_ILLEGAL_VENDORCHANGE;
2506     else if (p == SOLVER_SOLUTION_REPLACE_NAMECHANGE)
2507       illegal = POLICY_ILLEGAL_NAMECHANGE;
2508     if (illegal)
2509       return pool_tmpjoin($self->solv->pool, "allow ", policy_illegal2str($self->solv, illegal, $self->solv->pool->solvables + $self->p, $self->solv->pool->solvables + $self->rp), 0);
2510     return solver_solutionelement2str($self->solv, p, rp);
2511   }
2512   %typemap(out) Queue replaceelements Queue2Array(Solutionelement *, 1, new_Solutionelement(arg1->solv, arg1->problemid, arg1->solutionid, arg1->id, id, arg1->p, arg1->rp));
2513   %newobject replaceelements;
2514   Queue replaceelements() {
2515     Queue q;
2516     int illegal;
2517
2518     queue_init(&q);
2519     if ($self->type != SOLVER_SOLUTION_REPLACE || $self->p <= 0 || $self->rp <= 0)
2520       illegal = 0;
2521     else
2522       illegal = policy_is_illegal($self->solv, $self->solv->pool->solvables + $self->p, $self->solv->pool->solvables + $self->rp, 0);
2523     if ((illegal & POLICY_ILLEGAL_DOWNGRADE) != 0)
2524       queue_push(&q, SOLVER_SOLUTION_REPLACE_DOWNGRADE);
2525     if ((illegal & POLICY_ILLEGAL_ARCHCHANGE) != 0)
2526       queue_push(&q, SOLVER_SOLUTION_REPLACE_ARCHCHANGE);
2527     if ((illegal & POLICY_ILLEGAL_VENDORCHANGE) != 0)
2528       queue_push(&q, SOLVER_SOLUTION_REPLACE_VENDORCHANGE);
2529     if ((illegal & POLICY_ILLEGAL_NAMECHANGE) != 0)
2530       queue_push(&q, SOLVER_SOLUTION_REPLACE_NAMECHANGE);
2531     if (!q.count)
2532       queue_push(&q, $self->type);
2533     return q;
2534   }
2535   int illegalreplace() {
2536     if ($self->type != SOLVER_SOLUTION_REPLACE || $self->p <= 0 || $self->rp <= 0)
2537       return 0;
2538     return policy_is_illegal($self->solv, $self->solv->pool->solvables + $self->p, $self->solv->pool->solvables + $self->rp, 0);
2539   }
2540   %newobject solvable;
2541   XSolvable * const solvable;
2542   %newobject replacement;
2543   XSolvable * const replacement;
2544   int const jobidx;
2545   %{
2546     SWIGINTERN XSolvable *Solutionelement_solvable_get(Solutionelement *e) {
2547       return new_XSolvable(e->solv->pool, e->p);
2548     }
2549     SWIGINTERN XSolvable *Solutionelement_replacement_get(Solutionelement *e) {
2550       return new_XSolvable(e->solv->pool, e->rp);
2551     }
2552     SWIGINTERN int Solutionelement_jobidx_get(Solutionelement *e) {
2553       if (e->type != SOLVER_SOLUTION_JOB && e->type != SOLVER_SOLUTION_POOLJOB)
2554         return -1;
2555       return (e->p - 1) / 2;
2556     }
2557   %}
2558   %newobject Job;
2559   Job *Job() {
2560     Id extraflags = solver_solutionelement_extrajobflags($self->solv, $self->problemid, $self->solutionid);
2561     if ($self->type == SOLVER_SOLUTION_JOB || SOLVER_SOLUTION_POOLJOB)
2562       return new_Job($self->solv->pool, SOLVER_NOOP, 0);
2563     if ($self->type == SOLVER_SOLUTION_INFARCH || $self->type == SOLVER_SOLUTION_DISTUPGRADE || $self->type == SOLVER_SOLUTION_BEST)
2564       return new_Job($self->solv->pool, SOLVER_INSTALL|SOLVER_SOLVABLE|extraflags, $self->p);
2565     if ($self->type == SOLVER_SOLUTION_REPLACE || $self->type == SOLVER_SOLUTION_REPLACE_DOWNGRADE || $self->type == SOLVER_SOLUTION_REPLACE_ARCHCHANGE || $self->type == SOLVER_SOLUTION_REPLACE_VENDORCHANGE || $self->type == SOLVER_SOLUTION_REPLACE_NAMECHANGE)
2566       return new_Job($self->solv->pool, SOLVER_INSTALL|SOLVER_SOLVABLE|extraflags, $self->rp);
2567     if ($self->type == SOLVER_SOLUTION_ERASE)
2568       return new_Job($self->solv->pool, SOLVER_ERASE|SOLVER_SOLVABLE|extraflags, $self->p);
2569     return 0;
2570   }
2571 }
2572
2573 %extend Solver {
2574   static const int SOLVER_RULE_UNKNOWN = SOLVER_RULE_UNKNOWN;
2575   static const int SOLVER_RULE_RPM = SOLVER_RULE_RPM;
2576   static const int SOLVER_RULE_RPM_NOT_INSTALLABLE = SOLVER_RULE_RPM_NOT_INSTALLABLE;
2577   static const int SOLVER_RULE_RPM_NOTHING_PROVIDES_DEP = SOLVER_RULE_RPM_NOTHING_PROVIDES_DEP;
2578   static const int SOLVER_RULE_RPM_PACKAGE_REQUIRES = SOLVER_RULE_RPM_PACKAGE_REQUIRES;
2579   static const int SOLVER_RULE_RPM_SELF_CONFLICT = SOLVER_RULE_RPM_SELF_CONFLICT;
2580   static const int SOLVER_RULE_RPM_PACKAGE_CONFLICT = SOLVER_RULE_RPM_PACKAGE_CONFLICT;
2581   static const int SOLVER_RULE_RPM_SAME_NAME = SOLVER_RULE_RPM_SAME_NAME;
2582   static const int SOLVER_RULE_RPM_PACKAGE_OBSOLETES = SOLVER_RULE_RPM_PACKAGE_OBSOLETES;
2583   static const int SOLVER_RULE_RPM_IMPLICIT_OBSOLETES = SOLVER_RULE_RPM_IMPLICIT_OBSOLETES;
2584   static const int SOLVER_RULE_RPM_INSTALLEDPKG_OBSOLETES = SOLVER_RULE_RPM_INSTALLEDPKG_OBSOLETES;
2585   static const int SOLVER_RULE_UPDATE = SOLVER_RULE_UPDATE;
2586   static const int SOLVER_RULE_FEATURE = SOLVER_RULE_FEATURE;
2587   static const int SOLVER_RULE_JOB = SOLVER_RULE_JOB;
2588   static const int SOLVER_RULE_JOB_NOTHING_PROVIDES_DEP = SOLVER_RULE_JOB_NOTHING_PROVIDES_DEP;
2589   static const int SOLVER_RULE_JOB_PROVIDED_BY_SYSTEM = SOLVER_RULE_JOB_PROVIDED_BY_SYSTEM;
2590   static const int SOLVER_RULE_JOB_UNKNOWN_PACKAGE = SOLVER_RULE_JOB_UNKNOWN_PACKAGE;
2591   static const int SOLVER_RULE_JOB_UNSUPPORTED = SOLVER_RULE_JOB_UNSUPPORTED;
2592   static const int SOLVER_RULE_DISTUPGRADE = SOLVER_RULE_DISTUPGRADE;
2593   static const int SOLVER_RULE_INFARCH = SOLVER_RULE_INFARCH;
2594   static const int SOLVER_RULE_CHOICE = SOLVER_RULE_CHOICE;
2595   static const int SOLVER_RULE_LEARNT = SOLVER_RULE_LEARNT;
2596
2597   static const int SOLVER_SOLUTION_JOB = SOLVER_SOLUTION_JOB;
2598   static const int SOLVER_SOLUTION_POOLJOB = SOLVER_SOLUTION_POOLJOB;
2599   static const int SOLVER_SOLUTION_INFARCH = SOLVER_SOLUTION_INFARCH;
2600   static const int SOLVER_SOLUTION_DISTUPGRADE = SOLVER_SOLUTION_DISTUPGRADE;
2601   static const int SOLVER_SOLUTION_BEST = SOLVER_SOLUTION_BEST;
2602   static const int SOLVER_SOLUTION_ERASE = SOLVER_SOLUTION_ERASE;
2603   static const int SOLVER_SOLUTION_REPLACE = SOLVER_SOLUTION_REPLACE;
2604   static const int SOLVER_SOLUTION_REPLACE_DOWNGRADE = SOLVER_SOLUTION_REPLACE_DOWNGRADE;
2605   static const int SOLVER_SOLUTION_REPLACE_ARCHCHANGE = SOLVER_SOLUTION_REPLACE_ARCHCHANGE;
2606   static const int SOLVER_SOLUTION_REPLACE_VENDORCHANGE = SOLVER_SOLUTION_REPLACE_VENDORCHANGE;
2607   static const int SOLVER_SOLUTION_REPLACE_NAMECHANGE = SOLVER_SOLUTION_REPLACE_NAMECHANGE;
2608
2609   static const int POLICY_ILLEGAL_DOWNGRADE = POLICY_ILLEGAL_DOWNGRADE;
2610   static const int POLICY_ILLEGAL_ARCHCHANGE = POLICY_ILLEGAL_ARCHCHANGE;
2611   static const int POLICY_ILLEGAL_VENDORCHANGE = POLICY_ILLEGAL_VENDORCHANGE;
2612   static const int POLICY_ILLEGAL_NAMECHANGE = POLICY_ILLEGAL_NAMECHANGE;
2613
2614   static const int SOLVER_FLAG_ALLOW_DOWNGRADE = SOLVER_FLAG_ALLOW_DOWNGRADE;
2615   static const int SOLVER_FLAG_ALLOW_ARCHCHANGE = SOLVER_FLAG_ALLOW_ARCHCHANGE;
2616   static const int SOLVER_FLAG_ALLOW_VENDORCHANGE = SOLVER_FLAG_ALLOW_VENDORCHANGE;
2617   static const int SOLVER_FLAG_ALLOW_NAMECHANGE = SOLVER_FLAG_ALLOW_NAMECHANGE;
2618   static const int SOLVER_FLAG_ALLOW_UNINSTALL = SOLVER_FLAG_ALLOW_UNINSTALL;
2619   static const int SOLVER_FLAG_NO_UPDATEPROVIDE = SOLVER_FLAG_NO_UPDATEPROVIDE;
2620   static const int SOLVER_FLAG_SPLITPROVIDES = SOLVER_FLAG_SPLITPROVIDES;
2621   static const int SOLVER_FLAG_IGNORE_RECOMMENDED = SOLVER_FLAG_IGNORE_RECOMMENDED;
2622   static const int SOLVER_FLAG_ADD_ALREADY_RECOMMENDED = SOLVER_FLAG_ADD_ALREADY_RECOMMENDED;
2623   static const int SOLVER_FLAG_NO_INFARCHCHECK = SOLVER_FLAG_NO_INFARCHCHECK;
2624   static const int SOLVER_FLAG_BEST_OBEY_POLICY = SOLVER_FLAG_BEST_OBEY_POLICY;
2625   static const int SOLVER_FLAG_NO_AUTOTARGET = SOLVER_FLAG_NO_AUTOTARGET;
2626
2627   ~Solver() {
2628     solver_free($self);
2629   }
2630
2631   int set_flag(int flag, int value) {
2632     return solver_set_flag($self, flag, value);
2633   }
2634   int get_flag(int flag) {
2635     return solver_get_flag($self, flag);
2636   }
2637 #if defined(SWIGPYTHON)
2638   %pythoncode {
2639     def solve(self, jobs):
2640       j = []
2641       for job in jobs: j += [job.how, job.what]
2642       return self.solve_helper(j)
2643   }
2644 #endif
2645 #if defined(SWIGPERL)
2646   %perlcode {
2647     sub solv::Solver::solve {
2648       my ($self, $jobs) = @_;
2649       my @j = map {($_->{'how'}, $_->{'what'})} @$jobs;
2650       return $self->solve_helper(\@j);
2651     }
2652   }
2653 #endif
2654 #if defined(SWIGRUBY)
2655 %init %{
2656 rb_eval_string(
2657     "class Solv::Solver\n"
2658     "  def solve(jobs)\n"
2659     "    jl = []\n"
2660     "    jobs.each do |j| ; jl << j.how << j.what ; end\n"
2661     "    solve_helper(jl)\n"
2662     "  end\n"
2663     "end\n"
2664   );
2665 %}
2666 #endif
2667   %typemap(out) Queue solve_helper Queue2Array(Problem *, 1, new_Problem(arg1, id));
2668   %newobject solve_helper;
2669   Queue solve_helper(Queue jobs) {
2670     Queue q;
2671     int i, cnt;
2672     queue_init(&q);
2673     solver_solve($self, &jobs);
2674     cnt = solver_problem_count($self);
2675     for (i = 1; i <= cnt; i++)
2676       queue_push(&q, i);
2677     return q;
2678   }
2679   %newobject transaction;
2680   Transaction *transaction() {
2681     return solver_create_transaction($self);
2682   }
2683 }
2684
2685 %extend Transaction {
2686   static const int SOLVER_TRANSACTION_IGNORE = SOLVER_TRANSACTION_IGNORE;
2687   static const int SOLVER_TRANSACTION_ERASE = SOLVER_TRANSACTION_ERASE;
2688   static const int SOLVER_TRANSACTION_REINSTALLED = SOLVER_TRANSACTION_REINSTALLED;
2689   static const int SOLVER_TRANSACTION_DOWNGRADED = SOLVER_TRANSACTION_DOWNGRADED;
2690   static const int SOLVER_TRANSACTION_CHANGED = SOLVER_TRANSACTION_CHANGED;
2691   static const int SOLVER_TRANSACTION_UPGRADED = SOLVER_TRANSACTION_UPGRADED;
2692   static const int SOLVER_TRANSACTION_OBSOLETED = SOLVER_TRANSACTION_OBSOLETED;
2693   static const int SOLVER_TRANSACTION_INSTALL = SOLVER_TRANSACTION_INSTALL;
2694   static const int SOLVER_TRANSACTION_REINSTALL = SOLVER_TRANSACTION_REINSTALL;
2695   static const int SOLVER_TRANSACTION_DOWNGRADE = SOLVER_TRANSACTION_DOWNGRADE;
2696   static const int SOLVER_TRANSACTION_CHANGE = SOLVER_TRANSACTION_CHANGE;
2697   static const int SOLVER_TRANSACTION_UPGRADE = SOLVER_TRANSACTION_UPGRADE;
2698   static const int SOLVER_TRANSACTION_OBSOLETES = SOLVER_TRANSACTION_OBSOLETES;
2699   static const int SOLVER_TRANSACTION_MULTIINSTALL = SOLVER_TRANSACTION_MULTIINSTALL;
2700   static const int SOLVER_TRANSACTION_MULTIREINSTALL = SOLVER_TRANSACTION_MULTIREINSTALL;
2701   static const int SOLVER_TRANSACTION_MAXTYPE = SOLVER_TRANSACTION_MAXTYPE;
2702   static const int SOLVER_TRANSACTION_SHOW_ACTIVE = SOLVER_TRANSACTION_SHOW_ACTIVE;
2703   static const int SOLVER_TRANSACTION_SHOW_ALL = SOLVER_TRANSACTION_SHOW_ALL;
2704   static const int SOLVER_TRANSACTION_SHOW_OBSOLETES = SOLVER_TRANSACTION_SHOW_OBSOLETES;
2705   static const int SOLVER_TRANSACTION_SHOW_MULTIINSTALL = SOLVER_TRANSACTION_SHOW_MULTIINSTALL;
2706   static const int SOLVER_TRANSACTION_CHANGE_IS_REINSTALL = SOLVER_TRANSACTION_CHANGE_IS_REINSTALL;
2707   static const int SOLVER_TRANSACTION_OBSOLETE_IS_UPGRADE = SOLVER_TRANSACTION_OBSOLETE_IS_UPGRADE;
2708   static const int SOLVER_TRANSACTION_MERGE_VENDORCHANGES = SOLVER_TRANSACTION_MERGE_VENDORCHANGES;
2709   static const int SOLVER_TRANSACTION_MERGE_ARCHCHANGES = SOLVER_TRANSACTION_MERGE_ARCHCHANGES;
2710   static const int SOLVER_TRANSACTION_RPM_ONLY = SOLVER_TRANSACTION_RPM_ONLY;
2711   static const int SOLVER_TRANSACTION_ARCHCHANGE = SOLVER_TRANSACTION_ARCHCHANGE;
2712   static const int SOLVER_TRANSACTION_VENDORCHANGE = SOLVER_TRANSACTION_VENDORCHANGE;
2713   static const int SOLVER_TRANSACTION_KEEP_ORDERDATA = SOLVER_TRANSACTION_KEEP_ORDERDATA;
2714   ~Transaction() {
2715     transaction_free($self);
2716   }
2717 #ifdef SWIGRUBY
2718   %rename("isempty?") isempty;
2719 #endif
2720   bool isempty() {
2721     return $self->steps.count == 0;
2722   }
2723
2724   %newobject othersolvable;
2725   XSolvable *othersolvable(XSolvable *s) {
2726     Id op = transaction_obs_pkg($self, s->id);
2727     return new_XSolvable($self->pool, op);
2728   }
2729
2730   %typemap(out) Queue allothersolvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
2731   %newobject allothersolvables;
2732   Queue allothersolvables(XSolvable *s) {
2733     Queue q;
2734     queue_init(&q);
2735     transaction_all_obs_pkgs($self, s->id, &q);
2736     return q;
2737   }
2738
2739   %typemap(out) Queue classify Queue2Array(TransactionClass *, 4, new_TransactionClass(arg1, arg2, id, idp[1], idp[2], idp[3]));
2740   %newobject classify;
2741   Queue classify(int mode = 0) {
2742     Queue q;
2743     queue_init(&q);
2744     transaction_classify($self, mode, &q);
2745     return q;
2746   }
2747
2748   # deprecated, use newsolvables instead
2749   %typemap(out) Queue newpackages Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
2750   %newobject newpackages;
2751   Queue newpackages() {
2752     Queue q;
2753     int cut;
2754     queue_init(&q);
2755     cut = transaction_installedresult(self, &q);
2756     queue_truncate(&q, cut);
2757     return q;
2758   }
2759
2760   # deprecated, use keptsolvables instead
2761   %typemap(out) Queue keptpackages Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
2762   %newobject keptpackages;
2763   Queue keptpackages() {
2764     Queue q;
2765     int cut;
2766     queue_init(&q);
2767     cut = transaction_installedresult(self, &q);
2768     if (cut)
2769       queue_deleten(&q, 0, cut);
2770     return q;
2771   }
2772
2773   %typemap(out) Queue newsolvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
2774   %newobject newsolvables;
2775   Queue newsolvables() {
2776     Queue q;
2777     int cut;
2778     queue_init(&q);
2779     cut = transaction_installedresult(self, &q);
2780     queue_truncate(&q, cut);
2781     return q;
2782   }
2783
2784   %typemap(out) Queue keptsolvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
2785   %newobject keptsolvables;
2786   Queue keptsolvables() {
2787     Queue q;
2788     int cut;
2789     queue_init(&q);
2790     cut = transaction_installedresult(self, &q);
2791     if (cut)
2792       queue_deleten(&q, 0, cut);
2793     return q;
2794   }
2795
2796   %typemap(out) Queue steps Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
2797   %newobject steps;
2798   Queue steps() {
2799     Queue q;
2800     queue_init_clone(&q, &$self->steps);
2801     return q;
2802   }
2803
2804   int steptype(XSolvable *s, int mode) {
2805     return transaction_type($self, s->id, mode);
2806   }
2807   int calc_installsizechange() {
2808     return transaction_calc_installsizechange($self);
2809   }
2810   void order(int flags=0) {
2811     transaction_order($self, flags);
2812   }
2813 }
2814
2815 %extend TransactionClass {
2816   TransactionClass(Transaction *trans, int mode, Id type, int count, Id fromid, Id toid) {
2817     TransactionClass *cl = solv_calloc(1, sizeof(*cl));
2818     cl->transaction = trans;
2819     cl->mode = mode;
2820     cl->type = type;
2821     cl->count = count;
2822     cl->fromid = fromid;
2823     cl->toid = toid;
2824     return cl;
2825   }
2826   %typemap(out) Queue solvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->transaction->pool, id));
2827   %newobject solvables;
2828   Queue solvables() {
2829     Queue q;
2830     queue_init(&q);
2831     transaction_classify_pkgs($self->transaction, $self->mode, $self->type, $self->fromid, $self->toid, &q);
2832     return q;
2833   }
2834   const char * const fromstr;
2835   const char * const tostr;
2836   %{
2837     SWIGINTERN const char *TransactionClass_fromstr_get(TransactionClass *cl) {
2838       return pool_id2str(cl->transaction->pool, cl->fromid);
2839     }
2840     SWIGINTERN const char *TransactionClass_tostr_get(TransactionClass *cl) {
2841       return pool_id2str(cl->transaction->pool, cl->toid);
2842     }
2843   %}
2844 }
2845
2846 %extend XRule {
2847   XRule(Solver *solv, Id id) {
2848     if (!id)
2849       return 0;
2850     XRule *xr = solv_calloc(1, sizeof(*xr));
2851     xr->solv = solv;
2852     xr->id = id;
2853     return xr;
2854   }
2855   int const type;
2856   %{
2857     SWIGINTERN int XRule_type_get(XRule *xr) {
2858       return solver_ruleclass(xr->solv, xr->id);
2859     }
2860   %}
2861   %newobject info;
2862   Ruleinfo *info() {
2863     Id type, source, target, dep;
2864     type = solver_ruleinfo($self->solv, $self->id, &source, &target, &dep);
2865     return new_Ruleinfo($self, type, source, target, dep);
2866   }
2867   %typemap(out) Queue allinfos Queue2Array(Ruleinfo *, 4, new_Ruleinfo(arg1, id, idp[1], idp[2], idp[3]));
2868   %newobject allinfos;
2869   Queue allinfos() {
2870     Queue q;
2871     queue_init(&q);
2872     solver_allruleinfos($self->solv, $self->id, &q);
2873     return q;
2874   }
2875
2876   bool __eq__(XRule *xr) {
2877     return $self->solv == xr->solv && $self->id == xr->id;
2878   }
2879   bool __ne__(XRule *xr) {
2880     return !XRule___eq__($self, xr);
2881   }
2882   %newobject __repr__;
2883   const char *__repr__() {
2884     char buf[20];
2885     sprintf(buf, "<Rule #%d>", $self->id);
2886     return solv_strdup(buf);
2887   }
2888 }
2889
2890 %extend Ruleinfo {
2891   Ruleinfo(XRule *r, Id type, Id source, Id target, Id dep_id) {
2892     Ruleinfo *ri = solv_calloc(1, sizeof(*ri));
2893     ri->solv = r->solv;
2894     ri->rid = r->id;
2895     ri->type = type;
2896     ri->source = source;
2897     ri->target = target;
2898     ri->dep_id = dep_id;
2899     return ri;
2900   }
2901   %newobject solvable;
2902   XSolvable * const solvable;
2903   %newobject othersolvable;
2904   XSolvable * const othersolvable;
2905   %newobject dep;
2906   Dep * const dep;
2907   %{
2908     SWIGINTERN XSolvable *Ruleinfo_solvable_get(Ruleinfo *ri) {
2909       return new_XSolvable(ri->solv->pool, ri->source);
2910     }
2911     SWIGINTERN XSolvable *Ruleinfo_othersolvable_get(Ruleinfo *ri) {
2912       return new_XSolvable(ri->solv->pool, ri->target);
2913     }
2914     SWIGINTERN Dep *Ruleinfo_dep_get(Ruleinfo *ri) {
2915       return new_Dep(ri->solv->pool, ri->dep_id);
2916     }
2917   %}
2918   const char *problemstr() {
2919     return solver_problemruleinfo2str($self->solv, $self->type, $self->source, $self->target, $self->dep_id);
2920   }
2921 }
2922
2923 %extend XRepodata {
2924   XRepodata(Repo *repo, Id id) {
2925     XRepodata *xr = solv_calloc(1, sizeof(*xr));
2926     xr->repo = repo;
2927     xr->id = id;
2928     return xr;
2929   }
2930   Id new_handle() {
2931     return repodata_new_handle(repo_id2repodata($self->repo, $self->id));
2932   }
2933   void set_id(Id solvid, Id keyname, DepId id) {
2934     repodata_set_id(repo_id2repodata($self->repo, $self->id), solvid, keyname, id);
2935   }
2936   void set_str(Id solvid, Id keyname, const char *str) {
2937     repodata_set_str(repo_id2repodata($self->repo, $self->id), solvid, keyname, str);
2938   }
2939   void set_poolstr(Id solvid, Id keyname, const char *str) {
2940     repodata_set_poolstr(repo_id2repodata($self->repo, $self->id), solvid, keyname, str);
2941   }
2942   void add_idarray(Id solvid, Id keyname, DepId id) {
2943     repodata_add_idarray(repo_id2repodata($self->repo, $self->id), solvid, keyname, id);
2944   }
2945   void add_flexarray(Id solvid, Id keyname, Id handle) {
2946     repodata_add_flexarray(repo_id2repodata($self->repo, $self->id), solvid, keyname, handle);
2947   }
2948   void set_checksum(Id solvid, Id keyname, Chksum *chksum) {
2949     const unsigned char *buf = solv_chksum_get(chksum, 0);
2950     if (buf)
2951       repodata_set_bin_checksum(repo_id2repodata($self->repo, $self->id), solvid, keyname, solv_chksum_get_type(chksum), buf);
2952   }
2953   const char *lookup_str(Id solvid, Id keyname) {
2954     return repodata_lookup_str(repo_id2repodata($self->repo, $self->id), solvid, keyname);
2955   }
2956   Queue lookup_idarray(Id solvid, Id keyname) {
2957     Queue r;
2958     queue_init(&r);
2959     repodata_lookup_idarray(repo_id2repodata($self->repo, $self->id), solvid, keyname, &r);
2960     return r;
2961   }
2962   %newobject lookup_checksum;
2963   Chksum *lookup_checksum(Id solvid, Id keyname) {
2964     Id type = 0;
2965     const unsigned char *b = repodata_lookup_bin_checksum(repo_id2repodata($self->repo, $self->id), solvid, keyname, &type);
2966     return solv_chksum_create_from_bin(type, b);
2967   }
2968   void internalize() {
2969     repodata_internalize(repo_id2repodata($self->repo, $self->id));
2970   }
2971   void create_stubs() {
2972     repodata_create_stubs(repo_id2repodata($self->repo, $self->id));
2973   }
2974   bool write(FILE *fp) {
2975     return repodata_write(repo_id2repodata($self->repo, $self->id), fp) == 0;
2976   }
2977   bool add_solv(FILE *fp, int flags = 0) {
2978     Repodata *data = repo_id2repodata($self->repo, $self->id);
2979     int r, oldstate = data->state;
2980     data->state = REPODATA_LOADING;
2981     r = repo_add_solv(data->repo, fp, flags | REPO_USE_LOADING);
2982     if (r || data->state == REPODATA_LOADING)
2983       data->state = oldstate;
2984     return r;
2985   }
2986   void extend_to_repo() {
2987     Repodata *data = repo_id2repodata($self->repo, $self->id);
2988     repodata_extend_block(data, data->repo->start, data->repo->end - data->repo->start);
2989   }
2990   bool __eq__(XRepodata *xr) {
2991     return $self->repo == xr->repo && $self->id == xr->id;
2992   }
2993   bool __ne__(XRepodata *xr) {
2994     return !XRepodata___eq__($self, xr);
2995   }
2996   %newobject __repr__;
2997   const char *__repr__() {
2998     char buf[20];
2999     sprintf(buf, "<Repodata #%d>", $self->id);
3000     return solv_strdup(buf);
3001   }
3002 }
3003