[p5sagit/p5-mst-13.2.git] / NetWare / iperlhost.h


/*
 * Copyright © 2001 Novell, Inc. All Rights Reserved.
 *
 * You may distribute under the terms of either the GNU General Public
 * License or the Artistic License, as specified in the README file.
 *
 */

/*
 * FILENAME		:	iperlhost.h
 * DESCRIPTION	:	IPerlHost class file.
 * Author		:	SGP
 * Date			:	January 2001.
 *
 */


#ifndef __iPerlHost_H__
#define __iPerlHost_H__


#include "EXTERN.h"
#include "perl.h"


class IPerlHost
{
public:
	virtual int VersionNumber() = 0;

	virtual int PerlCreate(PerlInterpreter *my_perl) = 0;
	virtual int PerlParse(PerlInterpreter *my_perl,int argc, char** argv, char** env) = 0;
	virtual int PerlRun(PerlInterpreter *my_perl) = 0;
	virtual void PerlDestroy(PerlInterpreter *my_perl) = 0;

};

extern "C" IPerlHost* AllocStdPerl();
extern "C" void FreeStdPerl(IPerlHost* pPerlHost);


#endif	// __iPerlHost_H__
Commit	Line	Data
2986a63f	1
	2	/*
	3	* Copyright © 2001 Novell, Inc. All Rights Reserved.
	4	*
	5	* You may distribute under the terms of either the GNU General Public
	6	* License or the Artistic License, as specified in the README file.
	7	*
	8	*/
	9
	10	/*
	11	* FILENAME : iperlhost.h
	12	* DESCRIPTION : IPerlHost class file.
	13	* Author : SGP
	14	* Date : January 2001.
	15	*
	16	*/
	17
	18
	19
	20	#ifndef __iPerlHost_H__
	21	#define __iPerlHost_H__
	22
	23
	24	#include "EXTERN.h"
	25	#include "perl.h"
	26
	27
	28	class IPerlHost
	29	{
	30	public:
	31	virtual int VersionNumber() = 0;
	32
	33	virtual int PerlCreate(PerlInterpreter *my_perl) = 0;
	34	virtual int PerlParse(PerlInterpreter my_perl,int argc, char* argv, char** env) = 0;
	35	virtual int PerlRun(PerlInterpreter *my_perl) = 0;
	36	virtual void PerlDestroy(PerlInterpreter *my_perl) = 0;
	37
	38	};
	39
	40	extern "C" IPerlHost* AllocStdPerl();
	41	extern "C" void FreeStdPerl(IPerlHost* pPerlHost);
	42
	43
	44	#endif // __iPerlHost_H__
	45