Author: kkaempf Date: Tue Aug 5 14:30:42 2008 New Revision: 10758 URL: http://svn.opensuse.org/viewcvs/zypp?rev=10758&view=rev Log: enable Perl (untested) Modified: trunk/sat-solver/bindings/CMakeLists.txt trunk/sat-solver/bindings/satsolver.i trunk/sat-solver/bindings/solvable.i Modified: trunk/sat-solver/bindings/CMakeLists.txt URL: http://svn.opensuse.org/viewcvs/zypp/trunk/sat-solver/bindings/CMakeLists.txt?rev=10758&r1=10757&r2=10758&view=diff ============================================================================== --- trunk/sat-solver/bindings/CMakeLists.txt (original) +++ trunk/sat-solver/bindings/CMakeLists.txt Tue Aug 5 14:30:42 2008 @@ -31,8 +31,8 @@ ADD_SUBDIRECTORY(python) ENDIF(PYTHON_LIBRARY) -#IF (PERL_EXECUTABLE) -# MESSAGE(STATUS "Perl executable: ${PERL_EXECUTABLE}") -# ADD_SUBDIRECTORY(perl) -#ENDIF (PERL_EXECUTABLE) +IF (PERL_EXECUTABLE) + MESSAGE(STATUS "Perl executable: ${PERL_EXECUTABLE}") + ADD_SUBDIRECTORY(perl) +ENDIF (PERL_EXECUTABLE) Modified: trunk/sat-solver/bindings/satsolver.i URL: http://svn.opensuse.org/viewcvs/zypp/trunk/sat-solver/bindings/satsolver.i?rev=10758&r1=10757&r2=10758&view=diff ============================================================================== --- trunk/sat-solver/bindings/satsolver.i (original) +++ trunk/sat-solver/bindings/satsolver.i Tue Aug 5 14:30:42 2008 @@ -48,6 +48,18 @@ #include #endif +#if defined(SWIGPERL) +#define Swig_Test(x) (x == NULL) +#define Swig_True (&PL_sv_yes) +#define Swig_False (&PL_sv_no) +#define Swig_Null NULL +#define Swig_Type SV * +#define Swig_Int(x) SWIG_From_long(x) +#define Swig_String(x) SWIG_FromCharPtr(x) +#define Swig_Array(x) NULL +#define Swig_Append(x,y) av_create_and_push(&x, y) +#endif + /* satsolver core includes */ #include "policy.h" #include "bitmap.h" Modified: trunk/sat-solver/bindings/solvable.i URL: http://svn.opensuse.org/viewcvs/zypp/trunk/sat-solver/bindings/solvable.i?rev=10758&r1=10757&r2=10758&view=diff ============================================================================== --- trunk/sat-solver/bindings/solvable.i (original) +++ trunk/sat-solver/bindings/solvable.i Tue Aug 5 14:30:42 2008 @@ -318,6 +318,9 @@ #if defined(SWIGPYTHON) PyObject *attr( const char *name ) #endif +#if defined(SWIGPERL) + SV *attr( const char *name ) +#endif { #if defined(SWIGRUBY) char *name; @@ -377,6 +380,9 @@ #if defined(SWIGPYTHON) PyObject *attr_exists( const char *name ) #endif +#if defined(SWIGPERL) + SV *attr_exists( const char *name ) +#endif { #if defined(SWIGRUBY) char *name; -- To unsubscribe, e-mail: zypp-commit+unsubscribe@opensuse.org For additional commands, e-mail: zypp-commit+help@opensuse.org