diff options
Diffstat (limited to 'src/extension/script/InkscapePerl.cpp')
| -rw-r--r-- | src/extension/script/InkscapePerl.cpp | 80 |
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 -//######################################################################### |
