1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
#include <stdio.h>
#include <stdlib.h>
#include "windows.h"
#include "norad.h"
typedef void (__stdcall *sxpx_init_fn)( double *params, const tle_t *tle);
typedef int (__stdcall *sxpx_fn)( const double tsince, const tle_t *tle,
const double *params, double *pos, double *vel);
typedef long (__stdcall *sxpx_version_fn)( void);
static HINSTANCE load_sat_code_lib( const int unload)
{
static HINSTANCE h_sat_code_lib = (HINSTANCE)0;
static int first_time = 1;
if( unload)
{
if( h_sat_code_lib)
FreeLibrary( h_sat_code_lib);
h_sat_code_lib = NULL;
first_time = 1;
}
else if( first_time)
{
h_sat_code_lib = LoadLibrary( "sat_code.dll");
first_time = 0;
}
return( h_sat_code_lib);
}
/* 26 Nov 2002: revised following two functions slightly so that the
return values distinguish between "didn't get the function" and
"didn't get the library" */
int SXPX_init( double *params, const tle_t *tle, const int sxpx_num)
{
static sxpx_init_fn func[5];
static char already_done[5];
int rval = 0;
HINSTANCE h_sat_code_lib;
if( !params) /* flag to unload library */
{
int i;
load_sat_code_lib( -1);
for( i = 0; i < 5; i++)
already_done[i] = 0;
return( 0);
}
h_sat_code_lib = load_sat_code_lib( 0);
if( !already_done[sxpx_num])
{
if( h_sat_code_lib)
func[sxpx_num] = (sxpx_init_fn)GetProcAddress( h_sat_code_lib,
(LPCSTR)( sxpx_num + 1));
already_done[sxpx_num] = 1;
}
if( func[sxpx_num])
(*func[sxpx_num])( params, tle);
else
rval = -1;
if( !h_sat_code_lib)
rval = -2;
return( rval);
}
int SXPX( const double tsince, const tle_t *tle, const double *params,
double *pos, double *vel, const int sxpx_num)
{
static sxpx_fn func[5];
static char already_done[5];
int rval = 0;
HINSTANCE h_sat_code_lib = load_sat_code_lib( 0);
if( !already_done[sxpx_num])
{
if( h_sat_code_lib)
func[sxpx_num] = (sxpx_fn)GetProcAddress( h_sat_code_lib,
(LPCSTR)( sxpx_num + 6));
already_done[sxpx_num] = 1;
}
if( func[sxpx_num])
rval = (*func[sxpx_num])( tsince, tle, params, pos, vel);
else
rval = -1;
if( !h_sat_code_lib)
rval = -2;
return( rval);
}
long get_sat_code_lib_version( void)
{
HINSTANCE h_sat_code_lib = load_sat_code_lib( 0);
long rval;
if( !h_sat_code_lib)
rval = -2;
else
{
sxpx_version_fn func =
(sxpx_version_fn)GetProcAddress( h_sat_code_lib, (LPCSTR)20);
if( !func)
rval = -1;
else
rval = (*func)( );
}
return( rval);
}
|
