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 /**
  14  ** binaryblob handling
  15  **/
  16
  17 %{
  18 typedef struct {
  19   const void *data;
  20   size_t len;
  21 } BinaryBlob;
  22 %}
  23
  24 %typemap(in,noblock=1,fragment="SWIG_AsCharPtrAndSize") (const unsigned char *str, size_t len) (int res, char *buf = 0, size_t size = 0, int alloc = 0) {
  25 #if defined(SWIGTCL)
  26   {
  27     int bal;
  28     unsigned char *ba;
  29     res = SWIG_TypeError;
  30     ba = Tcl_GetByteArrayFromObj($input, &bal);
  31     if (ba) {
  32       buf = (char *)ba;
  33       size = bal;
  34       res = SWIG_OK;
  35       alloc = SWIG_OLDOBJ;
  36     }
  37   }
  38 #else
  39   res = SWIG_AsCharPtrAndSize($input, &buf, &size, &alloc);
  40   if (buf && size)
  41     size--;
  42 #endif
  43   if (!SWIG_IsOK(res)) {
  44 #if defined(SWIGPYTHON)
  45     const void *pybuf = 0;
  46     Py_ssize_t pysize = 0;
  47     res = PyObject_AsReadBuffer($input, &pybuf, &pysize);
  48     if (res < 0) {
  49       %argument_fail(res, "BinaryBlob", $symname, $argnum);
  50     } else {
  51       buf = (void *)pybuf;
  52       size = pysize;
  53     }
  54 #else
  55     %argument_fail(res, "const char *", $symname, $argnum);
  56 #endif
  57   }
  58   $1 = (unsigned char *)buf;
  59   $2 = size;
  60 }
  61
  62 %typemap(freearg,noblock=1,match="in") (const unsigned char *str, int len) {
  63   if (alloc$argnum == SWIG_NEWOBJ) %delete_array(buf$argnum);
  64 }
  65
  66 %typemap(out,noblock=1,fragment="SWIG_FromCharPtrAndSize") BinaryBlob {
  67 #if defined(SWIGPYTHON) && defined(PYTHON3)
  68   $result = $1.data ? Py_BuildValue("y#", $1.data, $1.len) : SWIG_Py_Void();
  69 #elif defined(SWIGTCL)
  70   Tcl_SetObjResult(interp, $1.data ? Tcl_NewByteArrayObj($1.data, $1.len) : NULL);
  71 #else
  72   $result = SWIG_FromCharPtrAndSize($1.data, $1.len);
  73 #if defined(SWIGPERL)
  74   argvi++;
  75 #endif
  76 #endif
  77 }
  78
  79 /**
  80  ** Queue handling
  81  **/
  82
  83 %typemap(arginit) Queue {
  84   queue_init(&$1);
  85 }
  86 %typemap(freearg) Queue {
  87   queue_free(&$1);
  88 }
  89
  90 #if defined(SWIGPYTHON)
  91 %typemap(in) Queue {
  92   /* Check if is a list */
  93   if (PyList_Check($input)) {
  94     int size = PyList_Size($input);
  95     int i = 0;
  96     for (i = 0; i < size; i++) {
  97       PyObject *o = PyList_GetItem($input,i);
  98       int v;
  99       int e = SWIG_AsVal_int(o, &v);
 100       if (!SWIG_IsOK(e))
 101         SWIG_exception_fail(SWIG_ArgError(e), "list must contain only integers");
 102       queue_push(&$1, v);
 103     }
 104   } else {
 105     SWIG_exception_fail(SWIG_TypeError, "list must contain only integers");
 106   }
 107 }
 108
 109 %typemap(out) Queue {
 110   int i;
 111   PyObject *o = PyList_New($1.count);
 112   for (i = 0; i < $1.count; i++)
 113     PyList_SetItem(o, i, SWIG_From_int($1.elements[i]));
 114   queue_free(&$1);
 115   $result = o;
 116 }
 117
 118 %define Queue2Array(type, step, con) %{
 119   int i;
 120   int cnt = $1.count / step;
 121   Id *idp = $1.elements;
 122   PyObject *o = PyList_New(cnt);
 123   for (i = 0; i < cnt; i++, idp += step)
 124     {
 125       Id id = *idp;
 126 #define result resultx
 127       type result = con;
 128       $typemap(out, type)
 129       PyList_SetItem(o, i, $result);
 130 #undef result
 131     }
 132   queue_free(&$1);
 133   $result = o;
 134 %}
 135
 136 %enddef
 137
 138 #endif  /* SWIGPYTHON */
 139
 140 #if defined(SWIGPERL)
 141 %typemap(in) Queue {
 142   AV *av;
 143   int i, size;
 144   if (!SvROK($input) || SvTYPE(SvRV($input)) != SVt_PVAV)
 145     SWIG_croak("Argument $argnum is not an array reference.");
 146   av = (AV*)SvRV($input);
 147   size = av_len(av);
 148   for (i = 0; i <= size; i++) {
 149     SV **sv = av_fetch(av, i, 0);
 150     int v;
 151     int e = SWIG_AsVal_int(*sv, &v);
 152     if (!SWIG_IsOK(e)) {
 153       SWIG_croak("list must contain only integers");
 154     }
 155     queue_push(&$1, v);
 156   }
 157 }
 158 /* AV *o = newAV();
 159  * av_push(o, SvREFCNT_inc(SWIG_From_int($1.elements[i])));
 160  * $result = newRV_noinc((SV*)o); argvi++;
 161  */
 162 %typemap(out) Queue {
 163   int i;
 164   if (argvi + $1.count + 1 >= items) {
 165     EXTEND(sp, (argvi + $1.count + 1) - items + 1);
 166   }
 167   for (i = 0; i < $1.count; i++)
 168     ST(argvi++) = SvREFCNT_inc(SWIG_From_int($1.elements[i]));
 169   queue_free(&$1);
 170   $result = 0;
 171 }
 172
 173 %define Queue2Array(type, step, con) %{
 174   int i;
 175   int cnt = $1.count / step;
 176   Id *idp = $1.elements;
 177   if (argvi + cnt + 1 >= items) {
 178     EXTEND(sp, (argvi + cnt + 1) - items + 1);
 179   }
 180   for (i = 0; i < cnt; i++, idp += step)
 181     {
 182       Id id = *idp;
 183 #define result resultx
 184       type result = con;
 185       $typemap(out, type)
 186       SvREFCNT_inc(ST(argvi - 1));
 187 #undef result
 188     }
 189   queue_free(&$1);
 190   $result = 0;
 191 %}
 192 %enddef
 193
 194 #endif  /* SWIGPERL */
 195
 196
 197 #if defined(SWIGRUBY)
 198 %typemap(in) Queue {
 199   int size, i;
 200   VALUE *o, ary;
 201   ary = rb_Array($input);
 202   size = RARRAY_LEN(ary);
 203   i = 0;
 204   o = RARRAY_PTR(ary);
 205   for (i = 0; i < size; i++, o++) {
 206     int v;
 207     int e = SWIG_AsVal_int(*o, &v);
 208     if (!SWIG_IsOK(e))
 209       SWIG_exception_fail(SWIG_TypeError, "list must contain only integers");
 210     queue_push(&$1, v);
 211   }
 212 }
 213 %typemap(out) Queue {
 214   int i;
 215   VALUE o = rb_ary_new2($1.count);
 216   for (i = 0; i < $1.count; i++)
 217     rb_ary_store(o, i, SWIG_From_int($1.elements[i]));
 218   queue_free(&$1);
 219   $result = o;
 220 }
 221 %typemap(arginit) Queue {
 222   queue_init(&$1);
 223 }
 224 %typemap(freearg) Queue {
 225   queue_free(&$1);
 226 }
 227 %define Queue2Array(type, step, con) %{
 228   int i;
 229   int cnt = $1.count / step;
 230   Id *idp = $1.elements;
 231   VALUE o = rb_ary_new2(cnt);
 232   for (i = 0; i < cnt; i++, idp += step)
 233     {
 234       Id id = *idp;
 235 #define result resultx
 236       type result = con;
 237       $typemap(out, type)
 238       rb_ary_store(o, i, $result);
 239 #undef result
 240     }
 241   queue_free(&$1);
 242   $result = o;
 243 %}
 244 %enddef
 245
 246 #endif  /* SWIGRUBY */
 247
 248 #if defined(SWIGTCL)
 249 %typemap(in) Queue {
 250   /* Check if is a list */
 251   int size = 0;
 252   int i = 0;
 253
 254   if (TCL_OK != Tcl_ListObjLength(interp, $input, &size))
 255     SWIG_exception_fail(SWIG_TypeError, "argument is not a list");
 256   for (i = 0; i < size; i++) {
 257     Tcl_Obj *o = NULL;
 258     int e, v;
 259
 260     if (TCL_OK != Tcl_ListObjIndex(interp, $input, i, &o))
 261       SWIG_exception_fail(SWIG_IndexError, "failed to retrieve a list member");
 262     e = SWIG_AsVal_int SWIG_TCL_CALL_ARGS_2(o, &v);
 263     if (!SWIG_IsOK(e))
 264       SWIG_exception_fail(SWIG_ArgError(e), "list must contain only integers");
 265     queue_push(&$1, v);
 266   }
 267 }
 268
 269 %typemap(out) Queue {
 270   Tcl_Obj *objvx[$1.count];
 271   int i;
 272
 273   for (i = 0; i < $1.count; i++) {
 274     objvx[i] = SWIG_From_int($1.elements[i]);
 275   }
 276   Tcl_SetObjResult(interp, Tcl_NewListObj($1.count, objvx));
 277   queue_free(&$1);
 278 }
 279
 280 %define Queue2Array(type, step, con) %{
 281   { /* scope is needed to make the goto of SWIG_exception_fail work */
 282     int i;
 283     int cnt = $1.count / step;
 284     Id *idp = $1.elements;
 285     Tcl_Obj *objvx[cnt];
 286
 287     for (i = 0; i < cnt; i++, idp += step) {
 288       Id id = *idp;
 289 #define result resultx
 290 #define Tcl_SetObjResult(i, x) resultobj = x
 291       type result = con;
 292       Tcl_Obj *resultobj;
 293       $typemap(out, type)
 294       objvx[i] = resultobj;
 295 #undef Tcl_SetObjResult
 296 #undef result
 297     }
 298     queue_free(&$1);
 299     Tcl_SetObjResult(interp, Tcl_NewListObj(cnt, objvx));
 300   }
 301 %}
 302
 303 %enddef
 304
 305 %typemap(in) Queue solvejobs {
 306   /* Check if is a list */
 307   int size = 0;
 308   int i = 0;
 309
 310   if (TCL_OK != Tcl_ListObjLength(interp, $input, &size))
 311     SWIG_exception_fail(SWIG_TypeError, "argument is not a list");
 312   for (i = 0; i < size; i++) {
 313     Tcl_Obj *o = NULL;
 314     void *jp;
 315     Job *j;
 316     int e;
 317
 318     if (TCL_OK != Tcl_ListObjIndex(interp, $input, i, &o))
 319       SWIG_exception_fail(SWIG_IndexError, "failed to retrieve a list member");
 320     e = SWIG_ConvertPtr(o, &jp ,SWIGTYPE_p_Job, 0 |  0 );
 321     if (!SWIG_IsOK(e))
 322       SWIG_exception_fail(SWIG_ArgError(e), "list member is not a Job");
 323     j = (Job *)jp;
 324     queue_push2(&$1, j->how, j->what);
 325   }
 326 }
 327
 328 #endif  /* SWIGTCL */
 329
 330
 331 #if defined(SWIGPERL)
 332
 333 /* work around a swig bug for swig versions < 2.0.5 */
 334 #if SWIG_VERSION < 0x020005
 335 %{
 336 #undef SWIG_CALLXS
 337 #ifdef PERL_OBJECT
 338 #  define SWIG_CALLXS(_name) TOPMARK=MARK-PL_stack_base;_name(cv,pPerl)
 339 #else
 340 #  ifndef MULTIPLICITY
 341 #    define SWIG_CALLXS(_name) TOPMARK=MARK-PL_stack_base;_name(cv)
 342 #  else
 343 #    define SWIG_CALLXS(_name) TOPMARK=MARK-PL_stack_base;_name(PERL_GET_THX, cv)
 344 #  endif
 345 #endif
 346 %}
 347 #endif
 348
 349
 350 %define perliter(class)
 351   %perlcode {
 352     sub class##::FETCH {
 353       my $i = ${##class##::ITERATORS}{$_[0]};
 354       if ($i) {
 355         $_[1] == $i->[0] - 1 ? $i->[1] : undef;
 356       } else {
 357         $_[0]->__getitem__($_[1]);
 358       }
 359     }
 360     sub class##::FETCHSIZE {
 361       my $i = ${##class##::ITERATORS}{$_[0]};
 362       if ($i) {
 363         ($i->[1] = $_[0]->__next__()) ? ++$i->[0]  : 0;
 364       } else {
 365         $_[0]->__len__();
 366       }
 367     }
 368   }
 369 %enddef
 370
 371 %{
 372
 373 #define SWIG_PERL_ITERATOR      0x80
 374
 375 SWIGRUNTIMEINLINE SV *
 376 SWIG_Perl_NewArrayObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
 377   SV *result = sv_newmortal();
 378   if (ptr && (flags & (SWIG_SHADOW | SWIG_POINTER_OWN))) {
 379     SV *self;
 380     SV *obj=newSV(0);
 381     AV *array=newAV();
 382     HV *stash;
 383     sv_setref_pv(obj, (char *) SWIG_Perl_TypeProxyName(t), ptr);
 384     stash=SvSTASH(SvRV(obj));
 385     if (flags & SWIG_POINTER_OWN) {
 386       HV *hv;
 387       GV *gv=*(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
 388       if (!isGV(gv))
 389         gv_init(gv, stash, "OWNER", 5, FALSE);
 390       hv=GvHVn(gv);
 391       hv_store_ent(hv, obj, newSViv(1), 0);
 392     }
 393     if (flags & SWIG_PERL_ITERATOR) {
 394       HV *hv;
 395       GV *gv=*(GV**)hv_fetch(stash, "ITERATORS", 9, TRUE);
 396       AV *av=newAV();
 397       if (!isGV(gv))
 398         gv_init(gv, stash, "ITERATORS", 9, FALSE);
 399       hv=GvHVn(gv);
 400       hv_store_ent(hv, obj, newRV_inc((SV *)av), 0);
 401     }
 402     sv_magic((SV *)array, (SV *)obj, 'P', Nullch, 0);
 403     SvREFCNT_dec(obj);
 404     self=newRV_noinc((SV *)array);
 405     sv_setsv(result, self);
 406     SvREFCNT_dec((SV *)self);
 407     sv_bless(result, stash);
 408   } else {
 409     sv_setref_pv(result, (char *) SWIG_Perl_TypeProxyName(t), ptr);
 410   }
 411   return result;
 412 }
 413
 414 %}
 415
 416 %typemap(out) Perlarray {
 417   ST(argvi) = SWIG_Perl_NewArrayObj(SWIG_PERL_OBJECT_CALL SWIG_as_voidptr(result), $1_descriptor, $owner | $shadow); argvi++;
 418 }
 419 %typemap(out) Perliterator {
 420   ST(argvi) = SWIG_Perl_NewArrayObj(SWIG_PERL_OBJECT_CALL SWIG_as_voidptr(result), $1_descriptor, $owner | $shadow | SWIG_PERL_ITERATOR); argvi++;
 421 }
 422
 423 %typemap(out) Pool_solvable_iterator * = Perlarray;
 424 %typemap(out) Pool_solvable_iterator * solvables_iter = Perliterator;
 425 %typemap(out) Pool_repo_iterator * = Perlarray;
 426 %typemap(out) Pool_repo_iterator * repos_iter = Perliterator;
 427 %typemap(out) Repo_solvable_iterator * = Perlarray;
 428 %typemap(out) Repo_solvable_iterator * solvables_iter = Perliterator;
 429 %typemap(out) Dataiterator * = Perliterator;
 430
 431 #endif  /* SWIGPERL */
 432
 433
 434 /**
 435  ** appdata handling
 436  **/
 437
 438 #if defined(SWIGPYTHON)
 439 typedef PyObject *AppObjectPtr;
 440 %typemap(in) AppObjectPtr {
 441   if ($input)
 442     Py_INCREF($input);
 443   $1 = $input;
 444 }
 445 %typemap(out) AppObjectPtr {
 446   $result = $1 ? $1 : Py_None;
 447   Py_INCREF($result);
 448 }
 449 #elif defined(SWIGPERL)
 450 typedef SV *AppObjectPtr;
 451 %typemap(in) AppObjectPtr {
 452   if ($input) {
 453     $1 = newSV(0);
 454     sv_setsv((SV *)$1, $input);
 455   } else
 456     $1 = (void *)0;
 457 }
 458 %typemap(out) AppObjectPtr {
 459   $result = sv_2mortal($1 ? SvREFCNT_inc($1) : newSV(0));
 460   argvi++;
 461 }
 462 #elif defined(SWIGRUBY)
 463 typedef VALUE AppObjectPtr;
 464 %typemap(in) AppObjectPtr {
 465   $1 = (void *)$input;
 466 }
 467 %typemap(out) AppObjectPtr {
 468   $result = (VALUE)$1;
 469 }
 470 #elif defined(SWIGTCL)
 471 typedef Tcl_Obj *AppObjectPtr;
 472 %typemap(in) AppObjectPtr {
 473   if ($input)
 474     Tcl_IncrRefCount($input);
 475   $1 = (void *)$input;
 476 }
 477 %typemap(out) AppObjectPtr {
 478   Tcl_SetObjResult(interp, $1 ? $1 : Tcl_NewObj());
 479 }
 480 #else
 481 #warning AppObjectPtr not defined for this language!
 482 #endif
 483
 484 /**
 485  ** FILE handling
 486  **/
 487
 488 #ifdef SWIGPYTHON
 489 %include "file.i"
 490 #else
 491 %fragment("SWIG_AsValFilePtr","header") {}
 492 #endif
 493
 494
 495 %fragment("SWIG_AsValSolvFpPtr","header", fragment="SWIG_AsValFilePtr") {
 496
 497 SWIGINTERN int
 498 #ifdef SWIGRUBY
 499 SWIG_AsValSolvFpPtr(VALUE obj, FILE **val) {
 500 #elif defined(SWIGTCL)
 501 SWIG_AsValSolvFpPtr SWIG_TCL_DECL_ARGS_2(void *obj, FILE **val) {
 502 #else
 503 SWIG_AsValSolvFpPtr(void *obj, FILE **val) {
 504 #endif
 505   static swig_type_info* desc = 0;
 506   void *vptr = 0;
 507   int ecode;
 508
 509   if (!desc) desc = SWIG_TypeQuery("SolvFp *");
 510   if ((SWIG_ConvertPtr(obj, &vptr, desc, 0)) == SWIG_OK) {
 511     if (val)
 512       *val = vptr ? ((SolvFp *)vptr)->fp : 0;
 513     return SWIG_OK;
 514   }
 515 #ifdef SWIGPYTHON
 516   ecode = SWIG_AsValFilePtr(obj, val);
 517   if (ecode == SWIG_OK)
 518     return ecode;
 519 #endif
 520   return SWIG_TypeError;
 521 }
 522
 523 #if defined(SWIGTCL)
 524 #define SWIG_AsValSolvFpPtr(x, y) SWIG_AsValSolvFpPtr SWIG_TCL_CALL_ARGS_2(x, y)
 525 #endif
 526
 527 }
 528
 529
 530 /**
 531  ** DepId handling
 532  **/
 533
 534 %fragment("SWIG_AsValDepId","header") {
 535
 536 SWIGINTERN int
 537 #ifdef SWIGRUBY
 538 SWIG_AsValDepId(VALUE obj, int *val) {
 539 #elif defined(SWIGTCL)
 540 SWIG_AsValDepId SWIG_TCL_DECL_ARGS_2(void *obj, int *val) {
 541 #else
 542 SWIG_AsValDepId(void *obj, int *val) {
 543 #endif
 544   static swig_type_info* desc = 0;
 545   void *vptr = 0;
 546   int ecode;
 547   if (!desc) desc = SWIG_TypeQuery("Dep *");
 548 #ifdef SWIGTCL
 549   ecode = SWIG_AsVal_int SWIG_TCL_CALL_ARGS_2(obj, val);
 550 #else
 551   ecode = SWIG_AsVal_int(obj, val);
 552 #endif
 553   if (SWIG_IsOK(ecode))
 554     return ecode;
 555   if ((SWIG_ConvertPtr(obj, &vptr, desc, 0)) == SWIG_OK) {
 556     if (val)
 557       *val = vptr ? ((Dep *)vptr)->id : 0;
 558     return SWIG_OK;
 559   }
 560   return SWIG_TypeError;
 561 }
 562
 563 #ifdef SWIGTCL
 564 #define SWIG_AsValDepId(x, y) SWIG_AsValDepId SWIG_TCL_CALL_ARGS_2(x, y)
 565 #endif
 566 }
 567
 568 /**
 569  ** Pool disown helper
 570  **/
 571
 572 %typemap(out) disown_helper {
 573 #if defined(SWIGRUBY)
 574   SWIG_ConvertPtr(self, &argp1,SWIGTYPE_p_Pool, SWIG_POINTER_DISOWN |  0 );
 575 #elif defined(SWIGPYTHON)
 576   SWIG_ConvertPtr(obj0, &argp1,SWIGTYPE_p_Pool, SWIG_POINTER_DISOWN |  0 );
 577 #elif defined(SWIGPERL)
 578   SWIG_ConvertPtr(ST(0), &argp1,SWIGTYPE_p_Pool, SWIG_POINTER_DISOWN |  0 );
 579 #elif defined(SWIGTCL)
 580   SWIG_ConvertPtr(objv[1], &argp1, SWIGTYPE_p_Pool, SWIG_POINTER_DISOWN | 0);
 581 #else
 582 #warning disown_helper not implemented for this language, this is likely going to leak memory
 583 #endif
 584
 585 #ifdef SWIGTCL
 586   Tcl_SetObjResult(interp, SWIG_From_int((int)(0)));
 587 #else
 588   $result = SWIG_From_int((int)(0));
 589 #endif
 590 }
 591
 592
 593 /**
 594  ** misc stuff
 595  **/
 596
 597 %include "typemaps.i"
 598
 599 %typemap(in,numinputs=0,noblock=1) XRule **OUTPUT ($*1_ltype temp) {
 600   $1 = &temp;
 601 }
 602 %typemap(argout,noblock=1) XRule **OUTPUT {
 603   %append_output(SWIG_NewPointerObj((void*)(*$1), SWIGTYPE_p_XRule, SWIG_POINTER_OWN | %newpointer_flags));
 604 }
 605
 606 %typemaps_asval(%checkcode(POINTER), SWIG_AsValSolvFpPtr, "SWIG_AsValSolvFpPtr", FILE*);
 607 %typemaps_asval(%checkcode(INT32), SWIG_AsValDepId, "SWIG_AsValDepId", DepId);
 608
 609
 610 /**
 611  ** the C declarations
 612  **/
 613
 614 %{
 615 #include <stdbool.h>
 616 #include <stdio.h>
 617 #include <sys/stat.h>
 618 #include <sys/utsname.h>
 619 #include <sys/types.h>
 620 #include <unistd.h>
 621 #include <fcntl.h>
 622
 623 /* argh, swig undefs bool for perl */
 624 #ifndef bool
 625 typedef int bool;
 626 #endif
 627
 628 #include "pool.h"
 629 #include "poolarch.h"
 630 #include "evr.h"
 631 #include "solver.h"
 632 #include "policy.h"
 633 #include "solverdebug.h"
 634 #include "repo_solv.h"
 635 #include "chksum.h"
 636 #include "selection.h"
 637
 638 #include "repo_write.h"
 639 #if defined(ENABLE_RPMDB) || defined(ENABLE_RPMPKG)
 640 #include "repo_rpmdb.h"
 641 #endif
 642 #ifdef ENABLE_PUBKEY
 643 #include "repo_pubkey.h"
 644 #endif
 645 #ifdef ENABLE_DEBIAN
 646 #include "repo_deb.h"
 647 #endif
 648 #ifdef ENABLE_RPMMD
 649 #include "repo_rpmmd.h"
 650 #include "repo_updateinfoxml.h"
 651 #include "repo_deltainfoxml.h"
 652 #include "repo_repomdxml.h"
 653 #endif
 654 #ifdef ENABLE_SUSEREPO
 655 #include "repo_products.h"
 656 #include "repo_susetags.h"
 657 #include "repo_content.h"
 658 #endif
 659 #ifdef ENABLE_MDKREPO
 660 #include "repo_mdk.h"
 661 #endif
 662 #ifdef ENABLE_ARCHREPO
 663 #include "repo_arch.h"
 664 #endif
 665 #ifdef SUSE
 666 #include "repo_autopattern.h"
 667 #endif
 668 #include "solv_xfopen.h"
 669 #include "testcase.h"
 670
 671 /* for old ruby versions */
 672 #ifndef RARRAY_PTR
 673 #define RARRAY_PTR(ary) (RARRAY(ary)->ptr)
 674 #endif
 675 #ifndef RARRAY_LEN
 676 #define RARRAY_LEN(ary) (RARRAY(ary)->len)
 677 #endif
 678
 679 #define SOLVER_SOLUTION_ERASE                   -100
 680 #define SOLVER_SOLUTION_REPLACE                 -101
 681 #define SOLVER_SOLUTION_REPLACE_DOWNGRADE       -102
 682 #define SOLVER_SOLUTION_REPLACE_ARCHCHANGE      -103
 683 #define SOLVER_SOLUTION_REPLACE_VENDORCHANGE    -104
 684 #define SOLVER_SOLUTION_REPLACE_NAMECHANGE      -105
 685
 686 typedef void *AppObjectPtr;
 687 typedef Id DepId;
 688
 689 typedef struct {
 690   Pool *pool;
 691   Id id;
 692 } Dep;
 693
 694 typedef struct {
 695   Pool *pool;
 696   Id id;
 697 } XSolvable;
 698
 699 typedef struct {
 700   Solver *solv;
 701   Id id;
 702 } XRule;
 703
 704 typedef struct {
 705   Repo *repo;
 706   Id id;
 707 } XRepodata;
 708
 709 typedef struct {
 710   Pool *pool;
 711   Id id;
 712 } Pool_solvable_iterator;
 713
 714 typedef struct {
 715   Pool *pool;
 716   Id id;
 717 } Pool_repo_iterator;
 718
 719 typedef struct {
 720   Repo *repo;
 721   Id id;
 722 } Repo_solvable_iterator;
 723
 724 typedef struct {
 725   Pool *pool;
 726   int how;
 727   Id what;
 728 } Job;
 729
 730 typedef struct {
 731   Solver *solv;
 732   Id id;
 733 } Problem;
 734
 735 typedef struct {
 736   Solver *solv;
 737   Id problemid;
 738   Id id;
 739 } Solution;
 740
 741 typedef struct {
 742   Solver *solv;
 743   Id problemid;
 744   Id solutionid;
 745   Id id;
 746
 747   Id type;
 748   Id p;
 749   Id rp;
 750 } Solutionelement;
 751
 752 typedef struct {
 753   Solver *solv;
 754   Id rid;
 755   Id type;
 756   Id source;
 757   Id target;
 758   Id dep_id;
 759 } Ruleinfo;
 760
 761 typedef struct {
 762   Solver *solv;
 763   Id type;
 764   Id rid;
 765   Id from_id;
 766   Id dep_id;
 767   Id chosen_id;
 768   Queue choices;
 769   int level;
 770 } Alternative;
 771
 772 typedef struct {
 773   Transaction *transaction;
 774   int mode;
 775   Id type;
 776   int count;
 777   Id fromid;
 778   Id toid;
 779 } TransactionClass;
 780
 781 typedef struct {
 782   Pool *pool;
 783   Queue q;
 784   int flags;
 785 } Selection;
 786
 787 typedef struct {
 788   FILE *fp;
 789 } SolvFp;
 790
 791 typedef Dataiterator Datamatch;
 792
 793 typedef int disown_helper;
 794
 795 struct myappdata {
 796   void *appdata;
 797   int disowned;
 798 };
 799
 800
 801 %}
 802
 803 /**
 804  ** appdata helpers
 805  **/
 806
 807 #ifdef SWIGRUBY
 808
 809 %{
 810 SWIGINTERN void appdata_disown_helper(void *appdata) {
 811 }
 812 SWIGINTERN void appdata_clr_helper(void **appdatap) {
 813   *appdatap = 0;
 814 }
 815 SWIGINTERN void appdata_set_helper(void **appdatap, void *appdata) {
 816   *appdatap = appdata;
 817 }
 818 SWIGINTERN void *appdata_get_helper(void *appdata) {
 819   return appdata;
 820 }
 821 %}
 822
 823 #elif defined(SWIGTCL)
 824
 825 %{
 826 SWIGINTERN void appdata_disown_helper(void *appdata) {
 827 }
 828 SWIGINTERN void appdata_clr_helper(void **appdatap) {
 829   if (*appdatap)
 830     Tcl_DecrRefCount((Tcl_Obj *)(*appdatap));
 831   *appdatap = 0;
 832 }
 833 SWIGINTERN void appdata_set_helper(void **appdatap, void *appdata) {
 834   appdata_clr_helper(appdatap);
 835   *appdatap = appdata;
 836 }
 837 SWIGINTERN void *appdata_get_helper(void *appdata) {
 838   return appdata;
 839 }
 840 %}
 841
 842 #elif defined(SWIGPYTHON)
 843
 844 %{
 845 SWIGINTERN void appdata_disown_helper(void *appdata) {
 846   struct myappdata *myappdata = appdata;
 847   if (!myappdata || !myappdata->appdata || myappdata->disowned)
 848     return;
 849   myappdata->disowned = 1;
 850   Py_DECREF((PyObject *)myappdata->appdata);
 851 }
 852 SWIGINTERN void appdata_clr_helper(void **appdatap) {
 853   struct myappdata *myappdata = *(struct myappdata **)appdatap;
 854   if (myappdata && myappdata->appdata && !myappdata->disowned) {
 855     Py_DECREF((PyObject *)myappdata->appdata);
 856   }
 857   *appdatap = solv_free(myappdata);
 858 }
 859 SWIGINTERN void appdata_set_helper(void **appdatap, void *appdata) {
 860   appdata_clr_helper(appdatap);
 861   if (appdata) {
 862     struct myappdata *myappdata = *appdatap = solv_calloc(sizeof(struct myappdata), 1);
 863     myappdata->appdata = appdata;
 864   }
 865 }
 866 SWIGINTERN void *appdata_get_helper(void *appdata) {
 867   return appdata ? ((struct myappdata *)appdata)->appdata : 0;
 868 }
 869
 870 %}
 871
 872 #elif defined(SWIGPERL)
 873
 874 %{
 875 SWIGINTERN void appdata_disown_helper(void *appdata) {
 876   struct myappdata *myappdata = appdata;
 877   SV *rsv;
 878   if (!myappdata || !myappdata->appdata || myappdata->disowned)
 879     return;
 880   rsv = myappdata->appdata;
 881   if (!SvROK(rsv))
 882     return;
 883   myappdata->appdata = SvRV(rsv);
 884   myappdata->disowned = 1;
 885   SvREFCNT_dec(rsv);
 886 }
 887 SWIGINTERN void appdata_clr_helper(void **appdatap) {
 888   struct myappdata *myappdata = *(struct myappdata **)appdatap;
 889   if (myappdata && myappdata->appdata && !myappdata->disowned) {
 890     SvREFCNT_dec((SV *)myappdata->appdata);
 891   }
 892   *appdatap = solv_free(myappdata);
 893 }
 894 SWIGINTERN void appdata_set_helper(void **appdatap, void *appdata) {
 895   appdata_clr_helper(appdatap);
 896   if (appdata) {
 897     struct myappdata *myappdata = *appdatap = solv_calloc(sizeof(struct myappdata), 1);
 898     myappdata->appdata = appdata;
 899   }
 900 }
 901 SWIGINTERN void *appdata_get_helper(void *appdata) {
 902   struct myappdata *myappdata = appdata;
 903   if (!myappdata || !myappdata->appdata)
 904     return 0;
 905   return myappdata->disowned ? newRV_noinc((SV *)myappdata->appdata) : myappdata->appdata;
 906 }
 907
 908 %}
 909
 910 #else
 911 #warning appdata helpers not implemented for this language
 912 #endif
 913
 914
 915 /**
 916  ** the SWIG declarations defining the API
 917  **/
 918
 919 #ifdef SWIGRUBY
 920 %mixin Dataiterator "Enumerable";
 921 %mixin Pool_solvable_iterator "Enumerable";
 922 %mixin Pool_repo_iterator "Enumerable";
 923 %mixin Repo_solvable_iterator "Enumerable";
 924 #endif
 925
 926 typedef int Id;
 927
 928 %include "knownid.h"
 929
 930 /* from repodata.h */
 931 %constant Id SOLVID_META;
 932 %constant Id SOLVID_POS;
 933
 934 %constant int REL_EQ;
 935 %constant int REL_GT;
 936 %constant int REL_LT;
 937 %constant int REL_AND;
 938 %constant int REL_OR;
 939 %constant int REL_WITH;
 940 %constant int REL_NAMESPACE;
 941 %constant int REL_ARCH;
 942 %constant int REL_FILECONFLICT;
 943 %constant int REL_COND;
 944 %constant int REL_COMPAT;
 945 %constant int REL_KIND;
 946 %constant int REL_MULTIARCH;
 947 %constant int REL_ELSE;
 948 %constant int REL_ERROR;
 949 %constant int REL_WITHOUT;
 950 %constant int REL_UNLESS;
 951
 952 typedef struct {
 953   Pool* const pool;
 954 } Selection;
 955
 956 typedef struct {
 957   Pool* const pool;
 958   Id const id;
 959 } Dep;
 960
 961 /* put before pool/repo so we can access the constructor */
 962 %nodefaultdtor Dataiterator;
 963 typedef struct {} Dataiterator;
 964
 965 typedef struct {
 966   Pool* const pool;
 967   Id const id;
 968 } XSolvable;
 969
 970 typedef struct {
 971   Solver* const solv;
 972   Id const type;
 973   Id const dep_id;
 974 } Ruleinfo;
 975
 976 typedef struct {
 977   Solver* const solv;
 978   Id const id;
 979 } XRule;
 980
 981 typedef struct {
 982   Repo* const repo;
 983   Id const id;
 984 } XRepodata;
 985
 986 typedef struct {} Pool_solvable_iterator;
 987 typedef struct {} Pool_repo_iterator;
 988 typedef struct {} Repo_solvable_iterator;
 989
 990 %nodefaultctor Datamatch;
 991 %nodefaultdtor Datamatch;
 992 typedef struct {
 993   Pool * const pool;
 994   Repo * const repo;
 995   Id const solvid;
 996 } Datamatch;
 997
 998 %nodefaultctor Datapos;
 999 typedef struct {
1000   Repo * const repo;
1001 } Datapos;
1002
1003 typedef struct {
1004   Pool * const pool;
1005   int how;
1006   Id what;
1007 } Job;
1008
1009 %nodefaultctor Pool;
1010 %nodefaultdtor Pool;
1011 typedef struct {
1012 } Pool;
1013
1014 %nodefaultctor Repo;
1015 %nodefaultdtor Repo;
1016 typedef struct {
1017   Pool * const pool;
1018   const char * const name;
1019   int priority;
1020   int subpriority;
1021   int const nsolvables;
1022 } Repo;
1023
1024 %nodefaultctor Solver;
1025 %nodefaultdtor Solver;
1026 typedef struct {
1027   Pool * const pool;
1028 } Solver;
1029
1030 typedef struct {
1031 } Chksum;
1032
1033 #ifdef ENABLE_PUBKEY
1034 typedef struct {
1035   Id const htype;
1036   unsigned int const created;
1037   unsigned int const expires;
1038   const char * const keyid;
1039 } Solvsig;
1040 #endif
1041
1042 %rename(xfopen) solvfp_xfopen;
1043 %rename(xfopen_fd) solvfp_xfopen_fd;
1044
1045 %nodefaultctor SolvFp;
1046 typedef struct {
1047 } SolvFp;
1048
1049 %newobject solvfp_xfopen;
1050 %newobject solvfp_xfopen_fd;
1051
1052 SolvFp *solvfp_xfopen(const char *fn, const char *mode = 0);
1053 SolvFp *solvfp_xfopen_fd(const char *fn, int fd, const char *mode = 0);
1054
1055 %{
1056   SWIGINTERN SolvFp *solvfp_xfopen_fd(const char *fn, int fd, const char *mode) {
1057     SolvFp *sfp;
1058     FILE *fp;
1059     fd = dup(fd);
1060     if (fd == -1)
1061       return 0;
1062     fcntl(fd, F_SETFD, FD_CLOEXEC);
1063     fp = solv_xfopen_fd(fn, fd, mode);
1064     if (!fp) {
1065       close(fd);
1066       return 0;
1067     }
1068     sfp = solv_calloc(1, sizeof(SolvFp));
1069     sfp->fp = fp;
1070     return sfp;
1071   }
1072   SWIGINTERN SolvFp *solvfp_xfopen(const char *fn, const char *mode) {
1073     SolvFp *sfp;
1074     FILE *fp;
1075     fp = solv_xfopen(fn, mode);
1076     if (!fp)
1077       return 0;
1078     if (fileno(fp) != -1)
1079       fcntl(fileno(fp), F_SETFD, FD_CLOEXEC);
1080     sfp = solv_calloc(1, sizeof(SolvFp));
1081     sfp->fp = fp;
1082     return sfp;
1083   }
1084 %}
1085
1086 typedef struct {
1087   Solver * const solv;
1088   Id const id;
1089 } Problem;
1090
1091 typedef struct {
1092   Solver * const solv;
1093   Id const problemid;
1094   Id const id;
1095 } Solution;
1096
1097 typedef struct {
1098   Solver *const solv;
1099   Id const problemid;
1100   Id const solutionid;
1101   Id const id;
1102   Id const type;
1103 } Solutionelement;
1104
1105 %nodefaultctor Alternative;
1106 typedef struct {
1107   Solver *const solv;
1108   Id const type;
1109   Id const rid;
1110   Id const from_id;
1111   Id const dep_id;
1112   Id const chosen_id;
1113   int level;
1114 } Alternative;
1115
1116 %nodefaultctor Transaction;
1117 %nodefaultdtor Transaction;
1118 typedef struct {
1119   Pool * const pool;
1120 } Transaction;
1121
1122 typedef struct {
1123   Transaction * const transaction;
1124   Id const type;
1125   Id const fromid;
1126   Id const toid;
1127   int const count;
1128 } TransactionClass;
1129
1130 %extend SolvFp {
1131   ~SolvFp() {
1132     if ($self->fp)
1133       fclose($self->fp);
1134     free($self);
1135   }
1136   int fileno() {
1137     return $self->fp ? fileno($self->fp) : -1;
1138   }
1139   int dup() {
1140     return $self->fp ? dup(fileno($self->fp)) : -1;
1141   }
1142   bool write(const unsigned char *str, size_t len) {
1143     return fwrite(str, len, 1, $self->fp) == 1;
1144   }
1145   bool flush() {
1146     if (!$self->fp)
1147       return 1;
1148     return fflush($self->fp) == 0;
1149   }
1150   bool close() {
1151     bool ret;
1152     if (!$self->fp)
1153       return 1;
1154     ret = fclose($self->fp) == 0;
1155     $self->fp = 0;
1156     return ret;
1157   }
1158   void cloexec(bool state) {
1159     if (!$self->fp || fileno($self->fp) == -1)
1160       return;
1161     fcntl(fileno($self->fp), F_SETFD, state ? FD_CLOEXEC : 0);
1162   }
1163 }
1164
1165 %extend Job {
1166   static const Id SOLVER_SOLVABLE = SOLVER_SOLVABLE;
1167   static const Id SOLVER_SOLVABLE_NAME = SOLVER_SOLVABLE_NAME;
1168   static const Id SOLVER_SOLVABLE_PROVIDES = SOLVER_SOLVABLE_PROVIDES;
1169   static const Id SOLVER_SOLVABLE_ONE_OF = SOLVER_SOLVABLE_ONE_OF;
1170   static const Id SOLVER_SOLVABLE_REPO = SOLVER_SOLVABLE_REPO;
1171   static const Id SOLVER_SOLVABLE_ALL = SOLVER_SOLVABLE_ALL;
1172   static const Id SOLVER_SELECTMASK = SOLVER_SELECTMASK;
1173   static const Id SOLVER_NOOP = SOLVER_NOOP;
1174   static const Id SOLVER_INSTALL = SOLVER_INSTALL;
1175   static const Id SOLVER_ERASE = SOLVER_ERASE;
1176   static const Id SOLVER_UPDATE = SOLVER_UPDATE;
1177   static const Id SOLVER_WEAKENDEPS = SOLVER_WEAKENDEPS;
1178   static const Id SOLVER_MULTIVERSION = SOLVER_MULTIVERSION;
1179   static const Id SOLVER_LOCK = SOLVER_LOCK;
1180   static const Id SOLVER_DISTUPGRADE = SOLVER_DISTUPGRADE;
1181   static const Id SOLVER_VERIFY = SOLVER_VERIFY;
1182   static const Id SOLVER_DROP_ORPHANED = SOLVER_DROP_ORPHANED;
1183   static const Id SOLVER_USERINSTALLED = SOLVER_USERINSTALLED;
1184   static const Id SOLVER_ALLOWUNINSTALL = SOLVER_ALLOWUNINSTALL;
1185   static const Id SOLVER_FAVOR = SOLVER_FAVOR;
1186   static const Id SOLVER_DISFAVOR = SOLVER_DISFAVOR;
1187   static const Id SOLVER_JOBMASK = SOLVER_JOBMASK;
1188   static const Id SOLVER_WEAK = SOLVER_WEAK;
1189   static const Id SOLVER_ESSENTIAL = SOLVER_ESSENTIAL;
1190   static const Id SOLVER_CLEANDEPS = SOLVER_CLEANDEPS;
1191   static const Id SOLVER_FORCEBEST = SOLVER_FORCEBEST;
1192   static const Id SOLVER_TARGETED = SOLVER_TARGETED;
1193   static const Id SOLVER_NOTBYUSER = SOLVER_NOTBYUSER;
1194   static const Id SOLVER_SETEV = SOLVER_SETEV;
1195   static const Id SOLVER_SETEVR = SOLVER_SETEVR;
1196   static const Id SOLVER_SETARCH = SOLVER_SETARCH;
1197   static const Id SOLVER_SETVENDOR = SOLVER_SETVENDOR;
1198   static const Id SOLVER_SETREPO = SOLVER_SETREPO;
1199   static const Id SOLVER_SETNAME = SOLVER_SETNAME;
1200   static const Id SOLVER_NOAUTOSET = SOLVER_NOAUTOSET;
1201   static const Id SOLVER_SETMASK = SOLVER_SETMASK;
1202
1203   Job(Pool *pool, int how, Id what) {
1204     Job *job = solv_calloc(1, sizeof(*job));
1205     job->pool = pool;
1206     job->how = how;
1207     job->what = what;
1208     return job;
1209   }
1210
1211   %typemap(out) Queue solvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
1212   %newobject solvables;
1213   Queue solvables() {
1214     Queue q;
1215     queue_init(&q);
1216     pool_job2solvables($self->pool, &q, $self->how, $self->what);
1217     return q;
1218   }
1219 #ifdef SWIGRUBY
1220   %rename("isemptyupdate?") isemptyupdate;
1221 #endif
1222   bool isemptyupdate() {
1223     return pool_isemptyupdatejob($self->pool, $self->how, $self->what);
1224   }
1225
1226 #if defined(SWIGTCL)
1227   %rename("==") __eq__;
1228 #endif
1229   bool __eq__(Job *j) {
1230     return $self->pool == j->pool && $self->how == j->how && $self->what == j->what;
1231   }
1232 #if defined(SWIGTCL)
1233   %rename("!=") __ne__;
1234 #endif
1235   bool __ne__(Job *j) {
1236     return !Job___eq__($self, j);
1237   }
1238 #if defined(SWIGPERL) || defined(SWIGTCL)
1239   %rename("str") __str__;
1240 #endif
1241   const char *__str__() {
1242     return pool_job2str($self->pool, $self->how, $self->what, 0);
1243   }
1244 #if defined(SWIGPERL) || defined(SWIGTCL)
1245   %rename("repr") __repr__;
1246 #endif
1247   const char *__repr__() {
1248     const char *str = pool_job2str($self->pool, $self->how, $self->what, ~0);
1249     return pool_tmpjoin($self->pool, "<Job ", str, ">");
1250   }
1251 }
1252
1253 %extend Selection {
1254   static const Id SELECTION_NAME = SELECTION_NAME;
1255   static const Id SELECTION_PROVIDES = SELECTION_PROVIDES;
1256   static const Id SELECTION_FILELIST = SELECTION_FILELIST;
1257   static const Id SELECTION_CANON = SELECTION_CANON;
1258   static const Id SELECTION_DOTARCH = SELECTION_DOTARCH;
1259   static const Id SELECTION_REL = SELECTION_REL;
1260   static const Id SELECTION_INSTALLED_ONLY = SELECTION_INSTALLED_ONLY;
1261   static const Id SELECTION_GLOB = SELECTION_GLOB;
1262   static const Id SELECTION_FLAT = SELECTION_FLAT;
1263   static const Id SELECTION_NOCASE = SELECTION_NOCASE;
1264   static const Id SELECTION_SKIP_KIND = SELECTION_SKIP_KIND;
1265   static const Id SELECTION_MATCH_DEPSTR = SELECTION_MATCH_DEPSTR;
1266   static const Id SELECTION_SOURCE_ONLY = SELECTION_SOURCE_ONLY;
1267   static const Id SELECTION_WITH_SOURCE = SELECTION_WITH_SOURCE;
1268   static const Id SELECTION_WITH_DISABLED = SELECTION_WITH_DISABLED;
1269   static const Id SELECTION_WITH_BADARCH = SELECTION_WITH_BADARCH;
1270   static const Id SELECTION_WITH_ALL = SELECTION_WITH_ALL;
1271   static const Id SELECTION_ADD = SELECTION_ADD;
1272   static const Id SELECTION_SUBTRACT = SELECTION_SUBTRACT;
1273   static const Id SELECTION_FILTER = SELECTION_FILTER;
1274   static const Id SELECTION_FILTER_KEEP_IFEMPTY = SELECTION_FILTER_KEEP_IFEMPTY;
1275   static const Id SELECTION_FILTER_SWAPPED = SELECTION_FILTER_SWAPPED;
1276
1277   Selection(Pool *pool) {
1278     Selection *s;
1279     s = solv_calloc(1, sizeof(*s));
1280     s->pool = pool;
1281     return s;
1282   }
1283
1284   ~Selection() {
1285     queue_free(&$self->q);
1286     solv_free($self);
1287   }
1288   int flags() {
1289     return $self->flags;
1290   }
1291 #ifdef SWIGRUBY
1292   %rename("isempty?") isempty;
1293 #endif
1294   bool isempty() {
1295     return $self->q.count == 0;
1296   }
1297   %newobject clone;
1298   Selection *clone(Selection *from, int flags = 0) {
1299     Selection *s;
1300     s = solv_calloc(1, sizeof(*s));
1301     s->pool = from->pool;
1302     s->flags = from->flags;
1303     queue_init_clone(&s->q, &from->q);
1304     return s;
1305   }
1306   void filter(Selection *lsel) {
1307     if ($self->pool != lsel->pool)
1308       queue_empty(&$self->q);
1309     else
1310       selection_filter($self->pool, &$self->q, &lsel->q);
1311   }
1312   void add(Selection *lsel) {
1313     if ($self->pool == lsel->pool)
1314       {
1315         selection_add($self->pool, &$self->q, &lsel->q);
1316         $self->flags |= lsel->flags;
1317       }
1318   }
1319   void add_raw(Id how, Id what) {
1320     queue_push2(&$self->q, how, what);
1321   }
1322   void subtract(Selection *lsel) {
1323     if ($self->pool == lsel->pool)
1324       selection_subtract($self->pool, &$self->q, &lsel->q);
1325   }
1326
1327   void select(const char *name, int flags) {
1328     if ((flags & SELECTION_MODEBITS) == 0)
1329       flags |= SELECTION_FILTER | SELECTION_WITH_ALL;
1330     $self->flags = selection_make($self->pool, &$self->q, name, flags);
1331   }
1332   void matchdeps(const char *name, int flags, Id keyname, Id marker = -1) {
1333     if ((flags & SELECTION_MODEBITS) == 0)
1334       flags |= SELECTION_FILTER | SELECTION_WITH_ALL;
1335     $self->flags = selection_make_matchdeps($self->pool, &$self->q, name, flags, keyname, marker);
1336   }
1337   void matchdepid(DepId dep, int flags, Id keyname, Id marker = -1) {
1338     if ((flags & SELECTION_MODEBITS) == 0)
1339       flags |= SELECTION_FILTER | SELECTION_WITH_ALL;
1340     $self->flags = selection_make_matchdepid($self->pool, &$self->q, dep, flags, keyname, marker);
1341   }
1342
1343   %typemap(out) Queue jobs Queue2Array(Job *, 2, new_Job(arg1->pool, id, idp[1]));
1344   %newobject jobs;
1345   Queue jobs(int flags) {
1346     Queue q;
1347     int i;
1348     queue_init_clone(&q, &$self->q);
1349     for (i = 0; i < q.count; i += 2)
1350       q.elements[i] |= flags;
1351     return q;
1352   }
1353
1354   %typemap(out) Queue solvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
1355   %newobject solvables;
1356   Queue solvables() {
1357     Queue q;
1358     queue_init(&q);
1359     selection_solvables($self->pool, &$self->q, &q);
1360     return q;
1361   }
1362
1363 #if defined(SWIGPERL) || defined(SWIGTCL)
1364   %rename("str") __str__;
1365 #endif
1366   const char *__str__() {
1367     return pool_selection2str($self->pool, &$self->q, 0);
1368   }
1369 #if defined(SWIGPERL) || defined(SWIGTCL)
1370   %rename("repr") __repr__;
1371 #endif
1372   const char *__repr__() {
1373     const char *str = pool_selection2str($self->pool, &$self->q, ~0);
1374     return pool_tmpjoin($self->pool, "<Selection ", str, ">");
1375   }
1376 }
1377
1378 %extend Chksum {
1379   Chksum(Id type) {
1380     return solv_chksum_create(type);
1381   }
1382   Chksum(Id type, const char *hex) {
1383     unsigned char buf[64];
1384     int l = solv_chksum_len(type);
1385     if (!l)
1386       return 0;
1387     if (solv_hex2bin(&hex, buf, sizeof(buf)) != l || hex[0])
1388       return 0;
1389     return solv_chksum_create_from_bin(type, buf);
1390   }
1391   %newobject from_bin;
1392   static Chksum *from_bin(Id type, const unsigned char *str, size_t len) {
1393     return len == solv_chksum_len(type) ? solv_chksum_create_from_bin(type, str) : 0;
1394   }
1395 #if defined(SWIGPERL)
1396   %perlcode {
1397     undef *solv::Chksum::from_bin;
1398     *solv::Chksum::from_bin = sub {
1399       my $pkg = shift;
1400       my $self = solvc::Chksum_from_bin(@_);
1401       bless $self, $pkg if defined $self;
1402     };
1403   }
1404 #endif
1405   ~Chksum() {
1406     solv_chksum_free($self, 0);
1407   }
1408   Id const type;
1409   %{
1410   SWIGINTERN Id Chksum_type_get(Chksum *chk) {
1411     return solv_chksum_get_type(chk);
1412   }
1413   %}
1414   void add(const unsigned char *str, size_t len) {
1415     solv_chksum_add($self, str, (int)len);
1416   }
1417   void add_fp(FILE *fp) {
1418     char buf[4096];
1419     int l;
1420     while ((l = fread(buf, 1, sizeof(buf), fp)) > 0)
1421       solv_chksum_add($self, buf, l);
1422     rewind(fp);         /* convenience */
1423   }
1424   void add_fd(int fd) {
1425     char buf[4096];
1426     int l;
1427     while ((l = read(fd, buf, sizeof(buf))) > 0)
1428       solv_chksum_add($self, buf, l);
1429     lseek(fd, 0, 0);    /* convenience */
1430   }
1431   void add_stat(const char *filename) {
1432     struct stat stb;
1433     if (stat(filename, &stb))
1434       memset(&stb, 0, sizeof(stb));
1435     solv_chksum_add($self, &stb.st_dev, sizeof(stb.st_dev));
1436     solv_chksum_add($self, &stb.st_ino, sizeof(stb.st_ino));
1437     solv_chksum_add($self, &stb.st_size, sizeof(stb.st_size));
1438     solv_chksum_add($self, &stb.st_mtime, sizeof(stb.st_mtime));
1439   }
1440   void add_fstat(int fd) {
1441     struct stat stb;
1442     if (fstat(fd, &stb))
1443       memset(&stb, 0, sizeof(stb));
1444     solv_chksum_add($self, &stb.st_dev, sizeof(stb.st_dev));
1445     solv_chksum_add($self, &stb.st_ino, sizeof(stb.st_ino));
1446     solv_chksum_add($self, &stb.st_size, sizeof(stb.st_size));
1447     solv_chksum_add($self, &stb.st_mtime, sizeof(stb.st_mtime));
1448   }
1449   BinaryBlob raw() {
1450     BinaryBlob bl;
1451     int l;
1452     const unsigned char *b;
1453     b = solv_chksum_get($self, &l);
1454     bl.data = b;
1455     bl.len = l;
1456     return bl;
1457   }
1458   %newobject hex;
1459   char *hex() {
1460     int l;
1461     const unsigned char *b;
1462     char *ret;
1463
1464     b = solv_chksum_get($self, &l);
1465     ret = solv_malloc(2 * l + 1);
1466     solv_bin2hex(b, l, ret);
1467     return ret;
1468   }
1469   const char *typestr() {
1470     return solv_chksum_type2str(solv_chksum_get_type($self));
1471   }
1472
1473 #if defined(SWIGTCL)
1474   %rename("==") __eq__;
1475 #endif
1476   bool __eq__(Chksum *chk) {
1477     return solv_chksum_cmp($self, chk);
1478   }
1479 #if defined(SWIGTCL)
1480   %rename("!=") __ne__;
1481 #endif
1482   bool __ne__(Chksum *chk) {
1483     return !solv_chksum_cmp($self, chk);
1484   }
1485 #if defined(SWIGRUBY)
1486   %rename("to_s") __str__;
1487 #endif
1488 #if defined(SWIGPERL) || defined(SWIGTCL)
1489   %rename("str") __str__;
1490 #endif
1491   %newobject __str__;
1492   const char *__str__() {
1493     const char *str;
1494     const char *h = 0;
1495     if (solv_chksum_isfinished($self))
1496       h = Chksum_hex($self);
1497     str = solv_dupjoin(solv_chksum_type2str(solv_chksum_get_type($self)), ":", h ? h : "unfinished");
1498     solv_free((void *)h);
1499     return str;
1500   }
1501 #if defined(SWIGPERL) || defined(SWIGTCL)
1502   %rename("repr") __repr__;
1503 #endif
1504   %newobject __repr__;
1505   const char *__repr__() {
1506     const char *h = Chksum___str__($self);
1507     const char *str = solv_dupjoin("<Chksum ", h, ">");
1508     solv_free((void *)h);
1509     return str;
1510   }
1511 }
1512
1513 %extend Pool {
1514   static const int POOL_FLAG_PROMOTEEPOCH = POOL_FLAG_PROMOTEEPOCH;
1515   static const int POOL_FLAG_FORBIDSELFCONFLICTS = POOL_FLAG_FORBIDSELFCONFLICTS;
1516   static const int POOL_FLAG_OBSOLETEUSESPROVIDES = POOL_FLAG_OBSOLETEUSESPROVIDES;
1517   static const int POOL_FLAG_IMPLICITOBSOLETEUSESPROVIDES = POOL_FLAG_IMPLICITOBSOLETEUSESPROVIDES;
1518   static const int POOL_FLAG_OBSOLETEUSESCOLORS = POOL_FLAG_OBSOLETEUSESCOLORS;
1519   static const int POOL_FLAG_IMPLICITOBSOLETEUSESCOLORS = POOL_FLAG_IMPLICITOBSOLETEUSESCOLORS;
1520   static const int POOL_FLAG_NOINSTALLEDOBSOLETES = POOL_FLAG_NOINSTALLEDOBSOLETES;
1521   static const int POOL_FLAG_HAVEDISTEPOCH = POOL_FLAG_HAVEDISTEPOCH;
1522   static const int POOL_FLAG_NOOBSOLETESMULTIVERSION = POOL_FLAG_NOOBSOLETESMULTIVERSION;
1523   static const int DISTTYPE_RPM = DISTTYPE_RPM;
1524   static const int DISTTYPE_DEB = DISTTYPE_DEB;
1525   static const int DISTTYPE_ARCH = DISTTYPE_ARCH;
1526   static const int DISTTYPE_HAIKU = DISTTYPE_HAIKU;
1527
1528   Pool() {
1529     Pool *pool = pool_create();
1530     return pool;
1531   }
1532   int setdisttype(int disttype) {
1533     return pool_setdisttype($self, disttype);
1534   }
1535   void set_debuglevel(int level) {
1536     pool_setdebuglevel($self, level);
1537   }
1538   int set_flag(int flag, int value) {
1539     return pool_set_flag($self, flag, value);
1540   }
1541   int get_flag(int flag) {
1542     return pool_get_flag($self, flag);
1543   }
1544   void set_rootdir(const char *rootdir) {
1545     pool_set_rootdir($self, rootdir);
1546   }
1547   const char *get_rootdir(int flag) {
1548     return pool_get_rootdir($self);
1549   }
1550 #if defined(SWIGPYTHON)
1551   %{
1552   SWIGINTERN int loadcallback(Pool *pool, Repodata *data, void *d) {
1553     XRepodata *xd = new_XRepodata(data->repo, data->repodataid);
1554     PyObject *args = Py_BuildValue("(O)", SWIG_NewPointerObj(SWIG_as_voidptr(xd), SWIGTYPE_p_XRepodata, SWIG_POINTER_OWN | 0));
1555     PyObject *result = PyEval_CallObject((PyObject *)d, args);
1556     int ecode = 0;
1557     int vresult = 0;
1558     Py_DECREF(args);
1559     if (!result)
1560       return 0; /* exception */
1561     ecode = SWIG_AsVal_int(result, &vresult);
1562     Py_DECREF(result);
1563     return SWIG_IsOK(ecode) ? vresult : 0;
1564   }
1565   %}
1566   void clr_loadcallback() {
1567     if ($self->loadcallback == loadcallback) {
1568       PyObject *obj = $self->loadcallbackdata;
1569       Py_DECREF(obj);
1570       pool_setloadcallback($self, 0, 0);
1571     }
1572   }
1573   void set_loadcallback(PyObject *callable) {
1574     Pool_clr_loadcallback($self);
1575     if (callable) {
1576       Py_INCREF(callable);
1577       pool_setloadcallback($self, loadcallback, callable);
1578     }
1579   }
1580 #elif defined(SWIGPERL)
1581 %{
1582   SWIGINTERN int loadcallback(Pool *pool, Repodata *data, void *d) {
1583     int count;
1584     int ret = 0;
1585     dSP;
1586     XRepodata *xd = new_XRepodata(data->repo, data->repodataid);
1587
1588     ENTER;
1589     SAVETMPS;
1590     PUSHMARK(SP);
1591     XPUSHs(SWIG_NewPointerObj(SWIG_as_voidptr(xd), SWIGTYPE_p_XRepodata, SWIG_OWNER | SWIG_SHADOW));
1592     PUTBACK;
1593     count = perl_call_sv((SV *)d, G_EVAL|G_SCALAR);
1594     SPAGAIN;
1595     if (count)
1596       ret = POPi;
1597     PUTBACK;
1598     FREETMPS;
1599     LEAVE;
1600     return ret;
1601   }
1602 %}
1603   void clr_loadcallback() {
1604     if ($self->loadcallback == loadcallback) {
1605       SvREFCNT_dec($self->loadcallbackdata);
1606       pool_setloadcallback($self, 0, 0);
1607     }
1608   }
1609   void set_loadcallback(SV *callable) {
1610     Pool_clr_loadcallback($self);
1611     if (callable) {
1612       SvREFCNT_inc(callable);
1613       pool_setloadcallback($self, loadcallback, callable);
1614     }
1615   }
1616 #elif defined(SWIGRUBY)
1617 %{
1618   SWIGINTERN int loadcallback(Pool *pool, Repodata *data, void *d) {
1619     XRepodata *xd = new_XRepodata(data->repo, data->repodataid);
1620     VALUE callable = (VALUE)d;
1621     VALUE rd = SWIG_NewPointerObj(SWIG_as_voidptr(xd), SWIGTYPE_p_XRepodata, SWIG_POINTER_OWN | 0);
1622     VALUE res = rb_funcall(callable, rb_intern("call"), 1, rd);
1623     return res == Qtrue;
1624   }
1625   SWIGINTERN void mark_Pool(void *ptr) {
1626     Pool *pool = ptr;
1627     if (pool->loadcallback == loadcallback && pool->loadcallbackdata) {
1628       VALUE callable = (VALUE)pool->loadcallbackdata;
1629       rb_gc_mark(callable);
1630     }
1631   }
1632 %}
1633   void clr_loadcallback() {
1634     pool_setloadcallback($self, 0, 0);
1635   }
1636   %typemap(in, numinputs=0) VALUE callable {
1637     $1 = rb_block_given_p() ? rb_block_proc() : 0;
1638   }
1639   void set_loadcallback(VALUE callable) {
1640     pool_setloadcallback($self, callable ? loadcallback : 0, (void *)callable);
1641   }
1642 #elif defined(SWIGTCL)
1643   %{
1644   typedef struct {
1645     Tcl_Interp *interp;
1646     Tcl_Obj *obj;
1647   } tcl_callback_t;
1648   SWIGINTERN int loadcallback(Pool *pool, Repodata *data, void *d) {
1649     tcl_callback_t *callback_var = (tcl_callback_t *)d;
1650     Tcl_Interp *interp = callback_var->interp;
1651     XRepodata *xd = new_XRepodata(data->repo, data->repodataid);
1652     int result, ecode = 0, vresult = 0;
1653     Tcl_Obj *objvx[2];
1654     objvx[0] = callback_var->obj;
1655     objvx[1] = SWIG_NewInstanceObj(SWIG_as_voidptr(xd), SWIGTYPE_p_XRepodata, 0);
1656     Tcl_IncrRefCount(objvx[1]);
1657     result = Tcl_EvalObjv(interp, sizeof(objvx)/sizeof(*objvx), objvx, TCL_EVAL_GLOBAL);
1658     Tcl_DecrRefCount(objvx[1]);
1659     if (result != TCL_OK)
1660       return 0; /* exception */
1661     ecode = SWIG_AsVal_int(interp, Tcl_GetObjResult(interp), &vresult);
1662     return SWIG_IsOK(ecode) ? vresult : 0;
1663   }
1664   %}
1665   void clr_loadcallback() {
1666     if ($self->loadcallback == loadcallback) {
1667       tcl_callback_t *callback_var = $self->loadcallbackdata;
1668       Tcl_DecrRefCount(callback_var->obj);
1669       solv_free(callback_var);
1670       pool_setloadcallback($self, 0, 0);
1671     }
1672   }
1673   void set_loadcallback(Tcl_Obj *callable, Tcl_Interp *interp) {
1674     Pool_clr_loadcallback($self);
1675     if (callable) {
1676       tcl_callback_t *callback_var = solv_malloc(sizeof(tcl_callback_t));
1677       Tcl_IncrRefCount(callable);
1678       callback_var->interp = interp;
1679       callback_var->obj = callable;
1680       pool_setloadcallback($self, loadcallback, callback_var);
1681     }
1682   }
1683 #else
1684 #warning loadcallback not implemented for this language
1685 #endif
1686
1687   ~Pool() {
1688     Pool *pool = $self;
1689     Id repoid;
1690     Repo *repo;
1691     FOR_REPOS(repoid, repo)
1692       appdata_clr_helper(&repo->appdata);
1693     Pool_clr_loadcallback(pool);
1694     appdata_clr_helper(&pool->appdata);
1695     pool_free(pool);
1696   }
1697   disown_helper free() {
1698     Pool *pool = $self;
1699     Id repoid;
1700     Repo *repo;
1701     FOR_REPOS(repoid, repo)
1702       appdata_clr_helper(&repo->appdata);
1703     Pool_clr_loadcallback(pool);
1704     appdata_clr_helper(&pool->appdata);
1705     pool_free(pool);
1706     return 0;
1707   }
1708   disown_helper disown() {
1709     return 0;
1710   }
1711   AppObjectPtr appdata;
1712   %{
1713   SWIGINTERN void Pool_appdata_set(Pool *pool, AppObjectPtr appdata) {
1714     appdata_set_helper(&pool->appdata, appdata);
1715   }
1716   SWIGINTERN AppObjectPtr Pool_appdata_get(Pool *pool) {
1717     return appdata_get_helper(pool->appdata);
1718   }
1719   %}
1720   void appdata_disown() {
1721     appdata_disown_helper($self->appdata);
1722   }
1723
1724   Id str2id(const char *str, bool create=1) {
1725     return pool_str2id($self, str, create);
1726   }
1727   %newobject Dep;
1728   Dep *Dep(const char *str, bool create=1) {
1729     Id id = pool_str2id($self, str, create);
1730     return new_Dep($self, id);
1731   }
1732   const char *id2str(Id id) {
1733     return pool_id2str($self, id);
1734   }
1735   const char *dep2str(Id id) {
1736     return pool_dep2str($self, id);
1737   }
1738   Id rel2id(Id name, Id evr, int flags, bool create=1) {
1739     return pool_rel2id($self, name, evr, flags, create);
1740   }
1741   Id id2langid(Id id, const char *lang, bool create=1) {
1742     return pool_id2langid($self, id, lang, create);
1743   }
1744   void setarch(const char *arch = 0) {
1745     struct utsname un;
1746     if (!arch) {
1747       if (uname(&un)) {
1748         perror("uname");
1749         return;
1750       }
1751       arch = un.machine;
1752     }
1753     pool_setarch($self, arch);
1754   }
1755   Repo *add_repo(const char *name) {
1756     return repo_create($self, name);
1757   }
1758   const char *lookup_str(Id entry, Id keyname) {
1759     return pool_lookup_str($self, entry, keyname);
1760   }
1761   Id lookup_id(Id entry, Id keyname) {
1762     return pool_lookup_id($self, entry, keyname);
1763   }
1764   unsigned long long lookup_num(Id entry, Id keyname, unsigned long long notfound = 0) {
1765     return pool_lookup_num($self, entry, keyname, notfound);
1766   }
1767   bool lookup_void(Id entry, Id keyname) {
1768     return pool_lookup_void($self, entry, keyname);
1769   }
1770   %newobject lookup_checksum;
1771   Chksum *lookup_checksum(Id entry, Id keyname) {
1772     Id type = 0;
1773     const unsigned char *b = pool_lookup_bin_checksum($self, entry, keyname, &type);
1774     return solv_chksum_create_from_bin(type, b);
1775   }
1776
1777   %newobject Dataiterator;
1778   Dataiterator *Dataiterator(Id key, const char *match = 0, int flags = 0) {
1779     return new_Dataiterator($self, 0, 0, key, match, flags);
1780   }
1781   %newobject Dataiterator_solvid;
1782   Dataiterator *Dataiterator_solvid(Id p, Id key, const char *match = 0, int flags = 0) {
1783     return new_Dataiterator($self, 0, p, key, match, flags);
1784   }
1785   const char *solvid2str(Id solvid) {
1786     return pool_solvid2str($self, solvid);
1787   }
1788   void addfileprovides() {
1789     pool_addfileprovides($self);
1790   }
1791   Queue addfileprovides_queue() {
1792     Queue r;
1793     queue_init(&r);
1794     pool_addfileprovides_queue($self, &r, 0);
1795     return r;
1796   }
1797   void createwhatprovides() {
1798     pool_createwhatprovides($self);
1799   }
1800
1801   %newobject id2solvable;
1802   XSolvable *id2solvable(Id id) {
1803     return new_XSolvable($self, id);
1804   }
1805   %newobject solvables;
1806   Pool_solvable_iterator * const solvables;
1807   %{
1808   SWIGINTERN Pool_solvable_iterator * Pool_solvables_get(Pool *pool) {
1809     return new_Pool_solvable_iterator(pool);
1810   }
1811   %}
1812   %newobject solvables_iter;
1813   Pool_solvable_iterator * solvables_iter() {
1814     return new_Pool_solvable_iterator($self);
1815   }
1816
1817   Repo *id2repo(Id id) {
1818     if (id < 1 || id >= $self->nrepos)
1819       return 0;
1820     return pool_id2repo($self, id);
1821   }
1822
1823   %newobject repos;
1824   Pool_repo_iterator * const repos;
1825   %{
1826   SWIGINTERN Pool_repo_iterator * Pool_repos_get(Pool *pool) {
1827     return new_Pool_repo_iterator(pool);
1828   }
1829   %}
1830   %newobject repos_iter;
1831   Pool_repo_iterator * repos_iter() {
1832     return new_Pool_repo_iterator($self);
1833   }
1834
1835   Repo *installed;
1836   const char * const errstr;
1837   %{
1838   SWIGINTERN void Pool_installed_set(Pool *pool, Repo *installed) {
1839     pool_set_installed(pool, installed);
1840   }
1841   SWIGINTERN Repo *Pool_installed_get(Pool *pool) {
1842     return pool->installed;
1843   }
1844   SWIGINTERN const char *Pool_errstr_get(Pool *pool) {
1845     return pool_errstr(pool);
1846   }
1847   %}
1848
1849   Queue matchprovidingids(const char *match, int flags) {
1850     Pool *pool = $self;
1851     Queue q;
1852     Id id;
1853     queue_init(&q);
1854     if (!flags) {
1855       for (id = 1; id < pool->ss.nstrings; id++)
1856         if (pool->whatprovides[id])
1857           queue_push(&q, id);
1858     } else {
1859       Datamatcher ma;
1860       if (!datamatcher_init(&ma, match, flags)) {
1861         for (id = 1; id < pool->ss.nstrings; id++)
1862           if (pool->whatprovides[id] && datamatcher_match(&ma, pool_id2str(pool, id)))
1863             queue_push(&q, id);
1864         datamatcher_free(&ma);
1865       }
1866     }
1867     return q;
1868   }
1869
1870   %newobject Job;
1871   Job *Job(int how, Id what) {
1872     return new_Job($self, how, what);
1873   }
1874
1875   %typemap(out) Queue whatprovides Queue2Array(XSolvable *, 1, new_XSolvable(arg1, id));
1876   %newobject whatprovides;
1877   Queue whatprovides(DepId dep) {
1878     Pool *pool = $self;
1879     Queue q;
1880     Id p, pp;
1881     queue_init(&q);
1882     FOR_PROVIDES(p, pp, dep)
1883       queue_push(&q, p);
1884     return q;
1885   }
1886
1887   Id towhatprovides(Queue q) {
1888     return pool_queuetowhatprovides($self, &q);
1889   }
1890
1891   void set_namespaceproviders(DepId ns, DepId evr, bool value=1) {
1892     Id dep = pool_rel2id($self, ns, evr, REL_NAMESPACE, 1);
1893     pool_set_whatprovides($self, dep, value ? 2 : 1);
1894   }
1895
1896   void flush_namespaceproviders(DepId ns, DepId evr) {
1897     pool_flush_namespaceproviders($self, ns, evr);
1898   }
1899
1900
1901   %typemap(out) Queue whatmatchesdep Queue2Array(XSolvable *, 1, new_XSolvable(arg1, id));
1902   %newobject whatmatchesdep;
1903   Queue whatmatchesdep(Id keyname, DepId dep, Id marker = -1) {
1904     Queue q;
1905     queue_init(&q);
1906     pool_whatmatchesdep($self, keyname, dep, &q, marker);
1907     return q;
1908   }
1909
1910 #ifdef SWIGRUBY
1911   %rename("isknownarch?") isknownarch;
1912 #endif
1913   bool isknownarch(DepId id) {
1914     Pool *pool = $self;
1915     if (!id || id == ID_EMPTY)
1916       return 0;
1917     if (id == ARCH_SRC || id == ARCH_NOSRC || id == ARCH_NOARCH)
1918       return 1;
1919     if (pool->id2arch && (id > pool->lastarch || !pool->id2arch[id]))
1920       return 0;
1921     return 1;
1922   }
1923
1924   %newobject Solver;
1925   Solver *Solver() {
1926     return solver_create($self);
1927   }
1928
1929   %newobject Selection;
1930   Selection *Selection() {
1931     return new_Selection($self);
1932   }
1933   %newobject Selection_all;
1934   Selection *Selection_all(int setflags=0) {
1935     Selection *sel = new_Selection($self);
1936     queue_push2(&sel->q, SOLVER_SOLVABLE_ALL | setflags, 0);
1937     return sel;
1938   }
1939   %newobject select;
1940   Selection *select(const char *name, int flags) {
1941     Selection *sel = new_Selection($self);
1942     sel->flags = selection_make($self, &sel->q, name, flags);
1943     return sel;
1944   }
1945
1946   %newobject matchdeps;
1947   Selection *matchdeps(const char *name, int flags, Id keyname, Id marker = -1) {
1948     Selection *sel = new_Selection($self);
1949     sel->flags = selection_make_matchdeps($self, &sel->q, name, flags, keyname, marker);
1950     return sel;
1951   }
1952
1953   %newobject matchdepid;
1954   Selection *matchdepid(DepId dep, int flags, Id keyname, Id marker = -1) {
1955     Selection *sel = new_Selection($self);
1956     sel->flags = selection_make_matchdepid($self, &sel->q, dep, flags, keyname, marker);
1957     return sel;
1958   }
1959
1960   void setpooljobs_helper(Queue jobs) {
1961     queue_free(&$self->pooljobs);
1962     queue_init_clone(&$self->pooljobs, &jobs);
1963   }
1964   %typemap(out) Queue getpooljobs Queue2Array(Job *, 2, new_Job(arg1, id, idp[1]));
1965   %newobject getpooljobs;
1966   Queue getpooljobs() {
1967     Queue q;
1968     queue_init_clone(&q, &$self->pooljobs);
1969     return q;
1970   }
1971
1972 #if defined(SWIGPYTHON)
1973   %pythoncode {
1974     def setpooljobs(self, jobs):
1975       j = []
1976       for job in jobs: j += [job.how, job.what]
1977       self.setpooljobs_helper(j)
1978   }
1979 #endif
1980 #if defined(SWIGPERL)
1981   %perlcode {
1982     sub solv::Solver::setpooljobs {
1983       my ($self, $jobs) = @_;
1984       my @j = map {($_->{'how'}, $_->{'what'})} @$jobs;
1985       return $self->setpooljobs_helper(\@j);
1986     }
1987   }
1988 #endif
1989 #if defined(SWIGRUBY)
1990 %init %{
1991 rb_eval_string(
1992     "class Solv::Pool\n"
1993     "  def setpooljobs(jobs)\n"
1994     "    jl = []\n"
1995     "    jobs.each do |j| ; jl << j.how << j.what ; end\n"
1996     "    setpooljobs_helper(jl)\n"
1997     "  end\n"
1998     "end\n"
1999   );
2000 %}
2001 #endif
2002 }
2003
2004 %extend Repo {
2005   static const int REPO_REUSE_REPODATA = REPO_REUSE_REPODATA;
2006   static const int REPO_NO_INTERNALIZE = REPO_NO_INTERNALIZE;
2007   static const int REPO_LOCALPOOL = REPO_LOCALPOOL;
2008   static const int REPO_USE_LOADING = REPO_USE_LOADING;
2009   static const int REPO_EXTEND_SOLVABLES = REPO_EXTEND_SOLVABLES;
2010   static const int REPO_USE_ROOTDIR = REPO_USE_ROOTDIR;
2011   static const int REPO_NO_LOCATION = REPO_NO_LOCATION;
2012   static const int SOLV_ADD_NO_STUBS = SOLV_ADD_NO_STUBS;       /* repo_solv */
2013 #ifdef ENABLE_SUSEREPO
2014   static const int SUSETAGS_RECORD_SHARES = SUSETAGS_RECORD_SHARES;     /* repo_susetags */
2015 #endif
2016
2017   void free(bool reuseids = 0) {
2018     appdata_clr_helper(&$self->appdata);
2019     repo_free($self, reuseids);
2020   }
2021   void empty(bool reuseids = 0) {
2022     repo_empty($self, reuseids);
2023   }
2024 #ifdef SWIGRUBY
2025   %rename("isempty?") isempty;
2026 #endif
2027   bool isempty() {
2028     return !$self->nsolvables;
2029   }
2030
2031   AppObjectPtr appdata;
2032   %{
2033   SWIGINTERN void Repo_appdata_set(Repo *repo, AppObjectPtr appdata) {
2034     appdata_set_helper(&repo->appdata, appdata);
2035   }
2036   SWIGINTERN AppObjectPtr Repo_appdata_get(Repo *repo) {
2037     return appdata_get_helper(repo->appdata);
2038   }
2039   %}
2040
2041   bool add_solv(const char *name, int flags = 0) {
2042     FILE *fp = fopen(name, "r");
2043     int r;
2044     if (!fp)
2045       return 0;
2046     r = repo_add_solv($self, fp, flags);
2047     fclose(fp);
2048     return r == 0;
2049   }
2050   bool add_solv(FILE *fp, int flags = 0) {
2051     return repo_add_solv($self, fp, flags) == 0;
2052   }
2053
2054   %newobject add_solvable;
2055   XSolvable *add_solvable() {
2056     Id solvid = repo_add_solvable($self);
2057     return new_XSolvable($self->pool, solvid);
2058   }
2059
2060 #ifdef ENABLE_RPMDB
2061   bool add_rpmdb(int flags = 0) {
2062     return repo_add_rpmdb($self, 0, flags) == 0;
2063   }
2064   bool add_rpmdb_reffp(FILE *reffp, int flags = 0) {
2065     return repo_add_rpmdb_reffp($self, reffp, flags) == 0;
2066   }
2067 #endif
2068 #ifdef ENABLE_RPMPKG
2069   %newobject add_rpm;
2070   XSolvable *add_rpm(const char *name, int flags = 0) {
2071     return new_XSolvable($self->pool, repo_add_rpm($self, name, flags));
2072   }
2073 #endif
2074 #ifdef ENABLE_PUBKEY
2075 #ifdef ENABLE_RPMDB
2076   bool add_rpmdb_pubkeys(int flags = 0) {
2077     return repo_add_rpmdb_pubkeys($self, flags) == 0;
2078   }
2079 #endif
2080   %newobject add_pubkey;
2081   XSolvable *add_pubkey(const char *keyfile, int flags = 0) {
2082     return new_XSolvable($self->pool, repo_add_pubkey($self, keyfile, flags));
2083   }
2084   bool add_keyring(FILE *fp, int flags = 0) {
2085     return repo_add_keyring($self, fp, flags);
2086   }
2087   bool add_keydir(const char *keydir, const char *suffix, int flags = 0) {
2088     return repo_add_keydir($self, keydir, suffix, flags);
2089   }
2090 #endif
2091 #ifdef ENABLE_RPMMD
2092   bool add_rpmmd(FILE *fp, const char *language, int flags = 0) {
2093     return repo_add_rpmmd($self, fp, language, flags) == 0;
2094   }
2095   bool add_repomdxml(FILE *fp, int flags = 0) {
2096     return repo_add_repomdxml($self, fp, flags) == 0;
2097   }
2098   bool add_updateinfoxml(FILE *fp, int flags = 0) {
2099     return repo_add_updateinfoxml($self, fp, flags) == 0;
2100   }
2101   bool add_deltainfoxml(FILE *fp, int flags = 0) {
2102     return repo_add_deltainfoxml($self, fp, flags) == 0;
2103   }
2104 #endif
2105 #ifdef ENABLE_DEBIAN
2106   bool add_debdb(int flags = 0) {
2107     return repo_add_debdb($self, flags) == 0;
2108   }
2109   bool add_debpackages(FILE *fp, int flags = 0) {
2110     return repo_add_debpackages($self, fp, flags) == 0;
2111   }
2112   %newobject add_deb;
2113   XSolvable *add_deb(const char *name, int flags = 0) {
2114     return new_XSolvable($self->pool, repo_add_deb($self, name, flags));
2115   }
2116 #endif
2117 #ifdef ENABLE_SUSEREPO
2118   bool add_susetags(FILE *fp, Id defvendor, const char *language, int flags = 0) {
2119     return repo_add_susetags($self, fp, defvendor, language, flags) == 0;
2120   }
2121   bool add_content(FILE *fp, int flags = 0) {
2122     return repo_add_content($self, fp, flags) == 0;
2123   }
2124   bool add_products(const char *proddir, int flags = 0) {
2125     return repo_add_products($self, proddir, flags) == 0;
2126   }
2127 #endif
2128 #ifdef ENABLE_MDKREPO
2129   bool add_mdk(FILE *fp, int flags = 0) {
2130     return repo_add_mdk($self, fp, flags) == 0;
2131   }
2132   bool add_mdk_info(FILE *fp, int flags = 0) {
2133     return repo_add_mdk_info($self, fp, flags) == 0;
2134   }
2135 #endif
2136 #ifdef ENABLE_ARCHREPO
2137   bool add_arch_repo(FILE *fp, int flags = 0) {
2138     return repo_add_arch_repo($self, fp, flags) == 0;
2139   }
2140   bool add_arch_local(const char *dir, int flags = 0) {
2141     return repo_add_arch_local($self, dir, flags) == 0;
2142   }
2143   %newobject add_arch_pkg;
2144   XSolvable *add_arch_pkg(const char *name, int flags = 0) {
2145     return new_XSolvable($self->pool, repo_add_arch_pkg($self, name, flags));
2146   }
2147 #endif
2148 #ifdef SUSE
2149   bool add_autopattern(int flags = 0) {
2150     return repo_add_autopattern($self, flags) == 0;
2151   }
2152 #endif
2153   void internalize() {
2154     repo_internalize($self);
2155   }
2156   bool write(FILE *fp) {
2157     return repo_write($self, fp) == 0;
2158   }
2159   /* HACK, remove if no longer needed! */
2160   bool write_first_repodata(FILE *fp) {
2161     int oldnrepodata = $self->nrepodata;
2162     int res;
2163     $self->nrepodata = oldnrepodata > 2 ? 2 : oldnrepodata;
2164     res = repo_write($self, fp);
2165     $self->nrepodata = oldnrepodata;
2166     return res == 0;
2167   }
2168
2169   %newobject Dataiterator;
2170   Dataiterator *Dataiterator(Id key, const char *match = 0, int flags = 0) {
2171     return new_Dataiterator($self->pool, $self, 0, key, match, flags);
2172   }
2173   %newobject Dataiterator_meta;
2174   Dataiterator *Dataiterator_meta(Id key, const char *match = 0, int flags = 0) {
2175     return new_Dataiterator($self->pool, $self, SOLVID_META, key, match, flags);
2176   }
2177
2178   Id const id;
2179   %{
2180   SWIGINTERN Id Repo_id_get(Repo *repo) {
2181     return repo->repoid;
2182   }
2183   %}
2184   %newobject solvables;
2185   Repo_solvable_iterator * const solvables;
2186   %{
2187   SWIGINTERN Repo_solvable_iterator * Repo_solvables_get(Repo *repo) {
2188     return new_Repo_solvable_iterator(repo);
2189   }
2190   %}
2191   %newobject meta;
2192   Datapos * const meta;
2193   %{
2194   SWIGINTERN Datapos * Repo_meta_get(Repo *repo) {
2195     Datapos *pos = solv_calloc(1, sizeof(*pos));
2196     pos->solvid = SOLVID_META;
2197     pos->repo = repo;
2198     return pos;
2199   }
2200   %}
2201
2202   %newobject solvables_iter;
2203   Repo_solvable_iterator *solvables_iter() {
2204     return new_Repo_solvable_iterator($self);
2205   }
2206
2207   %newobject add_repodata;
2208   XRepodata *add_repodata(int flags = 0) {
2209     Repodata *rd = repo_add_repodata($self, flags);
2210     return new_XRepodata($self, rd->repodataid);
2211   }
2212
2213   void create_stubs() {
2214     Repodata *data;
2215     if (!$self->nrepodata)
2216       return;
2217     data = repo_id2repodata($self, $self->nrepodata - 1);
2218     if (data->state != REPODATA_STUB)
2219       (void)repodata_create_stubs(data);
2220   }
2221 #ifdef SWIGRUBY
2222   %rename("iscontiguous?") iscontiguous;
2223 #endif
2224   bool iscontiguous() {
2225     int i;
2226     for (i = $self->start; i < $self->end; i++)
2227       if ($self->pool->solvables[i].repo != $self)
2228         return 0;
2229     return 1;
2230   }
2231   %newobject first_repodata;
2232   XRepodata *first_repodata() {
2233     Repodata *data;
2234     int i;
2235     if ($self->nrepodata < 2)
2236       return 0;
2237     /* make sure all repodatas but the first are extensions */
2238     data = repo_id2repodata($self, 1);
2239     if (data->loadcallback)
2240        return 0;
2241     for (i = 2; i < $self->nrepodata; i++)
2242       {
2243         data = repo_id2repodata($self, i);
2244         if (!data->loadcallback)
2245           return 0;       /* oops, not an extension */
2246       }
2247     return new_XRepodata($self, 1);
2248   }
2249
2250   %newobject Selection;
2251   Selection *Selection(int setflags=0) {
2252     Selection *sel = new_Selection($self->pool);
2253     setflags |= SOLVER_SETREPO;
2254     queue_push2(&sel->q, SOLVER_SOLVABLE_REPO | setflags, $self->repoid);
2255     return sel;
2256   }
2257
2258 #ifdef ENABLE_PUBKEY
2259   %newobject find_pubkey;
2260   XSolvable *find_pubkey(const char *keyid) {
2261     return new_XSolvable($self->pool, repo_find_pubkey($self, keyid));
2262   }
2263 #endif
2264
2265   Repo *createshadow(const char *name) {
2266     Repo *repo = repo_create($self->pool, name);
2267     if ($self->idarraysize) {
2268       repo_reserve_ids(repo, 0, $self->idarraysize);
2269       memcpy(repo->idarraydata, $self->idarraydata, sizeof(Id) * $self->idarraysize);
2270       repo->idarraysize = $self->idarraysize;
2271     }
2272     repo->start = $self->start;
2273     repo->end = $self->end;
2274     repo->nsolvables = $self->nsolvables;
2275     return repo;
2276   }
2277
2278   void moveshadow(Queue q) {
2279     Pool *pool = $self->pool;
2280     int i;
2281     for (i = 0; i < q.count; i++) {
2282       Solvable *s;
2283       Id p = q.elements[i];
2284       if (p < $self->start || p >= $self->end)
2285         continue;
2286       s = pool->solvables + p;
2287       if ($self->idarraysize != s->repo->idarraysize)
2288         continue;
2289       s->repo = $self;
2290     }
2291   }
2292
2293 #if defined(SWIGTCL)
2294   %rename("==") __eq__;
2295 #endif
2296   bool __eq__(Repo *repo) {
2297     return $self == repo;
2298   }
2299 #if defined(SWIGTCL)
2300   %rename("!=") __ne__;
2301 #endif
2302   bool __ne__(Repo *repo) {
2303     return $self != repo;
2304   }
2305 #if defined(SWIGPYTHON)
2306   int __hash__() {
2307     return $self->repoid;
2308   }
2309 #endif
2310 #if defined(SWIGPERL) || defined(SWIGTCL)
2311   %rename("str") __str__;
2312 #endif
2313   %newobject __str__;
2314   const char *__str__() {
2315     char buf[20];
2316     if ($self->name)
2317       return solv_strdup($self->name);
2318     sprintf(buf, "Repo#%d", $self->repoid);
2319     return solv_strdup(buf);
2320   }
2321 #if defined(SWIGPERL) || defined(SWIGTCL)
2322   %rename("repr") __repr__;
2323 #endif
2324   %newobject __repr__;
2325   const char *__repr__() {
2326     char buf[20];
2327     if ($self->name)
2328       {
2329         sprintf(buf, "<Repo #%d ", $self->repoid);
2330         return solv_dupjoin(buf, $self->name, ">");
2331       }
2332     sprintf(buf, "<Repo #%d>", $self->repoid);
2333     return solv_strdup(buf);
2334   }
2335 }
2336
2337 %extend Dataiterator {
2338   static const int SEARCH_STRING = SEARCH_STRING;
2339   static const int SEARCH_STRINGSTART = SEARCH_STRINGSTART;
2340   static const int SEARCH_STRINGEND = SEARCH_STRINGEND;
2341   static const int SEARCH_SUBSTRING = SEARCH_SUBSTRING;
2342   static const int SEARCH_GLOB = SEARCH_GLOB;
2343   static const int SEARCH_REGEX = SEARCH_REGEX;
2344   static const int SEARCH_NOCASE = SEARCH_NOCASE;
2345   static const int SEARCH_FILES = SEARCH_FILES;
2346   static const int SEARCH_COMPLETE_FILELIST = SEARCH_COMPLETE_FILELIST;
2347   static const int SEARCH_CHECKSUMS = SEARCH_CHECKSUMS;
2348
2349   Dataiterator(Pool *pool, Repo *repo, Id p, Id key, const char *match, int flags) {
2350     Dataiterator *di = solv_calloc(1, sizeof(*di));
2351     dataiterator_init(di, pool, repo, p, key, match, flags);
2352     return di;
2353   }
2354   ~Dataiterator() {
2355     dataiterator_free($self);
2356     solv_free($self);
2357   }
2358 #if defined(SWIGPYTHON)
2359   %pythoncode {
2360     def __iter__(self): return self
2361   }
2362 #ifndef PYTHON3
2363   %rename("next") __next__();
2364 #endif
2365   %exception __next__ {
2366     $action
2367     if (!result) {
2368       PyErr_SetString(PyExc_StopIteration,"no more matches");
2369       return NULL;
2370     }
2371   }
2372 #endif
2373 #ifdef SWIGPERL
2374   perliter(solv::Dataiterator)
2375 #endif
2376   %newobject __next__;
2377   Datamatch *__next__() {
2378     Dataiterator *ndi;
2379     if (!dataiterator_step($self)) {
2380       return 0;
2381     }
2382     ndi = solv_calloc(1, sizeof(*ndi));
2383     dataiterator_init_clone(ndi, $self);
2384     dataiterator_strdup(ndi);
2385     return ndi;
2386   }
2387 #ifdef SWIGRUBY
2388   void each() {
2389     Datamatch *d;
2390     while ((d = Dataiterator___next__($self)) != 0) {
2391       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(d), SWIGTYPE_p_Datamatch, SWIG_POINTER_OWN | 0));
2392     }
2393   }
2394 #endif
2395   void prepend_keyname(Id key) {
2396     dataiterator_prepend_keyname($self, key);
2397   }
2398   void skip_solvable() {
2399     dataiterator_skip_solvable($self);
2400   }
2401 }
2402
2403 %extend Datapos {
2404   Id lookup_id(Id keyname) {
2405     Pool *pool = $self->repo->pool;
2406     Datapos oldpos = pool->pos;
2407     Id r;
2408     pool->pos = *$self;
2409     r = pool_lookup_id(pool, SOLVID_POS, keyname);
2410     pool->pos = oldpos;
2411     return r;
2412   }
2413   const char *lookup_str(Id keyname) {
2414     Pool *pool = $self->repo->pool;
2415     Datapos oldpos = pool->pos;
2416     const char *r;
2417     pool->pos = *$self;
2418     r = pool_lookup_str(pool, SOLVID_POS, keyname);
2419     pool->pos = oldpos;
2420     return r;
2421   }
2422   unsigned long long lookup_num(Id keyname, unsigned long long notfound = 0) {
2423     Pool *pool = $self->repo->pool;
2424     Datapos oldpos = pool->pos;
2425     unsigned long long r;
2426     pool->pos = *$self;
2427     r = pool_lookup_num(pool, SOLVID_POS, keyname, notfound);
2428     pool->pos = oldpos;
2429     return r;
2430   }
2431   bool lookup_void(Id keyname) {
2432     Pool *pool = $self->repo->pool;
2433     Datapos oldpos = pool->pos;
2434     int r;
2435     pool->pos = *$self;
2436     r = pool_lookup_void(pool, SOLVID_POS, keyname);
2437     pool->pos = oldpos;
2438     return r;
2439   }
2440   %newobject lookup_checksum;
2441   Chksum *lookup_checksum(Id keyname) {
2442     Pool *pool = $self->repo->pool;
2443     Datapos oldpos = pool->pos;
2444     Id type = 0;
2445     const unsigned char *b;
2446     pool->pos = *$self;
2447     b = pool_lookup_bin_checksum(pool, SOLVID_POS, keyname, &type);
2448     pool->pos = oldpos;
2449     return solv_chksum_create_from_bin(type, b);
2450   }
2451   const char *lookup_deltaseq() {
2452     Pool *pool = $self->repo->pool;
2453     Datapos oldpos = pool->pos;
2454     const char *seq;
2455     pool->pos = *$self;
2456     seq = pool_lookup_str(pool, SOLVID_POS, DELTA_SEQ_NAME);
2457     if (seq) {
2458       seq = pool_tmpjoin(pool, seq, "-", pool_lookup_str(pool, SOLVID_POS, DELTA_SEQ_EVR));
2459       seq = pool_tmpappend(pool, seq, "-", pool_lookup_str(pool, SOLVID_POS, DELTA_SEQ_NUM));
2460     }
2461     pool->pos = oldpos;
2462     return seq;
2463   }
2464   const char *lookup_deltalocation(unsigned int *OUTPUT) {
2465     Pool *pool = $self->repo->pool;
2466     Datapos oldpos = pool->pos;
2467     const char *loc;
2468     pool->pos = *$self;
2469     loc = pool_lookup_deltalocation(pool, SOLVID_POS, OUTPUT);
2470     pool->pos = oldpos;
2471     return loc;
2472   }
2473   Queue lookup_idarray(Id keyname) {
2474     Pool *pool = $self->repo->pool;
2475     Datapos oldpos = pool->pos;
2476     Queue r;
2477     queue_init(&r);
2478     pool->pos = *$self;
2479     pool_lookup_idarray(pool, SOLVID_POS, keyname, &r);
2480     pool->pos = oldpos;
2481     return r;
2482   }
2483   %newobject Dataiterator;
2484   Dataiterator *Dataiterator(Id key, const char *match = 0, int flags = 0) {
2485     Pool *pool = $self->repo->pool;
2486     Datapos oldpos = pool->pos;
2487     Dataiterator *di;
2488     pool->pos = *$self;
2489     di = new_Dataiterator(pool, 0, SOLVID_POS, key, match, flags);
2490     pool->pos = oldpos;
2491     return di;
2492   }
2493 }
2494
2495 %extend Datamatch {
2496   ~Datamatch() {
2497     dataiterator_free($self);
2498     solv_free($self);
2499   }
2500   %newobject solvable;
2501   XSolvable * const solvable;
2502   Id const key_id;
2503   const char * const key_idstr;
2504   Id const type_id;
2505   const char * const type_idstr;
2506   Id const id;
2507   const char * const idstr;
2508   const char * const str;
2509   BinaryBlob const binary;
2510   unsigned long long const num;
2511   unsigned int const num2;
2512   %{
2513   SWIGINTERN XSolvable *Datamatch_solvable_get(Dataiterator *di) {
2514     return new_XSolvable(di->pool, di->solvid);
2515   }
2516   SWIGINTERN Id Datamatch_key_id_get(Dataiterator *di) {
2517     return di->key->name;
2518   }
2519   SWIGINTERN const char *Datamatch_key_idstr_get(Dataiterator *di) {
2520     return pool_id2str(di->pool, di->key->name);
2521   }
2522   SWIGINTERN Id Datamatch_type_id_get(Dataiterator *di) {
2523     return di->key->type;
2524   }
2525   SWIGINTERN const char *Datamatch_type_idstr_get(Dataiterator *di) {
2526     return pool_id2str(di->pool, di->key->type);
2527   }
2528   SWIGINTERN Id Datamatch_id_get(Dataiterator *di) {
2529     return di->kv.id;
2530   }
2531   SWIGINTERN const char *Datamatch_idstr_get(Dataiterator *di) {
2532    if (di->data && (di->key->type == REPOKEY_TYPE_DIR || di->key->type == REPOKEY_TYPE_DIRSTRARRAY || di->key->type == REPOKEY_TYPE_DIRNUMNUMARRAY))
2533       return repodata_dir2str(di->data,  di->kv.id, 0);
2534     if (di->data && di->data->localpool)
2535       return stringpool_id2str(&di->data->spool, di->kv.id);
2536     return pool_id2str(di->pool, di->kv.id);
2537   }
2538   SWIGINTERN const char * const Datamatch_str_get(Dataiterator *di) {
2539     return di->kv.str;
2540   }
2541   SWIGINTERN BinaryBlob Datamatch_binary_get(Dataiterator *di) {
2542     BinaryBlob bl;
2543     bl.data = 0;
2544     bl.len = 0;
2545     if (di->key->type == REPOKEY_TYPE_BINARY)
2546       {
2547         bl.data = di->kv.str;
2548         bl.len = di->kv.num;
2549       }
2550     else if ((bl.len = solv_chksum_len(di->key->type)) != 0)
2551       bl.data = di->kv.str;
2552     return bl;
2553   }
2554   SWIGINTERN unsigned long long Datamatch_num_get(Dataiterator *di) {
2555    if (di->key->type == REPOKEY_TYPE_NUM)
2556      return SOLV_KV_NUM64(&di->kv);
2557    return di->kv.num;
2558   }
2559   SWIGINTERN unsigned int Datamatch_num2_get(Dataiterator *di) {
2560     return di->kv.num2;
2561   }
2562   %}
2563   %newobject pos;
2564   Datapos *pos() {
2565     Pool *pool = $self->pool;
2566     Datapos *pos, oldpos = pool->pos;
2567     dataiterator_setpos($self);
2568     pos = solv_calloc(1, sizeof(*pos));
2569     *pos = pool->pos;
2570     pool->pos = oldpos;
2571     return pos;
2572   }
2573   %newobject parentpos;
2574   Datapos *parentpos() {
2575     Pool *pool = $self->pool;
2576     Datapos *pos, oldpos = pool->pos;
2577     dataiterator_setpos_parent($self);
2578     pos = solv_calloc(1, sizeof(*pos));
2579     *pos = pool->pos;
2580     pool->pos = oldpos;
2581     return pos;
2582   }
2583 #if defined(SWIGPERL)
2584   /* cannot use str here because swig reports a bogus conflict... */
2585   %rename("stringify") __str__;
2586   %perlcode {
2587     *solv::Datamatch::str = *solvc::Datamatch_stringify;
2588   }
2589 #endif
2590 #if defined(SWIGTCL)
2591   %rename("stringify") __str__;
2592 #endif
2593   const char *__str__() {
2594     KeyValue kv = $self->kv;
2595     const char *str = repodata_stringify($self->pool, $self->data, $self->key, &kv, SEARCH_FILES | SEARCH_CHECKSUMS);
2596     return str ? str : "";
2597   }
2598 }
2599
2600 %extend Pool_solvable_iterator {
2601   Pool_solvable_iterator(Pool *pool) {
2602     Pool_solvable_iterator *s;
2603     s = solv_calloc(1, sizeof(*s));
2604     s->pool = pool;
2605     return s;
2606   }
2607 #if defined(SWIGPYTHON)
2608   %pythoncode {
2609     def __iter__(self): return self
2610   }
2611 #ifndef PYTHON3
2612   %rename("next") __next__();
2613 #endif
2614   %exception __next__ {
2615     $action
2616     if (!result) {
2617       PyErr_SetString(PyExc_StopIteration,"no more matches");
2618       return NULL;
2619     }
2620   }
2621 #endif
2622 #ifdef SWIGPERL
2623   perliter(solv::Pool_solvable_iterator)
2624 #endif
2625   %newobject __next__;
2626   XSolvable *__next__() {
2627     Pool *pool = $self->pool;
2628     if ($self->id >= pool->nsolvables)
2629       return 0;
2630     while (++$self->id < pool->nsolvables)
2631       if (pool->solvables[$self->id].repo)
2632         return new_XSolvable(pool, $self->id);
2633     return 0;
2634   }
2635 #ifdef SWIGRUBY
2636   void each() {
2637     XSolvable *n;
2638     while ((n = Pool_solvable_iterator___next__($self)) != 0) {
2639       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(n), SWIGTYPE_p_XSolvable, SWIG_POINTER_OWN | 0));
2640     }
2641   }
2642 #endif
2643   %newobject __getitem__;
2644   XSolvable *__getitem__(Id key) {
2645     Pool *pool = $self->pool;
2646     if (key > 0 && key < pool->nsolvables && pool->solvables[key].repo)
2647       return new_XSolvable(pool, key);
2648     return 0;
2649   }
2650   int __len__() {
2651     return $self->pool->nsolvables;
2652   }
2653 }
2654
2655 %extend Pool_repo_iterator {
2656   Pool_repo_iterator(Pool *pool) {
2657     Pool_repo_iterator *s;
2658     s = solv_calloc(1, sizeof(*s));
2659     s->pool = pool;
2660     return s;
2661   }
2662 #if defined(SWIGPYTHON)
2663   %pythoncode {
2664     def __iter__(self): return self
2665   }
2666 #ifndef PYTHON3
2667   %rename("next") __next__();
2668 #endif
2669   %exception __next__ {
2670     $action
2671     if (!result) {
2672       PyErr_SetString(PyExc_StopIteration,"no more matches");
2673       return NULL;
2674     }
2675   }
2676 #endif
2677 #ifdef SWIGPERL
2678   perliter(solv::Pool_repo_iterator)
2679 #endif
2680   Repo *__next__() {
2681     Pool *pool = $self->pool;
2682     if ($self->id >= pool->nrepos)
2683       return 0;
2684     while (++$self->id < pool->nrepos) {
2685       Repo *r = pool_id2repo(pool, $self->id);
2686       if (r)
2687         return r;
2688     }
2689     return 0;
2690   }
2691 #ifdef SWIGRUBY
2692   void each() {
2693     Repo *n;
2694     while ((n = Pool_repo_iterator___next__($self)) != 0) {
2695       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(n), SWIGTYPE_p_Repo, 0 | 0));
2696     }
2697   }
2698 #endif
2699   Repo *__getitem__(Id key) {
2700     Pool *pool = $self->pool;
2701     if (key > 0 && key < pool->nrepos)
2702       return pool_id2repo(pool, key);
2703     return 0;
2704   }
2705   int __len__() {
2706     return $self->pool->nrepos;
2707   }
2708 }
2709
2710 %extend Repo_solvable_iterator {
2711   Repo_solvable_iterator(Repo *repo) {
2712     Repo_solvable_iterator *s;
2713     s = solv_calloc(1, sizeof(*s));
2714     s->repo = repo;
2715     return s;
2716   }
2717 #if defined(SWIGPYTHON)
2718   %pythoncode {
2719     def __iter__(self): return self
2720   }
2721 #ifndef PYTHON3
2722   %rename("next") __next__();
2723 #endif
2724   %exception __next__ {
2725     $action
2726     if (!result) {
2727       PyErr_SetString(PyExc_StopIteration,"no more matches");
2728       return NULL;
2729     }
2730   }
2731 #endif
2732 #ifdef SWIGPERL
2733   perliter(solv::Repo_solvable_iterator)
2734 #endif
2735   %newobject __next__;
2736   XSolvable *__next__() {
2737     Repo *repo = $self->repo;
2738     Pool *pool = repo->pool;
2739     if (repo->start > 0 && $self->id < repo->start)
2740       $self->id = repo->start - 1;
2741     if ($self->id >= repo->end)
2742       return 0;
2743     while (++$self->id < repo->end)
2744       if (pool->solvables[$self->id].repo == repo)
2745         return new_XSolvable(pool, $self->id);
2746     return 0;
2747   }
2748 #ifdef SWIGRUBY
2749   void each() {
2750     XSolvable *n;
2751     while ((n = Repo_solvable_iterator___next__($self)) != 0) {
2752       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(n), SWIGTYPE_p_XSolvable, SWIG_POINTER_OWN | 0));
2753     }
2754   }
2755 #endif
2756   %newobject __getitem__;
2757   XSolvable *__getitem__(Id key) {
2758     Repo *repo = $self->repo;
2759     Pool *pool = repo->pool;
2760     if (key > 0 && key < pool->nsolvables && pool->solvables[key].repo == repo)
2761       return new_XSolvable(pool, key);
2762     return 0;
2763   }
2764   int __len__() {
2765     return $self->repo->pool->nsolvables;
2766   }
2767 }
2768
2769 %extend Dep {
2770   Dep(Pool *pool, Id id) {
2771     Dep *s;
2772     if (!id)
2773       return 0;
2774     s = solv_calloc(1, sizeof(*s));
2775     s->pool = pool;
2776     s->id = id;
2777     return s;
2778   }
2779   %newobject Rel;
2780   Dep *Rel(int flags, DepId evrid, bool create=1) {
2781     Id id = pool_rel2id($self->pool, $self->id, evrid, flags, create);
2782     if (!id)
2783       return 0;
2784     return new_Dep($self->pool, id);
2785   }
2786   %newobject Selection_name;
2787   Selection *Selection_name(int setflags=0) {
2788     Selection *sel = new_Selection($self->pool);
2789     if (ISRELDEP($self->id)) {
2790       Reldep *rd = GETRELDEP($self->pool, $self->id);
2791       if (rd->flags == REL_EQ) {
2792         setflags |= $self->pool->disttype == DISTTYPE_DEB || strchr(pool_id2str($self->pool, rd->evr), '-') != 0 ? SOLVER_SETEVR : SOLVER_SETEV;
2793         if (ISRELDEP(rd->name))
2794           rd = GETRELDEP($self->pool, rd->name);
2795       }
2796       if (rd->flags == REL_ARCH)
2797         setflags |= SOLVER_SETARCH;
2798     }
2799     queue_push2(&sel->q, SOLVER_SOLVABLE_NAME | setflags, $self->id);
2800     return sel;
2801   }
2802   %newobject Selection_provides;
2803   Selection *Selection_provides(int setflags=0) {
2804     Selection *sel = new_Selection($self->pool);
2805     if (ISRELDEP($self->id)) {
2806       Reldep *rd = GETRELDEP($self->pool, $self->id);
2807       if (rd->flags == REL_ARCH)
2808         setflags |= SOLVER_SETARCH;
2809     }
2810     queue_push2(&sel->q, SOLVER_SOLVABLE_PROVIDES | setflags, $self->id);
2811     return sel;
2812   }
2813   const char *str() {
2814     return pool_dep2str($self->pool, $self->id);
2815   }
2816 #if defined(SWIGTCL)
2817   %rename("==") __eq__;
2818 #endif
2819   bool __eq__(Dep *s) {
2820     return $self->pool == s->pool && $self->id == s->id;
2821   }
2822 #if defined(SWIGTCL)
2823   %rename("!=") __ne__;
2824 #endif
2825   bool __ne__(Dep *s) {
2826     return !Dep___eq__($self, s);
2827   }
2828 #if defined(SWIGPYTHON)
2829   int __hash__() {
2830     return $self->id;
2831   }
2832 #endif
2833 #if defined(SWIGPERL) || defined(SWIGTCL)
2834   %rename("str") __str__;
2835 #endif
2836   const char *__str__() {
2837     return pool_dep2str($self->pool, $self->id);
2838   }
2839 #if defined(SWIGPERL) || defined(SWIGTCL)
2840   %rename("repr") __repr__;
2841 #endif
2842   %newobject __repr__;
2843   const char *__repr__() {
2844     char buf[20];
2845     sprintf(buf, "<Id #%d ", $self->id);
2846     return solv_dupjoin(buf, pool_dep2str($self->pool, $self->id), ">");
2847   }
2848 }
2849
2850 %extend XSolvable {
2851   XSolvable(Pool *pool, Id id) {
2852     XSolvable *s;
2853     if (!id || id >= pool->nsolvables)
2854       return 0;
2855     s = solv_calloc(1, sizeof(*s));
2856     s->pool = pool;
2857     s->id = id;
2858     return s;
2859   }
2860   const char *str() {
2861     return pool_solvid2str($self->pool, $self->id);
2862   }
2863   const char *lookup_str(Id keyname) {
2864     return pool_lookup_str($self->pool, $self->id, keyname);
2865   }
2866   Id lookup_id(Id keyname) {
2867     return pool_lookup_id($self->pool, $self->id, keyname);
2868   }
2869   unsigned long long lookup_num(Id keyname, unsigned long long notfound = 0) {
2870     return pool_lookup_num($self->pool, $self->id, keyname, notfound);
2871   }
2872   bool lookup_void(Id keyname) {
2873     return pool_lookup_void($self->pool, $self->id, keyname);
2874   }
2875   %newobject lookup_checksum;
2876   Chksum *lookup_checksum(Id keyname) {
2877     Id type = 0;
2878     const unsigned char *b = pool_lookup_bin_checksum($self->pool, $self->id, keyname, &type);
2879     return solv_chksum_create_from_bin(type, b);
2880   }
2881   Queue lookup_idarray(Id keyname, Id marker = -1) {
2882     Solvable *s = $self->pool->solvables + $self->id;
2883     Queue r;
2884     queue_init(&r);
2885     solvable_lookup_deparray(s, keyname, &r, marker);
2886     return r;
2887   }
2888   %typemap(out) Queue lookup_deparray Queue2Array(Dep *, 1, new_Dep(arg1->pool, id));
2889   %newobject lookup_deparray;
2890   Queue lookup_deparray(Id keyname, Id marker = -1) {
2891     Solvable *s = $self->pool->solvables + $self->id;
2892     Queue r;
2893     queue_init(&r);
2894     solvable_lookup_deparray(s, keyname, &r, marker);
2895     return r;
2896   }
2897   const char *lookup_location(unsigned int *OUTPUT) {
2898     return solvable_lookup_location($self->pool->solvables + $self->id, OUTPUT);
2899   }
2900   const char *lookup_sourcepkg() {
2901     return solvable_lookup_sourcepkg($self->pool->solvables + $self->id);
2902   }
2903   %newobject Dataiterator;
2904   Dataiterator *Dataiterator(Id key, const char *match = 0, int flags = 0) {
2905     return new_Dataiterator($self->pool, 0, $self->id, key, match, flags);
2906   }
2907 #ifdef SWIGRUBY
2908   %rename("installable?") installable;
2909 #endif
2910   bool installable() {
2911     return pool_installable($self->pool, pool_id2solvable($self->pool, $self->id));
2912   }
2913 #ifdef SWIGRUBY
2914   %rename("isinstalled?") isinstalled;
2915 #endif
2916   bool isinstalled() {
2917     Pool *pool = $self->pool;
2918     return pool->installed && pool_id2solvable(pool, $self->id)->repo == pool->installed;
2919   }
2920
2921   const char *name;
2922   %{
2923     SWIGINTERN void XSolvable_name_set(XSolvable *xs, const char *name) {
2924       Pool *pool = xs->pool;
2925       pool->solvables[xs->id].name = pool_str2id(pool, name, 1);
2926     }
2927     SWIGINTERN const char *XSolvable_name_get(XSolvable *xs) {
2928       Pool *pool = xs->pool;
2929       return pool_id2str(pool, pool->solvables[xs->id].name);
2930     }
2931   %}
2932   Id nameid;
2933   %{
2934     SWIGINTERN void XSolvable_nameid_set(XSolvable *xs, Id nameid) {
2935       xs->pool->solvables[xs->id].name = nameid;
2936     }
2937     SWIGINTERN Id XSolvable_nameid_get(XSolvable *xs) {
2938       return xs->pool->solvables[xs->id].name;
2939     }
2940   %}
2941   const char *evr;
2942   %{
2943     SWIGINTERN void XSolvable_evr_set(XSolvable *xs, const char *evr) {
2944       Pool *pool = xs->pool;
2945       pool->solvables[xs->id].evr = pool_str2id(pool, evr, 1);
2946     }
2947     SWIGINTERN const char *XSolvable_evr_get(XSolvable *xs) {
2948       Pool *pool = xs->pool;
2949       return pool_id2str(pool, pool->solvables[xs->id].evr);
2950     }
2951   %}
2952   Id evrid;
2953   %{
2954     SWIGINTERN void XSolvable_evrid_set(XSolvable *xs, Id evrid) {
2955       xs->pool->solvables[xs->id].evr = evrid;
2956     }
2957     SWIGINTERN Id XSolvable_evrid_get(XSolvable *xs) {
2958       return xs->pool->solvables[xs->id].evr;
2959     }
2960   %}
2961   const char *arch;
2962   %{
2963     SWIGINTERN void XSolvable_arch_set(XSolvable *xs, const char *arch) {
2964       Pool *pool = xs->pool;
2965       pool->solvables[xs->id].arch = pool_str2id(pool, arch, 1);
2966     }
2967     SWIGINTERN const char *XSolvable_arch_get(XSolvable *xs) {
2968       Pool *pool = xs->pool;
2969       return pool_id2str(pool, pool->solvables[xs->id].arch);
2970     }
2971   %}
2972   Id archid;
2973   %{
2974     SWIGINTERN void XSolvable_archid_set(XSolvable *xs, Id archid) {
2975       xs->pool->solvables[xs->id].arch = archid;
2976     }
2977     SWIGINTERN Id XSolvable_archid_get(XSolvable *xs) {
2978       return xs->pool->solvables[xs->id].arch;
2979     }
2980   %}
2981   const char *vendor;
2982   %{
2983     SWIGINTERN void XSolvable_vendor_set(XSolvable *xs, const char *vendor) {
2984       Pool *pool = xs->pool;
2985       pool->solvables[xs->id].vendor = pool_str2id(pool, vendor, 1);
2986     }
2987     SWIGINTERN const char *XSolvable_vendor_get(XSolvable *xs) {
2988       Pool *pool = xs->pool;
2989       return pool_id2str(pool, pool->solvables[xs->id].vendor);
2990     }
2991   %}
2992   Id vendorid;
2993   %{
2994     SWIGINTERN void XSolvable_vendorid_set(XSolvable *xs, Id vendorid) {
2995       xs->pool->solvables[xs->id].vendor = vendorid;
2996     }
2997     SWIGINTERN Id XSolvable_vendorid_get(XSolvable *xs) {
2998       return xs->pool->solvables[xs->id].vendor;
2999     }
3000   %}
3001   Repo * const repo;
3002   %{
3003     SWIGINTERN Repo *XSolvable_repo_get(XSolvable *xs) {
3004       return xs->pool->solvables[xs->id].repo;
3005     }
3006   %}
3007
3008   /* old interface, please use the generic add_deparray instead */
3009   void add_provides(DepId id, Id marker = -1) {
3010     Solvable *s = $self->pool->solvables + $self->id;
3011     marker = solv_depmarker(SOLVABLE_PROVIDES, marker);
3012     s->provides = repo_addid_dep(s->repo, s->provides, id, marker);
3013   }
3014   void add_obsoletes(DepId id) {
3015     Solvable *s = $self->pool->solvables + $self->id;
3016     s->obsoletes = repo_addid_dep(s->repo, s->obsoletes, id, 0);
3017   }
3018   void add_conflicts(DepId id) {
3019     Solvable *s = $self->pool->solvables + $self->id;
3020     s->conflicts = repo_addid_dep(s->repo, s->conflicts, id, 0);
3021   }
3022   void add_requires(DepId id, Id marker = -1) {
3023     Solvable *s = $self->pool->solvables + $self->id;
3024     marker = solv_depmarker(SOLVABLE_REQUIRES, marker);
3025     s->requires = repo_addid_dep(s->repo, s->requires, id, marker);
3026   }
3027   void add_recommends(DepId id) {
3028     Solvable *s = $self->pool->solvables + $self->id;
3029     s->recommends = repo_addid_dep(s->repo, s->recommends, id, 0);
3030   }
3031   void add_suggests(DepId id) {
3032     Solvable *s = $self->pool->solvables + $self->id;
3033     s->suggests = repo_addid_dep(s->repo, s->suggests, id, 0);
3034   }
3035   void add_supplements(DepId id) {
3036     Solvable *s = $self->pool->solvables + $self->id;
3037     s->supplements = repo_addid_dep(s->repo, s->supplements, id, 0);
3038   }
3039   void add_enhances(DepId id) {
3040     Solvable *s = $self->pool->solvables + $self->id;
3041     s->enhances = repo_addid_dep(s->repo, s->enhances, id, 0);
3042   }
3043
3044   void unset(Id keyname) {
3045     Solvable *s = $self->pool->solvables + $self->id;
3046     repo_unset(s->repo, $self->id, keyname);
3047   }
3048
3049   void add_deparray(Id keyname, DepId id, Id marker = -1) {
3050     Solvable *s = $self->pool->solvables + $self->id;
3051     solvable_add_deparray(s, keyname, id, marker);
3052   }
3053
3054   %newobject Selection;
3055   Selection *Selection(int setflags=0) {
3056     Selection *sel = new_Selection($self->pool);
3057     queue_push2(&sel->q, SOLVER_SOLVABLE | setflags, $self->id);
3058     return sel;
3059   }
3060
3061 #ifdef SWIGRUBY
3062   %rename("identical?") identical;
3063 #endif
3064   bool identical(XSolvable *s2) {
3065     return solvable_identical($self->pool->solvables + $self->id, s2->pool->solvables + s2->id);
3066   }
3067   int evrcmp(XSolvable *s2) {
3068     return pool_evrcmp($self->pool, $self->pool->solvables[$self->id].evr, s2->pool->solvables[s2->id].evr, EVRCMP_COMPARE);
3069   }
3070 #ifdef SWIGRUBY
3071   %rename("matchesdep?") matchesdep;
3072 #endif
3073   bool matchesdep(Id keyname, DepId id, Id marker = -1) {
3074     return solvable_matchesdep($self->pool->solvables + $self->id, keyname, id, marker);
3075   }
3076
3077 #if defined(SWIGTCL)
3078   %rename("==") __eq__;
3079 #endif
3080   bool __eq__(XSolvable *s) {
3081     return $self->pool == s->pool && $self->id == s->id;
3082   }
3083 #if defined(SWIGTCL)
3084   %rename("!=") __ne__;
3085 #endif
3086   bool __ne__(XSolvable *s) {
3087     return !XSolvable___eq__($self, s);
3088   }
3089 #if defined(SWIGPYTHON)
3090   int __hash__() {
3091     return $self->id;
3092   }
3093 #endif
3094 #if defined(SWIGPERL) || defined(SWIGTCL)
3095   %rename("str") __str__;
3096 #endif
3097   const char *__str__() {
3098     return pool_solvid2str($self->pool, $self->id);
3099   }
3100 #if defined(SWIGPERL) || defined(SWIGTCL)
3101   %rename("repr") __repr__;
3102 #endif
3103   %newobject __repr__;
3104   const char *__repr__() {
3105     char buf[20];
3106     sprintf(buf, "<Solvable #%d ", $self->id);
3107     return solv_dupjoin(buf, pool_solvid2str($self->pool, $self->id), ">");
3108   }
3109 }
3110
3111 %extend Problem {
3112   Problem(Solver *solv, Id id) {
3113     Problem *p;
3114     p = solv_calloc(1, sizeof(*p));
3115     p->solv = solv;
3116     p->id = id;
3117     return p;
3118   }
3119   %newobject findproblemrule;
3120   XRule *findproblemrule() {
3121     Id r = solver_findproblemrule($self->solv, $self->id);
3122     return new_XRule($self->solv, r);
3123   }
3124   %newobject findallproblemrules;
3125   %typemap(out) Queue findallproblemrules Queue2Array(XRule *, 1, new_XRule(arg1->solv, id));
3126   Queue findallproblemrules(int unfiltered=0) {
3127     Solver *solv = $self->solv;
3128     Id probr;
3129     int i, j;
3130     Queue q;
3131     queue_init(&q);
3132     solver_findallproblemrules(solv, $self->id, &q);
3133     if (!unfiltered)
3134       {
3135         for (i = j = 0; i < q.count; i++)
3136           {
3137             SolverRuleinfo rclass;
3138             probr = q.elements[i];
3139             rclass = solver_ruleclass(solv, probr);
3140             if (rclass == SOLVER_RULE_UPDATE || rclass == SOLVER_RULE_JOB)
3141               continue;
3142             q.elements[j++] = probr;
3143           }
3144         if (j)
3145           queue_truncate(&q, j);
3146       }
3147     return q;
3148   }
3149   int solution_count() {
3150     return solver_solution_count($self->solv, $self->id);
3151   }
3152   %typemap(out) Queue solutions Queue2Array(Solution *, 1, new_Solution(arg1, id));
3153   %newobject solutions;
3154   Queue solutions() {
3155     Queue q;
3156     int i, cnt;
3157     queue_init(&q);
3158     cnt = solver_solution_count($self->solv, $self->id);
3159     for (i = 1; i <= cnt; i++)
3160       queue_push(&q, i);
3161     return q;
3162   }
3163 #if defined(SWIGPERL) || defined(SWIGTCL)
3164   %rename("str") __str__;
3165 #endif
3166   const char *__str__() {
3167     return solver_problem2str($self->solv, $self->id);
3168   }
3169 }
3170
3171 %extend Solution {
3172   Solution(Problem *p, Id id) {
3173     Solution *s;
3174     s = solv_calloc(1, sizeof(*s));
3175     s->solv = p->solv;
3176     s->problemid = p->id;
3177     s->id = id;
3178     return s;
3179   }
3180   int element_count() {
3181     return solver_solutionelement_count($self->solv, $self->problemid, $self->id);
3182   }
3183
3184   %typemap(out) Queue elements Queue2Array(Solutionelement *, 4, new_Solutionelement(arg1->solv, arg1->problemid, arg1->id, id, idp[1], idp[2], idp[3]));
3185   %newobject elements;
3186   Queue elements(bool expandreplaces=0) {
3187     Queue q;
3188     int i, cnt;
3189     queue_init(&q);
3190     cnt = solver_solutionelement_count($self->solv, $self->problemid, $self->id);
3191     for (i = 1; i <= cnt; i++)
3192       {
3193         Id p, rp, type;
3194         solver_next_solutionelement($self->solv, $self->problemid, $self->id, i - 1, &p, &rp);
3195         if (p > 0) {
3196           type = rp ? SOLVER_SOLUTION_REPLACE : SOLVER_SOLUTION_ERASE;
3197         } else {
3198           type = p;
3199           p = rp;
3200           rp = 0;
3201         }
3202         if (type == SOLVER_SOLUTION_REPLACE && expandreplaces) {
3203           int illegal = policy_is_illegal(self->solv, self->solv->pool->solvables + p, self->solv->pool->solvables + rp, 0);
3204           if (illegal) {
3205             if ((illegal & POLICY_ILLEGAL_DOWNGRADE) != 0) {
3206               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_DOWNGRADE);
3207               queue_push2(&q, p, rp);
3208             }
3209             if ((illegal & POLICY_ILLEGAL_ARCHCHANGE) != 0) {
3210               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_ARCHCHANGE);
3211               queue_push2(&q, p, rp);
3212             }
3213             if ((illegal & POLICY_ILLEGAL_VENDORCHANGE) != 0) {
3214               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_VENDORCHANGE);
3215               queue_push2(&q, p, rp);
3216             }
3217             if ((illegal & POLICY_ILLEGAL_NAMECHANGE) != 0) {
3218               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_NAMECHANGE);
3219               queue_push2(&q, p, rp);
3220             }
3221             continue;
3222           }
3223         }
3224         queue_push2(&q, i, type);
3225         queue_push2(&q, p, rp);
3226       }
3227     return q;
3228   }
3229 }
3230
3231 %extend Solutionelement {
3232   Solutionelement(Solver *solv, Id problemid, Id solutionid, Id id, Id type, Id p, Id rp) {
3233     Solutionelement *e;
3234     e = solv_calloc(1, sizeof(*e));
3235     e->solv = solv;
3236     e->problemid = problemid;
3237     e->solutionid = id;
3238     e->id = id;
3239     e->type = type;
3240     e->p = p;
3241     e->rp = rp;
3242     return e;
3243   }
3244   const char *str() {
3245     Id p = $self->type;
3246     Id rp = $self->p;
3247     int illegal = 0;
3248     if (p == SOLVER_SOLUTION_ERASE)
3249       {
3250         p = rp;
3251         rp = 0;
3252       }
3253     else if (p == SOLVER_SOLUTION_REPLACE)
3254       {
3255         p = rp;
3256         rp = $self->rp;
3257       }
3258     else if (p == SOLVER_SOLUTION_REPLACE_DOWNGRADE)
3259       illegal = POLICY_ILLEGAL_DOWNGRADE;
3260     else if (p == SOLVER_SOLUTION_REPLACE_ARCHCHANGE)
3261       illegal = POLICY_ILLEGAL_ARCHCHANGE;
3262     else if (p == SOLVER_SOLUTION_REPLACE_VENDORCHANGE)
3263       illegal = POLICY_ILLEGAL_VENDORCHANGE;
3264     else if (p == SOLVER_SOLUTION_REPLACE_NAMECHANGE)
3265       illegal = POLICY_ILLEGAL_NAMECHANGE;
3266     if (illegal)
3267       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);
3268     return solver_solutionelement2str($self->solv, p, rp);
3269   }
3270   %typemap(out) Queue replaceelements Queue2Array(Solutionelement *, 1, new_Solutionelement(arg1->solv, arg1->problemid, arg1->solutionid, arg1->id, id, arg1->p, arg1->rp));
3271   %newobject replaceelements;
3272   Queue replaceelements() {
3273     Queue q;
3274     int illegal;
3275
3276     queue_init(&q);
3277     if ($self->type != SOLVER_SOLUTION_REPLACE || $self->p <= 0 || $self->rp <= 0)
3278       illegal = 0;
3279     else
3280       illegal = policy_is_illegal($self->solv, $self->solv->pool->solvables + $self->p, $self->solv->pool->solvables + $self->rp, 0);
3281     if ((illegal & POLICY_ILLEGAL_DOWNGRADE) != 0)
3282       queue_push(&q, SOLVER_SOLUTION_REPLACE_DOWNGRADE);
3283     if ((illegal & POLICY_ILLEGAL_ARCHCHANGE) != 0)
3284       queue_push(&q, SOLVER_SOLUTION_REPLACE_ARCHCHANGE);
3285     if ((illegal & POLICY_ILLEGAL_VENDORCHANGE) != 0)
3286       queue_push(&q, SOLVER_SOLUTION_REPLACE_VENDORCHANGE);
3287     if ((illegal & POLICY_ILLEGAL_NAMECHANGE) != 0)
3288       queue_push(&q, SOLVER_SOLUTION_REPLACE_NAMECHANGE);
3289     if (!q.count)
3290       queue_push(&q, $self->type);
3291     return q;
3292   }
3293   int illegalreplace() {
3294     if ($self->type != SOLVER_SOLUTION_REPLACE || $self->p <= 0 || $self->rp <= 0)
3295       return 0;
3296     return policy_is_illegal($self->solv, $self->solv->pool->solvables + $self->p, $self->solv->pool->solvables + $self->rp, 0);
3297   }
3298   %newobject solvable;
3299   XSolvable * const solvable;
3300   %newobject replacement;
3301   XSolvable * const replacement;
3302   int const jobidx;
3303   %{
3304     SWIGINTERN XSolvable *Solutionelement_solvable_get(Solutionelement *e) {
3305       return new_XSolvable(e->solv->pool, e->p);
3306     }
3307     SWIGINTERN XSolvable *Solutionelement_replacement_get(Solutionelement *e) {
3308       return new_XSolvable(e->solv->pool, e->rp);
3309     }
3310     SWIGINTERN int Solutionelement_jobidx_get(Solutionelement *e) {
3311       if (e->type != SOLVER_SOLUTION_JOB && e->type != SOLVER_SOLUTION_POOLJOB)
3312         return -1;
3313       return (e->p - 1) / 2;
3314     }
3315   %}
3316   %newobject Job;
3317   Job *Job() {
3318     Id extraflags = solver_solutionelement_extrajobflags($self->solv, $self->problemid, $self->solutionid);
3319     if ($self->type == SOLVER_SOLUTION_JOB || $self->type == SOLVER_SOLUTION_POOLJOB)
3320       return new_Job($self->solv->pool, SOLVER_NOOP, 0);
3321     if ($self->type == SOLVER_SOLUTION_INFARCH || $self->type == SOLVER_SOLUTION_DISTUPGRADE || $self->type == SOLVER_SOLUTION_BEST)
3322       return new_Job($self->solv->pool, SOLVER_INSTALL|SOLVER_SOLVABLE|SOLVER_NOTBYUSER|extraflags, $self->p);
3323     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)
3324       return new_Job($self->solv->pool, SOLVER_INSTALL|SOLVER_SOLVABLE|SOLVER_NOTBYUSER|extraflags, $self->rp);
3325     if ($self->type == SOLVER_SOLUTION_ERASE)
3326       return new_Job($self->solv->pool, SOLVER_ERASE|SOLVER_SOLVABLE|extraflags, $self->p);
3327     return 0;
3328   }
3329 }
3330
3331 %extend Solver {
3332   static const int SOLVER_RULE_UNKNOWN = SOLVER_RULE_UNKNOWN;
3333   static const int SOLVER_RULE_PKG = SOLVER_RULE_PKG;
3334   static const int SOLVER_RULE_PKG_NOT_INSTALLABLE = SOLVER_RULE_PKG_NOT_INSTALLABLE;
3335   static const int SOLVER_RULE_PKG_NOTHING_PROVIDES_DEP = SOLVER_RULE_PKG_NOTHING_PROVIDES_DEP;
3336   static const int SOLVER_RULE_PKG_REQUIRES = SOLVER_RULE_PKG_REQUIRES;
3337   static const int SOLVER_RULE_PKG_SELF_CONFLICT = SOLVER_RULE_PKG_SELF_CONFLICT;
3338   static const int SOLVER_RULE_PKG_CONFLICTS = SOLVER_RULE_PKG_CONFLICTS;
3339   static const int SOLVER_RULE_PKG_SAME_NAME = SOLVER_RULE_PKG_SAME_NAME;
3340   static const int SOLVER_RULE_PKG_OBSOLETES = SOLVER_RULE_PKG_OBSOLETES;
3341   static const int SOLVER_RULE_PKG_IMPLICIT_OBSOLETES = SOLVER_RULE_PKG_IMPLICIT_OBSOLETES;
3342   static const int SOLVER_RULE_PKG_INSTALLED_OBSOLETES = SOLVER_RULE_PKG_INSTALLED_OBSOLETES;
3343   static const int SOLVER_RULE_UPDATE = SOLVER_RULE_UPDATE;
3344   static const int SOLVER_RULE_FEATURE = SOLVER_RULE_FEATURE;
3345   static const int SOLVER_RULE_JOB = SOLVER_RULE_JOB;
3346   static const int SOLVER_RULE_JOB_NOTHING_PROVIDES_DEP = SOLVER_RULE_JOB_NOTHING_PROVIDES_DEP;
3347   static const int SOLVER_RULE_JOB_PROVIDED_BY_SYSTEM = SOLVER_RULE_JOB_PROVIDED_BY_SYSTEM;
3348   static const int SOLVER_RULE_JOB_UNKNOWN_PACKAGE = SOLVER_RULE_JOB_UNKNOWN_PACKAGE;
3349   static const int SOLVER_RULE_JOB_UNSUPPORTED = SOLVER_RULE_JOB_UNSUPPORTED;
3350   static const int SOLVER_RULE_DISTUPGRADE = SOLVER_RULE_DISTUPGRADE;
3351   static const int SOLVER_RULE_INFARCH = SOLVER_RULE_INFARCH;
3352   static const int SOLVER_RULE_CHOICE = SOLVER_RULE_CHOICE;
3353   static const int SOLVER_RULE_LEARNT = SOLVER_RULE_LEARNT;
3354
3355   static const int SOLVER_SOLUTION_JOB = SOLVER_SOLUTION_JOB;
3356   static const int SOLVER_SOLUTION_POOLJOB = SOLVER_SOLUTION_POOLJOB;
3357   static const int SOLVER_SOLUTION_INFARCH = SOLVER_SOLUTION_INFARCH;
3358   static const int SOLVER_SOLUTION_DISTUPGRADE = SOLVER_SOLUTION_DISTUPGRADE;
3359   static const int SOLVER_SOLUTION_BEST = SOLVER_SOLUTION_BEST;
3360   static const int SOLVER_SOLUTION_ERASE = SOLVER_SOLUTION_ERASE;
3361   static const int SOLVER_SOLUTION_REPLACE = SOLVER_SOLUTION_REPLACE;
3362   static const int SOLVER_SOLUTION_REPLACE_DOWNGRADE = SOLVER_SOLUTION_REPLACE_DOWNGRADE;
3363   static const int SOLVER_SOLUTION_REPLACE_ARCHCHANGE = SOLVER_SOLUTION_REPLACE_ARCHCHANGE;
3364   static const int SOLVER_SOLUTION_REPLACE_VENDORCHANGE = SOLVER_SOLUTION_REPLACE_VENDORCHANGE;
3365   static const int SOLVER_SOLUTION_REPLACE_NAMECHANGE = SOLVER_SOLUTION_REPLACE_NAMECHANGE;
3366
3367   static const int POLICY_ILLEGAL_DOWNGRADE = POLICY_ILLEGAL_DOWNGRADE;
3368   static const int POLICY_ILLEGAL_ARCHCHANGE = POLICY_ILLEGAL_ARCHCHANGE;
3369   static const int POLICY_ILLEGAL_VENDORCHANGE = POLICY_ILLEGAL_VENDORCHANGE;
3370   static const int POLICY_ILLEGAL_NAMECHANGE = POLICY_ILLEGAL_NAMECHANGE;
3371
3372   static const int SOLVER_FLAG_ALLOW_DOWNGRADE = SOLVER_FLAG_ALLOW_DOWNGRADE;
3373   static const int SOLVER_FLAG_ALLOW_ARCHCHANGE = SOLVER_FLAG_ALLOW_ARCHCHANGE;
3374   static const int SOLVER_FLAG_ALLOW_VENDORCHANGE = SOLVER_FLAG_ALLOW_VENDORCHANGE;
3375   static const int SOLVER_FLAG_ALLOW_NAMECHANGE = SOLVER_FLAG_ALLOW_NAMECHANGE;
3376   static const int SOLVER_FLAG_ALLOW_UNINSTALL = SOLVER_FLAG_ALLOW_UNINSTALL;
3377   static const int SOLVER_FLAG_NO_UPDATEPROVIDE = SOLVER_FLAG_NO_UPDATEPROVIDE;
3378   static const int SOLVER_FLAG_SPLITPROVIDES = SOLVER_FLAG_SPLITPROVIDES;
3379   static const int SOLVER_FLAG_IGNORE_RECOMMENDED = SOLVER_FLAG_IGNORE_RECOMMENDED;
3380   static const int SOLVER_FLAG_ADD_ALREADY_RECOMMENDED = SOLVER_FLAG_ADD_ALREADY_RECOMMENDED;
3381   static const int SOLVER_FLAG_NO_INFARCHCHECK = SOLVER_FLAG_NO_INFARCHCHECK;
3382   static const int SOLVER_FLAG_BEST_OBEY_POLICY = SOLVER_FLAG_BEST_OBEY_POLICY;
3383   static const int SOLVER_FLAG_NO_AUTOTARGET = SOLVER_FLAG_NO_AUTOTARGET;
3384   static const int SOLVER_FLAG_DUP_ALLOW_DOWNGRADE = SOLVER_FLAG_DUP_ALLOW_DOWNGRADE;
3385   static const int SOLVER_FLAG_DUP_ALLOW_ARCHCHANGE = SOLVER_FLAG_DUP_ALLOW_ARCHCHANGE;
3386   static const int SOLVER_FLAG_DUP_ALLOW_VENDORCHANGE = SOLVER_FLAG_DUP_ALLOW_VENDORCHANGE;
3387   static const int SOLVER_FLAG_DUP_ALLOW_NAMECHANGE = SOLVER_FLAG_DUP_ALLOW_NAMECHANGE;
3388   static const int SOLVER_FLAG_KEEP_ORPHANS = SOLVER_FLAG_KEEP_ORPHANS;
3389   static const int SOLVER_FLAG_BREAK_ORPHANS = SOLVER_FLAG_BREAK_ORPHANS;
3390   static const int SOLVER_FLAG_FOCUS_INSTALLED = SOLVER_FLAG_FOCUS_INSTALLED;
3391   static const int SOLVER_FLAG_YUM_OBSOLETES = SOLVER_FLAG_YUM_OBSOLETES;
3392   static const int SOLVER_FLAG_NEED_UPDATEPROVIDE = SOLVER_FLAG_NEED_UPDATEPROVIDE;
3393   static const int SOLVER_FLAG_FOCUS_BEST = SOLVER_FLAG_FOCUS_BEST;
3394   static const int SOLVER_FLAG_STRONG_RECOMMENDS = SOLVER_FLAG_STRONG_RECOMMENDS;
3395   static const int SOLVER_FLAG_INSTALL_ALSO_UPDATES = SOLVER_FLAG_INSTALL_ALSO_UPDATES;
3396
3397   static const int SOLVER_REASON_UNRELATED = SOLVER_REASON_UNRELATED;
3398   static const int SOLVER_REASON_UNIT_RULE = SOLVER_REASON_UNIT_RULE;
3399   static const int SOLVER_REASON_KEEP_INSTALLED = SOLVER_REASON_KEEP_INSTALLED;
3400   static const int SOLVER_REASON_RESOLVE_JOB = SOLVER_REASON_RESOLVE_JOB;
3401   static const int SOLVER_REASON_UPDATE_INSTALLED = SOLVER_REASON_UPDATE_INSTALLED;
3402   static const int SOLVER_REASON_CLEANDEPS_ERASE = SOLVER_REASON_CLEANDEPS_ERASE;
3403   static const int SOLVER_REASON_RESOLVE = SOLVER_REASON_RESOLVE;
3404   static const int SOLVER_REASON_WEAKDEP = SOLVER_REASON_WEAKDEP;
3405   static const int SOLVER_REASON_RESOLVE_ORPHAN = SOLVER_REASON_RESOLVE_ORPHAN;
3406   static const int SOLVER_REASON_RECOMMENDED = SOLVER_REASON_RECOMMENDED;
3407   static const int SOLVER_REASON_SUPPLEMENTED = SOLVER_REASON_SUPPLEMENTED;
3408
3409   /* legacy */
3410   static const int SOLVER_RULE_RPM = SOLVER_RULE_RPM;
3411
3412   ~Solver() {
3413     solver_free($self);
3414   }
3415
3416   int set_flag(int flag, int value) {
3417     return solver_set_flag($self, flag, value);
3418   }
3419   int get_flag(int flag) {
3420     return solver_get_flag($self, flag);
3421   }
3422 #if defined(SWIGPYTHON)
3423   %pythoncode {
3424     def solve(self, jobs):
3425       j = []
3426       for job in jobs: j += [job.how, job.what]
3427       return self.solve_helper(j)
3428   }
3429 #endif
3430 #if defined(SWIGPERL)
3431   %perlcode {
3432     sub solv::Solver::solve {
3433       my ($self, $jobs) = @_;
3434       my @j = map {($_->{'how'}, $_->{'what'})} @$jobs;
3435       return $self->solve_helper(\@j);
3436     }
3437   }
3438 #endif
3439 #if defined(SWIGRUBY)
3440 %init %{
3441 rb_eval_string(
3442     "class Solv::Solver\n"
3443     "  def solve(jobs)\n"
3444     "    jl = []\n"
3445     "    jobs.each do |j| ; jl << j.how << j.what ; end\n"
3446     "    solve_helper(jl)\n"
3447     "  end\n"
3448     "end\n"
3449   );
3450 %}
3451 #endif
3452   %typemap(out) Queue solve_helper Queue2Array(Problem *, 1, new_Problem(arg1, id));
3453   %newobject solve_helper;
3454   Queue solve_helper(Queue jobs) {
3455     Queue q;
3456     int i, cnt;
3457     queue_init(&q);
3458     solver_solve($self, &jobs);
3459     cnt = solver_problem_count($self);
3460     for (i = 1; i <= cnt; i++)
3461       queue_push(&q, i);
3462     return q;
3463   }
3464 #if defined(SWIGTCL)
3465   %typemap(out) Queue solve Queue2Array(Problem *, 1, new_Problem(arg1, id));
3466   %newobject solve;
3467   Queue solve(Queue solvejobs) {
3468     Queue q;
3469     int i, cnt;
3470     queue_init(&q);
3471     solver_solve($self, &solvejobs);
3472     cnt = solver_problem_count($self);
3473     for (i = 1; i <= cnt; i++)
3474       queue_push(&q, i);
3475     return q;
3476   }
3477 #endif
3478
3479   %newobject transaction;
3480   Transaction *transaction() {
3481     return solver_create_transaction($self);
3482   }
3483
3484   int describe_decision(XSolvable *s, XRule **OUTPUT) {
3485     int ruleid;
3486     int reason = solver_describe_decision($self, s->id, &ruleid);
3487     *OUTPUT = new_XRule($self, ruleid);
3488     return reason;
3489   }
3490
3491   %newobject describe_weakdep_decision_raw;
3492   Queue describe_weakdep_decision_raw(XSolvable *s) {
3493     Queue q;
3494     queue_init(&q);
3495     solver_describe_weakdep_decision($self, s->id, &q);
3496     return q;
3497   }
3498 #if defined(SWIGPYTHON)
3499   %pythoncode {
3500     def describe_weakdep_decision(self, s):
3501       d = iter(self.describe_weakdep_decision_raw(s))
3502       return [ (t, XSolvable(self.pool, sid), Dep(self.pool, id)) for t, sid, id in zip(d, d, d) ]
3503   }
3504 #endif
3505 #if defined(SWIGPERL)
3506   %perlcode {
3507     sub solv::Solver::describe_weakdep_decision {
3508       my ($self, $s) = @_;
3509       my $pool = $self->{'pool'};
3510       my @res;
3511       my @d = $self->describe_weakdep_decision_raw($s);
3512       push @res, [ splice(@d, 0, 3) ] while @d;
3513       return map { [ $_->[0], solv::XSolvable->new($pool, $_->[1]), solv::Dep->new($pool, $_->[2]) ] } @res;
3514     }
3515   }
3516 #endif
3517 #if defined(SWIGRUBY)
3518 %init %{
3519 rb_eval_string(
3520     "class Solv::Solver\n"
3521     "  def describe_weakdep_decision(s)\n"
3522     "    self.describe_weakdep_decision_raw(s).each_slice(3).map { |t, sid, id| [ t, Solv::XSolvable.new(self.pool, sid), Solv::Dep.new(self.pool, id)] }\n"
3523     "  end\n"
3524     "end\n"
3525   );
3526 %}
3527 #endif
3528
3529   int alternatives_count() {
3530     return solver_alternatives_count($self);
3531   }
3532
3533   %newobject alternative;
3534   Alternative *alternative(Id aid) {
3535     Alternative *a = solv_calloc(1, sizeof(*a));
3536     a->solv = $self;
3537     queue_init(&a->choices);
3538     a->type = solver_get_alternative($self, aid, &a->dep_id, &a->from_id, &a->chosen_id, &a->choices, &a->level);
3539     if (!a->type) {
3540       queue_free(&a->choices);
3541       solv_free(a);
3542       return 0;
3543     }
3544     if (a->type == SOLVER_ALTERNATIVE_TYPE_RULE) {
3545       a->rid = a->dep_id;
3546       a->dep_id = 0;
3547     }
3548     return a;
3549   }
3550
3551   %typemap(out) Queue all_alternatives Queue2Array(Alternative *, 1, Solver_alternative(arg1, id));
3552   %newobject all_alternatives;
3553   Queue all_alternatives() {
3554     Queue q;
3555     int i, cnt;
3556     queue_init(&q);
3557     cnt = solver_alternatives_count($self);
3558     for (i = 1; i <= cnt; i++)
3559       queue_push(&q, i);
3560     return q;
3561   }
3562
3563   bool write_testcase(const char *dir) {
3564     return testcase_write($self, dir, TESTCASE_RESULT_TRANSACTION | TESTCASE_RESULT_PROBLEMS, 0, 0);
3565   }
3566
3567   Queue raw_decisions(int filter=0) {
3568     Queue q;
3569     queue_init(&q);
3570     solver_get_decisionqueue($self, &q);
3571     if (filter) {
3572       int i, j;
3573       for (i = j = 0; i < q.count; i++)
3574         if ((filter > 0 && q.elements[i] > 1) ||
3575             (filter < 0 && q.elements[i] < 0))
3576           q.elements[j++] = q.elements[i];
3577       queue_truncate(&q, j);
3578     }
3579     return q;
3580   }
3581
3582   %typemap(out) Queue get_recommended Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
3583   %newobject get_recommended;
3584   Queue get_recommended(bool noselected=0) {
3585     Queue q;
3586     queue_init(&q);
3587     solver_get_recommendations($self, &q, NULL, noselected);
3588     return q;
3589   }
3590   %typemap(out) Queue get_suggested Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
3591   %newobject get_suggested;
3592   Queue get_suggested(bool noselected=0) {
3593     Queue q;
3594     queue_init(&q);
3595     solver_get_recommendations($self, NULL, &q, noselected);
3596     return q;
3597   }
3598 }
3599
3600 %extend Transaction {
3601   static const int SOLVER_TRANSACTION_IGNORE = SOLVER_TRANSACTION_IGNORE;
3602   static const int SOLVER_TRANSACTION_ERASE = SOLVER_TRANSACTION_ERASE;
3603   static const int SOLVER_TRANSACTION_REINSTALLED = SOLVER_TRANSACTION_REINSTALLED;
3604   static const int SOLVER_TRANSACTION_DOWNGRADED = SOLVER_TRANSACTION_DOWNGRADED;
3605   static const int SOLVER_TRANSACTION_CHANGED = SOLVER_TRANSACTION_CHANGED;
3606   static const int SOLVER_TRANSACTION_UPGRADED = SOLVER_TRANSACTION_UPGRADED;
3607   static const int SOLVER_TRANSACTION_OBSOLETED = SOLVER_TRANSACTION_OBSOLETED;
3608   static const int SOLVER_TRANSACTION_INSTALL = SOLVER_TRANSACTION_INSTALL;
3609   static const int SOLVER_TRANSACTION_REINSTALL = SOLVER_TRANSACTION_REINSTALL;
3610   static const int SOLVER_TRANSACTION_DOWNGRADE = SOLVER_TRANSACTION_DOWNGRADE;
3611   static const int SOLVER_TRANSACTION_CHANGE = SOLVER_TRANSACTION_CHANGE;
3612   static const int SOLVER_TRANSACTION_UPGRADE = SOLVER_TRANSACTION_UPGRADE;
3613   static const int SOLVER_TRANSACTION_OBSOLETES = SOLVER_TRANSACTION_OBSOLETES;
3614   static const int SOLVER_TRANSACTION_MULTIINSTALL = SOLVER_TRANSACTION_MULTIINSTALL;
3615   static const int SOLVER_TRANSACTION_MULTIREINSTALL = SOLVER_TRANSACTION_MULTIREINSTALL;
3616   static const int SOLVER_TRANSACTION_MAXTYPE = SOLVER_TRANSACTION_MAXTYPE;
3617   static const int SOLVER_TRANSACTION_SHOW_ACTIVE = SOLVER_TRANSACTION_SHOW_ACTIVE;
3618   static const int SOLVER_TRANSACTION_SHOW_ALL = SOLVER_TRANSACTION_SHOW_ALL;
3619   static const int SOLVER_TRANSACTION_SHOW_OBSOLETES = SOLVER_TRANSACTION_SHOW_OBSOLETES;
3620   static const int SOLVER_TRANSACTION_SHOW_MULTIINSTALL = SOLVER_TRANSACTION_SHOW_MULTIINSTALL;
3621   static const int SOLVER_TRANSACTION_CHANGE_IS_REINSTALL = SOLVER_TRANSACTION_CHANGE_IS_REINSTALL;
3622   static const int SOLVER_TRANSACTION_OBSOLETE_IS_UPGRADE = SOLVER_TRANSACTION_OBSOLETE_IS_UPGRADE;
3623   static const int SOLVER_TRANSACTION_MERGE_VENDORCHANGES = SOLVER_TRANSACTION_MERGE_VENDORCHANGES;
3624   static const int SOLVER_TRANSACTION_MERGE_ARCHCHANGES = SOLVER_TRANSACTION_MERGE_ARCHCHANGES;
3625   static const int SOLVER_TRANSACTION_RPM_ONLY = SOLVER_TRANSACTION_RPM_ONLY;
3626   static const int SOLVER_TRANSACTION_ARCHCHANGE = SOLVER_TRANSACTION_ARCHCHANGE;
3627   static const int SOLVER_TRANSACTION_VENDORCHANGE = SOLVER_TRANSACTION_VENDORCHANGE;
3628   static const int SOLVER_TRANSACTION_KEEP_ORDERDATA = SOLVER_TRANSACTION_KEEP_ORDERDATA;
3629   ~Transaction() {
3630     transaction_free($self);
3631   }
3632 #ifdef SWIGRUBY
3633   %rename("isempty?") isempty;
3634 #endif
3635   bool isempty() {
3636     return $self->steps.count == 0;
3637   }
3638
3639   %newobject othersolvable;
3640   XSolvable *othersolvable(XSolvable *s) {
3641     Id op = transaction_obs_pkg($self, s->id);
3642     return new_XSolvable($self->pool, op);
3643   }
3644
3645   %typemap(out) Queue allothersolvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
3646   %newobject allothersolvables;
3647   Queue allothersolvables(XSolvable *s) {
3648     Queue q;
3649     queue_init(&q);
3650     transaction_all_obs_pkgs($self, s->id, &q);
3651     return q;
3652   }
3653
3654   %typemap(out) Queue classify Queue2Array(TransactionClass *, 4, new_TransactionClass(arg1, arg2, id, idp[1], idp[2], idp[3]));
3655   %newobject classify;
3656   Queue classify(int mode = 0) {
3657     Queue q;
3658     queue_init(&q);
3659     transaction_classify($self, mode, &q);
3660     return q;
3661   }
3662
3663   /* deprecated, use newsolvables instead */
3664   %typemap(out) Queue newpackages Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
3665   %newobject newpackages;
3666   Queue newpackages() {
3667     Queue q;
3668     int cut;
3669     queue_init(&q);
3670     cut = transaction_installedresult(self, &q);
3671     queue_truncate(&q, cut);
3672     return q;
3673   }
3674
3675   /* deprecated, use keptsolvables instead */
3676   %typemap(out) Queue keptpackages Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
3677   %newobject keptpackages;
3678   Queue keptpackages() {
3679     Queue q;
3680     int cut;
3681     queue_init(&q);
3682     cut = transaction_installedresult(self, &q);
3683     if (cut)
3684       queue_deleten(&q, 0, cut);
3685     return q;
3686   }
3687
3688   %typemap(out) Queue newsolvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
3689   %newobject newsolvables;
3690   Queue newsolvables() {
3691     Queue q;
3692     int cut;
3693     queue_init(&q);
3694     cut = transaction_installedresult(self, &q);
3695     queue_truncate(&q, cut);
3696     return q;
3697   }
3698
3699   %typemap(out) Queue keptsolvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
3700   %newobject keptsolvables;
3701   Queue keptsolvables() {
3702     Queue q;
3703     int cut;
3704     queue_init(&q);
3705     cut = transaction_installedresult(self, &q);
3706     if (cut)
3707       queue_deleten(&q, 0, cut);
3708     return q;
3709   }
3710
3711   %typemap(out) Queue steps Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
3712   %newobject steps;
3713   Queue steps() {
3714     Queue q;
3715     queue_init_clone(&q, &$self->steps);
3716     return q;
3717   }
3718
3719   int steptype(XSolvable *s, int mode) {
3720     return transaction_type($self, s->id, mode);
3721   }
3722   int calc_installsizechange() {
3723     return transaction_calc_installsizechange($self);
3724   }
3725   void order(int flags=0) {
3726     transaction_order($self, flags);
3727   }
3728 }
3729
3730 %extend TransactionClass {
3731   TransactionClass(Transaction *trans, int mode, Id type, int count, Id fromid, Id toid) {
3732     TransactionClass *cl = solv_calloc(1, sizeof(*cl));
3733     cl->transaction = trans;
3734     cl->mode = mode;
3735     cl->type = type;
3736     cl->count = count;
3737     cl->fromid = fromid;
3738     cl->toid = toid;
3739     return cl;
3740   }
3741   %typemap(out) Queue solvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->transaction->pool, id));
3742   %newobject solvables;
3743   Queue solvables() {
3744     Queue q;
3745     queue_init(&q);
3746     transaction_classify_pkgs($self->transaction, $self->mode, $self->type, $self->fromid, $self->toid, &q);
3747     return q;
3748   }
3749   const char * const fromstr;
3750   const char * const tostr;
3751   %{
3752     SWIGINTERN const char *TransactionClass_fromstr_get(TransactionClass *cl) {
3753       return pool_id2str(cl->transaction->pool, cl->fromid);
3754     }
3755     SWIGINTERN const char *TransactionClass_tostr_get(TransactionClass *cl) {
3756       return pool_id2str(cl->transaction->pool, cl->toid);
3757     }
3758   %}
3759 }
3760
3761 %extend XRule {
3762   XRule(Solver *solv, Id id) {
3763     if (!id)
3764       return 0;
3765     XRule *xr = solv_calloc(1, sizeof(*xr));
3766     xr->solv = solv;
3767     xr->id = id;
3768     return xr;
3769   }
3770   int const type;
3771   %{
3772     SWIGINTERN int XRule_type_get(XRule *xr) {
3773       return solver_ruleclass(xr->solv, xr->id);
3774     }
3775   %}
3776   %newobject info;
3777   Ruleinfo *info() {
3778     Id type, source, target, dep;
3779     type = solver_ruleinfo($self->solv, $self->id, &source, &target, &dep);
3780     return new_Ruleinfo($self, type, source, target, dep);
3781   }
3782   %typemap(out) Queue allinfos Queue2Array(Ruleinfo *, 4, new_Ruleinfo(arg1, id, idp[1], idp[2], idp[3]));
3783   %newobject allinfos;
3784   Queue allinfos() {
3785     Queue q;
3786     queue_init(&q);
3787     solver_allruleinfos($self->solv, $self->id, &q);
3788     return q;
3789   }
3790
3791 #if defined(SWIGTCL)
3792   %rename("==") __eq__;
3793 #endif
3794   bool __eq__(XRule *xr) {
3795     return $self->solv == xr->solv && $self->id == xr->id;
3796   }
3797 #if defined(SWIGTCL)
3798   %rename("!=") __ne__;
3799 #endif
3800   bool __ne__(XRule *xr) {
3801     return !XRule___eq__($self, xr);
3802   }
3803 #if defined(SWIGPYTHON)
3804   int __hash__() {
3805     return $self->id;
3806   }
3807 #endif
3808 #if defined(SWIGPERL) || defined(SWIGTCL)
3809   %rename("repr") __repr__;
3810 #endif
3811   %newobject __repr__;
3812   const char *__repr__() {
3813     char buf[20];
3814     sprintf(buf, "<Rule #%d>", $self->id);
3815     return solv_strdup(buf);
3816   }
3817 }
3818
3819 %extend Ruleinfo {
3820   Ruleinfo(XRule *r, Id type, Id source, Id target, Id dep_id) {
3821     Ruleinfo *ri = solv_calloc(1, sizeof(*ri));
3822     ri->solv = r->solv;
3823     ri->rid = r->id;
3824     ri->type = type;
3825     ri->source = source;
3826     ri->target = target;
3827     ri->dep_id = dep_id;
3828     return ri;
3829   }
3830   %newobject solvable;
3831   XSolvable * const solvable;
3832   %newobject othersolvable;
3833   XSolvable * const othersolvable;
3834   %newobject dep;
3835   Dep * const dep;
3836   %{
3837     SWIGINTERN XSolvable *Ruleinfo_solvable_get(Ruleinfo *ri) {
3838       return new_XSolvable(ri->solv->pool, ri->source);
3839     }
3840     SWIGINTERN XSolvable *Ruleinfo_othersolvable_get(Ruleinfo *ri) {
3841       return new_XSolvable(ri->solv->pool, ri->target);
3842     }
3843     SWIGINTERN Dep *Ruleinfo_dep_get(Ruleinfo *ri) {
3844       return new_Dep(ri->solv->pool, ri->dep_id);
3845     }
3846   %}
3847   const char *problemstr() {
3848     return solver_problemruleinfo2str($self->solv, $self->type, $self->source, $self->target, $self->dep_id);
3849   }
3850 }
3851
3852 %extend XRepodata {
3853   XRepodata(Repo *repo, Id id) {
3854     XRepodata *xr = solv_calloc(1, sizeof(*xr));
3855     xr->repo = repo;
3856     xr->id = id;
3857     return xr;
3858   }
3859   Id new_handle() {
3860     return repodata_new_handle(repo_id2repodata($self->repo, $self->id));
3861   }
3862   void set_id(Id solvid, Id keyname, DepId id) {
3863     repodata_set_id(repo_id2repodata($self->repo, $self->id), solvid, keyname, id);
3864   }
3865   void set_str(Id solvid, Id keyname, const char *str) {
3866     repodata_set_str(repo_id2repodata($self->repo, $self->id), solvid, keyname, str);
3867   }
3868   void set_poolstr(Id solvid, Id keyname, const char *str) {
3869     repodata_set_poolstr(repo_id2repodata($self->repo, $self->id), solvid, keyname, str);
3870   }
3871   void add_idarray(Id solvid, Id keyname, DepId id) {
3872     repodata_add_idarray(repo_id2repodata($self->repo, $self->id), solvid, keyname, id);
3873   }
3874   void add_flexarray(Id solvid, Id keyname, Id handle) {
3875     repodata_add_flexarray(repo_id2repodata($self->repo, $self->id), solvid, keyname, handle);
3876   }
3877   void set_checksum(Id solvid, Id keyname, Chksum *chksum) {
3878     const unsigned char *buf = solv_chksum_get(chksum, 0);
3879     if (buf)
3880       repodata_set_bin_checksum(repo_id2repodata($self->repo, $self->id), solvid, keyname, solv_chksum_get_type(chksum), buf);
3881   }
3882   void set_sourcepkg(Id solvid, const char *sourcepkg) {
3883     repodata_set_sourcepkg(repo_id2repodata($self->repo, $self->id), solvid, sourcepkg);
3884   }
3885   const char *lookup_str(Id solvid, Id keyname) {
3886     return repodata_lookup_str(repo_id2repodata($self->repo, $self->id), solvid, keyname);
3887   }
3888   Queue lookup_idarray(Id solvid, Id keyname) {
3889     Queue r;
3890     queue_init(&r);
3891     repodata_lookup_idarray(repo_id2repodata($self->repo, $self->id), solvid, keyname, &r);
3892     return r;
3893   }
3894   %newobject lookup_checksum;
3895   Chksum *lookup_checksum(Id solvid, Id keyname) {
3896     Id type = 0;
3897     const unsigned char *b = repodata_lookup_bin_checksum(repo_id2repodata($self->repo, $self->id), solvid, keyname, &type);
3898     return solv_chksum_create_from_bin(type, b);
3899   }
3900   void internalize() {
3901     repodata_internalize(repo_id2repodata($self->repo, $self->id));
3902   }
3903   void create_stubs() {
3904     Repodata *data = repo_id2repodata($self->repo, $self->id);
3905     data = repodata_create_stubs(data);
3906     $self->id = data->repodataid;
3907   }
3908   bool write(FILE *fp) {
3909     return repodata_write(repo_id2repodata($self->repo, $self->id), fp) == 0;
3910   }
3911   bool add_solv(FILE *fp, int flags = 0) {
3912     Repodata *data = repo_id2repodata($self->repo, $self->id);
3913     int r, oldstate = data->state;
3914     data->state = REPODATA_LOADING;
3915     r = repo_add_solv(data->repo, fp, flags | REPO_USE_LOADING);
3916     if (r || data->state == REPODATA_LOADING)
3917       data->state = oldstate;
3918     return r;
3919   }
3920   void extend_to_repo() {
3921     Repodata *data = repo_id2repodata($self->repo, $self->id);
3922     repodata_extend_block(data, data->repo->start, data->repo->end - data->repo->start);
3923   }
3924 #if defined(SWIGTCL)
3925   %rename("==") __eq__;
3926 #endif
3927   bool __eq__(XRepodata *xr) {
3928     return $self->repo == xr->repo && $self->id == xr->id;
3929   }
3930 #if defined(SWIGTCL)
3931   %rename("!=") __ne__;
3932 #endif
3933   bool __ne__(XRepodata *xr) {
3934     return !XRepodata___eq__($self, xr);
3935   }
3936 #if defined(SWIGPYTHON)
3937   int __hash__() {
3938     return $self->id;
3939   }
3940 #endif
3941 #if defined(SWIGPERL) || defined(SWIGTCL)
3942   %rename("repr") __repr__;
3943 #endif
3944   %newobject __repr__;
3945   const char *__repr__() {
3946     char buf[20];
3947     sprintf(buf, "<Repodata #%d>", $self->id);
3948     return solv_strdup(buf);
3949   }
3950 }
3951
3952 #ifdef ENABLE_PUBKEY
3953 %extend Solvsig {
3954   Solvsig(FILE *fp) {
3955     return solvsig_create(fp);
3956   }
3957   ~Solvsig() {
3958     solvsig_free($self);
3959   }
3960   %newobject Chksum;
3961   Chksum *Chksum() {
3962     return $self->htype ? (Chksum *)solv_chksum_create($self->htype) : 0;
3963   }
3964 #ifdef ENABLE_PGPVRFY
3965   %newobject verify;
3966   XSolvable *verify(Repo *repo, Chksum *chksum) {
3967     Id p = solvsig_verify($self, repo, chksum);
3968     return new_XSolvable(repo->pool, p);
3969   }
3970 #endif
3971 }
3972 #endif
3973
3974 %extend Alternative {
3975   static const int SOLVER_ALTERNATIVE_TYPE_RULE = SOLVER_ALTERNATIVE_TYPE_RULE;
3976   static const int SOLVER_ALTERNATIVE_TYPE_RECOMMENDS = SOLVER_ALTERNATIVE_TYPE_RECOMMENDS;
3977   static const int SOLVER_ALTERNATIVE_TYPE_SUGGESTS = SOLVER_ALTERNATIVE_TYPE_SUGGESTS;
3978
3979   ~Alternative() {
3980     queue_free(&$self->choices);
3981     solv_free($self);
3982   }
3983   %newobject chosen;
3984   XSolvable * const chosen;
3985   %newobject rule;
3986   XRule * const rule;
3987   %newobject depsolvable;
3988   XSolvable * const depsolvable;
3989   %newobject dep;
3990   Dep * const dep;
3991   %{
3992     SWIGINTERN XSolvable *Alternative_chosen_get(Alternative *a) {
3993       return new_XSolvable(a->solv->pool, a->chosen_id);
3994     }
3995     SWIGINTERN XRule *Alternative_rule_get(Alternative *a) {
3996       return new_XRule(a->solv, a->rid);
3997     }
3998     SWIGINTERN XSolvable *Alternative_depsolvable_get(Alternative *a) {
3999       return new_XSolvable(a->solv->pool, a->from_id);
4000     }
4001     SWIGINTERN Dep *Alternative_dep_get(Alternative *a) {
4002       return new_Dep(a->solv->pool, a->dep_id);
4003     }
4004   %}
4005
4006   Queue choices_raw() {
4007     Queue r;
4008     queue_init_clone(&r, &$self->choices);
4009     return r;
4010   }
4011
4012   %typemap(out) Queue choices Queue2Array(XSolvable *, 1, new_XSolvable(arg1->solv->pool, id));
4013   Queue choices() {
4014     int i;
4015     Queue r;
4016     queue_init_clone(&r, &$self->choices);
4017     for (i = 0; i < r.count; i++)
4018       if (r.elements[i] < 0)
4019         r.elements[i] = -r.elements[i];
4020     return r;
4021   }
4022
4023 #if defined(SWIGPERL) || defined(SWIGTCL)
4024   %rename("str") __str__;
4025 #endif
4026   const char *__str__() {
4027     return solver_alternative2str($self->solv, $self->type, $self->type == SOLVER_ALTERNATIVE_TYPE_RULE ? $self->rid : $self->dep_id, $self->from_id);
4028   }
4029 }
4030
4031 #if defined(SWIGTCL)
4032 %init %{
4033   Tcl_Eval(interp,
4034 "proc solv::iter {varname iter body} {\n"\
4035 "  while 1 {\n"\
4036 "    set value [$iter __next__]\n"\
4037 "    if {$value eq \"NULL\"} { break }\n"\
4038 "    uplevel [list set $varname $value]\n"\
4039 "    set code [catch {uplevel $body} result]\n"\
4040 "    switch -exact -- $code {\n"\
4041 "      0 {}\n"\
4042 "      3 { return }\n"\
4043 "      4 {}\n"\
4044 "      default { return -code $code $result }\n"\
4045 "    }\n"\
4046 "  }\n"\
4047 "}\n"
4048   );
4049 %}
4050 #endif
4051