Author: kkaempf Date: Fri Jan 4 15:53:05 2008 New Revision: 8204 URL: http://svn.opensuse.org/viewcvs/zypp?rev=8204&view=rev Log: adapt to swig bindings (incomplete, non-working) Modified: trunk/sat-solver/examples/perl/example.pl Modified: trunk/sat-solver/examples/perl/example.pl URL: http://svn.opensuse.org/viewcvs/zypp/trunk/sat-solver/examples/perl/example.pl?rev=8204&r1=8203&r2=8204&view=diff ============================================================================== --- trunk/sat-solver/examples/perl/example.pl (original) +++ trunk/sat-solver/examples/perl/example.pl Fri Jan 4 15:53:05 2008 @@ -1,40 +1,40 @@ #!/usr/bin/perl -use lib './blib/arch/auto/SaT'; +use lib '../../build/bindings/perl'; -use SaT; +use satsolverx; # Open Solvable file -open(F, "gzip -cd tmp/primary.gz |") || die; +# open(F, "gzip -cd tmp/primary.gz |") || die; # Create Pool and Repository -my $pool = new SaT::_Pool; -my $repo = $pool -> createRepo('repo'); +my $pool = new satsolverx::Pool; +my $repo = $pool -> create_repo('repo'); # Add Solvable to Repository -$repo -> addSolvable (F); -close(F) || die; +$repo -> add_solv ("tmp/primary"); +# close(F) || die; # Create Solver -my $solver = new SaT::Solver ($pool); +my $solver = $pool -> create_solver(); # Create dependencies to provides table -$pool -> createWhatProvides(); +$pool -> prepare(); -# Create Queue -my $job = new SaT::Queue; +# Create Transactions +my $job = $pool -> create_transaction(); # Push jobs on Queue -$job -> queuePush ( $SaT::SOLVER_INSTALL_SOLVABLE ); -if (! $job -> queuePush ( $pool -> selectSolvable ($repo,"pattern:default"))) { - die "failed to push job"; -} +my $pat = $pool -> find( "pattern:default" ) || die; +$job -> install( $pat ); + +# $job -> install( "pattern:default" ); # Solve the jobs $solver -> solve ($job); # Print packages to install -$a = $solver -> getInstallList($pool); +$a = $solver -> getInstallList(); foreach my $c (@{$a}) { print "$c\n"; } -- To unsubscribe, e-mail: zypp-commit+unsubscribe@opensuse.org For additional commands, e-mail: zypp-commit+help@opensuse.org