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

/** @file test-pobyso-monomial-int.c

 * Name & purpose

 *

 * @author S.T.

 * @date 2014-11-14

 *

 */

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

/* 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 */

int

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

int

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

/* Types, constants and macros definitions */

/* Global variables */

/* Functions */

int

read_long_decimal(long int* returnValue, char* string)

{

  char* endptr[1];

  long int convertedValue = 0;

  convertedValue = strtol(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;

  }

} /* End read_long_decimal. */

int

read_unsigned_long_decimal(long unsigned 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;

  }

} /* End read_unsigned_long_decimal. */

int

main(int argc, char** argv)

{

  pobyso_func_exp_t expressionSo = NULL;

  int outcome = 1;

  sollya_lib_init();

  /* No command line argument test the function with the NULL argument. */

  if (argc == 1)

  {

    outcome = pobyso_is_monomial(expressionSo);

    sollya_lib_close();

    return ! outcome;

  }

  pobyso_set_canonical_on();

  expressionSo = pobyso_parse_string(argv[1]);

  if (expressionSo != NULL)

  {

    fprintf(stdout, "Sollya expression: ");

    pobyso_autoprint(expressionSo);

  }

  else

  {

    fprintf(stdout, "NULL expression");

  }

  if (pobyso_is_monomial(expressionSo))

  {

    sollya_lib_close();

    return 0;

  }

  else

  {

    sollya_lib_close();

    return 1;

  }

} /* End main */