Author: kkaempf Date: Mon Oct 20 15:20:02 2008 New Revision: 11407 URL: http://svn.opensuse.org/viewcvs/zypp?rev=11407&view=rev Log: array Perl api Modified: trunk/sat-solver/bindings/satsolver.i Modified: trunk/sat-solver/bindings/satsolver.i URL: http://svn.opensuse.org/viewcvs/zypp/trunk/sat-solver/bindings/satsolver.i?rev=11407&r1=11406&r2=11407&view=diff ============================================================================== --- trunk/sat-solver/bindings/satsolver.i (original) +++ trunk/sat-solver/bindings/satsolver.i Mon Oct 20 15:20:02 2008 @@ -83,8 +83,8 @@ #define Swig_Type SV * #define Swig_Int(x) SWIG_From_long(x) /* should be SWIG_From_long(x), but Swig declares it too late. FIXME */ #define Swig_String(x) SWIG_FromCharPtr(x) /* SWIG_FromCharPtr(x), also */ -#define Swig_Array(x) NULL -#define Swig_Append(x,y) av_create_and_push(&x, y) +#define Swig_Array(x) (SV *)newAV() +#define Swig_Append(x,y) av_push((AV *)x, y) /* FIXME: perl types */ #define Swig_Type_Type SV * #define Swig_Type_Null NULL -- To unsubscribe, e-mail: zypp-commit+unsubscribe@opensuse.org For additional commands, e-mail: zypp-commit+help@opensuse.org