rpl/src/librpl.c - diff

Return to librpl.c CVS log

Up to [local] / rpl / src

version 1.17, 2010/09/23 15:27:41	version 1.48, 2013/10/04 07:54:50
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.20	RPL/2 (R) version 4.1.16
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

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

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

unsigned char **	unsigned char **
rpl(unsigned char script, unsigned char rpl_home)	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[0] = "rpl";	argv[2] = script;
argv[1] = "-psS";	}
	else
	{
	argc = 5;

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

	argv[2] = script;

	argv[3] = "-A";
	argv[4] = parametres;
	}

if ((resultats = malloc(sizeof(unsigned char **))) == NULL)	if ((resultats = malloc(sizeof(unsigned char **))) == NULL)
{	{
Line 49 rpl(unsigned char *script, unsigned char	Line 64 rpl(unsigned char *script, unsigned char
rpl_home = getenv("RPL_HOME");	rpl_home = getenv("RPL_HOME");
}	}

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

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