| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
MODULE = Geo::Geos PACKAGE = Geo::Geos::GeometryFactory |
|
2
|
|
|
|
|
|
|
PROTOTYPES: DISABLE |
|
3
|
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
GeometryFactory* create(SV* arg1 = NULL, SV* arg2 = NULL) { |
|
5
|
62
|
|
|
|
|
|
GeometryFactory::Ptr ptr; |
|
6
|
31
|
|
|
|
|
|
if (!arg1) { |
|
7
|
31
|
100
|
|
|
|
|
ptr = GeometryFactory::create(); |
|
8
|
27
|
50
|
|
|
|
|
} |
|
9
|
|
|
|
|
|
|
else { |
|
10
|
|
|
|
|
|
|
auto& pm = xs::in(arg1); |
|
11
|
4
|
50
|
|
|
|
|
if (arg2) { |
|
12
|
4
|
100
|
|
|
|
|
int srid = SvIV(arg2); |
|
13
|
3
|
50
|
|
|
|
|
ptr = GeometryFactory::create(&pm, srid); |
|
|
|
0
|
|
|
|
|
|
|
14
|
3
|
50
|
|
|
|
|
} |
|
15
|
|
|
|
|
|
|
else ptr = GeometryFactory::create(&pm); |
|
16
|
1
|
50
|
|
|
|
|
} |
|
17
|
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
if (ptr.get()) { |
|
19
|
31
|
50
|
|
|
|
|
/* steal pointer without destroying the factory */ |
|
20
|
|
|
|
|
|
|
RETVAL = ptr.release(); |
|
21
|
31
|
|
|
|
|
|
} |
|
22
|
|
|
|
|
|
|
else throw ("unsupported arguments"); |
|
23
|
0
|
|
|
|
|
|
} |
|
24
|
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
PrecisionModel* GeometryFactory::getPrecisionModel() { |
|
26
|
2
|
|
|
|
|
|
auto pm = THIS->getPrecisionModel(); |
|
27
|
1
|
50
|
|
|
|
|
RETVAL = new PrecisionModel(*pm); |
|
28
|
1
|
50
|
|
|
|
|
} |
|
|
|
50
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
|
|
30
|
4
|
50
|
|
|
|
|
int GeometryFactory::getSRID () |
|
31
|
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
GeometryCollection* GeometryFactory::createGeometryCollection() { |
|
33
|
2
|
|
|
|
|
|
RETVAL = THIS->createGeometryCollection(); |
|
34
|
1
|
50
|
|
|
|
|
} |
|
35
|
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
Point* GeometryFactory::createPoint(Sv arg1 = Sv{}, SV* arg2 = NULL) { |
|
37
|
70
|
|
|
|
|
|
if (!arg1) RETVAL = THIS->createPoint(); |
|
38
|
35
|
100
|
|
|
|
|
else { |
|
|
|
50
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
if (!arg1.is_array_ref()) { |
|
40
|
34
|
100
|
|
|
|
|
Object obj {arg1}; |
|
41
|
64
|
50
|
|
|
|
|
if (obj && obj.stash().name() == "Geo::Geos::Coordinate") { |
|
42
|
32
|
50
|
|
|
|
|
auto coord = xs::in(obj); |
|
|
|
50
|
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
43
|
32
|
50
|
|
|
|
|
RETVAL = THIS->createPoint(*coord); |
|
44
|
32
|
50
|
|
|
|
|
} |
|
45
|
|
|
|
|
|
|
else throw ("Object must be blessed into Geo::Geos::Coordinate"); |
|
46
|
0
|
|
|
|
|
|
} |
|
47
|
|
|
|
|
|
|
else { |
|
48
|
|
|
|
|
|
|
if (!arg2) throw ("missing mandatory argument"); |
|
49
|
2
|
50
|
|
|
|
|
size_t dims = SvIV(arg2); |
|
50
|
2
|
50
|
|
|
|
|
auto seq = Helper::convert_copy(*THIS, Array(arg1), dims); |
|
|
|
0
|
|
|
|
|
|
|
51
|
2
|
50
|
|
|
|
|
RETVAL = THIS->createPoint(seq); |
|
|
|
50
|
|
|
|
|
|
|
52
|
2
|
50
|
|
|
|
|
} |
|
53
|
|
|
|
|
|
|
} |
|
54
|
|
|
|
|
|
|
} |
|
55
|
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
MultiPoint* GeometryFactory::createMultiPoint(SV* arg1 = NULL, SV* arg2 = NULL) { |
|
57
|
26
|
|
|
|
|
|
if (!arg1) RETVAL = THIS->createMultiPoint(); |
|
58
|
13
|
100
|
|
|
|
|
else { |
|
|
|
50
|
|
|
|
|
|
|
59
|
|
|
|
|
|
|
if (!arg2) throw ("missing mandatory argument"); |
|
60
|
11
|
50
|
|
|
|
|
size_t dims = SvIV(arg2); |
|
61
|
11
|
50
|
|
|
|
|
auto seq = std::unique_ptr(Helper::convert_copy(*THIS, Array(arg1), dims)); |
|
|
|
0
|
|
|
|
|
|
|
62
|
22
|
50
|
|
|
|
|
RETVAL = THIS->createMultiPoint(*seq); |
|
|
|
50
|
|
|
|
|
|
|
63
|
11
|
50
|
|
|
|
|
} |
|
64
|
|
|
|
|
|
|
} |
|
65
|
|
|
|
|
|
|
|
|
66
|
|
|
|
|
|
|
LineString* GeometryFactory::createLineString(SV* arg1 = NULL, SV* arg2 = NULL) { |
|
67
|
44
|
|
|
|
|
|
if (!arg1) RETVAL = THIS->createLineString(); |
|
68
|
22
|
100
|
|
|
|
|
else { |
|
|
|
50
|
|
|
|
|
|
|
69
|
|
|
|
|
|
|
if (!arg2) throw ("missing argument"); |
|
70
|
21
|
50
|
|
|
|
|
size_t dims = SvIV(arg2); |
|
71
|
21
|
50
|
|
|
|
|
auto seq = std::unique_ptr(Helper::convert_copy(*THIS, Array(arg1), dims)); |
|
|
|
0
|
|
|
|
|
|
|
72
|
42
|
50
|
|
|
|
|
RETVAL = THIS->createLineString(*seq); |
|
|
|
50
|
|
|
|
|
|
|
73
|
21
|
50
|
|
|
|
|
} |
|
74
|
|
|
|
|
|
|
} |
|
75
|
|
|
|
|
|
|
|
|
76
|
|
|
|
|
|
|
MultiLineString* GeometryFactory::createMultiLineString(SV* arg1 = NULL) { |
|
77
|
6
|
|
|
|
|
|
if (!arg1) RETVAL = THIS->createMultiLineString(); |
|
78
|
3
|
100
|
|
|
|
|
else { |
|
|
|
50
|
|
|
|
|
|
|
79
|
|
|
|
|
|
|
Array geometries(arg1); |
|
80
|
4
|
50
|
|
|
|
|
if (!geometries) throw ("unsupported argument"); |
|
81
|
2
|
50
|
|
|
|
|
auto lines = Helper::convert_geometries(geometries); |
|
82
|
4
|
50
|
|
|
|
|
RETVAL = THIS->createMultiLineString(lines); |
|
|
|
50
|
|
|
|
|
|
|
83
|
2
|
50
|
|
|
|
|
} |
|
84
|
|
|
|
|
|
|
} |
|
85
|
|
|
|
|
|
|
|
|
86
|
|
|
|
|
|
|
LinearRing* GeometryFactory::createLinearRing(SV* arg1 = NULL, SV* arg2 = NULL) { |
|
87
|
44
|
|
|
|
|
|
if (!arg1) RETVAL = THIS->createLinearRing(); |
|
88
|
22
|
100
|
|
|
|
|
else { |
|
|
|
50
|
|
|
|
|
|
|
89
|
|
|
|
|
|
|
if (!arg2) throw ("missing argument"); |
|
90
|
21
|
50
|
|
|
|
|
size_t dims = SvIV(arg2); |
|
91
|
21
|
50
|
|
|
|
|
auto seq = std::unique_ptr(Helper::convert_copy(*THIS, Array(arg1), dims)); |
|
|
|
0
|
|
|
|
|
|
|
92
|
42
|
50
|
|
|
|
|
RETVAL = THIS->createLinearRing(*seq); |
|
|
|
50
|
|
|
|
|
|
|
93
|
21
|
50
|
|
|
|
|
} |
|
94
|
|
|
|
|
|
|
} |
|
95
|
|
|
|
|
|
|
|
|
96
|
|
|
|
|
|
|
Polygon* GeometryFactory::createPolygon(SV* arg1 = NULL, SV* arg2 = NULL) { |
|
97
|
32
|
|
|
|
|
|
if (!arg1) RETVAL = THIS->createPolygon(); |
|
98
|
16
|
100
|
|
|
|
|
else { |
|
|
|
50
|
|
|
|
|
|
|
99
|
|
|
|
|
|
|
auto ring = xs::in(arg1); |
|
100
|
15
|
50
|
|
|
|
|
auto holes = Helper::convert_geometries(Array(arg2)); |
|
101
|
30
|
50
|
|
|
|
|
RETVAL = THIS->createPolygon(*ring, holes); |
|
|
|
50
|
|
|
|
|
|
|
102
|
15
|
50
|
|
|
|
|
} |
|
103
|
|
|
|
|
|
|
} |
|
104
|
|
|
|
|
|
|
|
|
105
|
|
|
|
|
|
|
MultiPolygon* GeometryFactory::createMultiPolygon(SV* arg1 = NULL) { |
|
106
|
4
|
|
|
|
|
|
if (!arg1) RETVAL = THIS->createMultiPolygon(); |
|
107
|
2
|
100
|
|
|
|
|
else { |
|
|
|
50
|
|
|
|
|
|
|
108
|
|
|
|
|
|
|
auto polygons = Helper::convert_geometries(Array(arg1)); |
|
109
|
2
|
50
|
|
|
|
|
RETVAL = THIS->createMultiPolygon(polygons); |
|
|
|
50
|
|
|
|
|
|
|
110
|
1
|
50
|
|
|
|
|
} |
|
111
|
|
|
|
|
|
|
} |
|
112
|
|
|
|
|
|
|
|
|
113
|
|
|
|
|
|
|
Sv GeometryFactory::toGeometry(Envelope* env) { |
|
114
|
1
|
50
|
|
|
|
|
RETVAL = Helper::uplift(THIS->toGeometry(env)); |
|
|
|
50
|
|
|
|
|
|
|
115
|
|
|
|
|
|
|
} |
|
116
|
|
|
|
|
|
|
|
|
117
|
|
|
|
|
|
|
Sv GeometryFactory::createEmptyGeometry() { |
|
118
|
1
|
50
|
|
|
|
|
RETVAL = Helper::uplift(THIS->createEmptyGeometry()); |
|
|
|
50
|
|
|
|
|
|
|
119
|
|
|
|
|
|
|
} |
|
120
|
|
|
|
|
|
|
|
|
121
|
0
|
|
|
|
|
|
int CLONE_SKIP (...) { PERL_UNUSED_VAR(items); RETVAL = 1; } |
|
122
|
|
|
|
|
|
|
|
|
123
|
|
|
|
|
|
|
BOOT { |
|
124
|
46
|
50
|
|
|
|
|
xs::exp::autoexport(Stash(__PACKAGE__)); |
|
|
|
50
|
|
|
|
|
|
|
125
|
|
|
|
|
|
|
} |