# include "astro.h"

enum {NONE, SKY, PIXEL, VECTOR, SCALAR};

int coords (int argc, char **argv) {

  int i, mode, form, N, Quiet;
  double Xin, Yin, Xout, Yout;
  char *MOSAIC;
  Coords coords, moscoords;
  Buffer *buf, *mosbuffer;
  Vector *xvec, *yvec;

  MOSAIC = NULL;
  if ((N = get_argument (argc, argv, "-mosaic"))) {
    remove_argument (N, &argc, argv);
    MOSAIC = strcreate (argv[N]);
    remove_argument (N, &argc, argv);
  }

  Quiet = FALSE;
  if ((N = get_argument (argc, argv, "-q"))) {
    Quiet = TRUE;
    remove_argument (N, &argc, argv);
  }
  if ((N = get_argument (argc, argv, "-quiet"))) {
    Quiet = TRUE;
    remove_argument (N, &argc, argv);
  }

  form = NONE;
  mode = NONE;
  if ((N = get_argument (argc, argv, "-p"))) {
    remove_argument (N, &argc, argv);
    mode = SKY;
  }
  if ((N = get_argument (argc, argv, "-c"))) {
    if (mode == SKY) goto syntax;
    remove_argument (N, &argc, argv);
    mode = PIXEL;
  }
  if (mode == NONE) goto syntax;
  if (argc != 4) goto syntax;

  if (SelectScalar (argv[2], &Xin)) {
    if (!SelectScalar (argv[3], &Yin)) {
      gprint (GP_ERR, "syntax error: mixed vector and scalar?\n");
      return (FALSE);
    }
    form = SCALAR;
  } else {
    if ((xvec = SelectVector (argv[2], OLDVECTOR, TRUE)) == NULL) return (FALSE);
    if ((yvec = SelectVector (argv[3], OLDVECTOR, TRUE)) == NULL) return (FALSE);
    if (xvec[0].Nelements != yvec[0].Nelements) {
      fprintf (stderr, "mis-matched vector lengths\n");
      return (FALSE);
    }
    form = VECTOR;
  }      

  if ((buf = SelectBuffer (argv[1], OLDBUFFER, TRUE)) == NULL) goto escape;
  GetCoords (&coords, &buf[0].header);
  if (!strcmp(&coords.ctype[4], "-WRP")) {
    if (MOSAIC == NULL) {
      gprint (GP_ERR, "must supply mosaic for WRP coords\n");
      return (FALSE);
    }
    if ((mosbuffer = SelectBuffer (MOSAIC, OLDBUFFER, TRUE)) == NULL) goto escape;
    GetCoords (&moscoords, &mosbuffer[0].header);
    RegisterMosaic (&moscoords);
  }
  
  if (form == SCALAR) {
    if (mode == SKY) {
      XY_to_RD (&Xout, &Yout, Xin, Yin, &coords);
      if (!Quiet) gprint (GP_LOG, "%10.6f %10.6f\n", Xout, Yout);
      set_variable ("RA", Xout);
      set_variable ("DEC", Yout);
      return (TRUE);
    }
    if (mode == PIXEL) {
      RD_to_XY (&Xout, &Yout, Xin, Yin, &coords);
      if (!Quiet) gprint (GP_LOG, "%7.2f %7.2f\n", Xout, Yout);
      set_variable ("Xc", Xout);
      set_variable ("Yc", Yout);
      return (TRUE);
    }
  }
  if (mode == SKY) {
    for (i = 0; i < xvec[0].Nelements; i++) {
      fXY_to_RD (&xvec[0].elements[i], &yvec[0].elements[i], xvec[0].elements[i], yvec[0].elements[i], &coords);
    }
    return (TRUE);
  }
  if (mode == PIXEL) {
    for (i = 0; i < xvec[0].Nelements; i++) {
      fRD_to_XY (&xvec[0].elements[i], &yvec[0].elements[i], xvec[0].elements[i], yvec[0].elements[i], &coords);
    }
    return (TRUE);
  }
  return (FALSE);

 syntax:
  gprint (GP_ERR, "USAGE: coords [buffer] (-c R D) | (-p X Y)\n");
  gprint (GP_ERR, "only one of -p or -c can be used\n");
 escape:
  if (MOSAIC != NULL) free (MOSAIC);
  return (FALSE);
}
