[p5sagit/p5-mst-13.2.git] / NetWare / interface.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     :   interface.c
 * DESCRIPTION  :   Perl parsing and running functions.
 * Author       :   SGP
 * Date Created :   January 2001.
 * Date Modified:   July 2nd 2001. 
 */


#ifndef __Interface_H__
#define __Interface_H__


#include "iperlhost.h"


class ClsPerlHost :	public IPerlHost
{
public:
	ClsPerlHost(void);
	virtual ~ClsPerlHost(void);

	int VersionNumber();

	int PerlCreate(PerlInterpreter *my_perl);
	int PerlParse(PerlInterpreter *my_perl, int argc, char** argv, char** env);
	int PerlRun(PerlInterpreter *my_perl);
	void PerlDestroy(PerlInterpreter *my_perl);
	bool RegisterWithThreadTable(void);
	bool UnregisterWithThreadTable(void);
};


#endif	// __Interface_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	/*
9219c8de	11	* FILENAME : interface.c
	12	* DESCRIPTION : Perl parsing and running functions.
	13	* Author : SGP
	14	* Date Created : January 2001.
	15	* Date Modified: July 2nd 2001.
2986a63f	16	*/
	17
	18
	19
	20	#ifndef __Interface_H__
	21	#define __Interface_H__
	22
	23
	24	#include "iperlhost.h"
	25
	26
	27	class ClsPerlHost : public IPerlHost
	28	{
	29	public:
	30	ClsPerlHost(void);
	31	virtual ~ClsPerlHost(void);
	32
	33	int VersionNumber();
	34
	35	int PerlCreate(PerlInterpreter *my_perl);
	36	int PerlParse(PerlInterpreter my_perl, int argc, char* argv, char** env);
	37	int PerlRun(PerlInterpreter *my_perl);
	38	void PerlDestroy(PerlInterpreter *my_perl);
9219c8de	39	bool RegisterWithThreadTable(void);
9219c8de	40	bool UnregisterWithThreadTable(void);
2986a63f	41	};
	42
	43
	44	#endif // __Interface_H__
	45