Merge commit '339420dd5dd874c41f6bab5808291fb4036dd022' as 'funtools'

1 files changed, 126 insertions, 0 deletions

diff --git a/funtools/fitsy/headget.c b/funtools/fitsy/headget.c
new file mode 100644
index 0000000..89dd7c9
--- /dev/null
+++ b/funtools/fitsy/headget.c
@@ -0,0 +1,126 @@
+/* Find and return values from a FITS header.
+
+    EXAMPLES
++
+		FITSHead	fits;
+		FITSCard	card;
+
+
+		int		simple;
+		int		ax1, ax2;
+
+	/-* Look up the SIMPLE card in the header and see if its is 
+	   True.  If it's not found return False.
+	 *-/
+	simple = #ft_headgetl(fits, "SIMPLE", 0, 0, &card);
+
+	/-* Look up the NAXIS1 and NAXIS2 cards in the header
+	   if a card is not found return 0.
+	 *-/
+	ax1 = #ft_headgeti(fits, "NAXIS", 1, 0, &card);
+	ax2 = #ft_headgeti(fits, "NAXIS", 2, 0, &card);
++
+ */
+
+#include <fitsy.h>
+
+/* Find and return the value of a FITS card as a static string.
+ */
+char *ft_headget(fits, name, n, card)
+        FITSHead         fits;	/* The FITS header to search.		*/
+	char		*name;	/* Name of the card keyword to search for. */
+	int		 n;	/* keyword index number, if is zero no
+                                   index number is appended to the keyword.
+                                 */
+	FITSCard	*card;	/* The FITS card that was found.	*/
+{
+	 return ft_cardget(*(card) = ft_headfind(fits, name, n, 0));
+}
+
+/* Find and return the value of a FITS card as a logical.
+ */
+int ft_headgetl(fits, name, n, ldefault, card)
+	FITSHead	 fits;
+	char		*name;
+	int		 n;
+	int		 ldefault; /* Default logical value to return.	*/
+	FITSCard	*card;
+{
+	FITSCard	C;
+
+	if ( card == NULL ) card = &C;
+
+	return ( (*(card) = ft_headfind(fits, name, n, 0)) ?
+		ft_cardgetl(*(card)) : (int)(ldefault) );
+}
+
+
+/* Find and return the value of a FITS card as an integer.
+ */
+int ft_headgeti(fits, name, n, idefault, card)
+	FITSHead	 fits;
+	char		*name;
+	int		 n;
+	int		 idefault; /* Default integer value to return.	*/
+	FITSCard	*card;
+{
+	FITSCard	C;
+
+	if ( card == NULL ) card = &C;
+
+	return ( (*(card) = ft_headfind(fits, name, n, 0)) ?
+		ft_cardgeti(*(card)) : (int)(idefault) );
+}
+
+/* Find and return the value of a FITS card as an integer.
+ */
+longlong ft_headgetil(fits, name, n, idefault, card)
+	FITSHead	 fits;
+	char		*name;
+	int		 n;
+	longlong	 idefault; /* Default integer value to return.	*/
+	FITSCard	*card;
+{
+	FITSCard	C;
+
+	if ( card == NULL ) card = &C;
+
+	return ( (*(card) = ft_headfind(fits, name, n, 0)) ?
+		ft_cardgetil(*(card)) : (longlong)(idefault) );
+}
+
+/* Find and return the value of a FITS card as a real.
+ */
+double ft_headgetr(fits, name, n, ddefault, card)
+	FITSHead	 fits;
+	char		*name;
+	int		 n;
+	double		 ddefault; /* Default real value to return.	*/
+	FITSCard	*card;
+{
+	FITSCard	C;
+
+	if ( card == NULL ) card = &C;
+
+	return ( (*(card) = ft_headfind(fits, name, n, 0)) ?
+		ft_cardgetr(*(card)) : (double)(ddefault) );
+
+}
+/* Find and return the value of a FITS card as a allocated string.
+ */
+char *ft_headgets(fits, name, n, sdefault, card)
+	FITSHead	 fits;
+	char		*name;
+	int		 n;
+	char 		*sdefault; /* Default string value to return.	*/
+	FITSCard	*card;
+{
+	FITSCard	C;
+
+	if ( card == NULL ) card = &C;
+
+	return ( (*(card) = ft_headfind(fits, name, n, 0)) ? 
+		ft_cardgets(*(card)) : (sdefault == NULL 
+					? NULL 
+					: (char *)strdup(sdefault)) );
+}