diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-12-08 18:57:06 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-12-08 18:57:06 (GMT) |
commit | 90a861b642f765d5657ab827aedabe3920ff9333 (patch) | |
tree | 88b93d468ca1feed91ef2958f46f3f74f1418aac /ast/fitschan.h | |
parent | fba23129f50db253ed3fbbaa23d6e342bf86068e (diff) | |
download | blt-90a861b642f765d5657ab827aedabe3920ff9333.zip blt-90a861b642f765d5657ab827aedabe3920ff9333.tar.gz blt-90a861b642f765d5657ab827aedabe3920ff9333.tar.bz2 |
upgrade AST
Diffstat (limited to 'ast/fitschan.h')
-rw-r--r-- | ast/fitschan.h | 871 |
1 files changed, 0 insertions, 871 deletions
diff --git a/ast/fitschan.h b/ast/fitschan.h deleted file mode 100644 index ba197df..0000000 --- a/ast/fitschan.h +++ /dev/null @@ -1,871 +0,0 @@ -#if !defined( FITSCHAN_INCLUDED ) /* Include this file only once */ -#define FITSCHAN_INCLUDED -/* -*+ -* Name: -* fitschan.h - -* Type: -* C include file. - -* Purpose: -* Define the interface to the FitsChan class. - -* Invocation: -* #include "fitschan.h" - -* Description: -* This include file defines the interface to the FitsChan class and -* provides the type definitions, function prototypes and macros, -* etc. needed to use this class. -* -* The FitsChan class provides facilities for reading and writing AST -* Objects in the form of FITS header cards. - -* Inheritance: -* The FitsChan class inherits from the Channel class. - -* Macros: - -* Protected: -* AST__NOTYPE -* Integer dentifier for an illegal FITS data type. -* AST__COMMENT -* Integer dentifier for a FITS comment keyword. -* AST__INT -* Integer dentifier for the integer FITS data type. -* AST__FLOAT -* Integer dentifier for the floating point FITS data type. -* AST__STRING -* Integer dentifier for the string FITS data type. -* AST__CONTINUE -* Integer dentifier for the continuation string FITS data type. -* AST__COMPLEXF -* Integer dentifier for the complex floating point FITS data type. -* AST__COMPLEXI -* Integer dentifier for the complex integer FITS data type. -* AST__LOGICAL -* Integer dentifier for the logical FITS data type. -* AST__UNDEF -* Integer dentifier for undefined FITS data type. - -* Feature Test Macros: -* astCLASS -* If the astCLASS macro is undefined, only public symbols are -* made available, otherwise protected symbols (for use in other -* class implementations) are defined. This macro also affects -* the reporting of error context information, which is only -* provided for external calls to the AST library. - -* Copyright: -* Copyright (C) 1997-2006 Council for the Central Laboratory of the -* Research Councils - -* Licence: -* This program is free software: you can redistribute it and/or -* modify it under the terms of the GNU Lesser General Public -* License as published by the Free Software Foundation, either -* version 3 of the License, or (at your option) any later -* version. -* -* This program 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 -* License along with this program. If not, see -* <http://www.gnu.org/licenses/>. - -* Authors: -* DSB: D.S. Berry (Starlink) - -* History: -* 11-DEC-1996 (DSB): -* Original version. -* 30-Jun-1997 (DSB): -* Changed character pointer argument to character array in PutFits. -* 26-SEP-1997 (DSB): -* Added CDMatrix attribute. -* 21-OCT-1997 (DSB): -* o Renamed astFields as astKeyFields. -* 1-APR-2000 (DSB): -* Changes for CDi_j based FITS-WCS standard. -* 18-MAY-2000 (DSB): -* Added Warnings attribute. -* 4-APR-2001 (DSB): -* Added AllWarnings attribute. -* 20-FEB-2002 (DSB): -* Added CarLin attribute. -* 8-JAN-2003 (DSB): -* Added protected astInitFitsChanVtab method. -* 13-FEB-2003 (DSB): -* Added Clean attribute. -* 19-MAR-2004 (DSB): -* Added astPutCards function. -*- -*/ - -/* Include files. */ -/* ============== */ -/* Interface definitions. */ -/* ---------------------- */ -#include "channel.h" /* I/O channels (parent class) */ -#include "pointset.h" /* Defines AST__BAD */ -#include "keymap.h" /* Defines the AstKeyMap type */ - -/* C header files. */ -/* --------------- */ -#if defined(astCLASS) /* Protected */ -#include <stddef.h> -#endif - -/* Macros. */ -/* ------- */ - -/* Define a dummy __attribute__ macro for use on non-GNU compilers. */ -#ifndef __GNUC__ -# define __attribute__(x) /*NOTHING*/ -#endif - -#if defined(astCLASS) || defined(astFORTRAN77) -#define STATUS_PTR status -#else -#define STATUS_PTR astGetStatusPtr -#endif - -#define AST__NOTYPE -1 -#define AST__COMMENT 0 -#define AST__INT 1 -#define AST__FLOAT 2 -#define AST__STRING 3 -#define AST__COMPLEXF 4 -#define AST__COMPLEXI 5 -#define AST__LOGICAL 6 -#define AST__CONTINUE 7 -#define AST__UNDEF 8 - -#if defined(astCLASS) /* Protected */ - -/* Define constants used to size global arrays in this module. */ -#define AST__FITSCHAN_FITSCARDLEN 80 -#define AST__FITSCHAN_GETATTRIB_BUFF_LEN 50 - -#endif - -/* The EXTNAME value for FITS binary tables used to store coordinate arrays for - the -TAB algorithm. */ -#define AST_TABEXTNAME "WCS-TAB" - -/* Type Definitions. */ -/* ================= */ - -/* FitsChan structure. */ -/* ------------------ */ -/* This structure contains all information that is unique to each object in - the class (e.g. its instance variables). */ -struct AstFitsChan; -typedef struct AstFitsChan { - -/* Attributes inherited from the parent class. */ - AstChannel channel; /* Parent class structure */ - -/* Attributes specific to objects in this class. */ - int encoding; /* System for encoding AST objects ito FITS headers */ - int defb1950; /* Use FK4 B1950 as defaults? */ - int tabok; /* Support -TAB algorithm? */ - int cdmatrix; /* Use a CD matrix in FITS-WCS Encoding? */ - int polytan; /* Use distorted TAN convention? */ - int carlin; /* Use linear CAR mappings? */ - int iwc; /* Include an IWC Frame? */ - int clean; /* Remove used cards even if an error occurs? */ - int fitsdigits; /* No. of decmial places in formatted floating point keyword values */ - char *fitsaxisorder; /* Pointer to a string defining WCS axis order */ - char *warnings; /* Pointer to a string containing warning conditions */ - void *card; /* Pointer to next FitsCard to be read */ - void *head; /* Pointer to first FitsCard in the circular linked list */ - AstKeyMap *keyseq; /* List of keyword sequence numbers used */ - AstKeyMap *keywords; /* A KeyMap holding the keywords in the FitsChan */ - AstKeyMap *tables; /* A KeyMap holding the binary tables in the FitsChan */ - - const char *(* source)( void ); /* Pointer to source function */ - const char *(* saved_source)( void ); /* Pointer to saved source function */ - char *(* source_wrap)( const char *(*)( void ), int * ); - /* Source wrapper function pointer */ - - void (* sink)( const char * ); /* Pointer to sink function */ - void (* sink_wrap)( void (*)( const char * ), const char *, int * ); - /* Sink wrapper function pointer */ - - void (* tabsource)( void ); /* Pointer to table source function */ - void (* tabsource_wrap)( void (*)( void ), struct AstFitsChan *, const char *, int, int, int * ); - /* Table source wrapper function pointer */ - -} AstFitsChan; - -/* Virtual function table. */ -/* ----------------------- */ -/* The virtual function table makes a forward reference to the - AstFitsTable structure which is not defined until "fitstable.h" is - included (below). Hence make a preliminary definition available - now. */ -struct AstFitsTable; - -/* This table contains all information that is the same for all - objects in the class (e.g. pointers to its virtual functions). */ -#if defined(astCLASS) /* Protected */ -typedef struct AstFitsChanVtab { - -/* Properties (e.g. methods) inherited from the parent class. */ - AstChannelVtab channel_vtab; /* Parent class virtual function table */ - -/* A Unique identifier to determine class membership. */ - AstClassIdentifier id; - -/* Properties (e.g. methods) specific to this class. */ - AstKeyMap *(* GetTables)( AstFitsChan *, int * ); - int (* FindFits)( AstFitsChan *, const char *, char [81], int, int * ); - int (* FitsEof)( AstFitsChan *, int * ); - int (* FitsGetCom)( AstFitsChan *, const char *, char **, int * ); - int (* GetFitsCF)( AstFitsChan *, const char *, double *, int * ); - int (* GetFitsCI)( AstFitsChan *, const char *, int *, int * ); - int (* GetFitsCN)( AstFitsChan *, const char *, char **, int * ); - int (* GetFitsF)( AstFitsChan *, const char *, double *, int * ); - int (* GetFitsI)( AstFitsChan *, const char *, int *, int * ); - int (* GetFitsL)( AstFitsChan *, const char *, int *, int * ); - int (* GetFitsS)( AstFitsChan *, const char *, char **, int * ); - int (* KeyFields)( AstFitsChan *, const char *, int, int *, int *, int * ); - int (* TestFits)( AstFitsChan *, const char *, int *, int * ); - void (* DelFits)( AstFitsChan *, int * ); - void (* Empty)( AstFitsChan *, int * ); - void (* ReadFits)( AstFitsChan *, int * ); - void (* WriteFits)( AstFitsChan *, int * ); - void (* EmptyFits)( AstFitsChan *, int * ); - void (* ShowFits)( AstFitsChan *, int * ); - void (* PurgeWCS)( AstFitsChan *, int * ); - void (* PutCards)( AstFitsChan *, const char *, int * ); - void (* PutFits)( AstFitsChan *, const char [81], int, int * ); - void (* PutTable)( AstFitsChan *, struct AstFitsTable *, const char *, int * ); - void (* PutTables)( AstFitsChan *, AstKeyMap *, int * ); - void (* RemoveTables)( AstFitsChan *, const char *, int * ); - void (* RetainFits)( AstFitsChan *, int * ); - void (* SetFitsCF)( AstFitsChan *, const char *, double *, const char *, int, int * ); - void (* SetFitsCI)( AstFitsChan *, const char *, int *, const char *, int, int * ); - void (* SetFitsCM)( AstFitsChan *, const char *, int, int * ); - void (* SetFitsCN)( AstFitsChan *, const char *, const char *, const char *, int, int * ); - void (* SetFitsCom)( AstFitsChan *, const char *, const char *, int, int * ); - void (* SetFitsF)( AstFitsChan *, const char *, double, const char *, int, int * ); - void (* SetFitsI)( AstFitsChan *, const char *, int, const char *, int, int * ); - void (* SetFitsL)( AstFitsChan *, const char *, int, const char *, int, int * ); - void (* SetFitsS)( AstFitsChan *, const char *, const char *, const char *, int, int * ); - void (* SetFitsU)( AstFitsChan *, const char *, const char *, int, int * ); - - int (* GetCard)( AstFitsChan *, int * ); - int (* TestCard)( AstFitsChan *, int * ); - void (* SetCard)( AstFitsChan *, int, int * ); - void (* ClearCard)( AstFitsChan *, int * ); - - int (* GetFitsDigits)( AstFitsChan *, int * ); - int (* TestFitsDigits)( AstFitsChan *, int * ); - void (* SetFitsDigits)( AstFitsChan *, int, int * ); - void (* ClearFitsDigits)( AstFitsChan *, int * ); - - const char *(* GetFitsAxisOrder)( AstFitsChan *, int * ); - int (* TestFitsAxisOrder)( AstFitsChan *, int * ); - void (* SetFitsAxisOrder)( AstFitsChan *, const char *, int * ); - void (* ClearFitsAxisOrder)( AstFitsChan *, int * ); - - int (* GetDefB1950)( AstFitsChan *, int * ); - int (* TestDefB1950)( AstFitsChan *, int * ); - void (* SetDefB1950)( AstFitsChan *, int, int * ); - void (* ClearDefB1950)( AstFitsChan *, int * ); - - int (* GetTabOK)( AstFitsChan *, int * ); - int (* TestTabOK)( AstFitsChan *, int * ); - void (* SetTabOK)( AstFitsChan *, int, int * ); - void (* ClearTabOK)( AstFitsChan *, int * ); - - int (* GetCarLin)( AstFitsChan *, int * ); - int (* TestCarLin)( AstFitsChan *, int * ); - void (* SetCarLin)( AstFitsChan *, int, int * ); - void (* ClearCarLin)( AstFitsChan *, int * ); - - int (* GetNcard)( AstFitsChan *, int * ); - - int (* GetCardType)( AstFitsChan *, int * ); - const char *(* GetCardName)( AstFitsChan *, int * ); - const char *(* GetCardComm)( AstFitsChan *, int * ); - - int (* GetNkey)( AstFitsChan *, int * ); - - int (* GetEncoding)( AstFitsChan *, int * ); - int (* TestEncoding)( AstFitsChan *, int * ); - void (* SetEncoding)( AstFitsChan *, int, int * ); - void (* ClearEncoding)( AstFitsChan *, int * ); - - const char *(* GetAllWarnings)( AstFitsChan *, int * ); - - const char *(* GetWarnings)( AstFitsChan *, int * ); - int (* TestWarnings)( AstFitsChan *, int * ); - void (* ClearWarnings)( AstFitsChan *, int * ); - void (* SetWarnings)( AstFitsChan *, const char *, int * ); - - int (* GetClean)( AstFitsChan *, int * ); - int (* TestClean)( AstFitsChan *, int * ); - void (* SetClean)( AstFitsChan *, int, int * ); - void (* ClearClean)( AstFitsChan *, int * ); - - int (* GetCDMatrix)( AstFitsChan *, int * ); - int (* TestCDMatrix)( AstFitsChan *, int * ); - void (* SetCDMatrix)( AstFitsChan *, int, int * ); - void (* ClearCDMatrix)( AstFitsChan *, int * ); - - int (* GetPolyTan)( AstFitsChan *, int * ); - int (* TestPolyTan)( AstFitsChan *, int * ); - void (* SetPolyTan)( AstFitsChan *, int, int * ); - void (* ClearPolyTan)( AstFitsChan *, int * ); - - int (* GetIwc)( AstFitsChan *, int * ); - int (* TestIwc)( AstFitsChan *, int * ); - void (* SetIwc)( AstFitsChan *, int, int * ); - void (* ClearIwc)( AstFitsChan *, int * ); - - void (* SetTableSource)( AstFitsChan *, - void (*)( void ), - void (*)( void (*)( void ), - AstFitsChan *, const char *, int, - int, int * ), - int * ); - - void (* TableSource)( AstFitsChan *, - void (*)( AstFitsChan *, const char *, int, int, - int * ), - int * ); - -} AstFitsChanVtab; - -#if defined(THREAD_SAFE) - -/* Define a structure holding all data items that are global within this - class. */ -typedef struct AstFitsChanGlobals { - AstFitsChanVtab Class_Vtab; - int Class_Init; - char GetAttrib_Buff[ AST__FITSCHAN_GETATTRIB_BUFF_LEN + 1 ]; - char CnvType_Text[ AST__FITSCHAN_FITSCARDLEN + 1 ]; - char CnvType_Text0[ AST__FITSCHAN_FITSCARDLEN + 1 ]; - char CnvType_Text1[ AST__FITSCHAN_FITSCARDLEN + 1 ]; - int Items_Written; - int Write_Nest; - int Current_Indent; - int Ignore_Used; - int Mark_New; - int CreateKeyword_Seq_Nchars; - char FormatKey_Buff[ 10 ]; - char FitsGetCom_Sval[ AST__FITSCHAN_FITSCARDLEN + 1 ]; - const char *IsSpectral_Ret; - char Match_Fmt[ 10 ]; - const char *Match_Template; - int *Match_PA; - int *Match_PB; - int Match_NA; - int Match_NB; - int Match_Nentry; - char WcsCelestial_Type[ 4 ]; -} AstFitsChanGlobals; - -#endif - -#endif - -/* Function prototypes. */ -/* ==================== */ -/* Prototypes for standard class functions. */ -/* ---------------------------------------- */ -astPROTO_CHECK(FitsChan) /* Check class membership */ -astPROTO_ISA(FitsChan) /* Test class membership */ - -/* Constructor. */ -#if defined(astCLASS) /* Protected. */ -AstFitsChan *astFitsChan_( const char *(*)( void ), void (*)( const char * ), - const char *, int *, ...); -#else -AstFitsChan *astFitsChanId_( const char *(*)( void ), void (*)( const char * ), - const char *, ... )__attribute__((format(printf,3,4))); -AstFitsChan *astFitsChanForId_( const char *(*)( void ), - char *(*)( const char *(*)( void ), int * ), - void (*)( const char * ), - void (*)( void (*)( const char * ), - const char *, int * ), - const char *, ... ); -#endif - -#if defined(astCLASS) /* Protected */ - -/* Initialiser. */ -AstFitsChan *astInitFitsChan_( void *, size_t, int, AstFitsChanVtab *, - const char *, - const char *(*)( void ), - char *(*)( const char *(*)( void ), int * ), - void (*)( const char * ), - void (*)( void (*)( const char * ), const char *, int * ), int * ); - -/* Vtab initialiser. */ -void astInitFitsChanVtab_( AstFitsChanVtab *, const char *, int * ); - - - -/* Loader. */ -AstFitsChan *astLoadFitsChan_( void *, size_t, AstFitsChanVtab *, - const char *, AstChannel *, int * ); - -/* Thread-safe initialiser for all global data used by this module. */ -#if defined(THREAD_SAFE) -void astInitFitsChanGlobals_( AstFitsChanGlobals * ); -#endif - -#endif - -/* Prototypes for member functions. */ -/* -------------------------------- */ - AstKeyMap *astGetTables_( AstFitsChan *, int * ); - int astFindFits_( AstFitsChan *, const char *, char [81], int, int * ); - int astGetFitsCF_( AstFitsChan *, const char *, double *, int * ); - int astGetFitsCI_( AstFitsChan *, const char *, int *, int * ); - int astGetFitsCN_( AstFitsChan *, const char *, char **, int * ); - int astGetFitsF_( AstFitsChan *, const char *, double *, int * ); - int astGetFitsI_( AstFitsChan *, const char *, int *, int * ); - int astGetFitsL_( AstFitsChan *, const char *, int *, int * ); - int astGetFitsS_( AstFitsChan *, const char *, char **, int * ); - int astTestFits_( AstFitsChan *, const char *, int *, int * ); - void astDelFits_( AstFitsChan *, int * ); - void astReadFits_( AstFitsChan *, int * ); - void astWriteFits_( AstFitsChan *, int * ); - void astEmptyFits_( AstFitsChan *, int * ); - void astShowFits_( AstFitsChan *, int * ); - void astPurgeWCS_( AstFitsChan *, int * ); - void astPutCards_( AstFitsChan *, const char *, int * ); - void astPutFits_( AstFitsChan *, const char [81], int, int * ); - void astPutTable_( AstFitsChan *, struct AstFitsTable *, const char *, int * ); - void astPutTables_( AstFitsChan *, AstKeyMap *, int * ); - void astRemoveTables_( AstFitsChan *, const char *, int * ); - void astRetainFits_( AstFitsChan *, int * ); - void astSetFitsCF_( AstFitsChan *, const char *, double *, const char *, int, int * ); - void astSetFitsCI_( AstFitsChan *, const char *, int *, const char *, int, int * ); - void astSetFitsCM_( AstFitsChan *, const char *, int, int * ); - void astSetFitsCN_( AstFitsChan *, const char *, const char *, const char *, int, int * ); - void astSetFitsF_( AstFitsChan *, const char *, double, const char *, int, int * ); - void astSetFitsI_( AstFitsChan *, const char *, int, const char *, int, int * ); - void astSetFitsL_( AstFitsChan *, const char *, int, const char *, int, int * ); - void astSetFitsS_( AstFitsChan *, const char *, const char *, const char *, int, int * ); - void astSetFitsU_( AstFitsChan *, const char *, const char *, int, int * ); - - void astTableSource_( AstFitsChan *, - void (*)( AstFitsChan *, const char *, int, int, int * ), - int * ); - - - -# if defined(astCLASS) || defined(astFORTRAN77) /* Protected or F77 interface */ - void astSetTableSource_( AstFitsChan *, - void (*)( void ), - void (*)( void (*)( void ), - AstFitsChan *, const char *, int, - int, int * ), - int * ); - -#endif - -# if defined(astCLASS) /* Protected */ - - int astFitsEof_( AstFitsChan *, int * ); - int astFitsGetCom_( AstFitsChan *, const char *, char **, int * ); - void astSetFitsCom_( AstFitsChan *, const char *, const char *, int, int * ); - - int astKeyFields_( AstFitsChan *, const char *, int, int *, int *, int * ); - - int astGetCard_( AstFitsChan *, int * ); - int astTestCard_( AstFitsChan *, int * ); - void astSetCard_( AstFitsChan *, int, int * ); - void astClearCard_( AstFitsChan *, int * ); - - int astGetDefB1950_( AstFitsChan *, int * ); - int astTestDefB1950_( AstFitsChan *, int * ); - void astSetDefB1950_( AstFitsChan *, int, int * ); - void astClearDefB1950_( AstFitsChan *, int * ); - - int astGetTabOK_( AstFitsChan *, int * ); - int astTestTabOK_( AstFitsChan *, int * ); - void astSetTabOK_( AstFitsChan *, int, int * ); - void astClearTabOK_( AstFitsChan *, int * ); - - int astGetCDMatrix_( AstFitsChan *, int * ); - int astTestCDMatrix_( AstFitsChan *, int * ); - void astSetCDMatrix_( AstFitsChan *, int, int * ); - void astClearCDMatrix_( AstFitsChan *, int * ); - - int astGetPolyTan_( AstFitsChan *, int * ); - int astTestPolyTan_( AstFitsChan *, int * ); - void astSetPolyTan_( AstFitsChan *, int, int * ); - void astClearPolyTan_( AstFitsChan *, int * ); - - int astGetCarLin_( AstFitsChan *, int * ); - int astTestCarLin_( AstFitsChan *, int * ); - void astSetCarLin_( AstFitsChan *, int, int * ); - void astClearCarLin_( AstFitsChan *, int * ); - - int astGetIwc_( AstFitsChan *, int * ); - int astTestIwc_( AstFitsChan *, int * ); - void astSetIwc_( AstFitsChan *, int, int * ); - void astClearIwc_( AstFitsChan *, int * ); - - int astGetClean_( AstFitsChan *, int * ); - int astTestClean_( AstFitsChan *, int * ); - void astSetClean_( AstFitsChan *, int, int * ); - void astClearClean_( AstFitsChan *, int * ); - - int astGetFitsDigits_( AstFitsChan *, int * ); - int astTestFitsDigits_( AstFitsChan *, int * ); - void astSetFitsDigits_( AstFitsChan *, int, int * ); - void astClearFitsDigits_( AstFitsChan *, int * ); - - const char *astGetFitsAxisOrder_( AstFitsChan *, int * ); - int astTestFitsAxisOrder_( AstFitsChan *, int * ); - void astSetFitsAxisOrder_( AstFitsChan *, const char *, int * ); - void astClearFitsAxisOrder_( AstFitsChan *, int * ); - - const char *astGetAllWarnings_( AstFitsChan *, int * ); - - const char *astGetWarnings_( AstFitsChan *, int * ); - int astTestWarnings_( AstFitsChan *, int * ); - void astClearWarnings_( AstFitsChan *, int * ); - void astSetWarnings_( AstFitsChan *, const char *, int * ); - - int astGetNcard_( AstFitsChan *, int * ); - - int astGetCardType_( AstFitsChan *, int * ); - const char *astGetCardName_( AstFitsChan *, int * ); - const char *astGetCardComm_( AstFitsChan *, int * ); - - int astGetNkey_( AstFitsChan *, int * ); - - int astGetEncoding_( AstFitsChan *, int * ); - int astTestEncoding_( AstFitsChan *, int * ); - void astSetEncoding_( AstFitsChan *, int, int * ); - void astClearEncoding_( AstFitsChan *, int * ); - -#endif - -/* Function interfaces. */ -/* ==================== */ -/* These macros are wrap-ups for the functions defined by this class - to make them easier to invoke (e.g. to avoid type mis-matches when - passing pointers to objects from derived classes). */ - -/* Interfaces to standard class functions. */ -/* --------------------------------------- */ -/* Some of these functions provide validation, so we cannot use them - to validate their own arguments. We must use a cast when passing - object pointers (so that they can accept objects from derived - classes). */ - -/* Check class membership. */ -#define astCheckFitsChan(this) astINVOKE_CHECK(FitsChan,this,0) -#define astVerifyFitsChan(this) astINVOKE_CHECK(FitsChan,this,1) - -/* Test class membership. */ -#define astIsAFitsChan(this) astINVOKE_ISA(FitsChan,this) - -/* Constructor. */ -#if defined(astCLASS) /* Protected. */ -#define astFitsChan astINVOKE(F,astFitsChan_) -#else -#define astFitsChan astINVOKE(F,astFitsChanId_) -#define astFitsChanFor astINVOKE(F,astFitsChanForId_) -#endif - -#if defined(astCLASS) /* Protected */ - -/* Initialiser. */ -#define astInitFitsChan(mem,size,init,vtab,name,source,sourcewrap,sink,sinkwrap) \ -astINVOKE(O,astInitFitsChan_(mem,size,init,vtab,name,source,sourcewrap,sink,sinkwrap,STATUS_PTR)) - -/* Vtab Initialiser. */ -#define astInitFitsChanVtab(vtab,name) astINVOKE(V,astInitFitsChanVtab_(vtab,name,STATUS_PTR)) -/* Loader. */ -#define astLoadFitsChan(mem,size,vtab,name,channel) \ -astINVOKE(O,astLoadFitsChan_(mem,size,vtab,name,astCheckChannel(channel),STATUS_PTR)) -#endif - - -/* More include files. */ -/* =================== */ -/* The interface to the FitsTable class must be included here (after the - type definitions for the FitsChan class) because "fitstable.h" itself - includes this file ("fitschan.h"), although "fitschan.h" refers to the - AstFitsTable structure above. This seems a little strange at first, - but is simply analogous to making a forward reference to a - structure type when recursively defining a normal C structure - (except that here the definitions happen to be in separate include - files). */ -#include "fitstable.h" - -/* Interfaces to public member functions. */ -/* -------------------------------------- */ -/* Here we make use of astCheckFitsChan to validate FitsChan pointers - before use. This provides a contextual error report if a pointer - to the wrong sort of Object is supplied. */ - -#define astPutFits(this,card,overwrite) \ -astINVOKE(V,astPutFits_(astCheckFitsChan(this),card,overwrite,STATUS_PTR)) - -#define astPutCards(this,cards) \ -astINVOKE(V,astPutCards_(astCheckFitsChan(this),cards,STATUS_PTR)) - -#define astDelFits(this) \ -astINVOKE(V,astDelFits_(astCheckFitsChan(this),STATUS_PTR)) - -#define astPurgeWCS(this) \ -astINVOKE(V,astPurgeWCS_(astCheckFitsChan(this),STATUS_PTR)) - -#define astGetTables(this) \ -astINVOKE(O,astGetTables_(astCheckFitsChan(this),STATUS_PTR)) - -#define astPutTable(this,table,extnam) \ -astINVOKE(V,astPutTable_(astCheckFitsChan(this),astCheckFitsTable(table),extnam,STATUS_PTR)) - -#define astPutTables(this,tables) \ -astINVOKE(V,astPutTables_(astCheckFitsChan(this),astCheckKeyMap(tables),STATUS_PTR)) - -#define astRemoveTables(this,key) \ -astINVOKE(V,astRemoveTables_(astCheckFitsChan(this),key,STATUS_PTR)) - -#define astRetainFits(this) \ -astINVOKE(V,astRetainFits_(astCheckFitsChan(this),STATUS_PTR)) - -#define astFindFits( this, name, card, inc ) \ -astINVOKE(V,astFindFits_(astCheckFitsChan(this),name,card,inc,STATUS_PTR)) - -#define astSetFitsI(this,name,value,comment,overwrite) \ -astINVOKE(V,astSetFitsI_(astCheckFitsChan(this),name,value,comment,overwrite,STATUS_PTR)) - -#define astSetFitsF(this,name,value,comment,overwrite) \ -astINVOKE(V,astSetFitsF_(astCheckFitsChan(this),name,value,comment,overwrite,STATUS_PTR)) - -#define astSetFitsS(this,name,value,comment,overwrite) \ -astINVOKE(V,astSetFitsS_(astCheckFitsChan(this),name,value,comment,overwrite,STATUS_PTR)) - -#define astSetFitsCN(this,name,value,comment,overwrite) \ -astINVOKE(V,astSetFitsCN_(astCheckFitsChan(this),name,value,comment,overwrite,STATUS_PTR)) - -#define astSetFitsCI(this,name,value,comment,overwrite) \ -astINVOKE(V,astSetFitsCI_(astCheckFitsChan(this),name,value,comment,overwrite,STATUS_PTR)) - -#define astSetFitsCF(this,name,value,comment,overwrite) \ -astINVOKE(V,astSetFitsCF_(astCheckFitsChan(this),name,value,comment,overwrite,STATUS_PTR)) - -#define astSetFitsL(this,name,value,comment,overwrite) \ -astINVOKE(V,astSetFitsL_(astCheckFitsChan(this),name,value,comment,overwrite,STATUS_PTR)) - -#define astSetFitsU(this,name,comment,overwrite) \ -astINVOKE(V,astSetFitsU_(astCheckFitsChan(this),name,comment,overwrite,STATUS_PTR)) - -#define astSetFitsCM(this,comment,overwrite) \ -astINVOKE(V,astSetFitsCM_(astCheckFitsChan(this),comment,overwrite,STATUS_PTR)) - -#define astGetFitsCF(this,name,value) \ -astINVOKE(V,astGetFitsCF_(astCheckFitsChan(this),name,value,STATUS_PTR)) - -#define astGetFitsCI(this,name,value) \ -astINVOKE(V,astGetFitsCI_(astCheckFitsChan(this),name,value,STATUS_PTR)) - -#define astGetFitsF(this,name,value) \ -astINVOKE(V,astGetFitsF_(astCheckFitsChan(this),name,value,STATUS_PTR)) - -#define astGetFitsI(this,name,value) \ -astINVOKE(V,astGetFitsI_(astCheckFitsChan(this),name,value,STATUS_PTR)) - -#define astGetFitsL(this,name,value) \ -astINVOKE(V,astGetFitsL_(astCheckFitsChan(this),name,value,STATUS_PTR)) - -#define astTestFits(this,name,there) \ -astINVOKE(V,astTestFits_(astCheckFitsChan(this),name,there,STATUS_PTR)) - -#define astGetFitsS(this,name,value) \ -astINVOKE(V,astGetFitsS_(astCheckFitsChan(this),name,value,STATUS_PTR)) - -#define astGetFitsCN(this,name,value) \ -astINVOKE(V,astGetFitsCN_(astCheckFitsChan(this),name,value,STATUS_PTR)) - -#define astReadFits(this) \ -astINVOKE(V,astReadFits_(astCheckFitsChan(this),STATUS_PTR)) - -#define astWriteFits(this) \ -astINVOKE(V,astWriteFits_(astCheckFitsChan(this),STATUS_PTR)) - -#define astEmptyFits(this) \ -astINVOKE(V,astEmptyFits_(astCheckFitsChan(this),STATUS_PTR)) - -#define astShowFits(this) \ -astINVOKE(V,astShowFits_(astCheckFitsChan(this),STATUS_PTR)) - -#define astTableSource(this,tabsource) \ -astINVOKE(V,astTableSource_(astCheckFitsChan(this),tabsource,STATUS_PTR)) - - -#if defined(astCLASS) || defined(astFORTRAN77) /* Protected or F77 interface */ - -#define astSetTableSource(this,tabsource,tabsource_wrap) \ -astINVOKE(V,astSetTableSource_(astCheckFitsChan(this),tabsource,tabsource_wrap,STATUS_PTR)) - -#endif - - -#if defined(astCLASS) /* Protected */ - -#define astFitsEof(this) \ -astINVOKE(V,astFitsEof_(astCheckFitsChan(this),STATUS_PTR)) - -#define astFitsGetCom(this,name,comment) \ -astINVOKE(V,astFitsGetCom_(astCheckFitsChan(this),name,comment,STATUS_PTR)) - -#define astSetFitsCom(this,name,comment,overwrite) \ -astINVOKE(V,astSetFitsCom_(astCheckFitsChan(this),name,comment,overwrite,STATUS_PTR)) - -#define astKeyFields(this,filter,maxfld,ubnd,lbnd) \ -astINVOKE(V,astKeyFields_(astCheckFitsChan(this),filter,maxfld,ubnd,lbnd,STATUS_PTR)) - -#define astClearCard(this) \ -astINVOKE(V,astClearCard_(astCheckFitsChan(this),STATUS_PTR)) -#define astGetCard(this) \ -astINVOKE(V,astGetCard_(astCheckFitsChan(this),STATUS_PTR)) -#define astSetCard(this,card) \ -astINVOKE(V,astSetCard_(astCheckFitsChan(this),card,STATUS_PTR)) -#define astTestCard(this) \ -astINVOKE(V,astTestCard_(astCheckFitsChan(this),STATUS_PTR)) - -#define astClearDefB1950(this) \ -astINVOKE(V,astClearDefB1950_(astCheckFitsChan(this),STATUS_PTR)) -#define astGetDefB1950(this) \ -astINVOKE(V,astGetDefB1950_(astCheckFitsChan(this),STATUS_PTR)) -#define astSetDefB1950(this,defb950) \ -astINVOKE(V,astSetDefB1950_(astCheckFitsChan(this),defb950,STATUS_PTR)) -#define astTestDefB1950(this) \ -astINVOKE(V,astTestDefB1950_(astCheckFitsChan(this),STATUS_PTR)) - -#define astClearTabOK(this) \ -astINVOKE(V,astClearTabOK_(astCheckFitsChan(this),STATUS_PTR)) -#define astGetTabOK(this) \ -astINVOKE(V,astGetTabOK_(astCheckFitsChan(this),STATUS_PTR)) -#define astSetTabOK(this,tabok) \ -astINVOKE(V,astSetTabOK_(astCheckFitsChan(this),tabok,STATUS_PTR)) -#define astTestTabOK(this) \ -astINVOKE(V,astTestTabOK_(astCheckFitsChan(this),STATUS_PTR)) - -#define astClearCDMatrix(this) \ -astINVOKE(V,astClearCDMatrix_(astCheckFitsChan(this),STATUS_PTR)) -#define astGetCDMatrix(this) \ -astINVOKE(V,astGetCDMatrix_(astCheckFitsChan(this),STATUS_PTR)) -#define astSetCDMatrix(this,cdmatrix) \ -astINVOKE(V,astSetCDMatrix_(astCheckFitsChan(this),cdmatrix,STATUS_PTR)) -#define astTestCDMatrix(this) \ -astINVOKE(V,astTestCDMatrix_(astCheckFitsChan(this),STATUS_PTR)) - -#define astClearPolyTan(this) \ -astINVOKE(V,astClearPolyTan_(astCheckFitsChan(this),STATUS_PTR)) -#define astGetPolyTan(this) \ -astINVOKE(V,astGetPolyTan_(astCheckFitsChan(this),STATUS_PTR)) -#define astSetPolyTan(this,value) \ -astINVOKE(V,astSetPolyTan_(astCheckFitsChan(this),value,STATUS_PTR)) -#define astTestPolyTan(this) \ -astINVOKE(V,astTestPolyTan_(astCheckFitsChan(this),STATUS_PTR)) - -#define astClearCarLin(this) \ -astINVOKE(V,astClearCarLin_(astCheckFitsChan(this),STATUS_PTR)) -#define astGetCarLin(this) \ -astINVOKE(V,astGetCarLin_(astCheckFitsChan(this),STATUS_PTR)) -#define astSetCarLin(this,carln) \ -astINVOKE(V,astSetCarLin_(astCheckFitsChan(this),carln,STATUS_PTR)) -#define astTestCarLin(this) \ -astINVOKE(V,astTestCarLin_(astCheckFitsChan(this),STATUS_PTR)) - -#define astClearClean(this) \ -astINVOKE(V,astClearClean_(astCheckFitsChan(this),STATUS_PTR)) -#define astGetClean(this) \ -astINVOKE(V,astGetClean_(astCheckFitsChan(this),STATUS_PTR)) -#define astSetClean(this,value) \ -astINVOKE(V,astSetClean_(astCheckFitsChan(this),value,STATUS_PTR)) -#define astTestClean(this) \ -astINVOKE(V,astTestClean_(astCheckFitsChan(this),STATUS_PTR)) - -#define astClearFitsDigits(this) \ -astINVOKE(V,astClearFitsDigits_(astCheckFitsChan(this),STATUS_PTR)) -#define astGetFitsDigits(this) \ -astINVOKE(V,astGetFitsDigits_(astCheckFitsChan(this),STATUS_PTR)) -#define astSetFitsDigits(this,fitsdigits) \ -astINVOKE(V,astSetFitsDigits_(astCheckFitsChan(this),fitsdigits,STATUS_PTR)) -#define astTestFitsDigits(this) \ -astINVOKE(V,astTestFitsDigits_(astCheckFitsChan(this),STATUS_PTR)) - -#define astClearFitsAxisOrder(this) \ -astINVOKE(V,astClearFitsAxisOrder_(astCheckFitsChan(this),STATUS_PTR)) -#define astGetFitsAxisOrder(this) \ -astINVOKE(V,astGetFitsAxisOrder_(astCheckFitsChan(this),STATUS_PTR)) -#define astSetFitsAxisOrder(this,fitsaxisorder) \ -astINVOKE(V,astSetFitsAxisOrder_(astCheckFitsChan(this),fitsaxisorder,STATUS_PTR)) -#define astTestFitsAxisOrder(this) \ -astINVOKE(V,astTestFitsAxisOrder_(astCheckFitsChan(this),STATUS_PTR)) - -#define astClearWarnings(this) \ -astINVOKE(V,astClearWarnings_(astCheckFitsChan(this),STATUS_PTR)) -#define astGetWarnings(this) \ -astINVOKE(V,astGetWarnings_(astCheckFitsChan(this),STATUS_PTR)) -#define astSetWarnings(this,warnings) \ -astINVOKE(V,astSetWarnings_(astCheckFitsChan(this),warnings,STATUS_PTR)) -#define astTestWarnings(this) \ -astINVOKE(V,astTestWarnings_(astCheckFitsChan(this),STATUS_PTR)) - -#define astGetAllWarnings(this) \ -astINVOKE(V,astGetAllWarnings_(astCheckFitsChan(this),STATUS_PTR)) - -#define astGetCardType(this) \ -astINVOKE(V,astGetCardType_(astCheckFitsChan(this),STATUS_PTR)) - -#define astGetCardName(this) \ -astINVOKE(V,astGetCardName_(astCheckFitsChan(this),STATUS_PTR)) - -#define astGetCardComm(this) \ -astINVOKE(V,astGetCardComm_(astCheckFitsChan(this),STATUS_PTR)) - -#define astGetNcard(this) \ -astINVOKE(V,astGetNcard_(astCheckFitsChan(this),STATUS_PTR)) - -#define astGetNkey(this) \ -astINVOKE(V,astGetNkey_(astCheckFitsChan(this),STATUS_PTR)) - -#define astClearEncoding(this) \ -astINVOKE(V,astClearEncoding_(astCheckFitsChan(this),STATUS_PTR)) -#define astGetEncoding(this) \ -astINVOKE(V,astGetEncoding_(astCheckFitsChan(this),STATUS_PTR)) -#define astSetEncoding(this,encoding) \ -astINVOKE(V,astSetEncoding_(astCheckFitsChan(this),encoding,STATUS_PTR)) -#define astTestEncoding(this) \ -astINVOKE(V,astTestEncoding_(astCheckFitsChan(this),STATUS_PTR)) - -#define astClearIwc(this) \ -astINVOKE(V,astClearIwc_(astCheckFitsChan(this),STATUS_PTR)) -#define astGetIwc(this) \ -astINVOKE(V,astGetIwc_(astCheckFitsChan(this),STATUS_PTR)) -#define astSetIwc(this,iwc) \ -astINVOKE(V,astSetIwc_(astCheckFitsChan(this),iwc,STATUS_PTR)) -#define astTestIwc(this) \ -astINVOKE(V,astTestIwc_(astCheckFitsChan(this),STATUS_PTR)) - -#endif - -#endif - - - - - |