spice.h

Go to the documentation of this file.

/* Copyright (C) 2015-2026 Chris Piker <chris-piker@uiowa.edu>
 *                         
 * This file is part of das2C, the Core Das C Library.
 * 
 * Das2C is free software; you can redistribute it and/or modify it under
 * the terms of the GNU Lesser General Public License version 2.1 as published
 * by the Free Software Foundation.
 *
 * Das2C is distributed in the hope that it will be useful, but WITHOUT ANY
 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 * FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public License for
 * more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * version 2.1 along with das2C; if not, see <http://www.gnu.org/licenses/>. 
 */
 
#ifndef _das2_spice_H_
#define _das2_spice_H_
 
#include <stdio.h>
#include <string.h>
 
#include <SpiceUsr.h>
 
#include <das3/util.h>  /* das_error */
#include <das3/send.h>  /* das_send_except, das_except_t */
 
/* Read the current SPICE error into sBuf as one line: the short message, a
   space and the long message.  The short message is at most 25 characters
   and the long one at most 1840, so 2048 bytes is plenty.  Gives an empty
   string if there is no current error. */
static inline void _das_spice_getmsg(char* sBuf, int nLen)
{
   int n;
 
   sBuf[0] = '\0';
   getmsg_c("SHORT", (SpiceInt)nLen, sBuf);
   n = (int)strlen(sBuf);
   while((n > 0)&&(sBuf[n-1] == ' ')) sBuf[--n] = '\0';
 
   if(n > 0){
      if(n + 2 >= nLen) return;
      sBuf[n++] = ' ';
      sBuf[n] = '\0';
   }
 
   getmsg_c("LONG", (SpiceInt)(nLen - n), sBuf + n);
   n += (int)strlen(sBuf + n);
   while((n > 0)&&(sBuf[n-1] == ' ')) sBuf[--n] = '\0';
}
 
static inline void das_spice_err_setup(void)
{
   errprt_c("SET", 4, "ALL");    /* Want all error text */
   erract_c("SET", 7, "RETURN"); /* Just return on error, we'll check for it */
   errdev_c("SET", 4, "NULL");   /* Don't go printing to the screen on error */
}
 
static inline const char* das_get_spice_error(void)
{
   static char sBuf[2048];
   _das_spice_getmsg(sBuf, (int)sizeof(sBuf));
   return sBuf;
}
 
static inline int das_send_spice_err(int nDasVer, das_except_t nType)
{
   char sMsg[2048];
   _das_spice_getmsg(sMsg, (int)sizeof(sMsg));
 
   fprintf(stderr, "ERROR: %s\n", sMsg);
 
   if((nDasVer < 1)||(nDasVer > 3))
      das_error(DASERR_SPICE, "Unknown stream version %d", nDasVer);
   else
      das_send_except(nDasVer, nType, sMsg);  /* nothing for das1 */
 
   return DASERR_SPICE;
}
 
static inline int das_print_spice_error(const char* sProgName)
{
   char sMsg[2048];
   _das_spice_getmsg(sMsg, (int)sizeof(sMsg));
 
   if(sProgName) fprintf(stderr, "ERROR (%s): %s\n", sProgName, sMsg);
   else fprintf(stderr, "ERROR: %s\n", sMsg);
 
   return DASERR_SPICE;
}
 
#endif /* _das2_spice_H_ */