Diff for /rpl/src/librpl.c between versions 1.1.1.1 and 1.63

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)
     {      {

Removed from v.1.1.1.1  
changed lines
  Added in v.1.63


CVSweb interface <joel.bertrand@systella.fr>