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 #
   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       {
 154         SWIG_Error(SWIG_RuntimeError, "list must contain only integers");
 155         SWIG_fail;
 156       }
 157     queue_push(&$1, v);
 158   }
 159 }
 160 %typemap(out) Queue {
 161   int i;
 162   VALUE o = rb_ary_new2($1.count);
 163   for (i = 0; i < $1.count; i++)
 164     rb_ary_store(o, i, SWIG_From_int($1.elements[i]));
 165   queue_free(&$1);
 166   $result = o;
 167 }
 168 %typemap(arginit) Queue {
 169   queue_init(&$1);
 170 }
 171 %typemap(freearg) Queue {
 172   queue_free(&$1);
 173 }
 174 %define Queue2Array(type, step, con) %{
 175   int i;
 176   int cnt = $1.count / step;
 177   Id *idp = $1.elements;
 178   VALUE o = rb_ary_new2(cnt);
 179   for (i = 0; i < cnt; i++, idp += step)
 180     {
 181       Id id = *idp;
 182 #define result resultx
 183       type result = con;
 184       $typemap(out, type)
 185       rb_ary_store(o, i, $result);
 186 #undef result
 187     }
 188   queue_free(&$1);
 189   $result = o;
 190 %}
 191 %enddef
 192 #endif
 193
 194
 195
 196
 197 #if defined(SWIGPERL)
 198
 199 # work around a swig bug
 200 %{
 201 #undef SWIG_CALLXS
 202 #ifdef PERL_OBJECT
 203 #  define SWIG_CALLXS(_name) TOPMARK=MARK-PL_stack_base;_name(cv,pPerl)
 204 #else
 205 #  ifndef MULTIPLICITY
 206 #    define SWIG_CALLXS(_name) TOPMARK=MARK-PL_stack_base;_name(cv)
 207 #  else
 208 #    define SWIG_CALLXS(_name) TOPMARK=MARK-PL_stack_base;_name(PERL_GET_THX, cv)
 209 #  endif
 210 #endif
 211 %}
 212
 213
 214 %define perliter(class)
 215   %perlcode {
 216     sub class##::FETCH {
 217       my $i = ${##class##::ITERATORS}{$_[0]};
 218       if ($i) {
 219         $_[1] == $i->[0] - 1 ? $i->[1] : undef;
 220       } else {
 221         $_[0]->__getitem__($_[1]);
 222       }
 223     }
 224     sub class##::FETCHSIZE {
 225       my $i = ${##class##::ITERATORS}{$_[0]};
 226       if ($i) {
 227         ($i->[1] = $_[0]->__next__()) ? ++$i->[0]  : 0;
 228       } else {
 229         $_[0]->__len__();
 230       }
 231     }
 232   }
 233 %enddef
 234
 235 %{
 236
 237 #define SWIG_PERL_ITERATOR      0x80
 238
 239 SWIGRUNTIMEINLINE SV *
 240 SWIG_Perl_NewArrayObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
 241   SV *result = sv_newmortal();
 242   if (ptr && (flags & (SWIG_SHADOW | SWIG_POINTER_OWN))) {
 243     SV *self;
 244     SV *obj=newSV(0);
 245     AV *array=newAV();
 246     HV *stash;
 247     sv_setref_pv(obj, (char *) SWIG_Perl_TypeProxyName(t), ptr);
 248     stash=SvSTASH(SvRV(obj));
 249     if (flags & SWIG_POINTER_OWN) {
 250       HV *hv;
 251       GV *gv=*(GV**)hv_fetch(stash, "OWNER", 5, TRUE);
 252       if (!isGV(gv))
 253         gv_init(gv, stash, "OWNER", 5, FALSE);
 254       hv=GvHVn(gv);
 255       hv_store_ent(hv, obj, newSViv(1), 0);
 256     }
 257     if (flags & SWIG_PERL_ITERATOR) {
 258       HV *hv;
 259       GV *gv=*(GV**)hv_fetch(stash, "ITERATORS", 9, TRUE);
 260       AV *av=newAV();
 261       if (!isGV(gv))
 262         gv_init(gv, stash, "ITERATORS", 9, FALSE);
 263       hv=GvHVn(gv);
 264       hv_store_ent(hv, obj, newRV_inc((SV *)av), 0);
 265     }
 266     sv_magic((SV *)array, (SV *)obj, 'P', Nullch, 0);
 267     SvREFCNT_dec(obj);
 268     self=newRV_noinc((SV *)array);
 269     sv_setsv(result, self);
 270     SvREFCNT_dec((SV *)self);
 271     sv_bless(result, stash);
 272   } else {
 273     sv_setref_pv(result, (char *) SWIG_Perl_TypeProxyName(t), ptr);
 274   }
 275   return result;
 276 }
 277
 278 %}
 279
 280 %typemap(out) Perlarray {
 281   ST(argvi) = SWIG_Perl_NewArrayObj(SWIG_PERL_OBJECT_CALL SWIG_as_voidptr(result), $1_descriptor, $owner | $shadow); argvi++;
 282 }
 283 %typemap(out) Perliterator {
 284   ST(argvi) = SWIG_Perl_NewArrayObj(SWIG_PERL_OBJECT_CALL SWIG_as_voidptr(result), $1_descriptor, $owner | $shadow | SWIG_PERL_ITERATOR); argvi++;
 285 }
 286
 287 %typemap(out) Pool_solvable_iterator * = Perlarray;
 288 %typemap(out) Pool_solvable_iterator * solvables_iter = Perliterator;
 289 %typemap(out) Pool_repo_iterator * = Perlarray;
 290 %typemap(out) Pool_repo_iterator * repos_iter = Perliterator;
 291 %typemap(out) Repo_solvable_iterator * = Perlarray;
 292 %typemap(out) Repo_solvable_iterator * solvables_iter = Perliterator;
 293 %typemap(out) Dataiterator * = Perliterator;
 294
 295 #endif
 296
 297
 298
 299 #if defined(SWIGPYTHON)
 300 typedef PyObject *AppObjectPtr;
 301 %typemap(out) AppObjectPtr {
 302   $result = $1;
 303   Py_INCREF($result);
 304 }
 305 #endif
 306 #if defined(SWIGPERL)
 307 typedef SV *AppObjectPtr;
 308 %typemap(in) AppObjectPtr {
 309   $1 = SvROK($input) ? SvRV($input) : 0;
 310 }
 311 %typemap(out) AppObjectPtr {
 312   $result = $1 ? newRV_inc($1) : newSV(0);
 313   argvi++;
 314 }
 315 #endif
 316 #if defined(SWIGRUBY)
 317 typedef VALUE AppObjectPtr;
 318 %typemap(in) AppObjectPtr {
 319   $1 = (void *)$input;
 320 }
 321 %typemap(out) AppObjectPtr {
 322   $result = (VALUE)$1;
 323 }
 324 #endif
 325
 326
 327 %include "cdata.i"
 328 #ifndef SWIGPERL
 329 %include "file.i"
 330 #endif
 331 %include "typemaps.i"
 332
 333 %{
 334 #include <stdio.h>
 335 #include <sys/stat.h>
 336 #include <sys/types.h>
 337 #include <unistd.h>
 338
 339 #include "pool.h"
 340 #include "poolarch.h"
 341 #include "solver.h"
 342 #include "policy.h"
 343 #include "solverdebug.h"
 344 #include "repo_solv.h"
 345 #include "chksum.h"
 346
 347 #ifndef DEBIAN
 348 #include "repo_rpmdb.h"
 349 #endif
 350 #include "repo_deb.h"
 351 #include "repo_rpmmd.h"
 352 #include "repo_write.h"
 353 #include "repo_products.h"
 354 #include "repo_susetags.h"
 355 #include "repo_updateinfoxml.h"
 356 #include "repo_deltainfoxml.h"
 357 #include "repo_repomdxml.h"
 358 #include "repo_content.h"
 359 #include "solv_xfopen.h"
 360
 361 #define true 1
 362 #define false 1
 363
 364 #define SOLVER_SOLUTION_ERASE                   -100
 365 #define SOLVER_SOLUTION_REPLACE                 -101
 366 #define SOLVER_SOLUTION_REPLACE_DOWNGRADE       -102
 367 #define SOLVER_SOLUTION_REPLACE_ARCHCHANGE      -103
 368 #define SOLVER_SOLUTION_REPLACE_VENDORCHANGE    -104
 369
 370 typedef struct chksum Chksum;
 371 typedef int bool;
 372 typedef void *AppObjectPtr;
 373
 374 typedef struct {
 375   Pool *pool;
 376   Id id;
 377 } Dep;
 378
 379 typedef struct {
 380   Pool *pool;
 381   Id id;
 382 } XSolvable;
 383
 384 typedef struct {
 385   Solver *solv;
 386   Id id;
 387 } XRule;
 388
 389 typedef struct {
 390   Repo *repo;
 391   Id id;
 392 } XRepodata;
 393
 394 typedef struct {
 395   Pool *pool;
 396   Id id;
 397 } Pool_solvable_iterator;
 398
 399 typedef struct {
 400   Pool *pool;
 401   Id id;
 402 } Pool_repo_iterator;
 403
 404 typedef struct {
 405   Repo *repo;
 406   Id id;
 407 } Repo_solvable_iterator;
 408
 409 typedef struct {
 410   Pool *pool;
 411   int how;
 412   Id what;
 413 } Job;
 414
 415 typedef struct {
 416   Solver *solv;
 417   Id id;
 418 } Problem;
 419
 420 typedef struct {
 421   Solver *solv;
 422   Id problemid;
 423   Id id;
 424 } Solution;
 425
 426 typedef struct {
 427   Solver *solv;
 428   Id problemid;
 429   Id solutionid;
 430   Id id;
 431
 432   Id type;
 433   Id p;
 434   Id rp;
 435 } Solutionelement;
 436
 437 typedef struct {
 438   Solver *solv;
 439   Id rid;
 440   Id type;
 441   Id source;
 442   Id target;
 443   Id dep;
 444 } Ruleinfo;
 445
 446 typedef struct {
 447   Transaction *transaction;
 448   int mode;
 449   Id type;
 450   int count;
 451   Id fromid;
 452   Id toid;
 453 } TransactionClass;
 454
 455 typedef Dataiterator Datamatch;
 456
 457 %}
 458
 459 #ifdef SWIGRUBY
 460 %mixin Dataiterator "Enumerable";
 461 %mixin Pool_solvable_iterator "Enumerable";
 462 %mixin Pool_repo_iterator "Enumerable";
 463 %mixin Repo_solvable_iterator "Enumerable";
 464 #endif
 465
 466 typedef int Id;
 467
 468 %include "knownid.h"
 469
 470 # from repodata.h
 471 %constant Id SOLVID_META;
 472 %constant Id SOLVID_POS;
 473
 474 %constant int REL_EQ;
 475 %constant int REL_GT;
 476 %constant int REL_LT;
 477 %constant int REL_ARCH;
 478
 479 typedef struct {
 480   Pool* const pool;
 481   Id const id;
 482 } Dep;
 483
 484 typedef struct {
 485   Pool* const pool;
 486   Id const id;
 487 } XSolvable;
 488
 489 typedef struct {
 490   Solver* const solv;
 491   Id const type;
 492   Id const dep;
 493 } Ruleinfo;
 494
 495 typedef struct {
 496   Solver* const solv;
 497   Id const id;
 498 } XRule;
 499
 500 typedef struct {
 501   Repo* const repo;
 502   Id const id;
 503 } XRepodata;
 504
 505 # put before pool/repo so we can access the constructor
 506 %nodefaultdtor Dataiterator;
 507 typedef struct {} Dataiterator;
 508 typedef struct {} Pool_solvable_iterator;
 509 typedef struct {} Pool_repo_iterator;
 510 typedef struct {} Repo_solvable_iterator;
 511
 512 %nodefaultctor Datamatch;
 513 %nodefaultdtor Datamatch;
 514 typedef struct {
 515   Pool * const pool;
 516   Repo * const repo;
 517   Id const solvid;
 518 } Datamatch;
 519
 520 %nodefaultctor Datapos;
 521 typedef struct {
 522   Repo * const repo;
 523 } Datapos;
 524
 525 typedef struct {
 526   Pool * const pool;
 527   int how;
 528   Id what;
 529 } Job;
 530
 531 %nodefaultctor Pool;
 532 %nodefaultdtor Pool;
 533 typedef struct {
 534   AppObjectPtr appdata;
 535 } Pool;
 536
 537 %nodefaultctor Repo;
 538 %nodefaultdtor Repo;
 539 typedef struct _Repo {
 540   Pool * const pool;
 541   const char * const name;
 542   int priority;
 543   int subpriority;
 544   int const nsolvables;
 545   AppObjectPtr appdata;
 546 } Repo;
 547
 548 %nodefaultctor Solver;
 549 %nodefaultdtor Solver;
 550 typedef struct {
 551   Pool * const pool;
 552 } Solver;
 553
 554 typedef struct chksum {
 555 } Chksum;
 556
 557 %rename(xfopen) solv_xfopen;
 558 %rename(xfopen_fd) solv_xfopen_fd;
 559 %rename(xfopen_dup) solv_xfopen_dup;
 560 %rename(xfclose) solv_xfclose;
 561 %rename(xfileno) solv_xfileno;
 562
 563 FILE *solv_xfopen(const char *fn, const char *mode = 0);
 564 FILE *solv_xfopen_fd(const char *fn, int fd, const char *mode = 0);
 565 FILE *solv_xfopen_dup(const char *fn, int fd, const char *mode = 0);
 566 int solv_xfclose(FILE *fp);
 567 int solv_xfileno(FILE *fp);
 568
 569 %{
 570   SWIGINTERN int solv_xfclose(FILE *fp) {
 571     return fclose(fp);
 572   }
 573   SWIGINTERN int solv_xfileno(FILE *fp) {
 574     return fileno(fp);
 575   }
 576   SWIGINTERN FILE *solv_xfopen_dup(const char *fn, int fd, const char *mode) {
 577     fd = dup(fd);
 578     return fd == -1 ? 0 : solv_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, int how, Id what) {
 648     Job *job = solv_calloc(1, sizeof(*job));
 649     job->pool = pool;
 650     job->how = how;
 651     job->what = what;
 652     return job;
 653   }
 654
 655   %typemap(out) Queue solvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
 656   %newobject solvables;
 657   Queue solvables() {
 658     Pool *pool = $self->pool;
 659     Id p, pp, how;
 660     Queue q;
 661     queue_init(&q);
 662     how = $self->how & SOLVER_SELECTMASK;
 663     FOR_JOB_SELECT(p, pp, how, $self->what)
 664       queue_push(&q, p);
 665     return q;
 666   }
 667
 668   bool __eq__(Job *j) {
 669     return $self->pool == j->pool && $self->how == j->how && $self->what == j->what;
 670   }
 671   bool __ne__(Job *j) {
 672     return !Job___eq__($self, j);
 673   }
 674 #if defined(SWIGPERL)
 675   %rename("str") __str__;
 676 #endif
 677   const char *__str__() {
 678     return pool_job2str($self->pool, $self->how, $self->what, 0);
 679   }
 680   const char *__repr__() {
 681     const char *str = pool_job2str($self->pool, $self->how, $self->what, ~0);
 682     return pool_tmpjoin($self->pool, "<Job ", str, ">");
 683   }
 684 }
 685
 686 %extend Chksum {
 687   Chksum(Id type) {
 688     return (Chksum *)solv_chksum_create(type);
 689   }
 690   Chksum(Id type, const char *hex) {
 691     unsigned char buf[64];
 692     int l = solv_chksum_len(type);
 693     if (!l)
 694       return 0;
 695     if (solv_hex2bin(&hex, buf, sizeof(buf)) != l || hex[0])
 696       return 0;
 697     return (Chksum *)solv_chksum_create_from_bin(type, buf);
 698   }
 699   ~Chksum() {
 700     solv_chksum_free($self, 0);
 701   }
 702   Id const type;
 703   %{
 704   SWIGINTERN Id Chksum_type_get(Chksum *chksum) {
 705     return solv_chksum_get_type(chksum);
 706   }
 707   %}
 708   void add(const char *str) {
 709     solv_chksum_add($self, str, strlen((char *)str));
 710   }
 711   void add_fp(FILE *fp) {
 712     char buf[4096];
 713     int l;
 714     while ((l = fread(buf, 1, sizeof(buf), fp)) > 0)
 715       solv_chksum_add($self, buf, l);
 716     rewind(fp);         /* convenience */
 717   }
 718   void add_fd(int fd) {
 719     char buf[4096];
 720     int l;
 721     while ((l = read(fd, buf, sizeof(buf))) > 0)
 722       solv_chksum_add($self, buf, l);
 723     lseek(fd, 0, 0);    /* convenience */
 724   }
 725   void add_stat(const char *filename) {
 726     struct stat stb;
 727     if (stat(filename, &stb))
 728       memset(&stb, 0, sizeof(stb));
 729     solv_chksum_add($self, &stb.st_dev, sizeof(stb.st_dev));
 730     solv_chksum_add($self, &stb.st_ino, sizeof(stb.st_ino));
 731     solv_chksum_add($self, &stb.st_size, sizeof(stb.st_size));
 732     solv_chksum_add($self, &stb.st_mtime, sizeof(stb.st_mtime));
 733   }
 734   SWIGCDATA raw() {
 735     int l;
 736     const unsigned char *b;
 737     b = solv_chksum_get($self, &l);
 738     return cdata_void((void *)b, l);
 739   }
 740   %newobject hex;
 741   char *hex() {
 742     int l;
 743     const unsigned char *b;
 744     char *ret;
 745
 746     b = solv_chksum_get($self, &l);
 747     ret = solv_malloc(2 * l + 1);
 748     solv_bin2hex(b, l, ret);
 749     return ret;
 750   }
 751
 752   bool __eq__(Chksum *chk) {
 753     int l;
 754     const unsigned char *b, *bo;
 755     if (!chk)
 756       return 0;
 757     if (solv_chksum_get_type($self) != solv_chksum_get_type(chk))
 758       return 0;
 759     b = solv_chksum_get($self, &l);
 760     bo = solv_chksum_get(chk, 0);
 761     return memcmp(b, bo, l) == 0;
 762   }
 763   bool __ne__(Chksum *chk) {
 764     return !Chksum___eq__($self, chk);
 765   }
 766 #if defined(SWIGRUBY)
 767   %rename("to_s") __str__;
 768   %rename("inspect") __repr__;
 769 #endif
 770 #if defined(SWIGPERL)
 771   %rename("str") __str__;
 772 #endif
 773   %newobject __str__;
 774   const char *__str__() {
 775     const char *str;
 776     const char *h = 0;
 777     if (solv_chksum_isfinished($self))
 778       h = Chksum_hex($self);
 779     str = solv_dupjoin(solv_chksum_type2str(solv_chksum_get_type($self)), ":", h ? h : "unfinished");
 780     solv_free((void *)h);
 781     return str;
 782   }
 783   %newobject __repr__;
 784   const char *__repr__() {
 785     const char *h = Chksum___str__($self);
 786     const char *str = solv_dupjoin("<Chksum ", h, ">");
 787     solv_free((void *)h);
 788     return str;
 789   }
 790 }
 791
 792 %extend Pool {
 793   Pool() {
 794     Pool *pool = pool_create();
 795     return pool;
 796   }
 797   ~Pool() {
 798   }
 799   void set_debuglevel(int level) {
 800     pool_setdebuglevel($self, level);
 801   }
 802 #if defined(SWIGPYTHON)
 803   %{
 804   SWIGINTERN int loadcallback(Pool *pool, Repodata *data, void *d) {
 805     XRepodata *xd = new_XRepodata(data->repo, data - data->repo->repodata);
 806     PyObject *args = Py_BuildValue("(O)", SWIG_NewPointerObj(SWIG_as_voidptr(xd), SWIGTYPE_p_XRepodata, SWIG_POINTER_OWN | 0));
 807     PyObject *result = PyEval_CallObject((PyObject *)d, args);
 808     int ecode = 0;
 809     int vresult = 0;
 810     Py_DECREF(args);
 811     if (!result)
 812       return 0; /* exception */
 813     ecode = SWIG_AsVal_int(result, &vresult);
 814     Py_DECREF(result);
 815     return SWIG_IsOK(ecode) ? vresult : 0;
 816   }
 817   %}
 818   void set_loadcallback(PyObject *callable) {
 819     if ($self->loadcallback == loadcallback) {
 820       Py_DECREF($self->loadcallbackdata);
 821     }
 822     if (callable) {
 823       Py_INCREF(callable);
 824     }
 825     pool_setloadcallback($self, callable ? loadcallback : 0, callable);
 826   }
 827 #endif
 828 #if defined(SWIGPERL)
 829 %{
 830   SWIGINTERN int loadcallback(Pool *pool, Repodata *data, void *d) {
 831     int count;
 832     int ret = 0;
 833     dSP;
 834     XRepodata *xd = new_XRepodata(data->repo, data - data->repo->repodata);
 835
 836     ENTER;
 837     SAVETMPS;
 838     PUSHMARK(SP);
 839     XPUSHs(SWIG_NewPointerObj(SWIG_as_voidptr(xd), SWIGTYPE_p_XRepodata, SWIG_OWNER | SWIG_SHADOW));
 840     PUTBACK;
 841     count = perl_call_sv((SV *)d, G_EVAL|G_SCALAR);
 842     SPAGAIN;
 843     if (count)
 844       ret = POPi;
 845     PUTBACK;
 846     FREETMPS;
 847     LEAVE;
 848     return ret;
 849   }
 850 %}
 851   void set_loadcallback(SV *callable) {
 852     if ($self->loadcallback == loadcallback)
 853       SvREFCNT_dec($self->loadcallbackdata);
 854     if (callable)
 855       SvREFCNT_inc(callable);
 856     pool_setloadcallback($self, callable ? loadcallback : 0, callable);
 857   }
 858 #endif
 859
 860 #if defined(SWIGRUBY)
 861 %{
 862   SWIGINTERN int loadcallback(Pool *pool, Repodata *data, void *d) {
 863     XRepodata *xd = new_XRepodata(data->repo, data - data->repo->repodata);
 864     VALUE callable = (VALUE)d;
 865     VALUE rd = SWIG_NewPointerObj(SWIG_as_voidptr(xd), SWIGTYPE_p_XRepodata, SWIG_POINTER_OWN | 0);
 866     VALUE res = rb_funcall(callable, rb_intern("call"), 1, rd);
 867     return res == Qtrue;
 868   }
 869   SWIGINTERN void mark_Pool(void *ptr) {
 870     Pool *pool = ptr;
 871     if (pool->loadcallback == loadcallback && pool->loadcallbackdata) {
 872       VALUE callable = (VALUE)pool->loadcallbackdata;
 873       rb_gc_mark(callable);
 874     }
 875   }
 876 %}
 877   %typemap(in, numinputs=0) VALUE callable {
 878     $1 = rb_block_given_p() ? rb_block_proc() : 0;
 879   }
 880   void set_loadcallback(VALUE callable) {
 881     pool_setloadcallback($self, callable ? loadcallback : 0, (void *)callable);
 882   }
 883 #endif
 884
 885   void free() {
 886     Pool_set_loadcallback($self, 0);
 887     pool_free($self);
 888   }
 889   Id str2id(const char *str, bool create=1) {
 890     return pool_str2id($self, str, create);
 891   }
 892   Dep *Dep(const char *str, bool create=1) {
 893     Id id = pool_str2id($self, str, create);
 894     return new_Dep($self, id);
 895   }
 896   const char *id2str(Id id) {
 897     return pool_id2str($self, id);
 898   }
 899   const char *dep2str(Id id) {
 900     return pool_dep2str($self, id);
 901   }
 902   Id rel2id(Id name, Id evr, int flags, bool create=1) {
 903     return pool_rel2id($self, name, evr, flags, create);
 904   }
 905   Id id2langid(Id id, const char *lang, bool create=1) {
 906     return pool_id2langid($self, id, lang, create);
 907   }
 908   void setarch(const char *arch) {
 909     pool_setarch($self, arch);
 910   }
 911   Repo *add_repo(const char *name) {
 912     return repo_create($self, name);
 913   }
 914   const char *lookup_str(Id entry, Id keyname) {
 915     return pool_lookup_str($self, entry, keyname);
 916   }
 917   Id lookup_id(Id entry, Id keyname) {
 918     return pool_lookup_id($self, entry, keyname);
 919   }
 920   unsigned int lookup_num(Id entry, Id keyname, unsigned int notfound = 0) {
 921     return pool_lookup_num($self, entry, keyname, notfound);
 922   }
 923   bool lookup_void(Id entry, Id keyname) {
 924     return pool_lookup_void($self, entry, keyname);
 925   }
 926   %newobject lookup_checksum;
 927   Chksum *lookup_checksum(Id entry, Id keyname) {
 928     Id type = 0;
 929     const unsigned char *b = pool_lookup_bin_checksum($self, entry, keyname, &type);
 930     return solv_chksum_create_from_bin(type, b);
 931   }
 932
 933   %newobject Dataiterator;
 934   Dataiterator *Dataiterator(Id p, Id key, const char *match, int flags) {
 935     return new_Dataiterator($self, 0, p, key, match, flags);
 936   }
 937   const char *solvid2str(Id solvid) {
 938     return pool_solvid2str($self, solvid);
 939   }
 940   void addfileprovides() {
 941     pool_addfileprovides($self);
 942   }
 943   Queue addfileprovides_ids() {
 944     Queue r;
 945     Id *addedfileprovides = 0;
 946     queue_init(&r);
 947     pool_addfileprovides_ids($self, $self->installed, &addedfileprovides);
 948     if (addedfileprovides) {
 949       for (; *addedfileprovides; addedfileprovides++)
 950         queue_push(&r, *addedfileprovides);
 951     }
 952     return r;
 953   }
 954   void createwhatprovides() {
 955     pool_createwhatprovides($self);
 956   }
 957
 958   XSolvable *id2solvable(Id id) {
 959     return new_XSolvable($self, id);
 960   }
 961   %newobject solvables;
 962   Pool_solvable_iterator * const solvables;
 963   %{
 964   SWIGINTERN Pool_solvable_iterator * Pool_solvables_get(Pool *pool) {
 965     return new_Pool_solvable_iterator(pool);
 966   }
 967   %}
 968   %newobject solvables_iter;
 969   Pool_solvable_iterator * solvables_iter() {
 970     return new_Pool_solvable_iterator($self);
 971   }
 972
 973   Repo *id2repo(Id id) {
 974     if (id < 1 || id >= $self->nrepos)
 975       return 0;
 976     return pool_id2repo($self, id);
 977   }
 978   %newobject repos;
 979   Pool_repo_iterator * const repos;
 980   %{
 981   SWIGINTERN Pool_repo_iterator * Pool_repos_get(Pool *pool) {
 982     return new_Pool_repo_iterator(pool);
 983   }
 984   %}
 985   %newobject repos_iter;
 986   Pool_repo_iterator * repos_iter() {
 987     return new_Pool_repo_iterator($self);
 988   }
 989
 990   Repo *installed;
 991   %{
 992   SWIGINTERN void Pool_installed_set(Pool *pool, Repo *installed) {
 993     pool_set_installed(pool, installed);
 994   }
 995   Repo *Pool_installed_get(Pool *pool) {
 996     return pool->installed;
 997   }
 998   %}
 999
1000   Queue matchprovidingids(const char *match, int flags) {
1001     Pool *pool = $self;
1002     Queue q;
1003     Id id;
1004     queue_init(&q);
1005     if (!flags) {
1006       for (id = 1; id < pool->ss.nstrings; id++)
1007         if (pool->whatprovides[id])
1008           queue_push(&q, id);
1009     } else {
1010       Datamatcher ma;
1011       if (!datamatcher_init(&ma, match, flags)) {
1012         for (id = 1; id < pool->ss.nstrings; id++)
1013           if (pool->whatprovides[id] && datamatcher_match(&ma, pool_id2str(pool, id)))
1014             queue_push(&q, id);
1015         datamatcher_free(&ma);
1016       }
1017     }
1018     return q;
1019   }
1020
1021   Job *Job(int how, Id what) {
1022     return new_Job($self, how, what);
1023   }
1024
1025   %typemap(out) Queue whatprovides Queue2Array(XSolvable *, 1, new_XSolvable(arg1, id));
1026   %newobject whatprovides;
1027   Queue whatprovides(Id dep) {
1028     Pool *pool = $self;
1029     Queue q;
1030     Id p, pp;
1031     queue_init(&q);
1032     FOR_PROVIDES(p, pp, dep)
1033       queue_push(&q, p);
1034     return q;
1035   }
1036
1037   Id towhatprovides(Queue q) {
1038     return pool_queuetowhatprovides($self, &q);
1039   }
1040
1041 #ifdef SWIGRUBY
1042   %rename("isknownarch?") isknownarch;
1043 #endif
1044   bool isknownarch(Id id) {
1045     Pool *pool = $self;
1046     if (!id || id == ID_EMPTY)
1047       return 0;
1048     if (id == ARCH_SRC || id == ARCH_NOSRC || id == ARCH_NOARCH)
1049       return 1;
1050     if (pool->id2arch && (id > pool->lastarch || !pool->id2arch[id]))
1051       return 0;
1052     return 1;
1053   }
1054
1055   %newobject Solver;
1056   Solver *Solver() {
1057     return solver_create($self);
1058   }
1059 }
1060
1061 %extend Repo {
1062   static const int REPO_REUSE_REPODATA = REPO_REUSE_REPODATA;
1063   static const int REPO_NO_INTERNALIZE = REPO_NO_INTERNALIZE;
1064   static const int REPO_LOCALPOOL = REPO_LOCALPOOL;
1065   static const int REPO_USE_LOADING = REPO_USE_LOADING;
1066   static const int REPO_EXTEND_SOLVABLES = REPO_EXTEND_SOLVABLES;
1067   static const int SOLV_ADD_NO_STUBS = SOLV_ADD_NO_STUBS;       /* repo_solv */
1068   static const int SUSETAGS_RECORD_SHARES = SUSETAGS_RECORD_SHARES;     /* repo_susetags */
1069
1070   void free(bool reuseids = 0) {
1071     repo_free($self, reuseids);
1072   }
1073   void empty(bool reuseids = 0) {
1074     repo_empty($self, reuseids);
1075   }
1076 #ifdef SWIGRUBY
1077   %rename("isempty?") isempty;
1078 #endif
1079   bool isempty() {
1080     return !$self->nsolvables;
1081   }
1082   bool add_solv(const char *name, int flags = 0) {
1083     FILE *fp = fopen(name, "r");
1084     int r;
1085     if (!fp)
1086       return 0;
1087     r = repo_add_solv_flags($self, fp, flags);
1088     fclose(fp);
1089     return r == 0;
1090   }
1091   bool add_solv(FILE *fp, int flags = 0) {
1092     return repo_add_solv_flags($self, fp, flags) == 0;
1093   }
1094
1095   XSolvable *add_solvable() {
1096     Id solvid = repo_add_solvable($self);
1097     return new_XSolvable($self->pool, solvid);
1098   }
1099
1100   bool add_products(const char *proddir, int flags = 0) {
1101     repo_add_products($self, proddir, 0, flags);
1102     return 1;
1103   }
1104   bool add_rpmmd(FILE *fp, const char *language, int flags = 0) {
1105     repo_add_rpmmd($self, fp, language, flags);
1106     return 1;
1107   }
1108 #ifndef DEBIAN
1109   bool add_rpmdb(Repo *ref, int flags = 0) {
1110     repo_add_rpmdb($self, ref, 0, flags);
1111     return 1;
1112   }
1113   Id add_rpm(const char *name, int flags = 0) {
1114     return repo_add_rpm($self, name, flags);
1115   }
1116 #endif
1117   bool add_debdb(int flags = 0) {
1118     repo_add_debdb($self, 0, flags);
1119     return 1;
1120   }
1121   Id add_deb(const char *name, int flags = 0) {
1122     return repo_add_deb($self, name, flags);
1123   }
1124   bool add_susetags(FILE *fp, Id defvendor, const char *language, int flags = 0) {
1125     repo_add_susetags($self, fp, defvendor, language, flags);
1126     return 1;
1127   }
1128   bool add_repomdxml(FILE *fp, int flags = 0) {
1129     repo_add_repomdxml($self, fp, flags);
1130     return 1;
1131   }
1132   bool add_content(FILE *fp, int flags = 0) {
1133     repo_add_content($self, fp, flags);
1134     return 1;
1135   }
1136   bool add_updateinfoxml(FILE *fp, int flags = 0) {
1137     repo_add_updateinfoxml($self, fp, flags);
1138     return 1;
1139   }
1140   bool add_deltainfoxml(FILE *fp, int flags = 0) {
1141     repo_add_deltainfoxml($self, fp, flags);
1142     return 1;
1143   }
1144   void internalize() {
1145     repo_internalize($self);
1146   }
1147   const char *lookup_str(Id entry, Id keyname) {
1148     return repo_lookup_str($self, entry, keyname);
1149   }
1150   Id lookup_id(Id entry, Id keyname) {
1151     return repo_lookup_id($self, entry, keyname);
1152   }
1153   unsigned int lookup_num(Id entry, Id keyname, unsigned int notfound = 0) {
1154     return repo_lookup_num($self, entry, keyname, notfound);
1155   }
1156   void write(FILE *fp) {
1157     repo_write($self, fp, repo_write_stdkeyfilter, 0, 0);
1158   }
1159   # HACK, remove if no longer needed!
1160   bool write_first_repodata(FILE *fp) {
1161     int oldnrepodata = $self->nrepodata;
1162     $self->nrepodata = oldnrepodata > 2 ? 2 : oldnrepodata;
1163     repo_write($self, fp, repo_write_stdkeyfilter, 0, 0);
1164     $self->nrepodata = oldnrepodata;
1165     return 1;
1166   }
1167
1168   %newobject Dataiterator;
1169   Dataiterator *Dataiterator(Id p, Id key, const char *match, int flags) {
1170     return new_Dataiterator($self->pool, $self, p, key, match, flags);
1171   }
1172
1173   Id const id;
1174   %{
1175   SWIGINTERN Id Repo_id_get(Repo *repo) {
1176     return repo->repoid;
1177   }
1178   %}
1179   Repo_solvable_iterator * const solvables;
1180   %{
1181   SWIGINTERN Repo_solvable_iterator * Repo_solvables_get(Repo *repo) {
1182     return new_Repo_solvable_iterator(repo);
1183   }
1184   %}
1185   %newobject solvables_iter;
1186   Repo_solvable_iterator *solvables_iter() {
1187     return new_Repo_solvable_iterator($self);
1188   }
1189
1190   XRepodata *add_repodata(int flags = 0) {
1191     Repodata *rd = repo_add_repodata($self, flags);
1192     return new_XRepodata($self, rd - $self->repodata);
1193   }
1194
1195   void create_stubs() {
1196     Repodata *data;
1197     if (!$self->nrepodata)
1198       return;
1199     data = $self->repodata  + ($self->nrepodata - 1);
1200     if (data->state != REPODATA_STUB)
1201       repodata_create_stubs(data);
1202   }
1203 #ifdef SWIGRUBY
1204   %rename("iscontiguous?") iscontiguous;
1205 #endif
1206   bool iscontiguous() {
1207     int i;
1208     for (i = $self->start; i < $self->end; i++)
1209       if ($self->pool->solvables[i].repo != $self)
1210         return 0;
1211     return 1;
1212   }
1213   XRepodata *first_repodata() {
1214      int i;
1215      if ($self->nrepodata < 2)
1216        return 0;
1217      /* make sure all repodatas but the first are extensions */
1218      if ($self->repodata[1].loadcallback)
1219         return 0;
1220      for (i = 2; i < $self->nrepodata; i++)
1221        if (!$self->repodata[i].loadcallback)
1222          return 0;       /* oops, not an extension */
1223      return new_XRepodata($self, 1);
1224    }
1225
1226   bool __eq__(Repo *repo) {
1227     return $self == repo;
1228   }
1229   bool __ne__(Repo *repo) {
1230     return $self != repo;
1231   }
1232 #if defined(SWIGPERL)
1233   %rename("str") __str__;
1234 #endif
1235   %newobject __str__;
1236   const char *__str__() {
1237     char buf[20];
1238     if ($self->name)
1239       return solv_strdup($self->name);
1240     sprintf(buf, "Repo#%d", $self->repoid);
1241     return solv_strdup(buf);
1242   }
1243   %newobject __repr__;
1244   const char *__repr__() {
1245     char buf[20];
1246     if ($self->name)
1247       {
1248         sprintf(buf, "<Repo #%d ", $self->repoid);
1249         return solv_dupjoin(buf, $self->name, ">");
1250       }
1251     sprintf(buf, "<Repo #%d>", $self->repoid);
1252     return solv_strdup(buf);
1253   }
1254 }
1255
1256 %extend Dataiterator {
1257   static const int SEARCH_STRING = SEARCH_STRING;
1258   static const int SEARCH_SUBSTRING = SEARCH_SUBSTRING;
1259   static const int SEARCH_GLOB = SEARCH_GLOB;
1260   static const int SEARCH_REGEX = SEARCH_REGEX;
1261   static const int SEARCH_NOCASE = SEARCH_NOCASE;
1262   static const int SEARCH_FILES = SEARCH_FILES;
1263   static const int SEARCH_COMPLETE_FILELIST = SEARCH_COMPLETE_FILELIST;
1264
1265   Dataiterator(Pool *pool, Repo *repo, Id p, Id key, const char *match, int flags) {
1266     Dataiterator *di = solv_calloc(1, sizeof(*di));
1267     dataiterator_init(di, pool, repo, p, key, match, flags);
1268     return di;
1269   }
1270   ~Dataiterator() {
1271     dataiterator_free($self);
1272     solv_free($self);
1273   }
1274 #if defined(SWIGPYTHON)
1275   %newobject __iter__;
1276   Dataiterator *__iter__() {
1277     Dataiterator *ndi;
1278     ndi = solv_calloc(1, sizeof(*ndi));
1279     dataiterator_init_clone(ndi, $self);
1280     return ndi;
1281   }
1282   %rename("next") __next__();
1283   %exception __next__ {
1284     $action
1285     if (!result) {
1286       PyErr_SetString(PyExc_StopIteration,"no more matches");
1287       return NULL;
1288     }
1289   }
1290 #endif
1291
1292 #ifdef SWIGPERL
1293   perliter(solv::Dataiterator)
1294 #endif
1295
1296   %newobject __next__;
1297   Datamatch *__next__() {
1298     Dataiterator *ndi;
1299     if (!dataiterator_step($self)) {
1300       return 0;
1301     }
1302     ndi = solv_calloc(1, sizeof(*ndi));
1303     dataiterator_init_clone(ndi, $self);
1304     return ndi;
1305   }
1306 #ifdef SWIGRUBY
1307   void each() {
1308     Datamatch *d;
1309     while ((d = Dataiterator___next__($self)) != 0) {
1310       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(d), SWIGTYPE_p_Datamatch, SWIG_POINTER_OWN | 0));
1311     }
1312   }
1313 #endif
1314   void prepend_keyname(Id key) {
1315     dataiterator_prepend_keyname($self, key);
1316   }
1317   void skip_solvable() {
1318     dataiterator_skip_solvable($self);
1319   }
1320 }
1321
1322 %extend Datamatch {
1323   ~Datamatch() {
1324     dataiterator_free($self);
1325     solv_free($self);
1326   }
1327   %newobject solvable;
1328   XSolvable * const solvable;
1329   %{
1330   SWIGINTERN XSolvable *Datamatch_solvable_get(Dataiterator *di) {
1331     return new_XSolvable(di->pool, di->solvid);
1332   }
1333   %}
1334   Id key_id() {
1335     return $self->key->name;
1336   }
1337   const char *key_idstr() {
1338     return pool_id2str($self->pool, $self->key->name);
1339   }
1340   Id type_id() {
1341     return $self->key->type;
1342   }
1343   const char *type_idstr() {
1344     return pool_id2str($self->pool, $self->key->type);
1345   }
1346   Id id() {
1347      return $self->kv.id;
1348   }
1349   const char *idstr() {
1350      return pool_id2str($self->pool, $self->kv.id);
1351   }
1352   const char *str() {
1353      return $self->kv.str;
1354   }
1355   int num() {
1356      return $self->kv.num;
1357   }
1358   int num2() {
1359      return $self->kv.num2;
1360   }
1361   void setpos() {
1362     dataiterator_setpos($self);
1363   }
1364   void setpos_parent() {
1365     dataiterator_setpos_parent($self);
1366   }
1367 }
1368
1369 %extend Pool_solvable_iterator {
1370   Pool_solvable_iterator(Pool *pool) {
1371     Pool_solvable_iterator *s;
1372     s = solv_calloc(1, sizeof(*s));
1373     s->pool = pool;
1374     return s;
1375   }
1376 #if defined(SWIGPYTHON)
1377   %newobject __iter__;
1378   Pool_solvable_iterator *__iter__() {
1379     Pool_solvable_iterator *s;
1380     s = solv_calloc(1, sizeof(*s));
1381     *s = *$self;
1382     return s;
1383   }
1384   %rename("next") __next__();
1385   %exception __next__ {
1386     $action
1387     if (!result) {
1388       PyErr_SetString(PyExc_StopIteration,"no more matches");
1389       return NULL;
1390     }
1391   }
1392 #endif
1393
1394 #ifdef SWIGPERL
1395   perliter(solv::Pool_solvable_iterator)
1396 #endif
1397   %newobject __next__;
1398   XSolvable *__next__() {
1399     Pool *pool = $self->pool;
1400     if ($self->id >= pool->nsolvables)
1401       return 0;
1402     while (++$self->id < pool->nsolvables)
1403       if (pool->solvables[$self->id].repo)
1404         return new_XSolvable(pool, $self->id);
1405     return 0;
1406   }
1407 #ifdef SWIGRUBY
1408   void each() {
1409     XSolvable *n;
1410     while ((n = Pool_solvable_iterator___next__($self)) != 0) {
1411       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(n), SWIGTYPE_p_XSolvable, SWIG_POINTER_OWN | 0));
1412     }
1413   }
1414 #endif
1415   %newobject __getitem__;
1416   XSolvable *__getitem__(Id key) {
1417     Pool *pool = $self->pool;
1418     if (key > 0 && key < pool->nsolvables && pool->solvables[key].repo)
1419       return new_XSolvable(pool, key);
1420     return 0;
1421   }
1422   int __len__() {
1423     return $self->pool->nsolvables;
1424   }
1425 }
1426
1427 %extend Pool_repo_iterator {
1428   Pool_repo_iterator(Pool *pool) {
1429     Pool_repo_iterator *s;
1430     s = solv_calloc(1, sizeof(*s));
1431     s->pool = pool;
1432     return s;
1433   }
1434 #if defined(SWIGPYTHON)
1435   %newobject __iter__;
1436   Pool_repo_iterator *__iter__() {
1437     Pool_repo_iterator *s;
1438     s = solv_calloc(1, sizeof(*s));
1439     *s = *$self;
1440     return s;
1441   }
1442   %rename("next") __next__();
1443   %exception __next__ {
1444     $action
1445     if (!result) {
1446       PyErr_SetString(PyExc_StopIteration,"no more matches");
1447       return NULL;
1448     }
1449   }
1450 #endif
1451   %newobject __next__;
1452   Repo *__next__() {
1453     Pool *pool = $self->pool;
1454     if ($self->id >= pool->nrepos)
1455       return 0;
1456     while (++$self->id < pool->nrepos) {
1457       Repo *r = pool_id2repo(pool, $self->id);
1458       if (r)
1459         return r;
1460     }
1461     return 0;
1462   }
1463 #ifdef SWIGRUBY
1464   void each() {
1465     Repo *n;
1466     while ((n = Pool_repo_iterator___next__($self)) != 0) {
1467       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(n), SWIGTYPE_p__Repo, SWIG_POINTER_OWN | 0));
1468     }
1469   }
1470 #endif
1471   Repo *__getitem__(Id key) {
1472     Pool *pool = $self->pool;
1473     if (key > 0 && key < pool->nrepos)
1474       return pool_id2repo(pool, key);
1475     return 0;
1476   }
1477   int __len__() {
1478     return $self->pool->nrepos;
1479   }
1480 }
1481
1482 %extend Repo_solvable_iterator {
1483   Repo_solvable_iterator(Repo *repo) {
1484     Repo_solvable_iterator *s;
1485     s = solv_calloc(1, sizeof(*s));
1486     s->repo = repo;
1487     return s;
1488   }
1489 #if defined(SWIGPYTHON)
1490   %newobject __iter__;
1491   Repo_solvable_iterator *__iter__() {
1492     Repo_solvable_iterator *s;
1493     s = solv_calloc(1, sizeof(*s));
1494     *s = *$self;
1495     return s;
1496   }
1497   %rename("next") __next__();
1498   %exception __next__ {
1499     $action
1500     if (!result) {
1501       PyErr_SetString(PyExc_StopIteration,"no more matches");
1502       return NULL;
1503     }
1504   }
1505 #endif
1506   %newobject __next__;
1507   XSolvable *__next__() {
1508     Repo *repo = $self->repo;
1509     Pool *pool = repo->pool;
1510     if (repo->start > 0 && $self->id < repo->start)
1511       $self->id = repo->start - 1;
1512     if ($self->id >= repo->end)
1513       return 0;
1514     while (++$self->id < repo->end)
1515       if (pool->solvables[$self->id].repo == repo)
1516         return new_XSolvable(pool, $self->id);
1517     return 0;
1518   }
1519 #ifdef SWIGRUBY
1520   void each() {
1521     XSolvable *n;
1522     while ((n = Repo_solvable_iterator___next__($self)) != 0) {
1523       rb_yield(SWIG_NewPointerObj(SWIG_as_voidptr(n), SWIGTYPE_p_XSolvable, SWIG_POINTER_OWN | 0));
1524     }
1525   }
1526 #endif
1527   %newobject __getitem__;
1528   XSolvable *__getitem__(Id key) {
1529     Repo *repo = $self->repo;
1530     Pool *pool = repo->pool;
1531     if (key > 0 && key < pool->nsolvables && pool->solvables[key].repo == repo)
1532       return new_XSolvable(pool, key);
1533     return 0;
1534   }
1535   int __len__() {
1536     return $self->repo->pool->nsolvables;
1537   }
1538 }
1539
1540 %extend Dep {
1541   Dep(Pool *pool, Id id) {
1542     Dep *s;
1543     if (!id)
1544       return 0;
1545     s = solv_calloc(1, sizeof(*s));
1546     s->pool = pool;
1547     s->id = id;
1548     return s;
1549   }
1550   const char *str() {
1551     return pool_dep2str($self->pool, $self->id);
1552   }
1553   bool __eq__(Dep *s) {
1554     return $self->pool == s->pool && $self->id == s->id;
1555   }
1556   bool __ne__(Dep *s) {
1557     return !Dep___eq__($self, s);
1558   }
1559 #if defined(SWIGPERL)
1560   %rename("str") __str__;
1561 #endif
1562   const char *__str__() {
1563     return pool_dep2str($self->pool, $self->id);
1564   }
1565   %newobject __repr__;
1566   const char *__repr__() {
1567     char buf[20];
1568     sprintf(buf, "<Id #%d ", $self->id);
1569     return solv_dupjoin(buf, pool_dep2str($self->pool, $self->id), ">");
1570   }
1571 }
1572
1573 %extend XSolvable {
1574   XSolvable(Pool *pool, Id id) {
1575     XSolvable *s;
1576     if (!id || id >= pool->nsolvables)
1577       return 0;
1578     s = solv_calloc(1, sizeof(*s));
1579     s->pool = pool;
1580     s->id = id;
1581     return s;
1582   }
1583   const char *str() {
1584     return pool_solvid2str($self->pool, $self->id);
1585   }
1586   const char *lookup_str(Id keyname) {
1587     return pool_lookup_str($self->pool, $self->id, keyname);
1588   }
1589   Id lookup_id(Id keyname) {
1590     return pool_lookup_id($self->pool, $self->id, keyname);
1591   }
1592   unsigned int lookup_num(Id keyname, unsigned int notfound = 0) {
1593     return pool_lookup_num($self->pool, $self->id, keyname, notfound);
1594   }
1595   bool lookup_void(Id keyname) {
1596     return pool_lookup_void($self->pool, $self->id, keyname);
1597   }
1598   %newobject lookup_checksum;
1599   Chksum *lookup_checksum(Id keyname) {
1600     Id type = 0;
1601     const unsigned char *b = pool_lookup_bin_checksum($self->pool, $self->id, keyname, &type);
1602     return solv_chksum_create_from_bin(type, b);
1603   }
1604   const char *lookup_location(unsigned int *OUTPUT) {
1605     return solvable_get_location($self->pool->solvables + $self->id, OUTPUT);
1606   }
1607 #ifdef SWIGRUBY
1608   %rename("installable?") installable;
1609 #endif
1610   bool installable() {
1611     return pool_installable($self->pool, pool_id2solvable($self->pool, $self->id));
1612   }
1613 #ifdef SWIGRUBY
1614   %rename("isinstalled?") isinstalled;
1615 #endif
1616   bool isinstalled() {
1617     Pool *pool = $self->pool;
1618     return pool->installed && pool_id2solvable(pool, $self->id)->repo == pool->installed;
1619   }
1620
1621   const char *name;
1622   %{
1623     SWIGINTERN void XSolvable_name_set(XSolvable *xs, const char *name) {
1624       Pool *pool = xs->pool;
1625       pool->solvables[xs->id].name = pool_str2id(pool, name, 1);
1626     }
1627     SWIGINTERN const char *XSolvable_name_get(XSolvable *xs) {
1628       Pool *pool = xs->pool;
1629       return pool_id2str(pool, pool->solvables[xs->id].name);
1630     }
1631   %}
1632   Id nameid;
1633   %{
1634     SWIGINTERN void XSolvable_nameid_set(XSolvable *xs, Id nameid) {
1635       xs->pool->solvables[xs->id].name = nameid;
1636     }
1637     SWIGINTERN Id XSolvable_nameid_get(XSolvable *xs) {
1638       return xs->pool->solvables[xs->id].name;
1639     }
1640   %}
1641   const char *evr;
1642   %{
1643     SWIGINTERN void XSolvable_evr_set(XSolvable *xs, const char *evr) {
1644       Pool *pool = xs->pool;
1645       pool->solvables[xs->id].evr = pool_str2id(pool, evr, 1);
1646     }
1647     SWIGINTERN const char *XSolvable_evr_get(XSolvable *xs) {
1648       Pool *pool = xs->pool;
1649       return pool_id2str(pool, pool->solvables[xs->id].evr);
1650     }
1651   %}
1652   Id evrid;
1653   %{
1654     SWIGINTERN void XSolvable_evrid_set(XSolvable *xs, Id evrid) {
1655       xs->pool->solvables[xs->id].evr = evrid;
1656     }
1657     SWIGINTERN Id XSolvable_evrid_get(XSolvable *xs) {
1658       return xs->pool->solvables[xs->id].evr;
1659     }
1660   %}
1661   const char *arch;
1662   %{
1663     SWIGINTERN void XSolvable_arch_set(XSolvable *xs, const char *arch) {
1664       Pool *pool = xs->pool;
1665       pool->solvables[xs->id].arch = pool_str2id(pool, arch, 1);
1666     }
1667     SWIGINTERN const char *XSolvable_arch_get(XSolvable *xs) {
1668       Pool *pool = xs->pool;
1669       return pool_id2str(pool, pool->solvables[xs->id].arch);
1670     }
1671   %}
1672   Id archid;
1673   %{
1674     SWIGINTERN void XSolvable_archid_set(XSolvable *xs, Id archid) {
1675       xs->pool->solvables[xs->id].arch = archid;
1676     }
1677     SWIGINTERN Id XSolvable_archid_get(XSolvable *xs) {
1678       return xs->pool->solvables[xs->id].arch;
1679     }
1680   %}
1681   const char *vendor;
1682   %{
1683     SWIGINTERN void XSolvable_vendor_set(XSolvable *xs, const char *vendor) {
1684       Pool *pool = xs->pool;
1685       pool->solvables[xs->id].vendor = pool_str2id(pool, vendor, 1);
1686     }
1687     SWIGINTERN const char *XSolvable_vendor_get(XSolvable *xs) {
1688       Pool *pool = xs->pool;
1689       return pool_id2str(pool, pool->solvables[xs->id].vendor);
1690     }
1691   %}
1692   Id vendorid;
1693   %{
1694     SWIGINTERN void XSolvable_vendorid_set(XSolvable *xs, Id vendorid) {
1695       xs->pool->solvables[xs->id].vendor = vendorid;
1696     }
1697     SWIGINTERN Id XSolvable_vendorid_get(XSolvable *xs) {
1698       return xs->pool->solvables[xs->id].vendor;
1699     }
1700   %}
1701   Repo * const repo;
1702   %{
1703     SWIGINTERN Repo *XSolvable_repo_get(XSolvable *xs) {
1704       return xs->pool->solvables[xs->id].repo;
1705     }
1706   %}
1707
1708   void add_provides(Dep *dep, Id marker = -SOLVABLE_FILEMARKER) {
1709     Solvable *s = $self->pool->solvables + $self->id;
1710     s->provides = repo_addid_dep(s->repo, s->provides, dep->id, marker);
1711   }
1712   void add_providesid(Id id, Id marker = -SOLVABLE_FILEMARKER) {
1713     Solvable *s = $self->pool->solvables + $self->id;
1714     s->provides = repo_addid_dep(s->repo, s->provides, id, marker);
1715   }
1716   void add_obsoletes(Dep *dep) {
1717     Solvable *s = $self->pool->solvables + $self->id;
1718     s->obsoletes = repo_addid_dep(s->repo, s->obsoletes, dep->id, 0);
1719   }
1720   void add_obsoletesid(Id id) {
1721     Solvable *s = $self->pool->solvables + $self->id;
1722     s->obsoletes = repo_addid_dep(s->repo, s->obsoletes, id, 0);
1723   }
1724   void add_conflicts(Dep *dep) {
1725     Solvable *s = $self->pool->solvables + $self->id;
1726     s->conflicts = repo_addid_dep(s->repo, s->conflicts, dep->id, 0);
1727   }
1728   void add_conflictsid(Id id) {
1729     Solvable *s = $self->pool->solvables + $self->id;
1730     s->conflicts = repo_addid_dep(s->repo, s->conflicts, id, 0);
1731   }
1732   void add_requires(Dep *dep, Id marker = -SOLVABLE_PREREQMARKER) {
1733     Solvable *s = $self->pool->solvables + $self->id;
1734     s->requires = repo_addid_dep(s->repo, s->requires, dep->id, marker);
1735   }
1736   void add_requiresid(Id id, Id marker = -SOLVABLE_PREREQMARKER) {
1737     Solvable *s = $self->pool->solvables + $self->id;
1738     s->requires = repo_addid_dep(s->repo, s->requires, id, marker);
1739   }
1740   void add_recommends(Dep *dep) {
1741     Solvable *s = $self->pool->solvables + $self->id;
1742     s->recommends = repo_addid_dep(s->repo, s->recommends, dep->id, 0);
1743   }
1744   void add_recommendsid(Id id) {
1745     Solvable *s = $self->pool->solvables + $self->id;
1746     s->recommends = repo_addid_dep(s->repo, s->recommends, id, 0);
1747   }
1748   void add_suggests(Dep *dep) {
1749     Solvable *s = $self->pool->solvables + $self->id;
1750     s->suggests = repo_addid_dep(s->repo, s->suggests, dep->id, 0);
1751   }
1752   void add_suggestsid(Id id) {
1753     Solvable *s = $self->pool->solvables + $self->id;
1754     s->suggests = repo_addid_dep(s->repo, s->suggests, id, 0);
1755   }
1756   void add_supplements(Dep *dep) {
1757     Solvable *s = $self->pool->solvables + $self->id;
1758     s->supplements = repo_addid_dep(s->repo, s->supplements, dep->id, 0);
1759   }
1760   void add_supplementsid(Id id) {
1761     Solvable *s = $self->pool->solvables + $self->id;
1762     s->supplements = repo_addid_dep(s->repo, s->supplements, id, 0);
1763   }
1764   void add_enhances(Dep *dep) {
1765     Solvable *s = $self->pool->solvables + $self->id;
1766     s->enhances = repo_addid_dep(s->repo, s->enhances, dep->id, 0);
1767   }
1768   void add_enhancesid(Id id) {
1769     Solvable *s = $self->pool->solvables + $self->id;
1770     s->enhances = repo_addid_dep(s->repo, s->enhances, id, 0);
1771   }
1772
1773   bool __eq__(XSolvable *s) {
1774     return $self->pool == s->pool && $self->id == s->id;
1775   }
1776   bool __ne__(XSolvable *s) {
1777     return !XSolvable___eq__($self, s);
1778   }
1779 #if defined(SWIGPERL)
1780   %rename("str") __str__;
1781 #endif
1782   const char *__str__() {
1783     return pool_solvid2str($self->pool, $self->id);
1784   }
1785   %newobject __repr__;
1786   const char *__repr__() {
1787     char buf[20];
1788     sprintf(buf, "<Solvable #%d ", $self->id);
1789     return solv_dupjoin(buf, pool_solvid2str($self->pool, $self->id), ">");
1790   }
1791 }
1792
1793 %extend Problem {
1794   Problem(Solver *solv, Id id) {
1795     Problem *p;
1796     p = solv_calloc(1, sizeof(*p));
1797     p->solv = solv;
1798     p->id = id;
1799     return p;
1800   }
1801   %newobject findproblemrule;
1802   XRule *findproblemrule() {
1803     Id r = solver_findproblemrule($self->solv, $self->id);
1804     return new_XRule($self->solv, r);
1805   }
1806   %newobject findallproblemrules;
1807   %typemap(out) Queue findallproblemrules Queue2Array(XRule *, 1, new_XRule(arg1->solv, id));
1808   Queue findallproblemrules(int unfiltered=0) {
1809     Solver *solv = $self->solv;
1810     Id probr;
1811     int i, j;
1812     Queue q;
1813     queue_init(&q);
1814     solver_findallproblemrules(solv, $self->id, &q);
1815     if (!unfiltered)
1816       {
1817         for (i = j = 0; i < q.count; i++)
1818           {
1819             SolverRuleinfo rclass;
1820             probr = q.elements[i];
1821             rclass = solver_ruleclass(solv, probr);
1822             if (rclass == SOLVER_RULE_UPDATE || rclass == SOLVER_RULE_JOB)
1823               continue;
1824             q.elements[j++] = probr;
1825           }
1826         if (j)
1827           queue_truncate(&q, j);
1828       }
1829     return q;
1830   }
1831   int solution_count() {
1832     return solver_solution_count($self->solv, $self->id);
1833   }
1834   %newobject solutions;
1835   %typemap(out) Queue solutions Queue2Array(Solution *, 1, new_Solution(arg1, id));
1836   Queue solutions() {
1837     Queue q;
1838     int i, cnt;
1839     queue_init(&q);
1840     cnt = solver_solution_count($self->solv, $self->id);
1841     for (i = 1; i <= cnt; i++)
1842       queue_push(&q, i);
1843     return q;
1844   }
1845 }
1846
1847 %extend Solution {
1848   Solution(Problem *p, Id id) {
1849     Solution *s;
1850     s = solv_calloc(1, sizeof(*s));
1851     s->solv = p->solv;
1852     s->problemid = p->id;
1853     s->id = id;
1854     return s;
1855   }
1856   int element_count() {
1857     return solver_solutionelement_count($self->solv, $self->problemid, $self->id);
1858   }
1859
1860   %newobject elements;
1861   %typemap(out) Queue elements Queue2Array(Solutionelement *, 4, new_Solutionelement(arg1->solv, arg1->problemid, arg1->id, id, idp[1], idp[2], idp[3]));
1862   Queue elements(bool expandreplaces=0) {
1863     Queue q;
1864     int i, cnt;
1865     queue_init(&q);
1866     cnt = solver_solutionelement_count($self->solv, $self->problemid, $self->id);
1867     for (i = 1; i <= cnt; i++)
1868       {
1869         Id p, rp, type;
1870         solver_next_solutionelement($self->solv, $self->problemid, $self->id, i - 1, &p, &rp);
1871         if (p > 0) {
1872           type = rp ? SOLVER_SOLUTION_REPLACE : SOLVER_SOLUTION_ERASE;
1873         } else {
1874           type = p;
1875           p = rp;
1876           rp = 0;
1877         }
1878         if (type == SOLVER_SOLUTION_REPLACE && expandreplaces) {
1879           int illegal = policy_is_illegal(self->solv, self->solv->pool->solvables + p, self->solv->pool->solvables + rp, 0);
1880           if (illegal) {
1881             if ((illegal & POLICY_ILLEGAL_DOWNGRADE) != 0) {
1882               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_DOWNGRADE);
1883               queue_push2(&q, p, rp);
1884             }
1885             if ((illegal & POLICY_ILLEGAL_ARCHCHANGE) != 0) {
1886               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_ARCHCHANGE);
1887               queue_push2(&q, p, rp);
1888             }
1889             if ((illegal & POLICY_ILLEGAL_VENDORCHANGE) != 0) {
1890               queue_push2(&q, i, SOLVER_SOLUTION_REPLACE_VENDORCHANGE);
1891               queue_push2(&q, p, rp);
1892             }
1893             continue;
1894           }
1895         }
1896         queue_push2(&q, i, type);
1897         queue_push2(&q, p, rp);
1898       }
1899     return q;
1900   }
1901 }
1902
1903 %extend Solutionelement {
1904   Solutionelement(Solver *solv, Id problemid, Id solutionid, Id id, Id type, Id p, Id rp) {
1905     Solutionelement *e;
1906     e = solv_calloc(1, sizeof(*e));
1907     e->solv = solv;
1908     e->problemid = problemid;
1909     e->solutionid = id;
1910     e->id = id;
1911     e->type = type;
1912     e->p = p;
1913     e->rp = rp;
1914     return e;
1915   }
1916   const char *str() {
1917     Id p = $self->type;
1918     Id rp = $self->p;
1919     if (p == SOLVER_SOLUTION_ERASE)
1920       {
1921         p = rp;
1922         rp = 0;
1923       }
1924     else if (p == SOLVER_SOLUTION_REPLACE)
1925       {
1926         p = rp;
1927         rp = $self->rp;
1928       }
1929     else if (p == SOLVER_SOLUTION_REPLACE_DOWNGRADE)
1930       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);
1931     else if (p == SOLVER_SOLUTION_REPLACE_ARCHCHANGE)
1932       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);
1933     else if (p == SOLVER_SOLUTION_REPLACE_VENDORCHANGE)
1934       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);
1935     return solver_solutionelement2str($self->solv, p, rp);
1936   }
1937   %newobject replaceelements;
1938   %typemap(out) Queue replaceelements Queue2Array(Solutionelement *, 1, new_Solutionelement(arg1->solv, arg1->problemid, arg1->solutionid, arg1->id, id, arg1->p, arg1->rp));
1939   Queue replaceelements() {
1940     Queue q;
1941     int illegal;
1942
1943     queue_init(&q);
1944     if ($self->type != SOLVER_SOLUTION_REPLACE || $self->p <= 0 || $self->rp <= 0)
1945       illegal = 0;
1946     else
1947       illegal = policy_is_illegal($self->solv, $self->solv->pool->solvables + $self->p, $self->solv->pool->solvables + $self->rp, 0);
1948     if ((illegal & POLICY_ILLEGAL_DOWNGRADE) != 0)
1949       queue_push(&q, SOLVER_SOLUTION_REPLACE_DOWNGRADE);
1950     if ((illegal & POLICY_ILLEGAL_ARCHCHANGE) != 0)
1951       queue_push(&q, SOLVER_SOLUTION_REPLACE_ARCHCHANGE);
1952     if ((illegal & POLICY_ILLEGAL_VENDORCHANGE) != 0)
1953       queue_push(&q, SOLVER_SOLUTION_REPLACE_VENDORCHANGE);
1954     if (!q.count)
1955       queue_push(&q, $self->type);
1956     return q;
1957   }
1958   int illegalreplace() {
1959     if ($self->type != SOLVER_SOLUTION_REPLACE || $self->p <= 0 || $self->rp <= 0)
1960       return 0;
1961     return policy_is_illegal($self->solv, $self->solv->pool->solvables + $self->p, $self->solv->pool->solvables + $self->rp, 0);
1962   }
1963   %newobject solvable;
1964   XSolvable * const solvable;
1965   %newobject replacement;
1966   XSolvable * const replacement;
1967   int const jobidx;
1968   %{
1969     SWIGINTERN XSolvable *Solutionelement_solvable_get(Solutionelement *e) {
1970       return new_XSolvable(e->solv->pool, e->p);
1971     }
1972     SWIGINTERN XSolvable *Solutionelement_replacement_get(Solutionelement *e) {
1973       return new_XSolvable(e->solv->pool, e->rp);
1974     }
1975     SWIGINTERN int Solutionelement_jobidx_get(Solutionelement *e) {
1976       if (e->type != SOLVER_SOLUTION_JOB)
1977         return -1;
1978       return (e->p - 1) / 2;
1979     }
1980   %}
1981   %newobject Job;
1982   Job *Job() {
1983     if ($self->type == SOLVER_SOLUTION_JOB)
1984       return new_Job($self->solv->pool, SOLVER_NOOP, 0);
1985     if ($self->type == SOLVER_SOLUTION_INFARCH || $self->type == SOLVER_SOLUTION_DISTUPGRADE)
1986       return new_Job($self->solv->pool, SOLVER_INSTALL|SOLVER_SOLVABLE, $self->p);
1987     if ($self->type == SOLVER_SOLUTION_REPLACE || $self->type == SOLVER_SOLUTION_REPLACE_DOWNGRADE || $self->type == SOLVER_SOLUTION_REPLACE_ARCHCHANGE || $self->type == SOLVER_SOLUTION_REPLACE_VENDORCHANGE)
1988       return new_Job($self->solv->pool, SOLVER_INSTALL|SOLVER_SOLVABLE, $self->rp);
1989     if ($self->type == SOLVER_SOLUTION_ERASE)
1990       return new_Job($self->solv->pool, SOLVER_ERASE|SOLVER_SOLVABLE, $self->p);
1991     return 0;
1992   }
1993 }
1994
1995 %extend Solver {
1996   static const int SOLVER_RULE_UNKNOWN = SOLVER_RULE_UNKNOWN;
1997   static const int SOLVER_RULE_RPM = SOLVER_RULE_RPM;
1998   static const int SOLVER_RULE_RPM_NOT_INSTALLABLE = SOLVER_RULE_RPM_NOT_INSTALLABLE;
1999   static const int SOLVER_RULE_RPM_NOTHING_PROVIDES_DEP = SOLVER_RULE_RPM_NOTHING_PROVIDES_DEP;
2000   static const int SOLVER_RULE_RPM_PACKAGE_REQUIRES = SOLVER_RULE_RPM_PACKAGE_REQUIRES;
2001   static const int SOLVER_RULE_RPM_SELF_CONFLICT = SOLVER_RULE_RPM_SELF_CONFLICT;
2002   static const int SOLVER_RULE_RPM_PACKAGE_CONFLICT = SOLVER_RULE_RPM_PACKAGE_CONFLICT;
2003   static const int SOLVER_RULE_RPM_SAME_NAME = SOLVER_RULE_RPM_SAME_NAME;
2004   static const int SOLVER_RULE_RPM_PACKAGE_OBSOLETES = SOLVER_RULE_RPM_PACKAGE_OBSOLETES;
2005   static const int SOLVER_RULE_RPM_IMPLICIT_OBSOLETES = SOLVER_RULE_RPM_IMPLICIT_OBSOLETES;
2006   static const int SOLVER_RULE_RPM_INSTALLEDPKG_OBSOLETES = SOLVER_RULE_RPM_INSTALLEDPKG_OBSOLETES;
2007   static const int SOLVER_RULE_UPDATE = SOLVER_RULE_UPDATE;
2008   static const int SOLVER_RULE_FEATURE = SOLVER_RULE_FEATURE;
2009   static const int SOLVER_RULE_JOB = SOLVER_RULE_JOB;
2010   static const int SOLVER_RULE_JOB_NOTHING_PROVIDES_DEP = SOLVER_RULE_JOB_NOTHING_PROVIDES_DEP;
2011   static const int SOLVER_RULE_DISTUPGRADE = SOLVER_RULE_DISTUPGRADE;
2012   static const int SOLVER_RULE_INFARCH = SOLVER_RULE_INFARCH;
2013   static const int SOLVER_RULE_CHOICE = SOLVER_RULE_CHOICE;
2014   static const int SOLVER_RULE_LEARNT = SOLVER_RULE_LEARNT;
2015
2016   static const int SOLVER_SOLUTION_JOB = SOLVER_SOLUTION_JOB;
2017   static const int SOLVER_SOLUTION_INFARCH = SOLVER_SOLUTION_INFARCH;
2018   static const int SOLVER_SOLUTION_DISTUPGRADE = SOLVER_SOLUTION_DISTUPGRADE;
2019   static const int SOLVER_SOLUTION_ERASE = SOLVER_SOLUTION_ERASE;
2020   static const int SOLVER_SOLUTION_REPLACE = SOLVER_SOLUTION_REPLACE;
2021   static const int SOLVER_SOLUTION_REPLACE_DOWNGRADE = SOLVER_SOLUTION_REPLACE_DOWNGRADE;
2022   static const int SOLVER_SOLUTION_REPLACE_ARCHCHANGE = SOLVER_SOLUTION_REPLACE_ARCHCHANGE;
2023   static const int SOLVER_SOLUTION_REPLACE_VENDORCHANGE = SOLVER_SOLUTION_REPLACE_VENDORCHANGE;
2024
2025   static const int POLICY_ILLEGAL_DOWNGRADE = POLICY_ILLEGAL_DOWNGRADE;
2026   static const int POLICY_ILLEGAL_ARCHCHANGE = POLICY_ILLEGAL_ARCHCHANGE;
2027   static const int POLICY_ILLEGAL_VENDORCHANGE = POLICY_ILLEGAL_VENDORCHANGE;
2028
2029   static const int SOLVER_FLAG_ALLOW_DOWNGRADE = SOLVER_FLAG_ALLOW_DOWNGRADE;
2030   static const int SOLVER_FLAG_ALLOW_ARCHCHANGE = SOLVER_FLAG_ALLOW_ARCHCHANGE;
2031   static const int SOLVER_FLAG_ALLOW_VENDORCHANGE = SOLVER_FLAG_ALLOW_VENDORCHANGE;
2032   static const int SOLVER_FLAG_ALLOW_UNINSTALL = SOLVER_FLAG_ALLOW_UNINSTALL;
2033   static const int SOLVER_FLAG_NO_UPDATEPROVIDE = SOLVER_FLAG_NO_UPDATEPROVIDE;
2034   static const int SOLVER_FLAG_SPLITPROVIDES = SOLVER_FLAG_SPLITPROVIDES;
2035   static const int SOLVER_FLAG_IGNORE_RECOMMENDED = SOLVER_FLAG_IGNORE_RECOMMENDED;
2036   static const int SOLVER_FLAG_IGNORE_ALREADY_RECOMMENDED = SOLVER_FLAG_IGNORE_ALREADY_RECOMMENDED;
2037   static const int SOLVER_FLAG_NO_INFARCHCHECK = SOLVER_FLAG_NO_INFARCHCHECK;
2038
2039   ~Solver() {
2040     solver_free($self);
2041   }
2042
2043   int set_flag(int flag, int value) {
2044     return solver_set_flag($self, flag, value);
2045   }
2046   int get_flag(int flag) {
2047     return solver_get_flag($self, flag);
2048   }
2049 #if defined(SWIGPYTHON)
2050   %pythoncode {
2051     def solve(self, jobs):
2052       j = []
2053       for job in jobs: j += [job.how, job.what]
2054       return self.solve_helper(j)
2055   }
2056 #endif
2057 #if defined(SWIGPERL)
2058   %perlcode {
2059     sub solv::Solver::solve {
2060       my ($self, $jobs) = @_;
2061       my @j = map {($_->{'how'}, $_->{'what'})} @$jobs;
2062       return $self->solve_helper(\@j);
2063     }
2064   }
2065 #endif
2066 #if defined(SWIGRUBY)
2067 %init %{
2068 rb_eval_string(
2069     "class Solv::Solver\n"
2070     "  def solve(jobs)\n"
2071     "    jl = []\n"
2072     "    jobs.each do |j| ; jl << j.how << j.what ; end\n"
2073     "    solve_helper(jl)\n"
2074     "  end\n"
2075     "end\n"
2076   );
2077 %}
2078 #endif
2079   %typemap(out) Queue solve_helper Queue2Array(Problem *, 1, new_Problem(arg1, id));
2080   %newobject solve_helper;
2081   Queue solve_helper(Queue jobs) {
2082     Queue q;
2083     int i, cnt;
2084     queue_init(&q);
2085     solver_solve($self, &jobs);
2086     cnt = solver_problem_count($self);
2087     for (i = 1; i <= cnt; i++)
2088       queue_push(&q, i);
2089     return q;
2090   }
2091   %newobject transaction;
2092   Transaction *transaction() {
2093     return solver_create_transaction($self);
2094   }
2095 }
2096
2097 %extend Transaction {
2098   static const int SOLVER_TRANSACTION_IGNORE = SOLVER_TRANSACTION_IGNORE;
2099   static const int SOLVER_TRANSACTION_ERASE = SOLVER_TRANSACTION_ERASE;
2100   static const int SOLVER_TRANSACTION_REINSTALLED = SOLVER_TRANSACTION_REINSTALLED;
2101   static const int SOLVER_TRANSACTION_DOWNGRADED = SOLVER_TRANSACTION_DOWNGRADED;
2102   static const int SOLVER_TRANSACTION_CHANGED = SOLVER_TRANSACTION_CHANGED;
2103   static const int SOLVER_TRANSACTION_UPGRADED = SOLVER_TRANSACTION_UPGRADED;
2104   static const int SOLVER_TRANSACTION_OBSOLETED = SOLVER_TRANSACTION_OBSOLETED;
2105   static const int SOLVER_TRANSACTION_INSTALL = SOLVER_TRANSACTION_INSTALL;
2106   static const int SOLVER_TRANSACTION_REINSTALL = SOLVER_TRANSACTION_REINSTALL;
2107   static const int SOLVER_TRANSACTION_DOWNGRADE = SOLVER_TRANSACTION_DOWNGRADE;
2108   static const int SOLVER_TRANSACTION_CHANGE = SOLVER_TRANSACTION_CHANGE;
2109   static const int SOLVER_TRANSACTION_UPGRADE = SOLVER_TRANSACTION_UPGRADE;
2110   static const int SOLVER_TRANSACTION_OBSOLETES = SOLVER_TRANSACTION_OBSOLETES;
2111   static const int SOLVER_TRANSACTION_MULTIINSTALL = SOLVER_TRANSACTION_MULTIINSTALL;
2112   static const int SOLVER_TRANSACTION_MULTIREINSTALL = SOLVER_TRANSACTION_MULTIREINSTALL;
2113   static const int SOLVER_TRANSACTION_MAXTYPE = SOLVER_TRANSACTION_MAXTYPE;
2114   static const int SOLVER_TRANSACTION_SHOW_ACTIVE = SOLVER_TRANSACTION_SHOW_ACTIVE;
2115   static const int SOLVER_TRANSACTION_SHOW_ALL = SOLVER_TRANSACTION_SHOW_ALL;
2116   static const int SOLVER_TRANSACTION_SHOW_OBSOLETES = SOLVER_TRANSACTION_SHOW_OBSOLETES;
2117   static const int SOLVER_TRANSACTION_SHOW_MULTIINSTALL = SOLVER_TRANSACTION_SHOW_MULTIINSTALL;
2118   static const int SOLVER_TRANSACTION_CHANGE_IS_REINSTALL = SOLVER_TRANSACTION_CHANGE_IS_REINSTALL;
2119   static const int SOLVER_TRANSACTION_MERGE_VENDORCHANGES = SOLVER_TRANSACTION_MERGE_VENDORCHANGES;
2120   static const int SOLVER_TRANSACTION_MERGE_ARCHCHANGES = SOLVER_TRANSACTION_MERGE_ARCHCHANGES;
2121   static const int SOLVER_TRANSACTION_RPM_ONLY = SOLVER_TRANSACTION_RPM_ONLY;
2122   static const int SOLVER_TRANSACTION_ARCHCHANGE = SOLVER_TRANSACTION_ARCHCHANGE;
2123   static const int SOLVER_TRANSACTION_VENDORCHANGE = SOLVER_TRANSACTION_VENDORCHANGE;
2124   static const int SOLVER_TRANSACTION_KEEP_ORDERDATA = SOLVER_TRANSACTION_KEEP_ORDERDATA;
2125   ~Transaction() {
2126     transaction_free($self);
2127   }
2128 #ifdef SWIGRUBY
2129   %rename("isempty?") isempty;
2130 #endif
2131   bool isempty() {
2132     return $self->steps.count == 0;
2133   }
2134
2135   %newobject othersolvable;
2136   XSolvable *othersolvable(XSolvable *s) {
2137     Id op = transaction_obs_pkg($self, s->id);
2138     return new_XSolvable($self->pool, op);
2139   }
2140
2141   %newobject allothersolvables;
2142   %typemap(out) Queue allothersolvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
2143   Queue allothersolvables(XSolvable *s) {
2144     Queue q;
2145     queue_init(&q);
2146     transaction_all_obs_pkgs($self, s->id, &q);
2147     return q;
2148   }
2149
2150   %typemap(out) Queue classify Queue2Array(TransactionClass *, 4, new_TransactionClass(arg1, arg2, id, idp[1], idp[2], idp[3]));
2151   %newobject classify;
2152   Queue classify(int mode = 0) {
2153     Queue q;
2154     queue_init(&q);
2155     transaction_classify($self, mode, &q);
2156     return q;
2157   }
2158
2159   %typemap(out) Queue newpackages Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
2160   %newobject newpackages;
2161   Queue newpackages() {
2162     Queue q;
2163     int cut;
2164     queue_init(&q);
2165     cut = transaction_installedresult(self, &q);
2166     queue_truncate(&q, cut);
2167     return q;
2168   }
2169
2170   %typemap(out) Queue keptpackages Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
2171   %newobject keptpackages;
2172   Queue keptpackages() {
2173     Queue q;
2174     int cut;
2175     queue_init(&q);
2176     cut = transaction_installedresult(self, &q);
2177     if (cut)
2178       queue_deleten(&q, 0, cut);
2179     return q;
2180   }
2181
2182   %typemap(out) Queue steps Queue2Array(XSolvable *, 1, new_XSolvable(arg1->pool, id));
2183   %newobject steps ;
2184   Queue steps() {
2185     Queue q;
2186     queue_init_clone(&q, &$self->steps);
2187     return q;
2188   }
2189
2190   int steptype(XSolvable *s, int mode) {
2191     return transaction_type($self, s->id, mode);
2192   }
2193   int calc_installsizechange() {
2194     return transaction_calc_installsizechange($self);
2195   }
2196   void order(int flags) {
2197     transaction_order($self, flags);
2198   }
2199 }
2200
2201 %extend TransactionClass {
2202   TransactionClass(Transaction *trans, int mode, Id type, int count, Id fromid, Id toid) {
2203     TransactionClass *cl = solv_calloc(1, sizeof(*cl));
2204     cl->transaction = trans;
2205     cl->mode = mode;
2206     cl->type = type;
2207     cl->count = count;
2208     cl->fromid = fromid;
2209     cl->toid = toid;
2210     return cl;
2211   }
2212   %newobject solvables;
2213   %typemap(out) Queue solvables Queue2Array(XSolvable *, 1, new_XSolvable(arg1->transaction->pool, id));
2214   Queue solvables() {
2215     Queue q;
2216     queue_init(&q);
2217     transaction_classify_pkgs($self->transaction, $self->mode, $self->type, $self->fromid, $self->toid, &q);
2218     return q;
2219   }
2220 }
2221
2222 %extend XRule {
2223   XRule(Solver *solv, Id id) {
2224     if (!id)
2225       return 0;
2226     XRule *xr = solv_calloc(1, sizeof(*xr));
2227     xr->solv = solv;
2228     xr->id = id;
2229     return xr;
2230   }
2231   Ruleinfo *info() {
2232     Id type, source, target, dep;
2233     type =  solver_ruleinfo($self->solv, $self->id, &source, &target, &dep);
2234     return new_Ruleinfo($self, type, source, target, dep);
2235   }
2236   %typemap(out) Queue allinfos Queue2Array(Ruleinfo *, 4, new_Ruleinfo(arg1, id, idp[1], idp[2], idp[3]));
2237   %newobject allinfos;
2238   Queue allinfos() {
2239     Queue q;
2240     queue_init(&q);
2241     solver_allruleinfos($self->solv, $self->id, &q);
2242     return q;
2243   }
2244
2245   bool __eq__(XRule *xr) {
2246     return $self->solv == xr->solv && $self->id == xr->id;
2247   }
2248   bool __ne__(XRule *xr) {
2249     return !XRule___eq__($self, xr);
2250   }
2251   %newobject __repr__;
2252   const char *__repr__() {
2253     char buf[20];
2254     sprintf(buf, "<Rule #%d>", $self->id);
2255     return solv_strdup(buf);
2256   }
2257 }
2258
2259 %extend Ruleinfo {
2260   Ruleinfo(XRule *r, Id type, Id source, Id target, Id dep) {
2261     Ruleinfo *ri = solv_calloc(1, sizeof(*ri));
2262     ri->solv = r->solv;
2263     ri->rid = r->id;
2264     ri->type = type;
2265     ri->source = source;
2266     ri->target = target;
2267     ri->dep = dep;
2268     return ri;
2269   }
2270   XSolvable * const solvable;
2271   XSolvable * const othersolvable;
2272   %{
2273     SWIGINTERN XSolvable *Ruleinfo_solvable_get(Ruleinfo *ri) {
2274       return new_XSolvable(ri->solv->pool, ri->source);
2275     }
2276     SWIGINTERN XSolvable *Ruleinfo_othersolvable_get(Ruleinfo *ri) {
2277       return new_XSolvable(ri->solv->pool, ri->target);
2278     }
2279   %}
2280   const char *problemstr() {
2281     return solver_problemruleinfo2str($self->solv, $self->type, $self->source, $self->target, $self->dep);
2282   }
2283 }
2284
2285 %extend XRepodata {
2286   XRepodata(Repo *repo, Id id) {
2287     XRepodata *xr = solv_calloc(1, sizeof(*xr));
2288     xr->repo = repo;
2289     xr->id = id;
2290     return xr;
2291   }
2292   Id new_handle() {
2293     return repodata_new_handle($self->repo->repodata + $self->id);
2294   }
2295   void set_id(Id solvid, Id keyname, Id id) {
2296     repodata_set_id($self->repo->repodata + $self->id, solvid, keyname, id);
2297   }
2298   void set_str(Id solvid, Id keyname, const char *str) {
2299     repodata_set_str($self->repo->repodata + $self->id, solvid, keyname, str);
2300   }
2301   void set_poolstr(Id solvid, Id keyname, const char *str) {
2302     repodata_set_poolstr($self->repo->repodata + $self->id, solvid, keyname, str);
2303   }
2304   void add_idarray(Id solvid, Id keyname, Id id) {
2305     repodata_add_idarray($self->repo->repodata + $self->id, solvid, keyname, id);
2306   }
2307   void add_flexarray(Id solvid, Id keyname, Id handle) {
2308     repodata_add_flexarray($self->repo->repodata + $self->id, solvid, keyname, handle);
2309   }
2310   void set_checksum(Id solvid, Id keyname, Chksum *chksum) {
2311     const unsigned char *buf = solv_chksum_get(chksum, 0);
2312     if (buf)
2313       repodata_set_bin_checksum($self->repo->repodata + $self->id, solvid, keyname, solv_chksum_get_type(chksum), buf);
2314   }
2315   const char *lookup_str(Id solvid, Id keyname) {
2316     return repodata_lookup_str($self->repo->repodata + $self->id, solvid, keyname);
2317   }
2318   Queue lookup_idarray(Id solvid, Id keyname) {
2319     Queue r;
2320     queue_init(&r);
2321     repodata_lookup_idarray($self->repo->repodata + $self->id, solvid, keyname, &r);
2322     return r;
2323   }
2324   %newobject lookup_checksum;
2325   Chksum *lookup_checksum(Id solvid, Id keyname) {
2326     Id type = 0;
2327     const unsigned char *b = repodata_lookup_bin_checksum($self->repo->repodata + $self->id, solvid, keyname, &type);
2328     return solv_chksum_create_from_bin(type, b);
2329   }
2330   void internalize() {
2331     repodata_internalize($self->repo->repodata + $self->id);
2332   }
2333   void create_stubs() {
2334     repodata_create_stubs($self->repo->repodata + $self->id);
2335   }
2336   void write(FILE *fp) {
2337     repodata_write($self->repo->repodata + $self->id, fp, repo_write_stdkeyfilter, 0);
2338   }
2339   bool add_solv(FILE *fp, int flags = 0) {
2340     Repodata *data = $self->repo->repodata + $self->id;
2341     int r, oldstate = data->state;
2342     data->state = REPODATA_LOADING;
2343     r = repo_add_solv_flags(data->repo, fp, flags | REPO_USE_LOADING);
2344     if (r || data->state == REPODATA_LOADING)
2345       data->state = oldstate;
2346     return r;
2347   }
2348   void extend_to_repo() {
2349     Repodata *data = $self->repo->repodata + $self->id;
2350     repodata_extend_block(data, data->repo->start, data->repo->end - data->repo->start);
2351   }
2352   bool __eq__(XRepodata *xr) {
2353     return $self->repo == xr->repo && $self->id == xr->id;
2354   }
2355   bool __ne__(XRepodata *xr) {
2356     return !XRepodata___eq__($self, xr);
2357   }
2358   %newobject __repr__;
2359   const char *__repr__() {
2360     char buf[20];
2361     sprintf(buf, "<Repodata #%d>", $self->id);
2362     return solv_strdup(buf);
2363   }
2364 }
2365