rpl/src/librpl.c - diff

Return to librpl.c CVS log

Up to [local] / rpl / src

version 1.1.1.1, 2010/01/26 15:22:44	version 1.63, 2017/06/28 09:20:38
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.9	RPL/2 (R) version 4.1.27
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2017 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"

unsigned char **	unsigned char **
rpl(unsigned char *script)	rpl(unsigned char script, unsigned char parametres, unsigned char *rpl_home)
{	{
char *argv[3];	char *argv[5];

int argc;	int argc;
int succes;	int succes;

unsigned char **resultats;	unsigned char **resultats;

argc = 3;	if (parametres == NULL)
	{
	argc = 3;

	argv[0] = "rpl";
	argv[1] = "-psS";

	argv[2] = script;
	}
	else
	{
	argc = 5;

argv[0] = "rpl";	argv[0] = "rpl";
argv[1] = "-csS";	argv[1] = "-psS";

argv[2] = script;	argv[2] = script;

if ((resultats = malloc(sizeof(unsigned char **))) == NULL)	argv[3] = "-A";
	argv[4] = parametres;
	}

	if ((resultats = sys_malloc(sizeof(unsigned char **))) == NULL)
{	{
return(NULL);	return(NULL);
}	}

succes = rplinit(argc, argv, &resultats);	if (rpl_home == NULL)
	{
	rpl_home = getenv("RPL_HOME");
	}

	succes = rplinit(argc, argv, NULL, &resultats, rpl_home);

if (succes != EXIT_SUCCESS)	if (succes != EXIT_SUCCESS)
{	{