From 19ce561d9561de57e6639bc15762017407da85c5 Mon Sep 17 00:00:00 2001
From: Martin Goik <goik@hdm-stuttgart.de>
Date: Thu, 14 Jan 2016 00:05:07 +0100
Subject: [PATCH] New converter
---
bin/figspecial2svg | 55 ++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 55 insertions(+)
create mode 100755 bin/figspecial2svg
diff --git a/bin/figspecial2svg b/bin/figspecial2svg
new file mode 100755
index 000000000..725ad527c
--- /dev/null
+++ b/bin/figspecial2svg
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+# uses imagemagic, pdftex,...
+
+use strict;
+
+my $localPid = `echo -n $$`;
+
+system ("echo figspecial2svg $localPid >> /tmp/figspecial2svg.log");
+
+#my $args= join(':', @ARGV);
+#print "figspecial2png $args \n";
+#system("pwd >> /tmp/figresult");
+
+my $argCount = $#ARGV;
+if (1 != $argCount) {
+ die "usage: figspecial2png figFile pngFile" ;
+} else {
+ my ($figFileName, $pngResultFileName) = @ARGV;
+ my $figFileBasename = $figFileName;
+ $figFileBasename =~ s/\.fig$//;
+ system("fig2pdf --nogv $figFileName");
+ system("pdf2svg $figFileBasename.pdf $pngResultFileName && rm -f $figFileBasename.pdf");
+}
+
+#my $tmpDir = '/tmp/gendir';
+# my @pathComponents = split('/', $figFileName);
+# my ($figFileBasename) = $pathComponents[$#pathComponents];
+# $figFileBasename =~ s/\.fig$//;
+# my ($figFileBasedir) = join('/', @pathComponents[0..$#pathComponents-1]);
+
+# my $generateDir = $tmpDir . $figFileBasedir;
+# my $pngGenerateFile = $generateDir . '/' . $figFileBasename . '.png';
+# my $pdfGenerateFile = $generateDir . '/' . $figFileBasename . '.pdf';
+
+# if ((-r $pngGenerateFile) && ((stat($pngGenerateFile))[9] > (stat($figFileName))[9])) {
+# # print $pngGenerateFile , " exists and is newer than ", $figFileName, "\n";
+# } else {
+# # print $pngGenerateFile , " does not exist or is older than $figFileName\n";
+# &execCmd("mkdir -p " . $generateDir);
+# my $convertResult = &execCmd("fig2dev -L pstex $figFileName | epstopdf -f > $pdfGenerateFile");
+
+# if (1 == $argCount && 0 == $convertResult) {
+# &execCmd("convert " . $pdfGenerateFile . " " . $pngGenerateFile);
+# }
+# }
+
+# &execCmd("cp " . $pngGenerateFile . ' ' . $pngResultFileName);
+
+ sub execCmd {
+ my ($cmd) = @_;
+ # system("echo ---'$cmd' >> /tmp/figresult");
+ return system("cd /tmp;$cmd 2>>/tmp/figresult");
+ }
+
+;
--
GitLab