From 81a44fad38c1ca03878225c652daf44f8ae3cb1c Mon Sep 17 00:00:00 2001
From: caes <xaw5719@wmich.edu>
Date: Fri, 17 Jun 2016 03:14:30 -0400
Subject: [PATCH] finally on right track with perl plotting program. generating
 gnuplot script and running with system call.

---
 scripts/extract_power_curve.pl | 17 -----------------
 scripts/lc_plot.pl             | 19 +++++++++++++++++++
 scripts/uninstall.pl           | 26 --------------------------
 3 files changed, 19 insertions(+), 43 deletions(-)
 delete mode 100755 scripts/extract_power_curve.pl
 create mode 100755 scripts/lc_plot.pl
 delete mode 100755 scripts/uninstall.pl

diff --git a/scripts/extract_power_curve.pl b/scripts/extract_power_curve.pl
deleted file mode 100755
index b933d89..0000000
--- a/scripts/extract_power_curve.pl
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/local/bin/perl
-
-use Graphics::GnuplotIF;
-my $plot = Graphics::GnuplotIF->new (
-    style        => 'histogram', # one of the gnuplot line     styles (see below)
-    title        => "$mytitle",      # string
-    xlabel       => '$myxlabel',     # string
-    ylabel       => '$myylabel',     # string
-    xrange       => [@myxrange],      # array reference; autoscaling, if empty
-    yrange       => [@myyrange],      # array reference; autoscaling, if empty
-    plot_titles  => [ "$titles" ],      # array of strings; titles used in the legend
-    persist      => 0,       # let plot windows survive after gnuplot exits
-                             # 0 : close / 1 : survive
-    );
-
-    $plot_glacier->gnuplot_plot_xy ( \@x, \@y );
-    $plot_glacier->gnuplot_pause();
diff --git a/scripts/lc_plot.pl b/scripts/lc_plot.pl
new file mode 100755
index 0000000..a1e1d6f
--- /dev/null
+++ b/scripts/lc_plot.pl
@@ -0,0 +1,19 @@
+#!/usr/local/bin/perl
+
+use utf8;
+use Encode qw(encode decode);
+use feature 'say';
+use locale;
+
+if !${^UTF8LOCALE} {
+    say "You are not using UTF-8 encoding. :("
+}
+my $charset=$ENV{LANG};
+our $driving_curve_name=decode($charset,$ARGV[0]);
+our @reprocessed_curves = [];
+while (my $)
+our $driving_curve_name=decode($charset,$ARGV[0]);
+open $driving_curve_file,$driving_curve_name,< or die $!;
+
+
+
diff --git a/scripts/uninstall.pl b/scripts/uninstall.pl
deleted file mode 100755
index 75a18af..0000000
--- a/scripts/uninstall.pl
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/usr/local/bin/perl
-
-# uninstall_perl_module.pl from PerlTricks.com
-
-use 5.14.2;
-use ExtUtils::Installed;
-use ExtUtils::Packlist;
-
-# Exit unless a module name was passed
-die ("Error: no Module::Name passed as an argument. E.G.\n\t perl $0 Module::Name\n") unless $#ARGV == 0;
-
-my $module = shift @ARGV;
-
-my $installed_modules = ExtUtils::Installed->new;
-
-# iterate through and try to delete every file associated with the module
-foreach my $file ($installed_modules->files($module)) {
-    print "removing $file\n";
-    unlink $file or warn "could not remove $file: $!\n";
-}
-
-# delete the module packfile
-my $packfile = $installed_modules->packlist($module)->packlist_file;
-print "removing $packfile\n";
-unlink $packfile or warn "could not remove $packfile: $!\n";
-