← Back to branch summary

~ubuntu-branches/ubuntu/trusty/kvirc/trusty-proposed

« back to all changes in this revision

Viewing changes to src/modules/perlcore/libkviperlcore.cpp

  • Committer: Bazaar Package Importer
  • Author(s): Kai Wasserbäch, Kai Wasserbäch, Raúl Sánchez Siles
  • Date: 2011-02-12 10:40:21 UTC
  • mfrom: (14.1.3 sid)
  • Revision ID: james.westby@ubuntu.com-20110212104021-5mh4f75jlku20mnt
The combined "Twisted Experiment" and "Nocturnal Raid" release.

[ Kai Wasserbäch ]
* Synced to upstream's SVN revision 5467.
* debian/rules:
  - Added .PHONY line.
  - Resurrect -DMANUAL_REVISION, got lost somewhere and we build SVN
    revisions again.
  - Replace "-DWITH_NO_EMBEDDED_CODE=YES" with "-DWANT_CRYPTOPP=YES".
  - Change the remaining -DWITH/-DWITHOUT to the new -DWANT syntax.
* debian/control:
  - Removed DMUA, I'm a DD now.
  - Changed my e-mail address.
  - Removed unneeded relationships (no upgrades over two releases are
    supported).
  - Fix Suggests for kvirc-dbg.
  - kvirc-data: Make the "Suggests: kvirc" a Recommends, doesn't make much
    sense to install the -data package without the program.
* debian/source/local-options: Added with "unapply-patches".
* debian/kvirc.lintian-overrides: Updated to work for 4.1.1.
* debian/patches/21_make_shared-mime-info_B-D_superfluous.patch: Updated.
* debian/kvirc-data.install: Added .notifyrc.

[ Raúl Sánchez Siles ]
* Stating the right version where kvirc-data break and replace should happen.
* Fixing link to license file.
* Added French and Portuguese man pages.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/modules/perlcore/libkviperlcore.cpp
3
3
//   File : libkviperlcore.cpp
4
4
//   Creation date : Tue Jul 13 13:03:31 2004 GMT by Szymon Stefanek
5
5
//
6
 
//   This file is part of the KVirc irc client distribution
7
 
//   Copyright (C) 2004-2008 Szymon Stefanek (pragma at kvirc dot net)
 
6
//   This file is part of the KVIrc irc client distribution
 
7
//   Copyright (C) 2004-2010 Szymon Stefanek (pragma at kvirc dot net)
8
8
//
9
9
//   This program is FREE software. You can redistribute it and/or
10
10
//   modify it under the terms of the GNU General Public License
22
22
//
23
23
//=============================================================================
24
24
 
25
 
#include "kvi_module.h"
 
25
#include "KviModule.h"
26
26
#include "kvi_settings.h"
27
 
#include "kvi_locale.h"
 
27
#include "KviLocale.h"
28
28
#include "kvi_out.h"
29
 
#include "kvi_window.h"
30
 
#include "kvi_app.h"
31
 
#include "kvi_kvs_script.h"
32
 
#include "kvi_kvs_variant.h"
33
 
#include "kvi_userinput.h"
34
 
#include "kvi_pointerhashtable.h"
 
29
#include "KviWindow.h"
 
30
#include "KviApplication.h"
 
31
#include "KviKvsScript.h"
 
32
#include "KviKvsVariant.h"
 
33
#include "KviUserInput.h"
 
34
#include "KviPointerHashTable.h"
35
35
 
36
36
#include <QByteArray>
37
37
 
70
70
 
71
71
        #include "ppport.h"
72
72
 
73
 
        #include "kvi_kvs_runtimecontext.h"
 
73
        #include "KviKvsRunTimeContext.h"
74
74
 
75
75
        static KviKvsRunTimeContext * g_pCurrentKvsContext = 0;
76
76
        static bool g_bExecuteQuiet = false;
77
 
        static KviStr g_szLastReturnValue("");
 
77
        static KviCString g_szLastReturnValue("");
78
78
        static QStringList g_lWarningList;
79
79
 
80
80
        #include "xs.inc"
179
179
        // declaration could be dropped as well...
180
180
        // I just haven't tried :D
181
181
 
182
 
        KviQString::sprintf(
183
 
                szInitCode,
 
182
        szInitCode = QString(
184
183
                "{\n" \
185
184
                        "package KVIrc;\n" \
186
185
                        "require Exporter;\n" \
187
186
                        "our @ISA = qw(Exporter);\n" \
188
187
                        "1;\n" \
189
188
                "}\n" \
190
 
                "$g_szContext = \"%Q\";\n" \
 
189
                "$g_szContext = \"%1\";\n" \
191
190
                "$g_bExecuteQuiet = 0;\n" \
192
191
                "$SIG{__WARN__} = sub\n" \
193
192
                "{\n" \
195
194
                "       ($p,$f,$l) = caller;\n" \
196
195
                "       KVIrc::internalWarning(\"At line \".$l.\" of perl code: \");\n" \
197
196
                "       KVIrc::internalWarning(join(' ',@_));\n" \
198
 
                "}\n",
199
 
                &m_szContextName);
 
197
                "}\n").arg(m_szContextName);
200
198
 
201
199
        eval_pv(szInitCode.toUtf8().data(),false);
202
200
        return true;