diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-05-10 18:52:35 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-05-10 18:52:35 (GMT) |
commit | 9ef925b353e71b6b8abd23b59ca1adef488e3a3b (patch) | |
tree | 8d0d428ac62291f834ea8927bfa82c115ff1689d /ast/globals.c | |
parent | 0b1addf5643c828955a6add53f2a4f7a7a813e41 (diff) | |
download | blt-9ef925b353e71b6b8abd23b59ca1adef488e3a3b.zip blt-9ef925b353e71b6b8abd23b59ca1adef488e3a3b.tar.gz blt-9ef925b353e71b6b8abd23b59ca1adef488e3a3b.tar.bz2 |
upgrade ast 8.7.1
Diffstat (limited to 'ast/globals.c')
-rw-r--r-- | ast/globals.c | 256 |
1 files changed, 0 insertions, 256 deletions
diff --git a/ast/globals.c b/ast/globals.c deleted file mode 100644 index 0ba5fbe..0000000 --- a/ast/globals.c +++ /dev/null @@ -1,256 +0,0 @@ -#if defined( THREAD_SAFE ) - -#define astCLASS - -#include "globals.h" -#include "error.h" -#include <pthread.h> -#include <stdlib.h> -#include <stdio.h> - -/* Configuration results. */ -/* ---------------------- */ -#if HAVE_CONFIG_H -#include <config.h> -#endif - -/* Select the appropriate memory management functions. These will be the - system's malloc, free and realloc unless AST was configured with the - "--with-starmem" option, in which case they will be the starmem - malloc, free and realloc. */ -#ifdef HAVE_STAR_MEM_H -# include <star/mem.h> -# define MALLOC starMalloc -# define FREE starFree -# define REALLOC starRealloc -#else -# define MALLOC malloc -# define FREE free -# define REALLOC realloc -#endif - -/* Module variables */ -/* ================ */ - -/* A count of the number of thread-specific data structures created so - far. Create a mutex to serialise access to this static variable. */ -static int nthread = 0; -static pthread_mutex_t nthread_mutex = PTHREAD_MUTEX_INITIALIZER; - -/* External variables visible throughout AST */ -/* ========================================= */ - -/* Set a flag indicating that the thread-specific data key has not yet - been created. */ -pthread_once_t starlink_ast_globals_initialised = PTHREAD_ONCE_INIT; - -/* Declare the pthreads key that will be associated with the thread-specific - data for each thread. */ -pthread_key_t starlink_ast_globals_key; - -/* Declare the pthreads key that will be associated with the thread-specific - status value for each thread. */ -pthread_key_t starlink_ast_status_key; - - -/* Function definitions: */ -/* ===================== */ - - -void astGlobalsCreateKey_( void ) { -/* -*+ -* Name: -* astGlobalsCreateKey_ - -* Purpose: -* Create the thread specific data key used for accessing global data. - -* Type: -* Protected function. - -* Synopsis: -* #include "globals.h" -* astGlobalsCreateKey_() - -* Description: -* This function creates the thread-specific data key. It is called -* once only by the pthread_once function, which is invoked via the -* astGET_GLOBALS(this) macro by each AST function that requires access to -* global data. - -* Returned Value: -* Zero for success. - -*- -*/ - -/* Create the key used to access thread-specific global data values. - Report an error if it fails. */ - if( pthread_key_create( &starlink_ast_globals_key, NULL ) ) { - fprintf( stderr, "ast: Failed to create Thread-Specific Data key" ); - -/* If succesful, create the key used to access the thread-specific status - value. Report an error if it fails. */ - } else if( pthread_key_create( &starlink_ast_status_key, NULL ) ) { - fprintf( stderr, "ast: Failed to create Thread-Specific Status key" ); - - } - -} - -AstGlobals *astGlobalsInit_( void ) { -/* -*+ -* Name: -* astGlobalsInit - -* Purpose: -* Create and initialise a structure holding thread-specific global -* data values. - -* Type: -* Protected function. - -* Synopsis: -* #include "globals.h" -* AstGlobals *astGlobalsInit; - -* Description: -* This function allocates memory to hold thread-specific global data -* for use throughout AST, and initialises it. - -* Returned Value: -* Pointer to the structure holding global data values for the -* currently executing thread. - -*- -*/ - -/* Local Variables: */ - AstGlobals *globals; - AstStatusBlock *status; - -/* Allocate memory to hold the global data values for the currently - executing thread. Use malloc rather than astMalloc (the AST memory - module uses global data managed by this module and so using astMalloc - could put us into an infinite loop). */ - globals = MALLOC( sizeof( AstGlobals ) ); - - if ( !globals ){ - fprintf( stderr, "ast: Failed to allocate memory to hold AST " - "global data values" ); - -/* Initialise the global data values. */ - } else { - -/* Each thread has a unique integer identifier. */ - pthread_mutex_lock( &nthread_mutex ); - globals->thread_identifier = nthread++; - pthread_mutex_unlock( &nthread_mutex ); - -#define INIT(class) astInit##class##Globals_( &(globals->class) ); - INIT( Error ); - INIT( Memory ); - INIT( Object ); - INIT( Axis ); - INIT( Mapping ); - INIT( Frame ); - INIT( Channel ); - INIT( CmpMap ); - INIT( KeyMap ); - INIT( FitsChan ); - INIT( FitsTable ); - INIT( CmpFrame ); - INIT( DSBSpecFrame ); - INIT( FrameSet ); - INIT( LutMap ); - INIT( MathMap ); - INIT( PcdMap ); - INIT( PointSet ); - INIT( SkyAxis ); - INIT( SkyFrame ); - INIT( SlaMap ); - INIT( SpecFrame ); - INIT( SphMap ); - INIT( TimeFrame ); - INIT( WcsMap ); - INIT( ZoomMap ); - INIT( FluxFrame ); - INIT( SpecFluxFrame ); - INIT( GrismMap ); - INIT( IntraMap ); - INIT( Plot ); - INIT( Plot3D ); - INIT( Region ); - INIT( Xml ); - INIT( XmlChan ); - INIT( Box ); - INIT( Circle ); - INIT( CmpRegion ); - INIT( DssMap ); - INIT( Ellipse ); - INIT( Interval ); - INIT( MatrixMap ); - INIT( Moc ); - INIT( MocChan ); - INIT( NormMap ); - INIT( NullRegion ); - INIT( PermMap ); - INIT( PointList ); - INIT( PolyMap ); - INIT( ChebyMap ); - INIT( Polygon ); - INIT( Prism ); - INIT( RateMap ); - INIT( SelectorMap ); - INIT( ShiftMap ); - INIT( SpecMap ); - INIT( Stc ); - INIT( StcCatalogEntryLocation ); - INIT( StcObsDataLocation ); - INIT( SwitchMap ); - INIT( Table ); - INIT( TimeMap ); - INIT( TranMap ); - INIT( UnitMap ); - INIT( UnitNormMap ); - INIT( WinMap ); - INIT( StcResourceProfile ); - INIT( StcSearchLocation ); - INIT( StcsChan ); - INIT( XphMap ); -#undef INIT - -/* Save the pointer as the value of the starlink_ast_globals_key - thread-specific data key. */ - if( pthread_setspecific( starlink_ast_globals_key, globals ) ) { - fprintf( stderr, "ast: Failed to store Thread-Specific Data pointer." ); - -/* We also take this opportunity to allocate and initialise the - thread-specific status value. */ - } else { - status = MALLOC( sizeof( AstStatusBlock ) ); - if( status ) { - status->internal_status = 0; - status->status_ptr = &( status->internal_status ); - -/* If succesful, store the pointer to this memory as the value of the - status key for the currently executing thread. Report an error if - this fails. */ - if( pthread_setspecific( starlink_ast_status_key, status ) ) { - fprintf( stderr, "ast: Failed to store Thread-Specific Status pointer." ); - } - - } else { - fprintf( stderr, "ast: Failed to allocate memory for Thread-Specific Status pointer." ); - } - } - } - -/* Return a pointer to the data structure holding the global data values. */ - return globals; -} - -#endif - |