#include "geoslib_old_f.h"
#include "Basic/Utilities.hpp"
#include "Basic/String.hpp"
#include "Basic/OptDbg.hpp"
#include "Space/ASpaceObject.hpp"
#include "Space/ASpace.hpp"
#include "Space/SpaceSN.hpp"
#include "Geometry/GeometryHelper.hpp"
#include <string.h>
#include <cmath>

Classes
struct	Keypair

struct	Projec_Environ

struct	Dim_Loop

Functions
void	projec_toggle (int mode)

void	projec_query (int *actif)

void	projec_print (void)

static int	st_match_keypair (const char *keyword, int flag_exact)

static Keypair *	st_get_keypair_address (const char *keyword)

static void	st_keypair_attributes (Keypair *keypair, int mode, int origin, int, int ncol)

static void	st_keypair_allocate (Keypair *keypair, int nrow, int ncol)

static void	st_keypair_copy (Keypair keypair, int type, int start, void values)

void	set_keypair (const char keyword, int origin, int nrow, int ncol, const double values)

void	app_keypair (const char keyword, int origin, int nrow, int ncol, double values)

void	set_keypair_int (const char keyword, int origin, int nrow, int ncol, int values)

void	app_keypair_int (const char keyword, int origin, int nrow, int ncol, int values)

static void	del_keypone (int indice)

void	del_keypair (const char *keyword, int flag_exact)

double	get_keypone (const char *keyword, double valdef)

int	get_keypair (const char keyword, int nrow, int ncol, double *values)

int	get_keypair_int (const char keyword, int nrow, int ncol, int *values)

void	print_keypair (int flag_short)

int	solve_P2 (double a, double b, double c, double *x)

int	solve_P3 (double a, double b, double c, double d, double *x)

double	ut_distance (int ndim, const double tab1, const double tab2)

void	ut_distance_allocated (int ndim, double tab1, double tab2)

VectorDouble	util_set_array_double (int ntab, const double *rtab)

VectorInt	util_set_array_integer (int ntab, const int *itab)

VectorString	util_set_array_char (int ntab, char **names)

void	set_last_message (int mode, const char *string)

void	print_last_message (void)

int *	ut_split_into_two (int ncolor, int flag_half, int verbose, int *nposs)

char *	convert (const std::string &s)

std::vector< char * >	util_vs_to_vs (VectorString vs)

Variables
static Projec_Environ	PROJEC = { 0 }

static int	KEYPAIR_NTAB = 0

static Keypair *	KEYPAIR_TABS = NULL

static int	DISTANCE_NDIM = 0

static double *	DISTANCE_TAB1 = NULL

static double *	DISTANCE_TAB2 = NULL

static char **	LAST_MESSAGE = NULL

static int	NB_LAST_MESSAGE = 0

Function Documentation

◆ app_keypair()

void app_keypair	(	const char *	keyword,
		int	origin,
		int	nrow,
		int	ncol,
		double *	values
	)

Deposit a keypair (double values) - Append to existing array

Parameters

[in]	keyword	Keyword
[in]	origin	1 from C; 2 from R
[in]	nrow	Number of rows
[in]	ncol	Number of columns
[in]	values	Array of values (Dimension: nrow * ncol)

Remarks: Appending extends the number of rows but keeps the number of; columns and the origin unchanged... otherwise fatal error is issued; All keypair related function use realloc (rather than mem_realloc); not to show up in the memory leak calculations

◆ app_keypair_int()

void app_keypair_int	(	const char *	keyword,
		int	origin,
		int	nrow,
		int	ncol,
		int *	values
	)

Deposit a keypair (doubleinteger values) - Append to existing array

Parameters

[in]	keyword	Keyword
[in]	origin	1 from C; 2 from R
[in]	nrow	Number of rows
[in]	ncol	Number of columns
[in]	values	Array of values (Dimension: nrow * ncol)

Remarks: Appending extends the number of rows but keeps the number of; columns and the origin unchanged ... otherwise fatal error is issued; All keypair related function use realloc (rather than mem_realloc); not to show up in the memory leak calculations

◆ convert()

char* convert ( const std::string & s )

Convert std::string into a char *

Returns: Pointer to the returned array of characters

Parameters

[in] s Input VectorString

◆ del_keypair()

void del_keypair	(	const char *	keyword,
		int	flag_exact
	)

Delete a keypair

Parameters

[in]	keyword	Keyword to be deleted
[in]	flag_exact	1 if Exact keyword matching is required

Remarks: All keypair related function use malloc (rather than mem_alloc); not to show up in the memory leak calculations

◆ del_keypone()

static void del_keypone ( int indice )

static

Delete a keypair

Parameters

[in] indice Index of the Keyword to be deleted

Remarks: All keypair related function use malloc (rather than mem_alloc); not to show up in the memory leak calculations

◆ get_keypair()

int get_keypair	(	const char *	keyword,
		int *	nrow,
		int *	ncol,
		double **	values
	)

Inquiry the keypair

Returns: Error returned code

Parameters

[in]	keyword	Keyword
[out]	nrow	Number of rows
[out]	ncol	Number of columns
[out]	values	Array of values attached to the keyword

Remarks: The returned array must be freed by the calling function; All keypair related function use malloc (rather than mem_alloc); not to show up in the memory leak calculations

◆ get_keypair_int()

int get_keypair_int	(	const char *	keyword,
		int *	nrow,
		int *	ncol,
		int **	values
	)

Inquiry the keypair (integer values)

Returns: Error returned code

Parameters

[in]	keyword	Keyword
[out]	nrow	Number of rows
[out]	ncol	Number of columns
[out]	values	Array of values attached to the keyword

Remarks: The returned array must be freed by the calling function; All keypair related function use malloc (rather than mem_alloc); not to show up in the memory leak calculations

◆ get_keypone()

double get_keypone	(	const char *	keyword,
		double	valdef
	)

Inquiry the keypair (for a single value)

Returns: Returned value

Parameters

[in]	keyword	Keyword
[in]	valdef	Factory setting value

Remarks: This function will returns systematically the default value; if the targeted keypair contains more than a single value

◆ print_keypair()

void print_keypair ( int flag_short )

Print the list of keypairs

Parameters

[in] flag_short 1 for a short output

◆ print_last_message()

void print_last_message ( void )

Print the array of last messages

◆ projec_print()

void projec_print ( void )

Print the characteristics of the projection

◆ projec_query()

void projec_query ( int * actif )

Returns the projection characteristics

Parameters

[out] actif activity flag

◆ projec_toggle()

void projec_toggle ( int mode )

Toggle the status of the Projection flag

Parameters

[in]

mode

Toggle of the projection flag

0 : Switch the flag OFF
1 : Switch the flag ON
-1 : Toggle the flag
else : Do not modify the flag

◆ set_keypair()

void set_keypair	(	const char *	keyword,
		int	origin,
		int	nrow,
		int	ncol,
		const double *	values
	)

Deposit a keypair (double values)

Parameters

[in]	keyword	Keyword
[in]	origin	1 from C; 2 from R
[in]	nrow	Number of rows
[in]	ncol	Number of columns
[in]	values	Array of values (Dimension: nrow * ncol)

Remarks: All keypair related function use malloc (rather than mem_alloc); not to show up in the memory leak calculations

◆ set_keypair_int()

void set_keypair_int	(	const char *	keyword,
		int	origin,
		int	nrow,
		int	ncol,
		int *	values
	)

Deposit a keypair (integer values)

Parameters

[in]	keyword	Keyword
[in]	origin	1 from C; 2 from R
[in]	nrow	Number of rows
[in]	ncol	Number of columns
[in]	values	Array of values (Dimension: nrow * ncol)

Remarks: All keypair related function use malloc (rather than mem_alloc); not to show up in the memory leak calculations

◆ set_last_message()

void set_last_message	(	int	mode,
		const char *	string
	)

Deposit a last message

Parameters

[in]	mode	Type of operation 0 to empty the array of messages 1 to add the string to the array of messages -1 to concatenate the string to the last message
[in]	string	Current string

Remarks: All keypair related function use malloc (rather than mem_alloc); not to show up in the memory leak calculations

◆ solve_P2()

int solve_P2	(	double	a,
		double	b,
		double	c,
		double *	x
	)

Find the roots of a polynomial of order 2: ax^2 + bx + c = 0

Returns: Number of real solutions

Parameters

[in]	a,b,c	Coefficients of the polynomial
[out]	x	Array of real solutions (Dimension: 2)

Remarks: When the solution is double, the returned number os 1.

◆ solve_P3()

int solve_P3	(	double	a,
		double	b,
		double	c,
		double	d,
		double *	x
	)

Find the roots of a polynomial of order 3: a*x^3 + b*x^2 + c*x + d = 0

Returns: Number of real solutions

Parameters

[in]	a,b,c,d	Coefficients of the polynomial
[out]	x	Array of real solutions (Dimension: 3)

Remarks: When the solution is double, the returned number os 1.

◆ st_get_keypair_address()

static Keypair* st_get_keypair_address ( const char * keyword )

static

Internal function to find the keypair stack address or to create a new one if not already existing

Returns: The address in the stack

Parameters

[in] keyword Keyword

Remarks: If the keypair is new, the arguments 'nrow', 'ncol' and 'origin'; are set to zero; Otherwise they are not updated

◆ st_keypair_allocate()

static void st_keypair_allocate	(	Keypair *	keypair,
		int	nrow,
		int	ncol
	)

static

Internal function to allocate the storage of a keypair

Parameters

[in]	keypair	Keypair structure
[in]	nrow	Number of rows
[in]	ncol	Number of columns

◆ st_keypair_attributes()

static void st_keypair_attributes	(	Keypair *	keypair,
		int	mode,
		int	origin,
		int	,
		int	ncol
	)

static

Internal function to copy or check the attributes (append)

Parameters

[in]	keypair	Keypair structure
[in]	mode	0 for creation and 1 for appending
[in]	origin	1 from C; 2 from R
[in]	ncol	Number of columns

Remarks: The arguments 'ncol' and 'origin' are updated.; Conversely, the argument 'nrow' is not updated here

◆ st_keypair_copy()

static void st_keypair_copy	(	Keypair *	keypair,
		int	type,
		int	start,
		void *	values
	)

static

Internal function to copy the contents of values into he keypair

Parameters

[in]	keypair	Keypair structure
[in]	type	1 for integer, 2 for double
[in]	start	Staring address within 'values' in keypair
[in]	values	Array to be copied

◆ st_match_keypair()

static int st_match_keypair	(	const char *	keyword,
		int	flag_exact
	)

static

Look for an already registered keypair

Returns: Rank of the matching item (or -1)

Parameters

[in]	keyword	Keyword
[in]	flag_exact	1 if Exact keyword matching is required

◆ ut_distance()

double ut_distance	(	int	ndim,
		const double *	tab1,
		const double *	tab2
	)

Calculate the distance between two endpoints

Returns: Distance value (or TEST if a coordinate is not defined)

Parameters

[in]	ndim	Space dimension
[in]	tab1	Array corresponding to the first endpoint
[in]	tab2	Array corresponding to the second endpoint

◆ ut_distance_allocated()

void ut_distance_allocated	(	int	ndim,
		double **	tab1,
		double **	tab2
	)

Allocate the necessary arrays for calculating distances using already allocated arrays

Parameters

[in]	ndim	Space dimension
[out]	tab1	Array for coordinates of first sample
[out]	tab2	Array for coordinates of second sample

Remarks: This function uses realloc (rather than mem_realloc); not to show up in the memory leak calculations

◆ ut_split_into_two()

int* ut_split_into_two	(	int	ncolor,
		int	flag_half,
		int	verbose,
		int *	nposs
	)

Return all the ways to split ncolor into two non-empty subsets

Returns: Return an array of possibilities

Parameters

[in]	ncolor	Number of colors
[in]	flag_half	1 if only half of possibilities must be envisaged
[in]	verbose	1 for a verbose option
[out]	nposs	Number of possibilities

Remarks: The calling function must free the returned array.; The array has 'ncolor' columns and 'ncomb' subsets; The elements of each row are set to 0 or 1 (subset rank)

◆ util_set_array_char()

VectorString util_set_array_char	(	int	ntab,
		char **	names
	)

Create a VectorString for storing an array of chars

Returns: The VectorString

Parameters

[in]	ntab	Number of samples
[in]	names	Array of character values to be loaded

◆ util_set_array_double()

VectorDouble util_set_array_double	(	int	ntab,
		const double *	rtab
	)

Create a VectorDouble for storing an array of double

Returns: The VectorDouble

Parameters

[in]	ntab	Number of samples
[in]	rtab	Array of double values to be loaded

◆ util_set_array_integer()

VectorInt util_set_array_integer	(	int	ntab,
		const int *	itab
	)

Create a VectorInt for storing an array of integer

Returns: The VectorInt

Parameters

[in]	ntab	Number of samples
[in]	itab	Array of integer values to be loaded

◆ util_vs_to_vs()

std::vector<char*> util_vs_to_vs ( VectorString vs )

Convert VectorString into a std::vector<char *> structure

Returns: Pointer to the returned array of characters

Parameters

[in] vs Input VectorString

Variable Documentation

◆ DISTANCE_NDIM

int DISTANCE_NDIM = 0

static

◆ DISTANCE_TAB1

double* DISTANCE_TAB1 = NULL

static

◆ DISTANCE_TAB2

double* DISTANCE_TAB2 = NULL

static

◆ KEYPAIR_NTAB

int KEYPAIR_NTAB = 0

static

◆ KEYPAIR_TABS

Keypair* KEYPAIR_TABS = NULL

static

◆ LAST_MESSAGE

char** LAST_MESSAGE = NULL

static

◆ NB_LAST_MESSAGE

int NB_LAST_MESSAGE = 0

static

◆ PROJEC

Projec_Environ PROJEC = { 0 }

static

Classes

Functions

Variables

Function Documentation

◆ app_keypair()

◆ app_keypair_int()

◆ convert()

◆ del_keypair()

◆ del_keypone()

◆ get_keypair()

◆ get_keypair_int()

◆ get_keypone()

◆ print_keypair()

◆ print_last_message()

◆ projec_print()

◆ projec_query()

◆ projec_toggle()

◆ set_keypair()

◆ set_keypair_int()

◆ set_last_message()

◆ solve_P2()

◆ solve_P3()

◆ st_get_keypair_address()

◆ st_keypair_allocate()

◆ st_keypair_attributes()

◆ st_keypair_copy()

◆ st_match_keypair()

◆ ut_distance()

◆ ut_distance_allocated()

◆ ut_split_into_two()

◆ util_set_array_char()

◆ util_set_array_double()

◆ util_set_array_integer()

◆ util_vs_to_vs()

Variable Documentation

◆ DISTANCE_NDIM

◆ DISTANCE_TAB1

◆ DISTANCE_TAB2

◆ KEYPAIR_NTAB

◆ KEYPAIR_TABS

◆ LAST_MESSAGE

◆ NB_LAST_MESSAGE

◆ PROJEC