Click here to Skip to main content
12,449,919 members (46,547 online)
Click here to Skip to main content

Stats

167K views
719 downloads
44 bookmarked
Posted

PXPerlWrap (PXPerl, reloaded)

, 3 Nov 2004
A comprehensive Perl embedding solution.
PXPerlDemo.dsp
PXPerlDemo.dsw
PXPerlDemo.suo
PERL_CORE
arpa
perl58.lib
PerlEz.lib
sys
Release
lib
auto
PerlIO
encoding
encoding.dll
scalar
scalar.dll
via
via.dll
Carp.pm
Exporter.pm
PerlIO
encoding.pm
scalar.pm
via
QuotedPrint.pm
via.pm
PerlIO.pm
strict.pm
Symbol.pm
THESE ARE REQUIRED LIBs
warnings.pm
XSLoader.pm
perl58.dll
PXPerlDemo.exe
res
perl.ico
perl2.ico
perl3.ico
perlsistent.pl
PXPerlDemo.ico
PXPerlDemo.manifest
PXPerlDemo.clw
PXPerlDemo.mak
PXPerlDemo.mak
PXPerlDemo.dsp
PXPerlDemo.dsw
PXPerlDemo.suo
perl58.lib
PerlEz.lib
encoding.dll
scalar.dll
via.dll
Carp.pm
Exporter.pm
encoding.pm
scalar.pm
QuotedPrint.pm
via.pm
PerlIO.pm
strict.pm
Symbol.pm
THESE ARE REQUIRED LIBs
warnings.pm
XSLoader.pm
perl58.dll
PXPerlDemo.exe
perl.ico
perl2.ico
perl3.ico
perlsistent.pl
PXPerlDemo.ico
PXPerlDemo.manifest
PXPerlDemo.aps
PXPerlDemo.clw
PXPerlDemo.dep
PXPerlDemo.opt
PXPerlDemo.plg
// PXPerlDemoDlg.cpp : implementation file
//

#include "stdafx.h"
#include "PXPerlDemo.h"
#include "PXPerlDemoDlg.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App About

class CAboutDlg : public CDialog
{
public:
	CAboutDlg();

// Dialog Data
	//{{AFX_DATA(CAboutDlg)
	enum { IDD = IDD_ABOUTBOX };
	//}}AFX_DATA

	// ClassWizard generated virtual function overrides
	//{{AFX_VIRTUAL(CAboutDlg)
	protected:
	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
	//}}AFX_VIRTUAL

// Implementation
protected:
	//{{AFX_MSG(CAboutDlg)
	//}}AFX_MSG
	DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
	//{{AFX_DATA_INIT(CAboutDlg)
	//}}AFX_DATA_INIT
}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CAboutDlg)
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
	//{{AFX_MSG_MAP(CAboutDlg)
		// No message handlers
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CPXPerlDemoDlg dialog

CPXPerlDemoDlg::CPXPerlDemoDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CPXPerlDemoDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CPXPerlDemoDlg)
	m_strRichEdit = _T("print qq(Powers of Two :\\n);\n\
print($_, q( : ), 2 ** $_, qq(\\n)) for (0..int rand 1000);\n\nwarn 'Everything is ok';\n");
	m_strSTDERR = _T("");
	m_strSTDOUT = _T("");
	//}}AFX_DATA_INIT
	// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CPXPerlDemoDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CPXPerlDemoDlg)
	DDX_Text(pDX, IDC_RICHEDIT, m_strRichEdit);
	DDX_Text(pDX, IDC_STDERR, m_strSTDERR);
	DDX_Text(pDX, IDC_STDOUT, m_strSTDOUT);
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CPXPerlDemoDlg, CDialog)
	//{{AFX_MSG_MAP(CPXPerlDemoDlg)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	ON_BN_CLICKED(IDC_EXEC, OnExec)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CPXPerlDemoDlg message handlers

BOOL CPXPerlDemoDlg::OnInitDialog()
{
	CDialog::OnInitDialog();

	// Add "About..." menu item to system menu.

	// IDM_ABOUTBOX must be in the system command range.
	ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
	ASSERT(IDM_ABOUTBOX < 0xF000);

	CMenu* pSysMenu = GetSystemMenu(FALSE);
	if (pSysMenu != NULL)
	{
		CString strAboutMenu;
		strAboutMenu.LoadString(IDS_ABOUTBOX);
		if (!strAboutMenu.IsEmpty())
		{
			pSysMenu->AppendMenu(MF_SEPARATOR);
			pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
		}
	}

	// Set the icon for this dialog.  The framework does this automatically
	//  when the application's main window is not a dialog
	SetIcon(m_hIcon, TRUE);			// Set big icon
	SetIcon(m_hIcon, FALSE);		// Set small icon
	
	// TODO: Add extra initialization here
	
	return TRUE;  // return TRUE  unless you set the focus to a control
}

void CPXPerlDemoDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
	if ((nID & 0xFFF0) == IDM_ABOUTBOX)
	{
		CAboutDlg dlgAbout;
		dlgAbout.DoModal();
	}
	else
	{
		CDialog::OnSysCommand(nID, lParam);
	}
}

// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.

void CPXPerlDemoDlg::OnPaint() 
{
	if (IsIconic())
	{
		CPaintDC dc(this); // device context for painting

		SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);

		// Center icon in client rectangle
		int cxIcon = GetSystemMetrics(SM_CXICON);
		int cyIcon = GetSystemMetrics(SM_CYICON);
		CRect rect;
		GetClientRect(&rect);
		int x = (rect.Width() - cxIcon + 1) / 2;
		int y = (rect.Height() - cyIcon + 1) / 2;

		// Draw the icon
		dc.DrawIcon(x, y, m_hIcon);
	}
	else
	{
		CDialog::OnPaint();
	}
}

// The system calls this to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CPXPerlDemoDlg::OnQueryDragIcon()
{
	return (HCURSOR) m_hIcon;
}

void CPXPerlDemoDlg::OnOK() 
{
	// TODO: Add extra validation here
	
	CDialog::OnOK();
}

void CPXPerlDemoDlg::OnCancel() 
{
	// TODO: Add extra cleanup here
	
	CDialog::OnCancel();
}

void CPXPerlDemoDlg::OnExec() 
{
	UpdateData();

	if (m_strRichEdit.IsEmpty())
	{
		::MessageBeep((UINT)-1);
		return;
	}

	if (m_perl.Load()) // does nothing if already loaded, just returns true
	{
		if (!m_perl.DoScript(LPCSTR(m_strRichEdit)))
			::MessageBeep((UINT)-1);
	}
	
	/*if (m_perl.Load()) // does nothing if already loaded, just returns true
	{
		TRACE("Load ok\n");
		CScript script = m_perl.Compile("name", "%hash = (abc=>'test', def=>'test2');");
		TRACE("Compile ok\n");
		m_perl.Exec(script);
		TRACE("Exec ok\n");

		CMapStringToString hash;
		m_perl.GetHash(script, "hash", hash);

		AfxMessageBox(hash["abc"]);
		AfxMessageBox(hash["def"]);

		hash["def"] = "hello!!!";

		m_perl.SetHash(script, "hash", hash);
		m_perl.GetHash(script, "hash", hash);
		AfxMessageBox(hash["abc"]);
		AfxMessageBox(hash["def"]);

		m_perl.Clean(script);
	}*/

	m_strSTDERR.Empty();
	m_strSTDOUT.Empty();

	m_perl.GetSTDERR(m_strSTDERR);
	m_perl.GetSTDOUT(m_strSTDOUT);
	
	/*
	if (m_perl.Load()) // does nothing if already loaded, just returns true
	{
		TRACE("Load ok\n");
		CScript script = m_perl.Compile("name", m_strRichEdit);
		
		if (m_perl.GetSTDERR(m_strSTDERR))
		{
			UpdateData(false);
			return;
		}
		TRACE("Compile ok\n");
		m_perl.Exec(script);
		if (m_perl.GetSTDERR(m_strSTDERR))
		{
			UpdateData(false);
			return;
		}
		TRACE("Exec ok\n");
		m_perl.Clean(script);
		
		if (m_perl.GetSTDOUT(m_strSTDOUT))
			TRACE("m_strSTDOUT ok\n");
	}
	else
	{
		m_perl.GetSTDERR(m_strSTDERR);
	}*/

	UpdateData(false);
}

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

PixiGreg
Software Developer
France France
Bouh

You may also be interested in...

Pro
Pro
| Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.160826.1 | Last Updated 3 Nov 2004
Article Copyright 2003 by PixiGreg
Everything else Copyright © CodeProject, 1999-2016
Layout: fixed | fluid