/* nag_enum_value_to_name (x04nbc) Example Program.
 *
 * Copyright 2023 Numerical Algorithms Group.
 *
 * Mark 29.1, 2023.
 */

#include <nag.h>
#include <stdio.h>

int main(void) {
  /* Scalars */
  Integer exit_status = 0;
  Nag_OrderType order;
  Nag_TransType trans;
  Nag_DiagType unitdiag;
  Nag_MatrixType matrix;

  /* Pointers */
  const char *str_order, *str_trans, *str_matrix, *str_unitdiag;
  const char *status;

  printf("nag_enum_value_to_name (x04nbc) Example Program Results\n\n");

  /* Set some Nag types using enum member names */
  order = Nag_ColMajor;
  trans = Nag_Trans;
  matrix = Nag_GeneralMatrix;
  unitdiag = Nag_NonUnitDiag;

  /* Convert the values held by these typed variables to strings */

  /* nag_enum_value_to_name (x04nbc).
   * Converts NAG enum member value to its name
   */
  str_order = nag_enum_value_to_name(order);
  str_trans = nag_enum_value_to_name(trans);
  str_matrix = nag_enum_value_to_name(matrix);
  str_unitdiag = nag_enum_value_to_name(unitdiag);

  /* Check strings match member names and print. */
  printf("   Member name     String returned  Status\n");
  printf("----------------- ----------------- ------\n");
  status = "OK";
  if (strcmp(str_order, "Nag_ColMajor")) {
    status = "Error";
    exit_status++;
  }
  printf("%-17s %-17s %-6s\n", "Nag_ColMajor", str_order, status);

  status = "OK";
  if (strcmp(str_trans, "Nag_Trans")) {
    status = "Error";
    exit_status++;
  }
  printf("%-17s %-17s %-6s\n", "Nag_Trans", str_trans, status);

  status = "OK";
  if (strcmp(str_matrix, "Nag_GeneralMatrix")) {
    status = "Error";
    exit_status++;
  }
  printf("%-17s %-17s %-6s\n", "Nag_GeneralMatrix", str_matrix, status);

  status = "OK";
  if (strcmp(str_unitdiag, "Nag_NonUnitDiag")) {
    status = "Error";
    exit_status++;
  }
  printf("%-17s %-17s %-6s\n", "Nag_NonUnitDiag", str_unitdiag, status);

  return exit_status;
}