examples/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 #
   8 ##if defined(SWIGRUBY)
   9 #  %rename("to_s") string();
  10 ##endif
  11 ##if defined(SWIGPYTHON)
  12 #  %rename("__str__") string();
  13 ##endif
  14 #
  15
  16 %module solv
  17
  18 #ifdef SWIGRUBY
  19 %markfunc Pool "mark_Pool";
  20 #endif
  21
  22 #if defined(SWIGPYTHON)
  23 %typemap(in) Queue {
  24   /* Check if is a list */
  25   queue_init(&$1);
  26   if (PyList_Check($input)) {
  27     int size = PyList_Size($input);
  28     int i = 0;
  29     for (i = 0; i < size; i++) {
  30       PyObject *o = PyList_GetItem($input,i);
  31       int v;
  32       int e = SWIG_AsVal_int(o, &v);
  33       if (!SWIG_IsOK(e)) {
  34         SWIG_exception_fail(SWIG_ArgError(e), "list must contain only integers");
  35         queue_free(&$1);
  36         return NULL;
  37       }
  38       queue_push(&$1, v);
  39     }
  40   } else {
  41     PyErr_SetString(PyExc_TypeError,"not a list");
  42     return NULL;
  43   }
  44 }
  45
  46 %typemap(out) Queue {
  47   int i;
  48   PyObject *o = PyList_New($1.count);
  49   for (i = 0; i < $1.count; i++)
  50     PyList_SetItem(o, i, SWIG_From_int($1.elements[i]));
  51   queue_free(&$1);
  52   $result = o;
  53 }
  54
  55 %define Queue2Array(type, step, con) %{
  56   int i;
  57   int cnt = $1.count / step;
  58   Id *idp = $1.elements;
  59   PyObject *o = PyList_New(cnt);
  60   for (i = 0; i < cnt; i++, idp += step)
  61     {
  62       Id id = *idp;
  63 #define result resultx
  64       type result = con;
  65       $typemap(out, type)
  66       PyList_SetItem(o, i, $result);
  67 #undef result
  68     }
  69   queue_free(&$1);
  70   $result = o;
  71 %}
  72
  73 %enddef
  74
  75 #endif
  76
  77
  78 #if defined(SWIGPERL)
  79 %typemap(in) Queue {
  80   AV *av;
  81   int i, size;
  82   queue_init(&$1);
  83   if (!SvROK($input) || SvTYPE(SvRV($input)) != SVt_PVAV)
  84     SWIG_croak("Argument $argnum is not an array reference.");
  85   av = (AV*)SvRV($input);
  86   size = av_len(av);
  87   for (i = 0; i <= size; i++) {
  88     SV **sv = av_fetch(av, i, 0);
  89     int v;
  90     int e = SWIG_AsVal_int(*sv, &v);
  91     if (!SWIG_IsOK(e)) {
  92       SWIG_croak("list must contain only integers");
  93     }
  94     queue_push(&$1, v);
  95   }
  96 }
  97 # AV *o = newAV();
  98 # av_push(o, SvREFCNT_inc(SWIG_From_int($1.elements[i])));
  99 # $result = newRV_noinc((SV*)o); argvi++;
 100 #
 101 %typemap(out) Queue {
 102   int i;
 103   if (argvi + $1.count + 1>= items) {
 104     EXTEND(sp, items - (argvi + $1.count + 1) + 1);
 105   }
 106   for (i = 0; i < $1.count; i++)
 107     ST(argvi++) = SvREFCNT_inc(SWIG_From_int($1.elements[i]));
 108   queue_free(&$1);
 109   $result = 0;
 110 }
 111 %define Queue2Array(type, step, con) %{
 112   int i;
 113   int cnt = $1.count / step;
 114   Id *idp = $1.elements;
 115   if (argvi + cnt + 1 >= items) {
 116     EXTEND(sp, items - (argvi + cnt + 1) + 1);
 117   }
 118   for (i = 0; i < cnt; i++, idp += step)
 119     {
 120       Id id = *idp;
 121 #define result resultx
 122       type result = con;
 123       $typemap(out, type)
 124       SvREFCNT_inc(ST(argvi - 1));
 125 #undef result
 126     }
 127   queue_free(&$1);
 128   $result = 0;
 129 %}
 130 %enddef
 131
 132 #endif
 133
 134 %typemap(arginit) Queue {
 135   queue_init(&$1);
 136 }
 137 %typemap(freearg) Queue {
 138   queue_free(&$1);
 139 }
 140
 141 #if defined(SWIGRUBY)
 142 %typemap(in) Queue {
 143   int size, i;
 144   VALUE *o;
 145   queue_init(&$1);
 146   size = RARRAY($input)->len;
 147   i = 0;
 148   o = RARRAY($input)->ptr;
 149   for (i = 0; i < size; i++, o++) {
 150     int v;
 151     int e = SWIG_AsVal_int(*o, &v);
 152     if (!SWIG_IsOK(e))
 153       SWIG_croak("list must contain only integers");
 154     queue_push(&$1, v);
 155   }
 156 }
 157 %typemap(out) Queue {
 158   int i;
 159   VALUE o = rb_ary_new2($1.count);
 160   for (i = 0; i < $1.count; i++)
 161     rb_ary_store(o, i, SWIG_From_int($1.elements[i]));
 162   queue_free(&$1);
 163   $result = o;
 164 }
 165 %typemap(arginit) Queue {
 166   queue_init(&$1);
 167 }
 168 %typemap(freearg) Queue {
 169   queue_free(&$1);
 170 }
 171 %define Queue2Array(type, step, con) %{
 172   int i;
 173   int cnt = $1.count / step;
 174   Id *idp = $1.elements;
 175   VALUE o = rb_ary_new2(cnt);
 176   for (i = 0; i < cnt; i++, idp += step)
 177     {
 178       Id id = *idp;
 179 #define result resultx
 180       type result = con;
 181       $typemap(out, type)
 182       rb_ary_store(o, i, $result);
 183 #undef result
 184     }
 185   queue_free(&$1);
 186   $result = o;
 187 %}
 188 %enddef
 189 #endif
 190
 191
 192
 193
 194 #if defined(SWIGPERL)
 195
 196 # work around a swig bug
 197 %{
 198 #undef SWIG_CALLXS
 199 #ifdef PERL_OBJECT
 200 #  define SWIG_CALLXS(_name) TOPMARK=MARK-PL_stack_base;_name(cv,pPerl)
 201 #else
 202 #  ifndef MULTIPLICITY
 203 #    define SWIG_CALLXS(_name) TOPMARK=MARK-PL_stack_base;_name(cv)
 204 #  else
 205 #    define SWIG_CALLXS(_name) TOPMARK=MARK-PL_stack_base;_name(PERL_GET_THX, cv)
 206 #  endif
 207 #endif
 208 %}
 209
 210
 211 %define perliter(class)
 212   %perlcode {
 213     sub class##::FETCH {
 214       my $i = ${##class##::ITERATORS}{$_[0]};
 215       if ($i) {
 216         $_[1] == $i->[0] - 1 ? $i->[1] : undef;
 217       } else {
 218         $_[0]->__getitem__($_[1]);
 219       }
 220     }
 221     sub class##::FETCHSIZE {
 222       my $i = ${##class##::ITERATORS}{$_[0]};
 223       if ($i) {
 224         ($i->[1] = $_[0]->__next__()) ? ++$i->[0]  : 0;
 225       } else {
 226         $_[0]->__len__();
 227       }
 228     }
 229   }
 230 %enddef
 231
 232 %{
 233
 234 #define SWIG_PERL_ITERATOR      0x80
 235
 236 SWIGRUNTIMEINLINE SV *
 237 SWIG_Perl_NewArrayObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
 238   SV *result = sv_newmortal();
 239   if (ptr && (flags & (SWIG_SHADOW | SWIG_POINTER_OWN))) {
 240     SV *self;
 241     SV *obj=newSV(0);
 242     AV *array=newAV();
 243     HV *stash;
 244     sv_setref_pv(obj, (char *) SWIG_Perl_TypeProxyName(t), ptr);
 245     stash=SvSTASH(SvRV(obj));
 246     if (flags & SWIG_POINTER_OWN) {
 247       HV *hv;
 248       GV *gv=*(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
 249       if (!isGV(gv))
 250         gv_init(gv, stash, "OWNER", 5, FALSE);
 251       hv=GvHVn(gv);
 252       hv_store_ent(hv, obj, newSViv(1), 0);
 253     }
 254     if (flags & SWIG_PERL_ITERATOR) {
 255       HV *hv;
 256       GV *gv=*(GV**)hv_fetch(stash, "ITERATORS", 9, TRUE);
 257       AV *av=newAV();
 258       if (!isGV(gv))
 259         gv_init(gv, stash, "ITERATORS", 9, FALSE);
 260       hv=GvHVn(gv);
 261       hv_store_ent(hv, obj, newRV_inc((SV *)av), 0);
 262     }
 263     sv_magic((SV *)array, (SV *)obj, 'P', Nullch, 0);
 264     SvREFCNT_dec(obj);
 265     self=newRV_noinc((SV *)array);
 266     sv_setsv(result, self);
 267     SvREFCNT_dec((SV *)self);
 268     sv_bless(result, stash);
 269   } else {
 270     sv_setref_pv(result, (char *) SWIG_Perl_TypeProxyName(t), ptr);
 271   }
 272   return result;
 273 }
 274
 275 %}
 276
 277 %typemap(out) Perlarray {
 278   ST(argvi) = SWIG_Perl_NewArrayObj(SWIG_PERL_OBJECT_CALL SWIG_as_voidptr(result), $1_descriptor, $owner | $shadow); argvi++;
 279 }
 280 %typemap(out) Perliterator {
 281   ST(argvi) = SWIG_Perl_NewArrayObj(SWIG_PERL_OBJECT_CALL SWIG_as_voidptr(result), $1_descriptor, $owner | $shadow | SWIG_PERL_ITERATOR); argvi++;
 282 }
 283
 284 %typemap(out) Pool_solvable_iterator * = Perlarray;
 285 %typemap(out) Pool_solvable_iterator * solvables_iter = Perliterator;
 286 %typemap(out) Pool_repo_iterator * = Perlarray;
 287 %typemap(out) Pool_repo_iterator * repos_iter = Perliterator;
 288 %typemap(out) Repo_solvable_iterator * = Perlarray;
 289 %typemap(out) Repo_solvable_iterator * solvables_iter = Perliterator;
 290 %typemap(out) Dataiterator * = Perliterator;
 291
 292 #endif
 293
 294
 295
 296 #if defined(SWIGPYTHON)
 297 typedef PyObject *AppObjectPtr;
 298 %typemap(out) AppObjectPtr {
 299   $result = $1;
 300   Py_INCREF($result);
 301 }
 302 #endif
 303 #if defined(SWIGPERL)
 304 typedef SV *AppObjectPtr;
 305 %typemap(in) AppObjectPtr {
 306   $1 = SvROK($input) ? SvRV($input) : 0;
 307 }
 308 %typemap(out) AppObjectPtr {
 309   $result = $1 ? newRV_inc($1) : newSV(0);
 310   argvi++;
 311 }
 312 #endif
 313 #if defined(SWIGRUBY)
 314 typedef VALUE AppObjectPtr;
 315 %typemap(in) AppObjectPtr {
 316   $1 = (void *)$input;
 317 }
 318 %typemap(out) AppObjectPtr {
 319   $result = (VALUE)$1;
 320 }
 321 #endif
 322
 323
 324 %include "cdata.i"
 325 #ifndef SWIGPERL
 326 %include "file.i"
 327 #endif
 328 %include "typemaps.i"
 329
 330 %{
 331 #include "stdio.h"
 332 #include "sys/stat.h"
 333
 334 #include "pool.h"
 335 #include "solver.h"
 336 #include "policy.h"
 337 #include "solverdebug.h"
 338 #include "repo_solv.h"
 339 #include "chksum.h"
 340
 341 #include "repo_rpmdb.h"
 342 #include "repo_rpmmd.h"
 343 #include "repo_write.h"
 344 #include "repo_products.h"
 345 #include "repo_susetags.h"
 346 #include "repo_updateinfoxml.h"
 347 #include "repo_deltainfoxml.h"
 348 #include "repo_repomdxml.h"
 349 #include "repo_content.h"
 350 #include "sat_xfopen.h"
 351
 352 #define true 1
 353 #define false 1
 354
 355 #define SOLVER_SOLUTION_ERASE                   -100
 356 #define SOLVER_SOLUTION_REPLACE                 -101
 357 #define SOLVER_SOLUTION_REPLACE_DOWNGRADE       -102
 358 #define SOLVER_SOLUTION_REPLACE_ARCHCHANGE      -103
 359 #define SOLVER_SOLUTION_REPLACE_VENDORCHANGE    -104
 360
 361 typedef struct chksum Chksum;
 362 typedef int bool;
 363 typedef void *AppObjectPtr;
 364
 365 typedef struct {
 366   Pool *pool;
 367   Id id;
 368 } XId;
 369
 370 typedef struct {
 371   Pool *pool;
 372   Id id;
 373 } XSolvable;
 374
 375 typedef struct {
 376   Solver *solv;
 377   Id id;
 378 } XRule;
 379
 380 typedef struct {
 381   Repo *repo;
 382   Id id;
 383 } XRepodata;
 384
 385 typedef struct {
 386   Pool *pool;
 387   Id id;
 388 } Pool_solvable_iterator;
 389
 390 typedef struct {
 391   Pool *pool;
 392   Id id;
 393 } Pool_repo_iterator;
 394
 395 typedef struct {
 396   Repo *repo;
 397   Id id;
 398 } Repo_solvable_iterator;
 399
 400 typedef struct {
 401   Pool *pool;
 402   Id how;
 403   Id what;
 404 } Job;
 405
 406 typedef struct {
 407   Solver *solv;
 408   Id id;
 409 } Problem;
 410
 411 typedef struct {
 412   Solver *solv;
 413   Id problemid;
 414   Id id;
 415 } Solution;
 416
 417 typedef struct {
 418   Solver *solv;
 419   Id problemid;
 420   Id solutionid;
 421   Id id;
 422
 423   Id type;
 424   Id p;
 425   Id rp;
 426 } Solutionelement;
 427
 428 typedef struct {
 429   Solver *solv;
 430   Id rid;
 431   Id type;
 432   Id source;
 433   Id target;
 434   Id dep;
 435 } Ruleinfo;
 436
 437 typedef struct {
 438   Transaction *transaction;
 439   int mode;
 440   Id type;
 441   int count;
 442   Id fromid;
 443   Id toid;
 444 } TransactionClass;
 445
 446 typedef Dataiterator Datamatch;
 447
 448 %}
 449
 450 #ifdef SWIGRUBY
 451 %mixin Dataiterator "Enumerable";
 452 %mixin Pool_solvable_iterator "Enumerable";
 453 %mixin Pool_repo_iterator "Enumerable";
 454 %mixin Repo_solvable_iterator "Enumerable";
 455 #endif
 456
 457 typedef int Id;
 458
 459 %include "knownid.h"
 460
 461 # from repodata.h
 462 %constant Id SOLVID_META;
 463 %constant Id SOLVID_POS;
 464
 465 %constant int REL_EQ;
 466 %constant int REL_GT;
 467 %constant int REL_LT;
 468 %constant int REL_ARCH;
 469
 470 typedef struct {
 471   Pool* const pool;
 472   Id const id;
 473 } XId;
 474
 475 typedef struct {
 476   Pool* const pool;
 477   Id const id;
 478 } XSolvable;
 479
 480 typedef struct {
 481   Solver* const solv;
 482   Id const type;
 483   Id const dep;
 484 } Ruleinfo;
 485
 486 typedef struct {
 487   Solver* const solv;
 488   Id const id;
 489 } XRule;
 490
 491 typedef struct {
 492   Repo* const repo;
 493   Id const id;
 494 } XRepodata;
 495
 496 # put before pool/repo so we can access the constructor
 497 %nodefaultdtor Dataiterator;
 498 typedef struct {} Dataiterator;
 499 typedef struct {} Pool_solvable_iterator;
 500 typedef struct {} Pool_repo_iterator;
 501 typedef struct {} Repo_solvable_iterator;
 502
 503 %nodefaultctor Datamatch;
 504 %nodefaultdtor Datamatch;
 505 typedef struct {
 506   Pool * const pool;
 507   Repo * const repo;
 508   const Id solvid;
 509 } Datamatch;
 510
 511 typedef struct {
 512   Pool * const pool;
 513   Id how;
 514   Id what;
 515 } Job;
 516
 517 %nodefaultctor Pool;
 518 %nodefaultdtor Pool;
 519 typedef struct {
 520   AppObjectPtr appdata;
 521 } Pool;
 522
 523 %nodefaultctor Repo;
 524 %nodefaultdtor Repo;
 525 typedef struct _Repo {
 526   Pool * const pool;
 527   const char * const name;
 528   int priority;
 529   int subpriority;
 530   int const nsolvables;
 531   AppObjectPtr appdata;
 532 } Repo;
 533
 534 %nodefaultctor Solver;
 535 %nodefaultdtor Solver;
 536 typedef struct {
 537   Pool * const pool;
 538   bool fixsystem;
 539   bool allowdowngrade;
 540   bool allowarchchange;
 541   bool allowvendorchange;
 542   bool allowuninstall;
 543   bool updatesystem;
 544   bool noupdateprovide;
 545   bool dosplitprovides;
 546   bool dontinstallrecommended;
 547   bool ignorealreadyrecommended;
 548   bool dontshowinstalledrecommended;
 549   bool distupgrade;
 550   bool distupgrade_removeunsupported;
 551   bool noinfarchcheck;
 552 } Solver;
 553
 554 typedef struct chksum {
 555 } Chksum;
 556
 557 %rename(xfopen) sat_xfopen;
 558 %rename(xfopen_fd) sat_xfopen_fd;
 559 %rename(xfopen_dup) sat_xfopen_dup;
 560 %rename(xfclose) sat_xfclose;
 561 %rename(xfileno) sat_xfileno;
 562
 563 FILE *sat_xfopen(const char *fn, const char *mode = 0);
 564 FILE *sat_xfopen_fd(const char *fn, int fd, const char *mode = 0);
 565 FILE *sat_xfopen_dup(const char *fn, int fd, const char *mode = 0);
 566 int sat_xfclose(FILE *fp);
 567 int sat_xfileno(FILE *fp);
 568
 569 %{
 570   SWIGINTERN int sat_xfclose(FILE *fp) {
 571     return fclose(fp);
 572   }
 573   SWIGINTERN int sat_xfileno(FILE *fp) {
 574     return fileno(fp);
 575   }
 576   SWIGINTERN FILE *sat_xfopen_dup(const char *fn, int fd, const char *mode) {
 577     fd = dup(fd);
 578     return fd == -1 ? 0 : sat_xfopen_fd(fn, fd, mode);
 579   }
 580 %}
 581
 582 typedef struct {
 583   Solver * const solv;
 584   Id const id;
 585 } Problem;
 586
 587 typedef struct {
 588   Solver * const solv;
 589   Id const problemid;
 590   Id const id;
 591 } Solution;
 592
 593 typedef struct {
 594   Solver *const solv;
 595   Id const problemid;
 596   Id const solutionid;
 597   Id const id;
 598   Id const type;
 599 } Solutionelement;
 600
 601 %nodefaultctor Transaction;
 602 %nodefaultdtor Transaction;
 603 typedef struct {
 604   Pool * const pool;
 605 } Transaction;
 606
 607 typedef struct {
 608   Transaction * const transaction;
 609   Id const type;
 610   Id const fromid;
 611   Id const toid;
 612   int const count;
 613 } TransactionClass;
 614
 615
 616 %extend Job {
 617   static const Id SOLVER_SOLVABLE = SOLVER_SOLVABLE;
 618   static const Id SOLVER_SOLVABLE_NAME = SOLVER_SOLVABLE_NAME;
 619   static const Id SOLVER_SOLVABLE_PROVIDES = SOLVER_SOLVABLE_PROVIDES;
 620   static const Id SOLVER_SOLVABLE_ONE_OF = SOLVER_SOLVABLE_ONE_OF;
 621   static const Id SOLVER_SOLVABLE_REPO = SOLVER_SOLVABLE_REPO;
 622   static const Id SOLVER_SOLVABLE_ALL = SOLVER_SOLVABLE_ALL;
 623   static const Id SOLVER_SELECTMASK = SOLVER_SELECTMASK;
 624   static const Id SOLVER_NOOP = SOLVER_NOOP;
 625   static const Id SOLVER_INSTALL = SOLVER_INSTALL;
 626   static const Id SOLVER_ERASE = SOLVER_ERASE;
 627   static const Id SOLVER_UPDATE = SOLVER_UPDATE;
 628   static const Id SOLVER_WEAKENDEPS = SOLVER_WEAKENDEPS;
 629   static const Id SOLVER_NOOBSOLETES = SOLVER_NOOBSOLETES;
 630   static const Id SOLVER_LOCK = SOLVER_LOCK;
 631   static const Id SOLVER_DISTUPGRADE = SOLVER_DISTUPGRADE;
 632   static const Id SOLVER_VERIFY = SOLVER_VERIFY;
 633   static const Id SOLVER_DROP_ORPHANED = SOLVER_DROP_ORPHANED;
 634   static const Id SOLVER_USERINSTALLED = SOLVER_USERINSTALLED;
 635   static const Id SOLVER_JOBMASK = SOLVER_JOBMASK;
 636   static const Id SOLVER_WEAK = SOLVER_WEAK;
 637   static const Id SOLVER_ESSENTIAL = SOLVER_ESSENTIAL;
 638   static const Id SOLVER_CLEANDEPS = SOLVER_CLEANDEPS;
 639   static const Id SOLVER_SETEV = SOLVER_SETEV;
 640   static const Id SOLVER_SETEVR = SOLVER_SETEVR;
 641   static const Id SOLVER_SETARCH = SOLVER_SETARCH;
 642   static const Id SOLVER_SETVENDOR = SOLVER_SETVENDOR;
 643   static const Id SOLVER_SETREPO = SOLVER_SETREPO;
 644   static const Id SOLVER_NOAUTOSET = SOLVER_NOAUTOSET;
 645   static const Id SOLVER_SETMASK = SOLVER_SETMASK;
 646
 647   Job(Pool *pool, Id how, Id what) {
 648     Job *job = sat_calloc(1, sizeof(*job));
 649     job->pool = pool;
 650     job->how = how;
 651     job->what = what;
 652     return job;
 653   }
 654
 655   const char *str() {
 656     return pool_job2str($self->pool, $self->how, $self->what, 0);
 657   }
 658
 659   Queue solvableids() {
 660     Pool *pool = $self->pool;
 661     Id p, pp, how;
 662     Queue q;
 663     queue_init(&q);
 664     how = $self->how & SOLVER_SELECTMASK;
 665     FOR_JOB_SELECT(p, pp, how, $self->what)
 666       queue_push(&q, p);
 667     return q;
 668   }
 669   %typemap(out) Queue solvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
 670   %newobject solvables;
 671   Queue solvables() {
 672     return Job_solvableids($self);
 673   }
 674 }
 675
 676 %extend Chksum {
 677   Chksum(Id type) {
 678     return (Chksum *)sat_chksum_create(type);
 679   }
 680   Chksum(Id type, const char *hex) {
 681     unsigned char buf[64];
 682     int l = sat_chksum_len(type);
 683     if (!l)
 684       return 0;
 685     if (sat_hex2bin(&hex, buf, sizeof(buf)) != l || hex[0])
 686       return 0;
 687     return (Chksum *)sat_chksum_create_from_bin(type, buf);
 688   }
 689   ~Chksum() {
 690     sat_chksum_free($self, 0);
 691   }
 692   Id const type;
 693   %{
 694   SWIGINTERN Id Chksum_type_get(Chksum *chksum) {
 695     return sat_chksum_get_type(chksum);
 696   }
 697   %}
 698   void add(const char *str) {
 699     sat_chksum_add($self, str, strlen((char *)str));
 700   }
 701   void add_fp(FILE *fp) {
 702     char buf[4096];
 703     int l;
 704     while ((l = fread(buf, 1, sizeof(buf), fp)) > 0)
 705       sat_chksum_add($self, buf, l);
 706     rewind(fp);         /* convenience */
 707   }
 708   void add_fd(int fd) {
 709     char buf[4096];
 710     int l;
 711     while ((l = read(fd, buf, sizeof(buf))) > 0)
 712       sat_chksum_add($self, buf, l);
 713     lseek(fd, 0, 0);    /* convenience */
 714   }
 715   void add_stat(const char *filename) {
 716     struct stat stb;
 717     if (stat(filename, &stb))
 718       memset(&stb, 0, sizeof(stb));
 719     sat_chksum_add($self, &stb.st_dev, sizeof(stb.st_dev));
 720     sat_chksum_add($self, &stb.st_ino, sizeof(stb.st_ino));
 721     sat_chksum_add($self, &stb.st_size, sizeof(stb.st_size));
 722     sat_chksum_add($self, &stb.st_mtime, sizeof(stb.st_mtime));
 723   }
 724   bool matches(Chksum *othersum) {
 725     int l;
 726     const unsigned char *b, *bo;
 727     if (!othersum)
 728       return 0;
 729     if (sat_chksum_get_type($self) != sat_chksum_get_type(othersum))
 730       return 0;
 731     b = sat_chksum_get($self, &l);
 732     bo = sat_chksum_get(othersum, 0);
 733     return memcmp(b, bo, l) == 0;
 734   }
 735   SWIGCDATA raw() {
 736     int l;
 737     const unsigned char *b;
 738     b = sat_chksum_get($self, &l);
 739     return cdata_void((void *)b, l);
 740   }
 741   %newobject hex;
 742   char *hex() {
 743     int l;
 744     const unsigned char *b;
 745     char *ret, *rp;
 746
 747     b = sat_chksum_get($self, &l);
 748     ret = sat_malloc(2 * l + 1);
 749     sat_bin2hex(b, l, ret);
 750     return ret;
 751   }
 752 }
 753
 754 %extend Pool {
 755   Pool() {
 756     Pool *pool = pool_create();
 757     return pool;
 758   }
 759   ~Pool() {
 760   }
 761   void set_debuglevel(int level) {
 762     pool_setdebuglevel($self, level);
 763   }
 764 #if defined(SWIGPYTHON)
 765   %{
 766   SWIGINTERN int loadcallback(Pool *pool, Repodata *data, void *d) {
 767     XRepodata *xd = new_XRepodata(data->repo, data - data->repo->repodata);
 768     PyObject *args = Py_BuildValue("(O)", SWIG_NewPointerObj(SWIG_as_voidptr(xd), SWIGTYPE_p_XRepodata, SWIG_POINTER_OWN | 0));
 769     PyObject *result = PyEval_CallObject((PyObject *)d, args);
 770     int ecode = 0;
 771     int vresult = 0;
 772     Py_DECREF(args);
 773     if (!result)
 774       return 0; /* exception */
 775     ecode = SWIG_AsVal_int(result, &vresult);
 776     Py_DECREF(result);
 777     return SWIG_IsOK(ecode) ? vresult : 0;
 778   }
 779   %}
 780   void set_loadcallback(PyObject *callable) {
 781     if ($self->loadcallback == loadcallback)
 782       Py_DECREF($self->loadcallbackdata);
 783     if (callable)
 784       Py_INCREF(callable);
 785     pool_setloadcallback($self, callable ? loadcallback : 0, callable);
 786   }
 787 #endif
 788 #if defined(SWIGPERL)
 789   %{
 790
 791 SWIGINTERN int loadcallback(Pool *pool, Repodata *data, void *d) {
 792   int count;
 793   int ret = 0;
 794   dSP;
 795   XRepodata *xd = new_XRepodata(data->repo, data - data->repo->repodata);
 796
 797   ENTER;
 798   SAVETMPS;
 799   PUSHMARK(SP);
 800   XPUSHs(SWIG_NewPointerObj(SWIG_as_voidptr(xd), SWIGTYPE_p_XRepodata, SWIG_OWNER | SWIG_SHADOW));
 801   PUTBACK;
 802   count = perl_call_sv((SV *)d, G_EVAL|G_SCALAR);
 803   SPAGAIN;
 804   if (count)
 805     ret = POPi;
 806   PUTBACK;
 807   FREETMPS;
 808   LEAVE;
 809   return ret;
 810 }
 811
 812   %}
 813   void set_loadcallback(SV *callable) {
 814     if ($self->loadcallback == loadcallback)
 815       SvREFCNT_dec($self->loadcallbackdata);
 816     if (callable)
 817       SvREFCNT_inc(callable);
 818     pool_setloadcallback($self, callable ? loadcallback : 0, callable);
 819   }
 820 #endif
 821
 822 #if defined(SWIGRUBY)
 823 %{
 824   SWIGINTERN int loadcallback(Pool *pool, Repodata *data, void *d) {
 825     XRepodata *xd = new_XRepodata(data->repo, data - data->repo->repodata);
 826     VALUE callable = (VALUE)d;
 827     VALUE rd = SWIG_NewPointerObj(SWIG_as_voidptr(xd), SWIGTYPE_p_XRepodata, SWIG_POINTER_OWN | 0);
 828     VALUE res = rb_funcall(callable, rb_intern("call"), 1, rd);
 829     return res == Qtrue;
 830   }
 831   SWIGINTERN void mark_Pool(void *ptr) {
 832     Pool *pool = ptr;
 833     if (pool->loadcallback == loadcallback && pool->loadcallbackdata) {
 834       VALUE callable = (VALUE)pool->loadcallbackdata;
 835       rb_gc_mark(callable);
 836     }
 837   }
 838 %}
 839   %typemap(in, numinputs=0) VALUE callable {
 840     $1 = rb_block_given_p() ? rb_block_proc() : 0;
 841   }
 842   void set_loadcallback(VALUE callable) {
 843     pool_setloadcallback($self, callable ? loadcallback : 0, (void *)callable);
 844   }
 845 #endif
 846
 847   void free() {
 848     Pool_set_loadcallback($self, 0);
 849     pool_free($self);
 850   }
 851   Id str2id(const char *str, bool create=1) {
 852     return str2id($self, str, create);
 853   }
 854   const char *id2str(Id id) {
 855     return id2str($self, id);
 856   }
 857   const char *dep2str(Id id) {
 858     return dep2str($self, id);
 859   }
 860   Id rel2id(Id name, Id evr, int flags, bool create=1) {
 861     return rel2id($self, name, evr, flags, create);
 862   }
 863   Id id2langid(Id id, const char *lang, bool create=1) {
 864     return pool_id2langid($self, id, lang, create);
 865   }
 866   void setarch(const char *arch) {
 867     pool_setarch($self, arch);
 868   }
 869   Repo *add_repo(const char *name) {
 870     return repo_create($self, name);
 871   }
 872   const char *lookup_str(Id entry, Id keyname) {
 873     return pool_lookup_str($self, entry, keyname);
 874   }
 875   Id lookup_id(Id entry, Id keyname) {
 876     return pool_lookup_id($self, entry, keyname);
 877   }
 878   unsigned int lookup_num(Id entry, Id keyname, unsigned int notfound = 0) {
 879     return pool_lookup_num($self, entry, keyname, notfound);
 880   }
 881   bool lookup_void(Id entry, Id keyname) {
 882     return pool_lookup_void($self, entry, keyname);
 883   }
 884   %newobject lookup_checksum;
 885   Chksum *lookup_checksum(Id entry, Id keyname) {
 886     Id type = 0;
 887     const unsigned char *b = pool_lookup_bin_checksum($self, entry, keyname, &type);
 888     return sat_chksum_create_from_bin(type, b);
 889   }
 890
 891   %newobject Dataiterator;
 892   Dataiterator *Dataiterator(Id p, Id key, const char *match, int flags) {
 893     return new_Dataiterator($self, 0, p, key, match, flags);
 894   }
 895   const char *solvid2str(Id solvid) {
 896     return solvid2str($self, solvid);
 897   }
 898   void addfileprovides() {
 899     pool_addfileprovides($self);
 900   }
 901   Queue addfileprovides_ids() {
 902     Queue r;
 903     Id *addedfileprovides = 0;
 904     queue_init(&r);
 905     pool_addfileprovides_ids($self, $self->installed, &addedfileprovides);
 906     if (addedfileprovides) {
 907       for (; *addedfileprovides; addedfileprovides++)
 908         queue_push(&r, *addedfileprovides);
 909     }
 910     return r;
 911   }
 912   void createwhatprovides() {
 913     pool_createwhatprovides($self);
 914   }
 915
 916   %newobject solvables;
 917   Pool_solvable_iterator * const solvables;
 918   %{
 919   SWIGINTERN Pool_solvable_iterator * Pool_solvables_get(Pool *pool) {
 920     return new_Pool_solvable_iterator(pool);
 921   }
 922   %}
 923   %newobject solvables_iter;
 924   Pool_solvable_iterator * solvables_iter() {
 925     return new_Pool_solvable_iterator($self);
 926   }
 927
 928   %newobject repos;
 929   Pool_repo_iterator * const repos;
 930   %{
 931   SWIGINTERN Pool_repo_iterator * Pool_repos_get(Pool *pool) {
 932     return new_Pool_repo_iterator(pool);
 933   }
 934   %}
 935   %newobject repos_iter;
 936   Pool_repo_iterator * repos_iter() {
 937     return new_Pool_repo_iterator($self);
 938   }
 939
 940   Repo *installed;
 941   %{
 942   SWIGINTERN void Pool_installed_set(Pool *pool, Repo *installed) {
 943     pool_set_installed(pool, installed);
 944   }
 945   Repo *Pool_installed_get(Pool *pool) {
 946     return pool->installed;
 947   }
 948   %}
 949
 950   Queue providerids(Id dep) {
 951     Pool *pool = $self;
 952     Queue q;
 953     Id p, pp;
 954     queue_init(&q);
 955     FOR_PROVIDES(p, pp, dep)
 956       queue_push(&q, p);
 957     return q;
 958   }
 959   Queue matchprovidingids(const char *match, int flags) {
 960     Pool *pool = $self;
 961     Queue q;
 962     Id id;
 963     queue_init(&q);
 964     if (!flags) {
 965       for (id = 1; id < pool->ss.nstrings; id++)
 966         if (pool->whatprovides[id])
 967           queue_push(&q, id);
 968     } else {
 969       Datamatcher ma;
 970       if (!datamatcher_init(&ma, match, flags)) {
 971         for (id = 1; id < pool->ss.nstrings; id++)
 972           if (pool->whatprovides[id] && datamatcher_match(&ma, id2str(pool, id)))
 973             queue_push(&q, id);
 974         datamatcher_free(&ma);
 975       }
 976     }
 977     return q;
 978   }
 979
 980   Job *Job(Id how, Id what) {
 981     return new_Job($self, how, what);
 982   }
 983
 984   %typemap(out) Queue providers Queue2Array(XSolvable *, 1, new_XSolvable(arg1, id));
 985   %newobject providers;
 986   Queue providers(Id dep) {
 987     Pool *pool = $self;
 988     Queue q;
 989     Id p, pp;
 990     queue_init(&q);
 991     FOR_PROVIDES(p, pp, dep)
 992       queue_push(&q, p);
 993     return q;
 994   }
 995
 996   Id towhatprovides(Queue q) {
 997     return pool_queuetowhatprovides($self, &q);
 998   }
 999 #ifdef SWIGRUBY
1000   %rename("isknownarch?") isknownarch;
1001 #endif
1002   bool isknownarch(Id id) {
1003     Pool *pool = $self;
1004     if (!id || id == ID_EMPTY)
1005       return 0;
1006     if (id == ARCH_SRC || id == ARCH_NOSRC || id == ARCH_NOARCH)
1007       return 1;
1008     if (pool->id2arch && (id > pool->lastarch || !pool->id2arch[id]))
1009       return 0;
1010     return 1;
1011   }
1012
1013   %newobject Solver;
1014   Solver *Solver() {
1015     return solver_create($self);
1016   }
1017 }
1018
1019 %extend Repo {
1020   static const int REPO_REUSE_REPODATA = REPO_REUSE_REPODATA;
1021   static const int REPO_NO_INTERNALIZE = REPO_NO_INTERNALIZE;
1022   static const int REPO_LOCALPOOL = REPO_LOCALPOOL;
1023   static const int REPO_USE_LOADING = REPO_USE_LOADING;
1024   static const int REPO_EXTEND_SOLVABLES = REPO_EXTEND_SOLVABLES;
1025   static const int SOLV_ADD_NO_STUBS = SOLV_ADD_NO_STUBS;       /* repo_solv */
1026   static const int SUSETAGS_RECORD_SHARES = SUSETAGS_RECORD_SHARES; /* repo_susetags */
1027   static const int SOLV_ADD_NO_STUBS = SOLV_ADD_NO_STUBS ; /* repo_solv */
1028
1029   void free(bool reuseids = 0) {
1030     repo_free($self, reuseids);
1031   }
1032   void empty(bool reuseids = 0) {
1033     repo_empty($self, reuseids);
1034   }
1035 #ifdef SWIGRUBY
1036   %rename("isempty?") isempty;
1037 #endif
1038   bool isempty() {
1039     return !$self->nsolvables;
1040   }
1041   bool add_solv(const char *name, int flags = 0) {
1042     FILE *fp = fopen(name, "r");
1043     int r;
1044     if (!fp)
1045       return 0;
1046     r = repo_add_solv_flags($self, fp, flags);
1047     fclose(fp);
1048     return r == 0;
1049   }
1050   bool add_solv(FILE *fp, int flags = 0) {
1051     return repo_add_solv_flags($self, fp, flags) == 0;
1052   }
1053   bool add_products(const char *proddir, int flags = 0) {
1054     repo_add_products($self, proddir, 0, flags);
1055     return 1;
1056   }
1057   bool add_rpmmd(FILE *fp, const char *language, int flags = 0) {
1058     repo_add_rpmmd($self, fp, language, flags);
1059     return 1;
1060   }
1061   bool add_rpmdb(Repo *ref, int flags = 0) {
1062     repo_add_rpmdb($self, ref, 0, flags);
1063     return 1;
1064   }
1065   Id add_rpm(const char *name, int flags = 0) {
1066     return repo_add_rpm($self, name, flags);
1067   }
1068   bool add_susetags(FILE *fp, Id defvendor, const char *language, int flags = 0) {
1069     repo_add_susetags($self, fp, defvendor, language, flags);
1070     return 1;
1071   }
1072   bool add_repomdxml(FILE *fp, int flags = 0) {
1073     repo_add_repomdxml($self, fp, flags);
1074     return 1;
1075   }
1076   bool add_content(FILE *fp, int flags = 0) {
1077     repo_add_content($self, fp, flags);
1078     return 1;
1079   }
1080   bool add_updateinfoxml(FILE *fp, int flags = 0) {
1081     repo_add_updateinfoxml($self, fp, flags);
1082     return 1;
1083   }
1084   bool add_deltainfoxml(FILE *fp, int flags = 0) {
1085     repo_add_deltainfoxml($self, fp, flags);
1086     return 1;
1087   }
1088   void internalize() {
1089     repo_internalize($self);
1090   }
1091   const char *lookup_str(Id entry, Id keyname) {
1092     return repo_lookup_str($self, entry, keyname);
1093   }
1094   Id lookup_id(Id entry, Id keyname) {
1095     return repo_lookup_id($self, entry, keyname);
1096   }
1097   unsigned int lookup_num(Id entry, Id keyname, unsigned int notfound = 0) {
1098     return repo_lookup_num($self, entry, keyname, notfound);
1099   }
1100   void write(FILE *fp) {
1101     repo_write($self, fp, repo_write_stdkeyfilter, 0, 0);
1102   }
1103   # HACK, remove if no longer needed!
1104   bool write_first_repodata(FILE *fp, int flags = 0) {
1105     int oldnrepodata = $self->nrepodata;
1106     $self->nrepodata = 1;
1107     repo_write($self, fp, repo_write_stdkeyfilter, 0, 0);
1108     $self->nrepodata = oldnrepodata;
1109     return 1;
1110   }
1111
1112   %newobject Dataiterator;
1113   Dataiterator *Dataiterator(Id p, Id key, const char *match, int flags) {
1114     return new_Dataiterator($self->pool, $self, p, key, match, flags);
1115   }
1116
1117   Id const id;
1118   %{
1119   SWIGINTERN Id Repo_id_get(Repo *repo) {
1120     return repo->repoid;
1121   }
1122   %}
1123   Repo_solvable_iterator * const solvables;
1124   %{
1125   SWIGINTERN Repo_solvable_iterator * Repo_solvables_get(Repo *repo) {
1126     return new_Repo_solvable_iterator(repo);
1127   }
1128   %}
1129   %newobject solvables_iter;
1130   Repo_solvable_iterator *solvables_iter() {
1131     return new_Repo_solvable_iterator($self);
1132   }
1133
1134   XRepodata *add_repodata(int flags = 0) {
1135     Repodata *rd = repo_add_repodata($self, flags);
1136     return new_XRepodata($self, rd - $self->repodata);
1137   }
1138
1139   void create_stubs() {
1140     Repodata *data;
1141     if (!$self->nrepodata)
1142       return;
1143     data = $self->repodata  + ($self->nrepodata - 1);
1144     if (data->state != REPODATA_STUB)
1145       repodata_create_stubs(data);
1146   }
1147 #ifdef SWIGRUBY
1148   %rename("iscontiguous?") iscontiguous;
1149 #endif
1150   bool iscontiguous() {
1151     int i;
1152     for (i = $self->start; i < $self->end; i++)
1153       if ($self->pool->solvables[i].repo != $self)
1154         return 0;
1155     return 1;
1156   }
1157   XRepodata *first_repodata() {
1158      int i;
1159      if (!$self->nrepodata)
1160        return 0;
1161      /* make sure all repodatas but the first are extensions */
1162      if ($self->repodata[0].loadcallback)
1163         return 0;
1164      for (i = 1; i < $self->nrepodata; i++)
1165        if (!$self->repodata[i].loadcallback)
1166          return 0;       /* oops, not an extension */
1167      return new_XRepodata($self, 0);
1168    }
1169 }
1170
1171 %extend Dataiterator {
1172   static const int SEARCH_STRING = SEARCH_STRING;
1173   static const int SEARCH_SUBSTRING = SEARCH_SUBSTRING;
1174   static const int SEARCH_GLOB = SEARCH_GLOB;
1175   static const int SEARCH_REGEX = SEARCH_REGEX;
1176   static const int SEARCH_NOCASE = SEARCH_NOCASE;
1177   static const int SEARCH_FILES = SEARCH_FILES;
1178   static const int SEARCH_COMPLETE_FILELIST = SEARCH_COMPLETE_FILELIST;
1179
1180   Dataiterator(Pool *pool, Repo *repo, Id p, Id key, const char *match, int flags) {
1181     Dataiterator *di = sat_calloc(1, sizeof(*di));
1182     dataiterator_init(di, pool, repo, p, key, match, flags);
1183     return di;
1184   }
1185   ~Dataiterator() {
1186     dataiterator_free($self);
1187     sat_free($self);
1188   }
1189 #if defined(SWIGPYTHON)
1190   %newobject __iter__;
1191   Dataiterator *__iter__() {
1192     Dataiterator *ndi;
1193     ndi = sat_calloc(1, sizeof(*ndi));
1194     dataiterator_init_clone(ndi, $self);
1195     return ndi;
1196   }
1197   %rename("next") __next__();
1198   %exception __next__ {
1199     $action
1200     if (!result) {
1201       PyErr_SetString(PyExc_StopIteration,"no more matches");
1202       return NULL;
1203     }
1204   }
1205 #endif
1206
1207 #ifdef SWIGPERL
1208   perliter(solv::Dataiterator)
1209 #endif
1210
1211   %newobject __next__;
1212   Datamatch *__next__() {
1213     Dataiterator *ndi;
1214     if (!dataiterator_step($self)) {
1215       return 0;
1216     }
1217     ndi = sat_calloc(1, sizeof(*ndi));
1218     dataiterator_init_clone(ndi, $self);
1219     return ndi;
1220   }
1221 #ifdef SWIGRUBY
1222   void each() {
1223     Datamatch *d;
1224     while ((d = Dataiterator___next__($self)) != 0) {
1225       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(d), SWIGTYPE_p_Datamatch, SWIG_POINTER_OWN | 0));
1226     }
1227   }
1228 #endif
1229   void prepend_keyname(Id key) {
1230     dataiterator_prepend_keyname($self, key);
1231   }
1232   void skip_solvable() {
1233     dataiterator_skip_solvable($self);
1234   }
1235 }
1236
1237 %extend Datamatch {
1238   ~Datamatch() {
1239     dataiterator_free($self);
1240     sat_free($self);
1241   }
1242   %newobject solvable;
1243   XSolvable * const solvable;
1244   %{
1245   SWIGINTERN XSolvable *Datamatch_solvable_get(Dataiterator *di) {
1246     return new_XSolvable(di->pool, di->solvid);
1247   }
1248   %}
1249   Id key_id() {
1250     return $self->key->name;
1251   }
1252   const char *key_idstr() {
1253     return id2str($self->pool, $self->key->name);
1254   }
1255   Id keytype_id() {
1256     return $self->key->type;
1257   }
1258   const char *keytype_idstr() {
1259     return id2str($self->pool, $self->key->type);
1260   }
1261   Id match_id() {
1262      return $self->kv.id;
1263   }
1264   const char *match_idstr() {
1265      return id2str($self->pool, $self->kv.id);
1266   }
1267   const char *match_str() {
1268      return $self->kv.str;
1269   }
1270   int match_num() {
1271      return $self->kv.num;
1272   }
1273   int match_num2() {
1274      return $self->kv.num2;
1275   }
1276   void setpos_parent() {
1277     dataiterator_setpos_parent($self);
1278   }
1279 }
1280
1281 %extend Pool_solvable_iterator {
1282   Pool_solvable_iterator(Pool *pool) {
1283     Pool_solvable_iterator *s;
1284     s = sat_calloc(1, sizeof(*s));
1285     s->pool = pool;
1286     return s;
1287   }
1288 #if defined(SWIGPYTHON)
1289   %newobject __iter__;
1290   Pool_solvable_iterator *__iter__() {
1291     Pool_solvable_iterator *s;
1292     s = sat_calloc(1, sizeof(*s));
1293     *s = *$self;
1294     return s;
1295   }
1296   %rename("next") __next__();
1297   %exception __next__ {
1298     $action
1299     if (!result) {
1300       PyErr_SetString(PyExc_StopIteration,"no more matches");
1301       return NULL;
1302     }
1303   }
1304 #endif
1305
1306 #ifdef SWIGPERL
1307   perliter(solv::Pool_solvable_iterator)
1308 #endif
1309   %newobject __next__;
1310   XSolvable *__next__() {
1311     Pool *pool = $self->pool;
1312     XSolvable *s;
1313     if ($self->id >= pool->nsolvables)
1314       return 0;
1315     while (++$self->id < pool->nsolvables)
1316       if (pool->solvables[$self->id].repo)
1317         return new_XSolvable(pool, $self->id);
1318     return 0;
1319   }
1320 #ifdef SWIGRUBY
1321   void each() {
1322     XSolvable *n;
1323     while ((n = Pool_solvable_iterator___next__($self)) != 0) {
1324       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(n), SWIGTYPE_p_XSolvable, SWIG_POINTER_OWN | 0));
1325     }
1326   }
1327 #endif
1328   %newobject __getitem__;
1329   XSolvable *__getitem__(Id key) {
1330     Pool *pool = $self->pool;
1331     if (key > 0 && key < pool->nsolvables && pool->solvables[key].repo)
1332       return new_XSolvable(pool, key);
1333     return 0;
1334   }
1335   int __len__() {
1336     return $self->pool->nsolvables;
1337   }
1338 }
1339
1340 %extend Pool_repo_iterator {
1341   Pool_repo_iterator(Pool *pool) {
1342     Pool_repo_iterator *s;
1343     s = sat_calloc(1, sizeof(*s));
1344     s->pool = pool;
1345     return s;
1346   }
1347 #if defined(SWIGPYTHON)
1348   %newobject __iter__;
1349   Pool_repo_iterator *__iter__() {
1350     Pool_repo_iterator *s;
1351     s = sat_calloc(1, sizeof(*s));
1352     *s = *$self;
1353     return s;
1354   }
1355   %rename("next") __next__();
1356   %exception __next__ {
1357     $action
1358     if (!result) {
1359       PyErr_SetString(PyExc_StopIteration,"no more matches");
1360       return NULL;
1361     }
1362   }
1363 #endif
1364   %newobject __next__;
1365   Repo *__next__() {
1366     Pool *pool = $self->pool;
1367     if ($self->id >= pool->nrepos + 1)
1368       return 0;
1369     while (++$self->id < pool->nrepos + 1) {
1370       Repo *r = pool_id2repo(pool, $self->id);
1371       if (r)
1372         return r;
1373     }
1374     return 0;
1375   }
1376 #ifdef SWIGRUBY
1377   void each() {
1378     Repo *n;
1379     while ((n = Pool_repo_iterator___next__($self)) != 0) {
1380       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(n), SWIGTYPE_p__Repo, SWIG_POINTER_OWN | 0));
1381     }
1382   }
1383 #endif
1384   Repo *__getitem__(Id key) {
1385     Pool *pool = $self->pool;
1386     if (key > 0 && key < pool->nrepos + 1)
1387       return pool_id2repo(pool, key);
1388     return 0;
1389   }
1390   int __len__() {
1391     return $self->pool->nrepos + 1;
1392   }
1393 }
1394
1395 %extend Repo_solvable_iterator {
1396   Repo_solvable_iterator(Repo *repo) {
1397     Repo_solvable_iterator *s;
1398     s = sat_calloc(1, sizeof(*s));
1399     s->repo = repo;
1400     return s;
1401   }
1402 #if defined(SWIGPYTHON)
1403   %newobject __iter__;
1404   Repo_solvable_iterator *__iter__() {
1405     Repo_solvable_iterator *s;
1406     s = sat_calloc(1, sizeof(*s));
1407     *s = *$self;
1408     return s;
1409   }
1410   %rename("next") __next__();
1411   %exception __next__ {
1412     $action
1413     if (!result) {
1414       PyErr_SetString(PyExc_StopIteration,"no more matches");
1415       return NULL;
1416     }
1417   }
1418 #endif
1419   %newobject __next__;
1420   XSolvable *__next__() {
1421     Repo *repo = $self->repo;
1422     Pool *pool = repo->pool;
1423     XSolvable *s;
1424     if (repo->start > 0 && $self->id < repo->start)
1425       $self->id = repo->start - 1;
1426     if ($self->id >= repo->end)
1427       return 0;
1428     while (++$self->id < repo->end)
1429       if (pool->solvables[$self->id].repo == repo)
1430         return new_XSolvable(pool, $self->id);
1431     return 0;
1432   }
1433 #ifdef SWIGRUBY
1434   void each() {
1435     XSolvable *n;
1436     while ((n = Repo_solvable_iterator___next__($self)) != 0) {
1437       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(n), SWIGTYPE_p_XSolvable, SWIG_POINTER_OWN | 0));
1438     }
1439   }
1440 #endif
1441   %newobject __getitem__;
1442   XSolvable *__getitem__(Id key) {
1443     Repo *repo = $self->repo;
1444     Pool *pool = repo->pool;
1445     if (key > 0 && key < pool->nsolvables && pool->solvables[key].repo == repo)
1446       return new_XSolvable(pool, key);
1447     return 0;
1448   }
1449   int __len__() {
1450     return $self->repo->pool->nsolvables;
1451   }
1452 }
1453
1454 %extend XId {
1455   XId(Pool *pool, Id id) {
1456     XId *s;
1457     if (!id)
1458       return 0;
1459     s = sat_calloc(1, sizeof(*s));
1460     s->pool = pool;
1461     s->id = id;
1462     return s;
1463   }
1464   const char *str() {
1465     return dep2str($self->pool, $self->id);
1466   }
1467 }
1468
1469 %extend XSolvable {
1470   XSolvable(Pool *pool, Id id) {
1471     XSolvable *s;
1472     if (!id)
1473       return 0;
1474     s = sat_calloc(1, sizeof(*s));
1475     s->pool = pool;
1476     s->id = id;
1477     return s;
1478   }
1479   const char *str() {
1480     return solvid2str($self->pool, $self->id);
1481   }
1482   const char *lookup_str(Id keyname) {
1483     return pool_lookup_str($self->pool, $self->id, keyname);
1484   }
1485   Id lookup_id(Id keyname) {
1486     return pool_lookup_id($self->pool, $self->id, keyname);
1487   }
1488   unsigned int lookup_num(Id keyname, unsigned int notfound = 0) {
1489     return pool_lookup_num($self->pool, $self->id, keyname, notfound);
1490   }
1491   bool lookup_void(Id keyname) {
1492     return pool_lookup_void($self->pool, $self->id, keyname);
1493   }
1494   %newobject lookup_checksum;
1495   Chksum *lookup_checksum(Id keyname) {
1496     Id type = 0;
1497     const unsigned char *b = pool_lookup_bin_checksum($self->pool, $self->id, keyname, &type);
1498     return sat_chksum_create_from_bin(type, b);
1499   }
1500   const char *lookup_location(int *OUTPUT) {
1501     return solvable_get_location($self->pool->solvables + $self->id, OUTPUT);
1502   }
1503 #ifdef SWIGRUBY
1504   %rename("installable?") installable;
1505 #endif
1506   bool installable() {
1507     return pool_installable($self->pool, pool_id2solvable($self->pool, $self->id));
1508   }
1509 #ifdef SWIGRUBY
1510   %rename("isinstalled?") isinstalled;
1511 #endif
1512   bool isinstalled() {
1513     Pool *pool = $self->pool;
1514     return pool->installed && pool_id2solvable(pool, $self->id)->repo == pool->installed;
1515   }
1516
1517   const char * const name;
1518   %{
1519     SWIGINTERN const char *XSolvable_name_get(XSolvable *xs) {
1520       Pool *pool = xs->pool;
1521       return id2str(pool, pool->solvables[xs->id].name);
1522     }
1523   %}
1524   Id const nameid;
1525   %{
1526     SWIGINTERN Id XSolvable_nameid_get(XSolvable *xs) {
1527       return xs->pool->solvables[xs->id].name;
1528     }
1529   %}
1530   const char * const evr;
1531   %{
1532     SWIGINTERN const char *XSolvable_evr_get(XSolvable *xs) {
1533       Pool *pool = xs->pool;
1534       return id2str(pool, pool->solvables[xs->id].evr);
1535     }
1536   %}
1537   Id const evrid;
1538   %{
1539     SWIGINTERN Id XSolvable_evrid_get(XSolvable *xs) {
1540       return xs->pool->solvables[xs->id].evr;
1541     }
1542   %}
1543   const char * const arch;
1544   %{
1545     SWIGINTERN const char *XSolvable_arch_get(XSolvable *xs) {
1546       Pool *pool = xs->pool;
1547       return id2str(pool, pool->solvables[xs->id].arch);
1548     }
1549   %}
1550   Id const archid;
1551   %{
1552     SWIGINTERN Id XSolvable_archid_get(XSolvable *xs) {
1553       return xs->pool->solvables[xs->id].arch;
1554     }
1555   %}
1556   const char * const vendor;
1557   %{
1558     SWIGINTERN const char *XSolvable_vendor_get(XSolvable *xs) {
1559       Pool *pool = xs->pool;
1560       return id2str(pool, pool->solvables[xs->id].vendor);
1561     }
1562   %}
1563   Id const vendorid;
1564   %{
1565     SWIGINTERN Id XSolvable_vendorid_get(XSolvable *xs) {
1566       return xs->pool->solvables[xs->id].vendor;
1567     }
1568   %}
1569   Repo * const repo;
1570   %{
1571     SWIGINTERN Repo *XSolvable_repo_get(XSolvable *xs) {
1572       return xs->pool->solvables[xs->id].repo;
1573     }
1574   %}
1575 }
1576
1577 %extend Problem {
1578   Problem(Solver *solv, Id id) {
1579     Problem *p;
1580     p = sat_calloc(1, sizeof(*p));
1581     p->solv = solv;
1582     p->id = id;
1583     return p;
1584   }
1585   %newobject findproblemrule;
1586   XRule *findproblemrule() {
1587     Id r = solver_findproblemrule($self->solv, $self->id);
1588     return new_XRule($self->solv, r);
1589   }
1590   %newobject findallproblemrules;
1591   %typemap(out) Queue findallproblemrules Queue2Array(XRule *, 1, new_XRule(arg1->solv, id));
1592   Queue findallproblemrules(int unfiltered=0) {
1593     Solver *solv = $self->solv;
1594     Id probr;
1595     int i, j;
1596     Queue q;
1597     queue_init(&q);
1598     solver_findallproblemrules(solv, $self->id, &q);
1599     if (!unfiltered)
1600       {
1601         for (i = j = 0; i < q.count; i++)
1602           {
1603             probr = q.elements[i];
1604             if ((probr >= solv->updaterules && probr < solv->updaterules_end) || (probr >= solv->jobrules && probr < solv->jobrules_end))
1605               continue;
1606             q.elements[j++] = probr;
1607           }
1608         if (j)
1609           queue_truncate(&q, j);
1610       }
1611     return q;
1612   }
1613   int solution_count() {
1614     return solver_solution_count($self->solv, $self->id);
1615   }
1616   %newobject solutions;
1617   %typemap(out) Queue solutions Queue2Array(Solution *, 1, new_Solution(arg1, id));
1618   Queue solutions() {
1619     Queue q;
1620     int i, cnt;
1621     queue_init(&q);
1622     cnt = solver_solution_count($self->solv, $self->id);
1623     for (i = 1; i <= cnt; i++)
1624       queue_push(&q, i);
1625     return q;
1626   }
1627 }
1628
1629 %extend Solution {
1630   Solution(Problem *p, Id id) {
1631     Solution *s;
1632     s = sat_calloc(1, sizeof(*s));
1633     s->solv = p->solv;
1634     s->problemid = p->id;
1635     s->id = id;
1636     return s;
1637   }
1638   int element_count() {
1639     return solver_solutionelement_count($self->solv, $self->problemid, $self->id);
1640   }
1641
1642   %newobject elements;
1643   %typemap(out) Queue elements Queue2Array(Solutionelement *, 4, new_Solutionelement(arg1->solv, arg1->problemid, arg1->id, id, idp[1], idp[2], idp[3]));
1644   Queue elements(bool expandreplaces=0) {
1645     Queue q;
1646     int i, cnt;
1647     queue_init(&q);
1648     cnt = solver_solutionelement_count($self->solv, $self->problemid, $self->id);
1649     for (i = 1; i <= cnt; i++)
1650       {
1651         Id p, rp, type;
1652         solver_next_solutionelement($self->solv, $self->problemid, $self->id, i - 1, &p, &rp);
1653         if (p > 0) {
1654           type = rp ? SOLVER_SOLUTION_REPLACE : SOLVER_SOLUTION_ERASE;
1655         } else {
1656           type = p;
1657           p = rp;
1658           rp = 0;
1659         }
1660         if (type == SOLVER_SOLUTION_REPLACE && expandreplaces) {
1661           int illegal = policy_is_illegal(self->solv, self->solv->pool->solvables + p, self->solv->pool->solvables + rp, 0);
1662           if (illegal) {
1663             if ((illegal & POLICY_ILLEGAL_DOWNGRADE) != 0) {
1664               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_DOWNGRADE);
1665               queue_push2(&q, p, rp);
1666             }
1667             if ((illegal & POLICY_ILLEGAL_ARCHCHANGE) != 0) {
1668               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_ARCHCHANGE);
1669               queue_push2(&q, p, rp);
1670             }
1671             if ((illegal & POLICY_ILLEGAL_VENDORCHANGE) != 0) {
1672               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_VENDORCHANGE);
1673               queue_push2(&q, p, rp);
1674             }
1675             continue;
1676           }
1677         }
1678         queue_push2(&q, i, type);
1679         queue_push2(&q, p, rp);
1680       }
1681     return q;
1682   }
1683 }
1684
1685 %extend Solutionelement {
1686   Solutionelement(Solver *solv, Id problemid, Id solutionid, Id id, Id type, Id p, Id rp) {
1687     Solutionelement *e;
1688     e = sat_calloc(1, sizeof(*e));
1689     e->solv = solv;
1690     e->problemid = problemid;
1691     e->solutionid = id;
1692     e->id = id;
1693     e->type = type;
1694     e->p = p;
1695     e->rp = rp;
1696     return e;
1697   }
1698   const char *str() {
1699     Id p = $self->type;
1700     Id rp = $self->p;
1701     if (p == SOLVER_SOLUTION_ERASE)
1702       {
1703         p = rp;
1704         rp = 0;
1705       }
1706     else if (p == SOLVER_SOLUTION_REPLACE)
1707       {
1708         p = rp;
1709         rp = $self->rp;
1710       }
1711     else if (p == SOLVER_SOLUTION_REPLACE_DOWNGRADE)
1712       return pool_tmpjoin($self->solv->pool, "allow ", policy_illegal2str($self->solv, POLICY_ILLEGAL_DOWNGRADE, $self->solv->pool->solvables + $self->p, $self->solv->pool->solvables + $self->rp), 0);
1713     else if (p == SOLVER_SOLUTION_REPLACE_ARCHCHANGE)
1714       return pool_tmpjoin($self->solv->pool, "allow ", policy_illegal2str($self->solv, POLICY_ILLEGAL_ARCHCHANGE, $self->solv->pool->solvables + $self->p, $self->solv->pool->solvables + $self->rp), 0);
1715     else if (p == SOLVER_SOLUTION_REPLACE_VENDORCHANGE)
1716       return pool_tmpjoin($self->solv->pool, "allow ", policy_illegal2str($self->solv, POLICY_ILLEGAL_VENDORCHANGE, $self->solv->pool->solvables + $self->p, $self->solv->pool->solvables + $self->rp), 0);
1717     return solver_solutionelement2str($self->solv, p, rp);
1718   }
1719   %newobject replaceelements;
1720   %typemap(out) Queue replaceelements Queue2Array(Solutionelement *, 1, new_Solutionelement(arg1->solv, arg1->problemid, arg1->solutionid, arg1->id, id, arg1->p, arg1->rp));
1721   Queue replaceelements() {
1722     Queue q;
1723     int illegal;
1724
1725     queue_init(&q);
1726     if ($self->type != SOLVER_SOLUTION_REPLACE || $self->p <= 0 || $self->rp <= 0)
1727       illegal = 0;
1728     else
1729       illegal = policy_is_illegal($self->solv, $self->solv->pool->solvables + $self->p, $self->solv->pool->solvables + $self->rp, 0);
1730     if ((illegal & POLICY_ILLEGAL_DOWNGRADE) != 0)
1731       queue_push(&q, SOLVER_SOLUTION_REPLACE_DOWNGRADE);
1732     if ((illegal & POLICY_ILLEGAL_ARCHCHANGE) != 0)
1733       queue_push(&q, SOLVER_SOLUTION_REPLACE_ARCHCHANGE);
1734     if ((illegal & POLICY_ILLEGAL_VENDORCHANGE) != 0)
1735       queue_push(&q, SOLVER_SOLUTION_REPLACE_VENDORCHANGE);
1736     if (!q.count)
1737       queue_push(&q, $self->type);
1738     return q;
1739   }
1740   int illegalreplace() {
1741     if ($self->type != SOLVER_SOLUTION_REPLACE || $self->p <= 0 || $self->rp <= 0)
1742       return 0;
1743     return policy_is_illegal($self->solv, $self->solv->pool->solvables + $self->p, $self->solv->pool->solvables + $self->rp, 0);
1744   }
1745   %newobject solvable;
1746   XSolvable * const solvable;
1747   %newobject replacement;
1748   XSolvable * const replacement;
1749   int const jobidx;
1750   %{
1751     SWIGINTERN XSolvable *Solutionelement_solvable_get(Solutionelement *e) {
1752       return new_XSolvable(e->solv->pool, e->p);
1753     }
1754     SWIGINTERN XSolvable *Solutionelement_replacement_get(Solutionelement *e) {
1755       return new_XSolvable(e->solv->pool, e->rp);
1756     }
1757     SWIGINTERN int Solutionelement_jobidx_get(Solutionelement *e) {
1758       return (e->p - 1) / 2;
1759     }
1760   %}
1761   %newobject Job;
1762   Job *Job() {
1763     if ($self->type == SOLVER_SOLUTION_INFARCH || $self->type == SOLVER_SOLUTION_DISTUPGRADE)
1764       return new_Job($self->solv->pool, SOLVER_INSTALL|SOLVER_SOLVABLE, $self->p);
1765     if ($self->type == SOLVER_SOLUTION_REPLACE || $self->type == SOLVER_SOLUTION_REPLACE_DOWNGRADE || $self->type == SOLVER_SOLUTION_REPLACE_ARCHCHANGE || $self->type == SOLVER_SOLUTION_REPLACE_VENDORCHANGE)
1766       return new_Job($self->solv->pool, SOLVER_INSTALL|SOLVER_SOLVABLE, $self->rp);
1767     if ($self->type == SOLVER_SOLUTION_ERASE)
1768       return new_Job($self->solv->pool, SOLVER_ERASE|SOLVER_SOLVABLE, $self->p);
1769     return 0;
1770   }
1771 }
1772
1773 %extend Solver {
1774   static const int SOLVER_RULE_UNKNOWN = SOLVER_RULE_UNKNOWN;
1775   static const int SOLVER_RULE_RPM = SOLVER_RULE_RPM;
1776   static const int SOLVER_RULE_RPM_NOT_INSTALLABLE = SOLVER_RULE_RPM_NOT_INSTALLABLE;
1777   static const int SOLVER_RULE_RPM_NOTHING_PROVIDES_DEP = SOLVER_RULE_RPM_NOTHING_PROVIDES_DEP;
1778   static const int SOLVER_RULE_RPM_PACKAGE_REQUIRES = SOLVER_RULE_RPM_PACKAGE_REQUIRES;
1779   static const int SOLVER_RULE_RPM_SELF_CONFLICT = SOLVER_RULE_RPM_SELF_CONFLICT;
1780   static const int SOLVER_RULE_RPM_PACKAGE_CONFLICT = SOLVER_RULE_RPM_PACKAGE_CONFLICT;
1781   static const int SOLVER_RULE_RPM_SAME_NAME = SOLVER_RULE_RPM_SAME_NAME;
1782   static const int SOLVER_RULE_RPM_PACKAGE_OBSOLETES = SOLVER_RULE_RPM_PACKAGE_OBSOLETES;
1783   static const int SOLVER_RULE_RPM_IMPLICIT_OBSOLETES = SOLVER_RULE_RPM_IMPLICIT_OBSOLETES;
1784   static const int SOLVER_RULE_RPM_INSTALLEDPKG_OBSOLETES = SOLVER_RULE_RPM_INSTALLEDPKG_OBSOLETES;
1785   static const int SOLVER_RULE_UPDATE = SOLVER_RULE_UPDATE;
1786   static const int SOLVER_RULE_FEATURE = SOLVER_RULE_FEATURE;
1787   static const int SOLVER_RULE_JOB = SOLVER_RULE_JOB;
1788   static const int SOLVER_RULE_JOB_NOTHING_PROVIDES_DEP = SOLVER_RULE_JOB_NOTHING_PROVIDES_DEP;
1789   static const int SOLVER_RULE_DISTUPGRADE = SOLVER_RULE_DISTUPGRADE;
1790   static const int SOLVER_RULE_INFARCH = SOLVER_RULE_INFARCH;
1791   static const int SOLVER_RULE_CHOICE = SOLVER_RULE_CHOICE;
1792   static const int SOLVER_RULE_LEARNT = SOLVER_RULE_LEARNT;
1793
1794   static const int SOLVER_SOLUTION_JOB = SOLVER_SOLUTION_JOB;
1795   static const int SOLVER_SOLUTION_INFARCH = SOLVER_SOLUTION_INFARCH;
1796   static const int SOLVER_SOLUTION_DISTUPGRADE = SOLVER_SOLUTION_DISTUPGRADE;
1797   static const int SOLVER_SOLUTION_ERASE = SOLVER_SOLUTION_ERASE;
1798   static const int SOLVER_SOLUTION_REPLACE = SOLVER_SOLUTION_REPLACE;
1799   static const int SOLVER_SOLUTION_REPLACE_DOWNGRADE = SOLVER_SOLUTION_REPLACE_DOWNGRADE;
1800   static const int SOLVER_SOLUTION_REPLACE_ARCHCHANGE = SOLVER_SOLUTION_REPLACE_ARCHCHANGE;
1801   static const int SOLVER_SOLUTION_REPLACE_VENDORCHANGE = SOLVER_SOLUTION_REPLACE_VENDORCHANGE;
1802
1803   static const int POLICY_ILLEGAL_DOWNGRADE = POLICY_ILLEGAL_DOWNGRADE;
1804   static const int POLICY_ILLEGAL_ARCHCHANGE = POLICY_ILLEGAL_ARCHCHANGE;
1805   static const int POLICY_ILLEGAL_VENDORCHANGE = POLICY_ILLEGAL_VENDORCHANGE;
1806
1807   ~Solver() {
1808     solver_free($self);
1809   }
1810 #if defined(SWIGPYTHON)
1811   %pythoncode {
1812     def solve(self, jobs):
1813       j = []
1814       for job in jobs: j += [job.how, job.what]
1815       return self.solve_helper(j)
1816   }
1817 #endif
1818 #if defined(SWIGPERL)
1819   %perlcode {
1820     sub solv::Solver::solve {
1821       my ($self, $jobs) = @_;
1822       my @j = map {($_->{'how'}, $_->{'what'})} @$jobs;
1823       return $self->solve_helper(\@j);
1824     }
1825   }
1826 #endif
1827 #if defined(SWIGRUBY)
1828 %init %{
1829 rb_eval_string(
1830     "class Solv::Solver\n"
1831     "  def solve(jobs)\n"
1832     "    jl = []\n"
1833     "    jobs.each do |j| ; jl << j.how << j.what ; end\n"
1834     "    solve_helper(jl)\n"
1835     "  end\n"
1836     "end\n"
1837   );
1838 %}
1839 #endif
1840   %typemap(out) Queue solve_helper Queue2Array(Problem *, 1, new_Problem(arg1, id));
1841   %newobject solve_helper;
1842   Queue solve_helper(Queue jobs) {
1843     Queue q;
1844     int i, cnt;
1845     queue_init(&q);
1846     solver_solve($self, &jobs);
1847     cnt = solver_problem_count($self);
1848     for (i = 1; i <= cnt; i++)
1849       queue_push(&q, i);
1850     return q;
1851   }
1852   %newobject transaction;
1853   Transaction *transaction() {
1854     Transaction *t;
1855     t = sat_calloc(1, sizeof(*t));
1856     transaction_init_clone(t, &$self->trans);
1857     return t;
1858   }
1859 }
1860
1861 %extend Transaction {
1862   static const int SOLVER_TRANSACTION_IGNORE = SOLVER_TRANSACTION_IGNORE;
1863   static const int SOLVER_TRANSACTION_ERASE = SOLVER_TRANSACTION_ERASE;
1864   static const int SOLVER_TRANSACTION_REINSTALLED = SOLVER_TRANSACTION_REINSTALLED;
1865   static const int SOLVER_TRANSACTION_DOWNGRADED = SOLVER_TRANSACTION_DOWNGRADED;
1866   static const int SOLVER_TRANSACTION_CHANGED = SOLVER_TRANSACTION_CHANGED;
1867   static const int SOLVER_TRANSACTION_UPGRADED = SOLVER_TRANSACTION_UPGRADED;
1868   static const int SOLVER_TRANSACTION_OBSOLETED = SOLVER_TRANSACTION_OBSOLETED;
1869   static const int SOLVER_TRANSACTION_INSTALL = SOLVER_TRANSACTION_INSTALL;
1870   static const int SOLVER_TRANSACTION_REINSTALL = SOLVER_TRANSACTION_REINSTALL;
1871   static const int SOLVER_TRANSACTION_DOWNGRADE = SOLVER_TRANSACTION_DOWNGRADE;
1872   static const int SOLVER_TRANSACTION_CHANGE = SOLVER_TRANSACTION_CHANGE;
1873   static const int SOLVER_TRANSACTION_UPGRADE = SOLVER_TRANSACTION_UPGRADE;
1874   static const int SOLVER_TRANSACTION_OBSOLETES = SOLVER_TRANSACTION_OBSOLETES;
1875   static const int SOLVER_TRANSACTION_MULTIINSTALL = SOLVER_TRANSACTION_MULTIINSTALL;
1876   static const int SOLVER_TRANSACTION_MULTIREINSTALL = SOLVER_TRANSACTION_MULTIREINSTALL;
1877   static const int SOLVER_TRANSACTION_MAXTYPE = SOLVER_TRANSACTION_MAXTYPE;
1878   static const int SOLVER_TRANSACTION_SHOW_ACTIVE = SOLVER_TRANSACTION_SHOW_ACTIVE;
1879   static const int SOLVER_TRANSACTION_SHOW_ALL = SOLVER_TRANSACTION_SHOW_ALL;
1880   static const int SOLVER_TRANSACTION_SHOW_OBSOLETES = SOLVER_TRANSACTION_SHOW_OBSOLETES;
1881   static const int SOLVER_TRANSACTION_SHOW_MULTIINSTALL = SOLVER_TRANSACTION_SHOW_MULTIINSTALL;
1882   static const int SOLVER_TRANSACTION_CHANGE_IS_REINSTALL = SOLVER_TRANSACTION_CHANGE_IS_REINSTALL;
1883   static const int SOLVER_TRANSACTION_MERGE_VENDORCHANGES = SOLVER_TRANSACTION_MERGE_VENDORCHANGES;
1884   static const int SOLVER_TRANSACTION_MERGE_ARCHCHANGES = SOLVER_TRANSACTION_MERGE_ARCHCHANGES;
1885   static const int SOLVER_TRANSACTION_RPM_ONLY = SOLVER_TRANSACTION_RPM_ONLY;
1886   static const int SOLVER_TRANSACTION_ARCHCHANGE = SOLVER_TRANSACTION_ARCHCHANGE;
1887   static const int SOLVER_TRANSACTION_VENDORCHANGE = SOLVER_TRANSACTION_VENDORCHANGE;
1888   static const int SOLVER_TRANSACTION_KEEP_ORDERDATA = SOLVER_TRANSACTION_KEEP_ORDERDATA;
1889   ~Transaction() {
1890     transaction_free($self);
1891     sat_free($self);
1892   }
1893 #ifdef SWIGRUBY
1894   %rename("isempty?") isempty;
1895 #endif
1896   bool isempty() {
1897     return $self->steps.count == 0;
1898   }
1899
1900   %newobject othersolvable;
1901   XSolvable *othersolvable(XSolvable *s) {
1902     Id op = transaction_obs_pkg($self, s->id);
1903     return new_XSolvable($self->pool, op);
1904   }
1905
1906   %newobject allothersolvables;
1907   %typemap(out) Queue allothersolvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
1908   Queue allothersolvables(XSolvable *s) {
1909     Queue q;
1910     queue_init(&q);
1911     transaction_all_obs_pkgs($self, s->id, &q);
1912     return q;
1913   }
1914
1915   %typemap(out) Queue classify Queue2Array(TransactionClass *, 4, new_TransactionClass(arg1, arg2, id, idp[1], idp[2], idp[3]));
1916   %newobject classify;
1917   Queue classify(int mode = 0) {
1918     Queue q;
1919     queue_init(&q);
1920     transaction_classify($self, mode, &q);
1921     return q;
1922   }
1923
1924   %typemap(out) Queue newpackages Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
1925   %newobject newpackages;
1926   Queue newpackages() {
1927     Queue q;
1928     int cut;
1929     queue_init(&q);
1930     cut = transaction_installedresult(self, &q);
1931     queue_truncate(&q, cut);
1932     return q;
1933   }
1934
1935   %typemap(out) Queue keptpackages Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
1936   %newobject keptpackages;
1937   Queue keptpackages() {
1938     Queue q;
1939     int cut;
1940     queue_init(&q);
1941     cut = transaction_installedresult(self, &q);
1942     if (cut)
1943       queue_deleten(&q, 0, cut);
1944     return q;
1945   }
1946
1947   %typemap(out) Queue steps Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
1948   %newobject steps ;
1949   Queue steps() {
1950     Queue q;
1951     queue_init_clone(&q, &$self->steps);
1952     return q;
1953   }
1954
1955   int steptype(XSolvable *s, int mode) {
1956     return transaction_type($self, s->id, mode);
1957   }
1958   int calc_installsizechange() {
1959     return transaction_calc_installsizechange($self);
1960   }
1961   void order(int flags) {
1962     transaction_order($self, flags);
1963   }
1964 }
1965
1966 %extend TransactionClass {
1967   TransactionClass(Transaction *trans, int mode, Id type, int count, Id fromid, Id toid) {
1968     TransactionClass *cl = sat_calloc(1, sizeof(*cl));
1969     cl->transaction = trans;
1970     cl->mode = mode;
1971     cl->type = type;
1972     cl->count = count;
1973     cl->fromid = fromid;
1974     cl->toid = toid;
1975     return cl;
1976   }
1977   %newobject solvables;
1978   %typemap(out) Queue solvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->transaction->pool, id));
1979   Queue solvables() {
1980     Queue q;
1981     queue_init(&q);
1982     transaction_classify_pkgs($self->transaction, $self->mode, $self->type, $self->fromid, $self->toid, &q);
1983     return q;
1984   }
1985 }
1986
1987 %extend XRule {
1988   XRule(Solver *solv, Id id) {
1989     if (!id)
1990       return 0;
1991     XRule *xr = sat_calloc(1, sizeof(*xr));
1992     xr->solv = solv;
1993     xr->id = id;
1994     return xr;
1995   }
1996   Ruleinfo *info() {
1997     Id type, source, target, dep;
1998     type =  solver_ruleinfo($self->solv, $self->id, &source, &target, &dep);
1999     return new_Ruleinfo($self, type, source, target, dep);
2000   }
2001   %typemap(out) Queue allinfos Queue2Array(Ruleinfo *, 4, new_Ruleinfo(arg1, id, idp[1], idp[2], idp[3]));
2002   %newobject allinfos;
2003   Queue allinfos() {
2004     Queue q;
2005     queue_init(&q);
2006     solver_allruleinfos($self->solv, $self->id, &q);
2007     return q;
2008   }
2009 }
2010
2011 %extend Ruleinfo {
2012   Ruleinfo(XRule *r, Id type, Id source, Id target, Id dep) {
2013     Ruleinfo *ri = sat_calloc(1, sizeof(*ri));
2014     ri->solv = r->solv;
2015     ri->rid = r->id;
2016     ri->type = type;
2017     ri->source = source;
2018     ri->target = target;
2019     ri->dep = dep;
2020     return ri;
2021   }
2022   XSolvable * const solvable;
2023   XSolvable * const othersolvable;
2024   %{
2025     SWIGINTERN XSolvable *Ruleinfo_solvable_get(Ruleinfo *ri) {
2026       return new_XSolvable(ri->solv->pool, ri->source);
2027     }
2028     SWIGINTERN XSolvable *Ruleinfo_othersolvable_get(Ruleinfo *ri) {
2029       return new_XSolvable(ri->solv->pool, ri->target);
2030     }
2031   %}
2032   const char *problemstr() {
2033     return solver_problemruleinfo2str($self->solv, $self->type, $self->source, $self->target, $self->dep);
2034   }
2035 }
2036
2037 %extend XRepodata {
2038   XRepodata(Repo *repo, Id id) {
2039     XRepodata *xr = sat_calloc(1, sizeof(*xr));
2040     xr->repo = repo;
2041     xr->id = id;
2042     return xr;
2043   }
2044   Id new_handle() {
2045     return repodata_new_handle($self->repo->repodata + $self->id);
2046   }
2047   void set_id(Id solvid, Id keyname, Id id) {
2048     repodata_set_id($self->repo->repodata + $self->id, solvid, keyname, id);
2049   }
2050   void set_str(Id solvid, Id keyname, const char *str) {
2051     repodata_set_str($self->repo->repodata + $self->id, solvid, keyname, str);
2052   }
2053   void set_poolstr(Id solvid, Id keyname, const char *str) {
2054     repodata_set_poolstr($self->repo->repodata + $self->id, solvid, keyname, str);
2055   }
2056   void add_idarray(Id solvid, Id keyname, Id id) {
2057     repodata_add_idarray($self->repo->repodata + $self->id, solvid, keyname, id);
2058   }
2059   void add_flexarray(Id solvid, Id keyname, Id handle) {
2060     repodata_add_flexarray($self->repo->repodata + $self->id, solvid, keyname, handle);
2061   }
2062   void set_checksum(Id solvid, Id keyname, Chksum *chksum) {
2063     const unsigned char *buf = sat_chksum_get(chksum, 0);
2064     if (buf)
2065       repodata_set_bin_checksum($self->repo->repodata + $self->id, solvid, keyname, sat_chksum_get_type(chksum), buf);
2066   }
2067   const char *lookup_str(Id solvid, Id keyname) {
2068     return repodata_lookup_str($self->repo->repodata + $self->id, solvid, keyname);
2069   }
2070   Queue lookup_idarray(Id solvid, Id keyname) {
2071     Queue r;
2072     queue_init(&r);
2073     repodata_lookup_idarray($self->repo->repodata + $self->id, solvid, keyname, &r);
2074     return r;
2075   }
2076   %newobject lookup_checksum;
2077   Chksum *lookup_checksum(Id solvid, Id keyname) {
2078     Id type = 0;
2079     const unsigned char *b = repodata_lookup_bin_checksum($self->repo->repodata + $self->id, solvid, keyname, &type);
2080     return sat_chksum_create_from_bin(type, b);
2081   }
2082   void internalize() {
2083     repodata_internalize($self->repo->repodata + $self->id);
2084   }
2085   void create_stubs() {
2086     repodata_create_stubs($self->repo->repodata + $self->id);
2087   }
2088   void write(FILE *fp) {
2089     repodata_write($self->repo->repodata + $self->id, fp, repo_write_stdkeyfilter, 0);
2090   }
2091   bool add_solv(FILE *fp, int flags = 0) {
2092     Repodata *data = $self->repo->repodata + $self->id;
2093     int r, oldstate = data->state;
2094     data->state = REPODATA_LOADING;
2095     r = repo_add_solv_flags(data->repo, fp, flags | REPO_USE_LOADING);
2096     if (r)
2097       data->state = oldstate;
2098     return r;
2099   }
2100   void extend_to_repo() {
2101     Repodata *data = $self->repo->repodata + $self->id;
2102     repodata_extend_block(data, data->repo->start, data->repo->end - data->repo->start);
2103   }
2104 }
2105