summaryrefslogtreecommitdiffstats
path: root/src/extension/script/InkscapePerl.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/extension/script/InkscapePerl.cpp')
-rw-r--r--src/extension/script/InkscapePerl.cpp80
1 files changed, 0 insertions, 80 deletions
diff --git a/src/extension/script/InkscapePerl.cpp b/src/extension/script/InkscapePerl.cpp
deleted file mode 100644
index 1a4c61bcc..000000000
--- a/src/extension/script/InkscapePerl.cpp
+++ /dev/null
@@ -1,80 +0,0 @@
-/**
- * Perl Interpreter wrapper for Inkscape
- *
- * Authors:
- * Bob Jamison <rjamison@titan.com>
- *
- * Copyright (C) 2004 Authors
- *
- * Released under GNU GPL, read the file 'COPYING' for more information
- */
-
-
-
-#include "InkscapePerl.h"
-
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-
-#include <stdio.h>
-
-#include "inkscape_perl.pm.h"
-
-/*
- * Generated by SWIG
- */
-extern "C" int
-InkscapePerlParseBuf(char *startupCodeBuf, char *codeBuf);
-
-namespace Inkscape {
-namespace Extension {
-namespace Script {
-
-
-/*
- *
- */
-InkscapePerl::InkscapePerl()
-{
-}
-
-
-
-/*
- *
- */
-InkscapePerl::~InkscapePerl()
-{
-
-}
-
-
-
-
-
-bool InkscapePerl::interpretScript(const Glib::ustring &script,
- Glib::ustring &output,
- Glib::ustring &error)
-{
- char *codeBuf = (char *)script.raw().c_str();
- int ret = InkscapePerlParseBuf(inkscape_module_script, codeBuf);
- if (!ret)
- {
- return false;
- }
- return true;
-}
-
-
-
-
-
-} // namespace Script
-} // namespace Extension
-} // namespace Inkscape
-
-//#########################################################################
-//# E N D O F F I L E
-//#########################################################################