Parse AMF

lib/Slic3r/AMF.pm

@@ -0,0 +1,28 @@
+package Slic3r::AMF;
+use Moo;
+use XXX;
+
+sub read_file {
+    my $self = shift;
+    my ($file) = @_;
+    
+    eval "require Slic3r::AMF::Parser; 1"
+        or die "AMF parsing requires XML::SAX::ExpatXS\n";
+    
+    open my $fh, '<', $file or die "Failed to open $file\n";
+    
+    my $vertices = [];
+    my $facets = [];
+    XML::SAX::ExpatXS
+        ->new(Handler => Slic3r::AMF::Parser->new(
+            _vertices    => $vertices,
+            _facets      => $facets,
+         ))
+        ->parse_file($fh);
+    
+    close $fh;
+    
+    return Slic3r::TriangleMesh->new(vertices => $vertices, facets => $facets);
+}
+
+1;