--- rpl/src/librpl.c 2010/01/26 15:22:44 1.1.1.1 +++ rpl/src/librpl.c 2011/06/21 15:26:35 1.24 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.9 - Copyright (C) 1989-2010 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.0.prerelease.2 + Copyright (C) 1989-2011 Dr. BERTRAND Joël This file is part of RPL/2. @@ -20,10 +20,10 @@ */ -#include "rpl.conv.h" +#include "rpl-conv.h" unsigned char ** -rpl(unsigned char *script) +rpl(unsigned char *script, unsigned char *rpl_home) { char *argv[3]; @@ -35,7 +35,7 @@ rpl(unsigned char *script) argc = 3; argv[0] = "rpl"; - argv[1] = "-csS"; + argv[1] = "-psS"; argv[2] = script; @@ -44,7 +44,12 @@ rpl(unsigned char *script) return(NULL); } - succes = rplinit(argc, argv, &resultats); + if (rpl_home == NULL) + { + rpl_home = getenv("RPL_HOME"); + } + + succes = rplinit(argc, argv, &resultats, rpl_home); if (succes != EXIT_SUCCESS) {