STLExtract 1.0.0

data/.gitignore

@@ -0,0 +1,14 @@
+/.bundle/
+/.yardoc
+/Gemfile.lock
+/_yardoc/
+/coverage/
+/doc/
+/pkg/
+/spec/reports/
+/tmp/
+mkmf.log
+new.bat
+new.rb
+*.gem
+

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in STLExtract.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2014 Thomas Preece
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,66 @@
+# STLExtract
+
+This is a gem that extracts various data about the 3d models contained in STL, OBJ and AMF files.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'STLExtract'
+```
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install STLExtract
+
+## Usage
+
+First create a new StlExtract object using the following command
+
+```ruby
+s = StlExtract.new()
+```
+
+Then use the following command to get info about a file specified as an argument. Note that even on Windows that folders are separated by a forward slash '/' in the argument.
+
+```ruby
+ s.get_info("C:/Users/Tom/Documents/champagne_bottle.stl")
+```
+
+Should there be any errors with getting the details from the file then you can retrieve the error from 
+
+```ruby
+s.get_error
+```
+
+The error will be a string value containing text about the error or -1 if the program ran correctly and there was no error. If there was no errors then you can access x,y,z,volume and if file needs repair using
+
+```ruby
+s.get_x_value
+s.get_y_value
+s.get_z_value
+s.get_volume
+s.get_repair
+```
+
+Should the STL file need repairing we can use the following command
+
+```ruby
+s.repair_file("C:/Users/Tom/Documents/champagne_bottle.stl")
+```
+
+to create a fixed file named [OrginalName]_fixed.obj so in our above example we will now have a file named champagne_bottle_fixed.obj in C:/Users/Tom/Documents/
+
+
+## Contributing
+
+1. Fork it ( https://github.com/thomaspreece10/STLExtract/fork )
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create a new Pull Request

data/Rakefile

@@ -0,0 +1,2 @@
+require "bundler/gem_tasks"
+

data/STLExtract.gemspec

@@ -0,0 +1,23 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'STLExtract/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "STLExtract"
+  spec.version       = STLExtract::VERSION
+  spec.authors       = ["Thomas Preece"]
+  spec.email         = ["t.preece@warwick.ac.uk"]
+  spec.summary       = 'Extracts data from STL, OBJ and AMF files using Slic3r'
+  spec.description   = 'Extracts x,y,z and volume data from STL, OBJ and AMF files using Slic3r'
+  spec.homepage      = "http://thomaspreece.com"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 1.7"
+  spec.add_development_dependency "rake", "~> 10.0"
+end

data/Slic3r/Linux/dll/libGLU.so

@@ -0,0 +1 @@
+libGLU.so.1.3.08004

data/Slic3r/Linux/dll/libGLU.so.1

@@ -0,0 +1 @@
+libGLU.so.1.3.08004

data/Slic3r/Linux/dll/libwx_baseu-2.9.so

@@ -0,0 +1 @@
+libwx_baseu-2.9.so.3.0.0

data/Slic3r/Linux/dll/libwx_baseu-2.9.so.3

@@ -0,0 +1 @@
+libwx_baseu-2.9.so.3.0.0

data/Slic3r/Linux/dll/libwx_baseu_net-2.9.so

@@ -0,0 +1 @@
+libwx_baseu_net-2.9.so.3.0.0

data/Slic3r/Linux/dll/libwx_baseu_net-2.9.so.3

@@ -0,0 +1 @@
+libwx_baseu_net-2.9.so.3.0.0

data/Slic3r/Linux/dll/libwx_gtk2u_adv-2.9.so

@@ -0,0 +1 @@
+libwx_gtk2u_adv-2.9.so.3.0.0

data/Slic3r/Linux/dll/libwx_gtk2u_adv-2.9.so.3

@@ -0,0 +1 @@
+libwx_gtk2u_adv-2.9.so.3.0.0

data/Slic3r/Linux/dll/libwx_gtk2u_core-2.9.so

@@ -0,0 +1 @@
+libwx_gtk2u_core-2.9.so.3.0.0

data/Slic3r/Linux/dll/libwx_gtk2u_core-2.9.so.3

@@ -0,0 +1 @@
+libwx_gtk2u_core-2.9.so.3.0.0

data/Slic3r/Linux/dll/libwx_gtk2u_gl-2.9.so

@@ -0,0 +1 @@
+libwx_gtk2u_gl-2.9.so.3.0.0

data/Slic3r/Linux/dll/libwx_gtk2u_gl-2.9.so.3

@@ -0,0 +1 @@
+libwx_gtk2u_gl-2.9.so.3.0.0

data/Slic3r/Linux/dll/libwx_gtk2u_html-2.9.so

@@ -0,0 +1 @@
+libwx_gtk2u_html-2.9.so.3.0.0

data/Slic3r/Linux/dll/libwx_gtk2u_html-2.9.so.3

@@ -0,0 +1 @@
+libwx_gtk2u_html-2.9.so.3.0.0

data/Slic3r/Linux/lib/std/Authen/SASL.pm

@@ -0,0 +1,130 @@
+# Copyright (c) 2004-2006 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package Authen::SASL;
+
+use strict;
+use vars qw($VERSION @Plugins);
+use Carp;
+
+$VERSION = "2.15";
+
+@Plugins = qw(
+	Authen::SASL::XS
+	Authen::SASL::Cyrus
+	Authen::SASL::Perl
+);
+
+
+sub import {
+  shift;
+  return unless @_;
+
+  local $SIG{__DIE__};
+  @Plugins = grep { /^[:\w]+$/ and eval "require $_" } map { /::/ ? $_ : "Authen::SASL::$_" } @_
+    or croak "no valid Authen::SASL plugins found";
+}
+
+
+sub new {
+  my $pkg = shift;
+  my %opt = ((@_ % 2 ? 'mechanism' : ()), @_);
+
+  my $self = bless {
+    mechanism => $opt{mechanism} || $opt{mech},
+    callback  => {},
+    debug => $opt{debug},
+  }, $pkg;
+
+  $self->callback(%{$opt{callback}}) if ref($opt{callback}) eq 'HASH';
+
+  # Compat
+  $self->callback(user => ($self->{user} = $opt{user})) if exists $opt{user};
+  $self->callback(pass => $opt{password}) if exists $opt{password};
+  $self->callback(pass => $opt{response}) if exists $opt{response};
+
+  $self;
+}
+
+
+sub mechanism {
+  my $self = shift;
+  @_ ? $self->{mechanism} = shift
+     : $self->{mechanism};
+}
+
+sub callback {
+  my $self = shift;
+
+  return $self->{callback}{$_[0]} if @_ == 1;
+
+  my %new = @_;
+  @{$self->{callback}}{keys %new} = values %new;
+
+  $self->{callback};
+}
+
+# The list of packages should not really be hardcoded here
+# We need some way to discover what plugins are installed
+
+sub client_new { # $self, $service, $host, $secflags
+  my $self = shift;
+
+  my $err;
+  foreach my $pkg (@Plugins) {
+    if (eval "require $pkg" and $pkg->can("client_new")) {
+      if ($self->{conn} = eval { $pkg->client_new($self, @_) }) {
+        return $self->{conn};
+      }
+      $err = $@;
+    }
+  }
+
+  croak $err || "Cannot find a SASL Connection library";
+}
+
+sub server_new { # $self, $service, $host, $secflags
+  my $self = shift;
+
+  my $err;
+  foreach my $pkg (@Plugins) {
+    if (eval "require $pkg" and $pkg->can("server_new")) {
+      if ($self->{conn} = eval { $pkg->server_new($self, @_) } ) {
+        return $self->{conn};
+      }
+      $err = $@;
+    }
+  }
+  croak $err || "Cannot find a SASL Connection library for server-side authentication";
+}
+
+sub error {
+  my $self = shift;
+  $self->{conn} && $self->{conn}->error;
+}
+
+# Compat.
+sub user {
+  my $self = shift;
+  my $user = $self->{callback}{user};
+  $self->{callback}{user} = shift if @_;
+  $user;
+}
+
+sub challenge {
+  my $self = shift;
+  $self->{conn}->client_step(@_);
+}
+
+sub initial {
+  my $self = shift;
+  $self->client_new($self)->client_start;
+}
+
+sub name {
+  my $self = shift;
+  $self->{conn} ? $self->{conn}->mechanism : ($self->{mechanism} =~ /(\S+)/)[0];
+}
+
+1;

data/Slic3r/Linux/lib/std/Authen/SASL/CRAM_MD5.pm

@@ -0,0 +1,18 @@
+# Copyright (c) 2002 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package Authen::SASL::CRAM_MD5;
+
+use strict;
+use vars qw($VERSION);
+
+$VERSION = "2.14";
+
+sub new {
+  shift;
+  Authen::SASL->new(@_, mechanism => 'CRAM-MD5');
+}
+
+1;
+

data/Slic3r/Linux/lib/std/Authen/SASL/EXTERNAL.pm

@@ -0,0 +1,18 @@
+# Copyright (c) 2002 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package Authen::SASL::EXTERNAL;
+
+use strict;
+use vars qw($VERSION);
+
+$VERSION = "2.14";
+
+sub new {
+  shift;
+  Authen::SASL->new(@_, mechanism => 'EXTERNAL');
+}
+
+1;
+

data/Slic3r/Linux/lib/std/Authen/SASL/Perl.pm

@@ -0,0 +1,344 @@
+# Copyright (c) 2002 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package Authen::SASL::Perl;
+
+use strict;
+use vars qw($VERSION);
+use Carp;
+
+$VERSION = "2.14";
+
+my %secflags = (
+	noplaintext  => 1,
+	noanonymous  => 1,
+	nodictionary => 1,
+);
+my %have;
+
+sub server_new {
+  my ($pkg, $parent, $service, $host, $options) = @_;
+
+  my $self = {
+    callback  => { %{$parent->callback} },
+    service   => $service  || '',
+    host      => $host     || '',
+    debug     => $parent->{debug} || 0,
+    need_step => 1,
+  };
+
+  my $mechanism = $parent->mechanism
+    or croak "No server mechanism specified";
+  $mechanism =~ s/^\s*\b(.*)\b\s*$/$1/g;
+  $mechanism =~ s/-/_/g;
+  $mechanism =  uc $mechanism;
+  my $mpkg   = __PACKAGE__ . "::$mechanism";
+  eval "require $mpkg;"
+    or croak "Cannot use $mpkg for " . $parent->mechanism;
+  my $server = $mpkg->_init($self);
+  $server->_init_server($options);
+  return $server;
+}
+
+sub client_new {
+  my ($pkg, $parent, $service, $host, $secflags) = @_;
+
+  my @sec = grep { $secflags{$_} } split /\W+/, lc($secflags || '');
+
+  my $self = {
+    callback  => { %{$parent->callback} },
+    service   => $service  || '',
+    host      => $host     || '',
+    debug     => $parent->{debug} || 0,
+    need_step => 1,
+  };
+
+  my @mpkg = sort {
+    $b->_order <=> $a->_order
+  } grep {
+    my $have = $have{$_} ||= (eval "require $_;" and $_->can('_secflags')) ? 1 : -1;
+    $have > 0 and $_->_secflags(@sec) == @sec
+  } map {
+    (my $mpkg = __PACKAGE__ . "::$_") =~ s/-/_/g;
+    $mpkg;
+  } split /[^-\w]+/, $parent->mechanism
+    or croak "No SASL mechanism found\n";
+
+  $mpkg[0]->_init($self);
+}
+
+sub _init_server {}
+
+sub _order   { 0 }
+sub code     { defined(shift->{error}) || 0 }
+sub error    { shift->{error}    }
+sub service  { shift->{service}  }
+sub host     { shift->{host}     }
+
+sub need_step {
+    my $self = shift;
+    return 0 if $self->{error};
+    return $self->{need_step};
+}
+
+## I think I need to rename that to end()?
+## It doesn't mean that SASL is successful, but that
+## that the negotiation is over, no more step necessary
+## at least for the client
+sub set_success {
+    my $self = shift;
+    $self->{need_step} = 0;
+}
+
+sub is_success {
+    my $self = shift;
+    return !$self->code && !$self->need_step;
+}
+
+sub set_error {
+  my $self = shift;
+  $self->{error} = shift;
+  return;
+}
+
+# set/get property
+sub property {
+  my $self = shift;
+  my $prop = $self->{property} ||= {};
+  return $prop->{ $_[0] } if @_ == 1;
+  my %new = @_;
+  @{$prop}{keys %new} = values %new;
+  1;
+}
+
+sub callback {
+  my $self = shift;
+
+  return $self->{callback}{$_[0]} if @_ == 1;
+
+  my %new = @_;
+  @{$self->{callback}}{keys %new} = values %new;
+
+  $self->{callback};
+}
+
+# Should be defined in the mechanism sub-class
+sub mechanism    { undef }
+sub client_step  { undef }
+sub client_start { undef }
+sub server_step  { undef }
+sub server_start { undef }
+
+# Private methods used by Authen::SASL::Perl that
+# may be overridden in mechanism sub-calsses
+
+sub _init {
+  my ($pkg, $href) = @_;
+
+  bless $href, $pkg;
+}
+
+sub _call {
+  my ($self, $name) = splice(@_,0,2);
+
+  my $cb = $self->{callback}{$name};
+
+  return undef unless defined $cb;
+
+  my $value;
+
+  if (ref($cb) eq 'ARRAY') {
+    my @args = @$cb;
+    $cb = shift @args;
+    $value = $cb->($self, @args);
+  }
+  elsif (ref($cb) eq 'CODE') {
+    $value = $cb->($self, @_);
+  }
+  else {
+    $value = $cb;
+  }
+
+  $self->{answer}{$name} = $value
+    unless $name eq 'pass'; # Do not store password
+
+  return $value;
+}
+
+# TODO: Need a better name than this
+sub answer {
+  my ($self, $name) = @_;
+  $self->{answer}{$name};
+}
+
+sub _secflags { 0 }
+
+sub securesocket {
+  my $self = shift;
+  return $_[0] unless ($self->property('ssf') > 0);
+
+  local *GLOB; # avoid used only once warning
+  my $glob = \do { local *GLOB; };
+  tie(*$glob, 'Authen::SASL::Perl::Layer', $_[0], $self);
+  $glob;
+}
+
+{
+
+#
+# Add SASL encoding/decoding to a filehandle
+#
+
+  package Authen::SASL::Perl::Layer;
+
+  use bytes;
+
+  require Tie::Handle;
+  our @ISA = qw(Tie::Handle);
+
+  sub TIEHANDLE {
+    my ($class, $fh, $conn) = @_;
+    my $self;
+
+    warn __PACKAGE__ . ': non-blocking handle may not work'
+      if ($fh->can('blocking') and not $fh->blocking());
+
+    $self->{fh}         = $fh;
+    $self->{conn}       = $conn;
+    $self->{readbuflen} = 0;
+    $self->{sndbufsz}   = $conn->property('maxout');
+    $self->{rcvbufsz}   = $conn->property('maxbuf');
+
+    return bless($self, $class);
+  }
+
+  sub CLOSE {
+    my ($self) = @_;
+
+    # forward close to the inner handle
+    close($self->{fh});
+    delete $self->{fh};
+  }
+
+  sub DESTROY {
+    my ($self) = @_;
+    delete $self->{fh};
+    undef $self;
+  }
+
+  sub FETCH {
+    my ($self) = @_;
+    return $self->{fh};
+  }
+
+  sub FILENO {
+    my ($self) = @_;
+    return fileno($self->{fh});
+  }
+
+
+  sub READ {
+    my ($self, $buf, $len, $offset) = @_;
+    my $debug = $self->{conn}->{debug};
+
+    $buf = \$_[1];
+
+    my $avail = $self->{readbuflen};
+
+    print STDERR " [READ(len=$len,offset=$offset)] avail=$avail;\n"
+      if ($debug & 4);
+
+    # Check if there's leftovers from a previous READ
+    if ($avail <= 0) {
+      $avail = $self->_getbuf();
+      return undef unless ($avail > 0);
+    }
+
+    # if there's more than we need right now, leave the rest for later
+    if ($avail >= $len) {
+      print STDERR "   GOT ALL: avail=$avail; need=$len\n"
+        if ($debug & 4);
+      substr($$buf, $offset, $len) = substr($self->{readbuf}, 0, $len, '');
+      $self->{readbuflen} -= $len;
+      return ($len);
+    }
+
+    # there's not enough; take all we have, read more on next call
+    print STDERR "   GOT PARTIAL: avail=$avail; need=$len\n"
+      if ($debug & 4);
+    substr($$buf, $offset || 0, $avail) = $self->{readbuf};
+    $self->{readbuf}    = '';
+    $self->{readbuflen} = 0;
+
+    return ($avail);
+  }
+
+  # retrieve and decode a buffer of cipher text in SASL format
+  sub _getbuf {
+    my ($self) = @_;
+    my $debug  = $self->{conn}->{debug};
+    my $fh     = $self->{fh};
+    my $buf    = '';
+
+    # first, read 4-octet buffer size
+    my $n = 0;
+    while ($n < 4) {
+      my $rv = sysread($fh, $buf, 4 - $n, $n);
+      print STDERR "    [getbuf: sysread($fh,$buf,4-$n,$n)=$rv: $!\n"
+        if ($debug & 4);
+      return $rv unless $rv > 0;
+      $n += $rv;
+    }
+
+    # size is encoded in network byte order
+    my ($bsz) = unpack('N', $buf);
+    print STDERR "    [getbuf: cipher buffer sz=$bsz]\n" if ($debug & 4);
+    return undef unless ($bsz <= $self->{rcvbufsz});
+
+    # next, read actual cipher text
+    $buf = '';
+    $n   = 0;
+    while ($n < $bsz) {
+      my $rv = sysread($fh, $buf, $bsz - $n, $n);
+      print STDERR "    [getbuf: got o=$n,n=", $bsz - $n, ",rv=$rv,bl=" . length($buf) . "]\n"
+        if ($debug & 4);
+      return $rv unless $rv > 0;
+      $n += $rv;
+    }
+
+    # call mechanism specific decoding routine
+    $self->{readbuf} = $self->{conn}->decode($buf, $bsz);
+    $n = length($self->{readbuf});
+    print STDERR "    [getbuf: clear text buffer sz=$n]\n" if ($debug & 4);
+    $self->{readbuflen} = $n;
+  }
+
+
+  # Encrypting a write() to a filehandle is much easier than reading, because
+  # all the data to be encrypted is immediately available
+  sub WRITE {
+    my ($self, undef, $len, $offset) = @_;
+    my $debug = $self->{conn}->{debug};
+
+    my $fh = $self->{fh};
+
+    # put on wire in peer-sized chunks
+    my $bsz = $self->{sndbufsz};
+    while ($len > 0) {
+      print STDERR " [WRITE: chunk $bsz/$len]\n"
+        if ($debug & 8);
+
+      # call mechanism specific encoding routine
+      my $x = $self->{conn}->encode(substr($_[1], $offset || 0, $bsz));
+      print $fh pack('N', length($x)), $x;
+      $len -= $bsz;
+      $offset += $bsz;
+    }
+
+    return $_[2];
+  }
+
+}
+
+1;