← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/swig1.3/oneiric

« back to all changes in this revision

Viewing changes to Lib/perl5/std_vector.i

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2007-12-06 10:27:08 UTC
  • mfrom: (1.2.6 upstream)
  • Revision ID: james.westby@ubuntu.com-20071206102708-t37t62i45n595w0e
Tags: 1.3.33-2ubuntu1
* Merge with Debian; remaining changes:
  - Drop support for pike.
  - Use python2.5 instead of python2.4.
  - Clean Runtime/ as well.
  - Force a few environment variables.
* debian/Rules (clean): Remove Lib/ocaml/swigp4.ml.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Lib/perl5/std_vector.i
130
130
                    /* native sequence? */
131
131
                    AV *av = (AV *)SvRV($input);
132
132
                    if (SvTYPE(av) == SVt_PVAV) {
133
 
                        SV **tv;
134
133
                        I32 len = av_len(av) + 1;
135
134
                        if (len == 0) {
136
135
                            /* an empty sequence can be of any type */
138
137
                        } else {
139
138
                            /* check the first element only */
140
139
                            T* obj;
141
 
                            tv = av_fetch(av, 0, 0);
 
140
                            SV **tv = av_fetch(av, 0, 0);
142
141
                            if (SWIG_ConvertPtr(*tv, (void **)&obj, 
143
142
                                                $descriptor(T *),0) != -1)
144
143
                                $1 = 1;
163
162
                    /* native sequence? */
164
163
                    AV *av = (AV *)SvRV($input);
165
164
                    if (SvTYPE(av) == SVt_PVAV) {
166
 
                        SV **tv;
167
165
                        I32 len = av_len(av) + 1;
168
166
                        if (len == 0) {
169
167
                            /* an empty sequence can be of any type */
171
169
                        } else {
172
170
                            /* check the first element only */
173
171
                            T* obj;
174
 
                            tv = av_fetch(av, 0, 0);
 
172
                            SV **tv = av_fetch(av, 0, 0);
175
173
                            if (SWIG_ConvertPtr(*tv, (void **)&obj, 
176
174
                                                $descriptor(T *),0) != -1)
177
175
                                $1 = 1;
333
331
                    /* native sequence? */
334
332
                    AV *av = (AV *)SvRV($input);
335
333
                    if (SvTYPE(av) == SVt_PVAV) {
336
 
                        SV **tv;
337
334
                        I32 len = av_len(av) + 1;
338
335
                        if (len == 0) {
339
336
                            /* an empty sequence can be of any type */
474
471
                    /* native sequence? */
475
472
                    AV *av = (AV *)SvRV($input);
476
473
                    if (SvTYPE(av) == SVt_PVAV) {
477
 
                        SV **tv;
478
474
                        I32 len = av_len(av) + 1;
479
475
                        if (len == 0) {
480
476
                            /* an empty sequence can be of any type */
481
477
                            $1 = 1;
482
478
                        } else {
483
479
                            /* check the first element only */
484
 
                            tv = av_fetch(av, 0, 0);
 
480
                            SV **tv = av_fetch(av, 0, 0);
485
481
                            if (CHECK_T(*tv))
486
482
                                $1 = 1;
487
483
                            else
505
501
                    /* native sequence? */
506
502
                    AV *av = (AV *)SvRV($input);
507
503
                    if (SvTYPE(av) == SVt_PVAV) {
508
 
                        SV **tv;
509
504
                        I32 len = av_len(av) + 1;
510
505
                        if (len == 0) {
511
506
                            /* an empty sequence can be of any type */
512
507
                            $1 = 1;
513
508
                        } else {
514
509
                            /* check the first element only */
515
 
                            tv = av_fetch(av, 0, 0);
 
510
                            SV **tv = av_fetch(av, 0, 0);
516
511
                            if (CHECK_T(*tv))
517
512
                                $1 = 1;
518
513
                            else