From 5421346cad32ea60be596291c74200bed21c2ef2 Mon Sep 17 00:00:00 2001 From: Bob Jamison Date: Mon, 10 Mar 2008 00:03:28 +0000 Subject: Switch to newer binding stuff (bzr r5016) --- src/extension/script/InkscapePerl.cpp | 80 ----------------------------------- 1 file changed, 80 deletions(-) delete mode 100644 src/extension/script/InkscapePerl.cpp (limited to 'src/extension/script/InkscapePerl.cpp') 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 - * - * 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 - -#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 -//######################################################################### -- cgit v1.2.3