3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-10-31 04:31:15 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Use a general-purpose T_ARRAYREF_PTR typemap

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-09-09 21:43:28 +02:00
parent 1fbf9c3952
commit c592932cee
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
xs/xsp/my.map
View file

@ -23,7 +23,7 @@ Lines T_ARRAYREF
Polygons T_ARRAYREF
ExPolygons T_ARRAYREF
Polygons* T_ARRAYREF_POLYGONS_PTR
Polygons* T_ARRAYREF_PTR
INPUT
@ -56,12 +56,12 @@ T_ARRAYREF
}
$var.clear();
T_ARRAYREF_POLYGONS_PTR
T_ARRAYREF_PTR
AV* av = newAV();
$arg = newRV_noinc((SV*)av);
sv_2mortal($arg);
av_extend(av, $var->size()-1);
int i = 0;
for (Polygons::iterator it = $var->begin(); it != $var->end(); ++it) {
for (${ my $t = $type; $t =~ s/\*$//; \$t }::iterator it = $var->begin(); it != $var->end(); ++it) {
av_store(av, i++, (*it).to_SV_ref());
}