Laboratoire de l'Informatique et du Parallélisme » Pobyso

/** @file test-pobyso-subpoly.c

 * Name & purpose

 *

 * @author

 * @date

 *

 * @details Verbosity manipulation are performed  to make sur  that verbosity

 *  suppression is correctly managed in pobyso_is_constant_expression()

 *  function.

 */

/******************************************************************************/

/* Headers, applying the "particular to general" convention.*/

#include "pobyso.h"

/* includes of local headers */

/* includes of project headers */

/* includes of system headers */

#include <stdlib.h>

/* Other declarations */

/* Internal prototypes */

long int

read_long_decimal(long int* value, char* string);

long int

read_unsigned_long_decimal(long int* value, char* string);

/* Types, constants and macros definitions */

/* Global variables */

/* Functions */

long int

read_long_decimal(long int* returnValue, char* string)

{

  char* endptr[1];

  long int convertedValue = 0;

  convertedValue = strtoul(string, endptr, 10);

  /* For a completely safe conversion *endptr must point to 0 value char. */

  if (**endptr != '\0')

  {

    return 1;

  }

  else

  {

    *returnValue = convertedValue;

    return 0;

  }

  return 0;

} /* End read_long_decimal. */

long int

read_unsigned_long_decimal(long int* returnValue, char* string)

{

  char* endptr[1];

  long int convertedValue = 0;

  /* Negative sign -> failure. */

  if (*string == '-')

  {

    return 1;

  }

  convertedValue = strtoul(string, endptr, 10);

  /* For a completely safe conversion *endptr must point to 0 value char. */

  if (**endptr != '\0')

  {

    return 1;

  }

  else

  {

    *returnValue = convertedValue;

    return 0;

  }

  return 0;

} /* End read_unsigned_long_decimal. */

int

main(int argc, char** argv)

{

  long int* expsArray   = NULL;

  int i;

  pobyso_func_exp_t polynomial;

  pobyso_func_exp_t subpoly;

  if (argc < 3)

  {

    fprintf(stderr,

            "Usage: %s polynomialAsString power1 [power2 [...[powern]..]\n",

            argv[0]);

    return 1;

  }

  pobyso_set_canonical_on();

  polynomial = pobyso_parse_string(argv[1]);

  if (polynomial == NULL)

  {

    fprintf(stderr,

            "%s: can't create the polynomial.\n",

            argv[0]);

    return 1;

  }

  pobyso_autoprint(polynomial);

  expsArray = (long int*) malloc((argc - 2) * sizeof(long int));

  if (expsArray == NULL)

  {

    fprintf(stderr,

            "%s: can't create the exponents array.\n",

            argv[0]);

    return 1;

  }

  for (i = 2 ; i < argc ; i++)

  {

    if (read_long_decimal(&(expsArray[i - 2]), argv[i]))

    {

      fprintf(stderr,

              "%s: can't read exponent \"%s\".\n",

              argv[0],

              argv[i]);

      return 1;

    }

  }

  subpoly = pobyso_subpoly(polynomial, argc - 2, expsArray);

  if (subpoly == NULL)

  {

    return 1;

  }

  else

  {

    pobyso_autoprint(subpoly);

    return 0;

  }

} /* End main */