mirror of
https://git.mirrors.martin98.com/https://github.com/prusa3d/PrusaSlicer.git
synced 2025-07-28 16:12:01 +08:00
47 lines
1.4 KiB
Perl
47 lines
1.4 KiB
Perl
#/|/ Copyright (c) Prusa Research 2016 - 2022 Vojtěch Bubník @bubnikv
|
|
#/|/ Copyright (c) 2017 Joseph Lenox @lordofhyphens
|
|
#/|/ Copyright (c) Slic3r 2011 - 2016 Alessandro Ranellucci @alranel
|
|
#/|/ Copyright (c) 2015 Alexander Rössler @machinekoder
|
|
#/|/ Copyright (c) 2012 Henrik Brix Andersen @henrikbrixandersen
|
|
#/|/ Copyright (c) 2012 Mark Hindess
|
|
#/|/ Copyright (c) 2012 Josh McCullough
|
|
#/|/ Copyright (c) 2011 - 2012 Michael Moon
|
|
#/|/ Copyright (c) 2012 Simon George
|
|
#/|/ Copyright (c) 2012 Johannes Reinhardt
|
|
#/|/ Copyright (c) 2011 Clarence Risher
|
|
#/|/
|
|
#/|/ PrusaSlicer is released under the terms of the AGPLv3 or higher
|
|
#/|/
|
|
# Extends C++ class Slic3r::DynamicPrintConfig
|
|
# This perl class does not keep any perl class variables,
|
|
# all the storage is handled by the underlying C++ code.
|
|
package Slic3r::Config;
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
|
|
use List::Util qw(first max);
|
|
|
|
# C++ Slic3r::PrintConfigDef exported as a Perl hash of hashes.
|
|
# The C++ counterpart is a constant singleton.
|
|
our $Options = print_config_def();
|
|
|
|
# Generate accessors.
|
|
{
|
|
no strict 'refs';
|
|
for my $opt_key (keys %$Options) {
|
|
*{$opt_key} = sub {
|
|
#print "Slic3r::Config::accessor $opt_key\n";
|
|
$_[0]->get($opt_key)
|
|
};
|
|
}
|
|
}
|
|
|
|
package Slic3r::Config::Static;
|
|
use parent 'Slic3r::Config';
|
|
|
|
sub Slic3r::Config::GCode::new { Slic3r::Config::Static::new_GCodeConfig }
|
|
sub Slic3r::Config::Print::new { Slic3r::Config::Static::new_PrintConfig }
|
|
|
|
1;
|