Пример #1
0
int wcsfix(int ctrl, const int naxis[], struct wcsprm *wcs, int stat[])

{
  int status = 0;

  if ((stat[CDFIX] = cdfix(wcs)) > 0) {
    status = 1;
  }

  if ((stat[DATFIX] = datfix(wcs)) > 0) {
    status = 1;
  }

  if ((stat[UNITFIX] = unitfix(ctrl, wcs)) > 0) {
    status = 1;
  }

  if ((stat[SPCFIX] = spcfix(wcs)) > 0) {
    status = 1;
  }

  if ((stat[CELFIX] = celfix(wcs)) > 0) {
    status = 1;
  }

  if ((stat[CYLFIX] = cylfix(naxis, wcs)) > 0) {
    status = 1;
  }

  return status;
}
Пример #2
0
int wcsfixi(int ctrl, const int naxis[], struct wcsprm *wcs, int stat[],
            struct wcserr info[])

{
  int ifix, status = 0;
  struct wcserr err;

  /* Handling the status values returned from the sub-fixers is trickier than
  it might seem, especially considering that wcs->err may contain an error
  status on input which should be preserved if no translation errors occur.
  The simplest way seems to be to save a copy of wcs->err and clear it before
  each sub-fixer.  The last real error to occur, excluding informative
  messages, is the one returned.

  To get informative messages from spcfix() it must precede celfix() and
  cylfix().  The latter call wcsset() which also translates AIPS-convention
  spectral axes. */
  wcserr_copy(wcs->err, &err);

  for (ifix = CDFIX; ifix < NWCSFIX; ifix++) {
    /* Clear (delete) wcs->err. */
    wcserr_clear(&(wcs->err));

    switch (ifix) {
    case CDFIX:
      stat[ifix] = cdfix(wcs);
      break;
    case DATFIX:
      stat[ifix] = datfix(wcs);
      break;
    case UNITFIX:
      stat[ifix] = unitfix(ctrl, wcs);
      break;
    case SPCFIX:
      stat[ifix] = spcfix(wcs);
      break;
    case CELFIX:
      stat[ifix] = celfix(wcs);
      break;
    case CYLFIX:
      stat[ifix] = cylfix(naxis, wcs);
      break;
    default:
      continue;
    }

    if (stat[ifix] == FIXERR_NO_CHANGE) {
      /* No change => no message. */
      wcserr_copy(0x0, info+ifix);

    } else if (stat[ifix] == FIXERR_SUCCESS) {
      /* Successful translation, but there may be an informative message. */
      if (wcs->err && wcs->err->status < 0) {
        wcserr_copy(wcs->err, info+ifix);
      } else {
        wcserr_copy(0x0, info+ifix);
      }

    } else {
      /* An informative message or error message. */
      wcserr_copy(wcs->err, info+ifix);

      if ((status = (stat[ifix] > 0))) {
        /* It was an error, replace the previous one. */
        wcserr_copy(wcs->err, &err);
      }
    }
  }

  /* Restore the last error to occur. */
  if (err.status) {
    wcserr_copy(&err, wcs->err);
  } else {
    wcserr_clear(&(wcs->err));
  }

  return status;
}
Пример #3
0
int wcsfixi(int ctrl, const int naxis[], struct wcsprm *wcs, int stat[],
            struct wcserr info[])

{
  int status = 0;
  struct wcserr *err;

  err = info + CDFIX;
  if ((stat[CDFIX] = cdfix(wcs)) > 0) {
    wcserr_copy(wcs->err, err);
    status = 1;
  } else {
    wcserr_copy(0x0, err);
  }

  err = info + DATFIX;
  if ((stat[DATFIX] = datfix(wcs)) > 0) {
    wcserr_copy(wcs->err, err);
    status = 1;
  } else {
    wcserr_copy(0x0, err);
  }

  err = info + UNITFIX;
  if ((stat[UNITFIX] = unitfix(ctrl, wcs)) > 0) {
    wcserr_copy(wcs->err, err);
    status = 1;
  } else {
    wcserr_copy(0x0, err);
  }

  err = info + CELFIX;
  if ((stat[CELFIX] = celfix(wcs)) > 0) {
    wcserr_copy(wcs->err, err);
    status = 1;
  } else {
    wcserr_copy(0x0, err);
  }

  err = info + SPCFIX;
  if ((stat[SPCFIX] = spcfix(wcs)) > 0) {
    wcserr_copy(wcs->err, err);
    status = 1;
  } else {
    wcserr_copy(0x0, err);
  }

  err = info + CYLFIX;
  wcserr_copy(0x0, err);
  if (naxis) {
    if ((stat[CYLFIX] = cylfix(naxis, wcs)) > 0) {
      err = info + CYLFIX;
      wcserr_copy(wcs->err, err);
      status = 1;
    }
  } else {
    stat[CYLFIX] = -2;
  }

  if (wcs->err) free(wcs->err);
  wcs->err = 0x0;

  return status;
}