#include "geoslib_enum.h"
#include "geoslib_old_f.h"
#include "geoslib_f_private.h"
#include "Enum/EJustify.hpp"
#include "Basic/Utilities.hpp"
#include "Basic/File.hpp"
#include "Basic/String.hpp"
#include "Basic/OptDbg.hpp"
#include "Basic/OptCst.hpp"
#include <string.h>
#include <stdarg.h>
#include <math.h>

Functions
void	redefine_message (void(write_func)(const char ))

void	redefine_error (void(warn_func)(const char ))

void	redefine_read (void(read_func)(const char , char *))

void	redefine_exit (void(*exit_func)(void))

void	string_strip_blanks (char *string, int flag_lead)

void	string_strip_quotes (char *string)

void	message_extern (const char *string)

void	exit_extern ()

void	mem_error (int nbyte)

FILE *	_file_open (const char *filename, int mode)

void	_file_delimitors (char del_com, char del_sep, char del_blk)

void	print_current_line (void)

int	_file_read (FILE file, const char format, va_list ap)

int	_file_get_ncol (FILE *file)

void	_erase_current_string (void)

int	_buffer_read (char *buffer, const char format, va_list ap)

void	_file_write (FILE file, const char format, va_list ap)

void	_buffer_write (char buffer, const char format, va_list ap)

void	_lire_string (const char question, int flag_def, const char valdef, char *answer)

int	_lire_int (const char *question, int flag_def, int valdef, int valmin, int valmax)

double	_lire_double (const char *question, int flag_def, double valdef, double valmin, double valmax)

int	_lire_logical (const char *question, int flag_def, int valdef)

void	record_close (void)

int	_record_read (FILE file, const char format,...)

void	print_range (const char title, int ntab, const double tab, const double *sel)

Function Documentation

◆ _buffer_read()

int _buffer_read	(	char **	buffer,
		const char *	format,
		va_list	ap
	)

Read the next token from the buffer

Returns: -1 if the end-of-record has been found; 1 for a decoding error; 0 otherwise

Parameters

[in]	buffer	Buffer to be read
[in]	format	format
[out]	ap	va_list containing the read variables

This method is not documented on purpose. It should remain private

◆ _buffer_write()

void _buffer_write	(	char *	buffer,
		const char *	format,
		va_list	ap
	)

Write the next token into the buffer

Parameters

[in]	buffer	Writing buffer
[in]	format	Encoding format
[in]	ap	va_list to be written

This method is not documented on purpose. It should remain private

◆ _erase_current_string()

void _erase_current_string ( void )

Erase the current decoding string

This method is not documented on purpose. It should remain private

◆ _file_delimitors()

void _file_delimitors	(	char	del_com,
		char	del_sep,
		char	del_blk
	)

Define the file delimitors

Parameters

[in]	del_com	Delimitor for comments
[in]	del_sep	Delimitor for separator
[in]	del_blk	Delimitor for blank

This method is not documented on purpose. It should remain private

◆ _file_get_ncol()

int _file_get_ncol ( FILE * file )

Get the number of tokens in the line

Returns: Number of tokens

Parameters

[in] file FILE structure

This method is not documented on purpose. It should remain private

◆ _file_open()

FILE* _file_open	(	const char *	filename,
		int	mode
	)

Open an ASCII file

Returns: FILE returned pointer

Parameters

[in]	filename	Local file name
[in]	mode	type of file (OLD or NEW)

This method is not documented on purpose. It should remain private

◆ _file_read()

int _file_read	(	FILE *	file,
		const char *	format,
		va_list	ap
	)

Read the next token from the file

Returns: -1 if the end-of-file has been found; 1 for a decoding error; 0 otherwise

Parameters

[in]	file	FILE structure
[in]	format	format
[in]	ap	Value to be read

This method is not documented on purpose. It should remain private

◆ _file_write()

void _file_write	(	FILE *	file,
		const char *	format,
		va_list	ap
	)

Write the next token from the file

Parameters

[in]	file	FILE structure
[in]	format	Encoding format
[in]	ap	Value to be written

This method is not documented on purpose. It should remain private

◆ _lire_double()

double _lire_double	(	const char *	question,
		int	flag_def,
		double	valdef,
		double	valmin,
		double	valmax
	)

Read a double value

Returns: Double value

Parameters

[in]	question	Question to be asked
[in]	flag_def	1 if the default is authorized; 0 otherwise
[in]	valdef	Default value or TEST
[in]	valmin	Minimum authorized value or TEST
[in]	valmax	Maximum authorized value or TEST

This method is not documented on purpose. It should remain private

◆ _lire_int()

int _lire_int	(	const char *	question,
		int	flag_def,
		int	valdef,
		int	valmin,
		int	valmax
	)

Read an integer value

Returns: Integer value

Parameters

[in]	question	Question to be asked
[in]	flag_def	1 if the default is authorized; 0 otherwise
[in]	valdef	Default value or ITEST
[in]	valmin	Minimum authorized value or ITEST
[in]	valmax	Maximum authorized value or ITEST

This method is not documented on purpose. It should remain private

◆ _lire_logical()

int _lire_logical	(	const char *	question,
		int	flag_def,
		int	valdef
	)

Read a boolean answer

Returns: Integer value: 1 for 'yes' and 0 for 'no'

Parameters

[in]	question	Question to be asked
[in]	flag_def	1 if the default is authorized; 0 otherwise
[in]	valdef	Default value (0 for NO and 1 for YES)

This method is not documented on purpose. It should remain private

◆ _lire_string()

void _lire_string	(	const char *	question,
		int	flag_def,
		const char *	valdef,
		char *	answer
	)

Read astring

Parameters

[in]	question	Question to be asked
[in]	flag_def	1 if the default is authorized; 0 otherwise
[in]	valdef	Default string
[out]	answer	Answering string

This method is not documented on purpose. It should remain private

◆ _record_read()

int _record_read	(	FILE *	file,
		const char *	format,
			...
	)

Read the next record

Returns: Error return code

Parameters

[in]	file	Pointer to the file to be read
[in]	format	Encoding format
[in]	...	Value to be written

This method is not documented on purpose. It should remain private

◆ exit_extern()

void exit_extern ( )

External function to provoke an exit of API This call comes from AStringable where initial mes_abort() has been moved

◆ mem_error()

void mem_error ( int nbyte )

Problem in memory allocation

Parameters

[in] nbyte number of bytes to be allocated

◆ message_extern()

void message_extern ( const char * string )

Print a message This call comes from AStringable where initial message() has been moved

Parameters

[in] string String to be displayed

◆ print_current_line()

void print_current_line ( void )

Print the current line read from an ASCII file

◆ print_range()

void print_range	(	const char *	title,
		int	ntab,
		const double *	tab,
		const double *	sel
	)

Print the range of values in an array

Parameters

[in]	title	optional title (NULL if not defined)
[in]	ntab	number of values
[in]	tab	array of values
[in]	sel	(optional) selection

◆ record_close()

void record_close ( void )

Read the next record

This method is not documented on purpose. It should remain private

◆ redefine_error()

void redefine_error ( void(*)(const char *) warn_func )

Redefine the IO routine for printing error message

Parameters

[in] warn_func Warning function

◆ redefine_exit()

void redefine_exit ( void(*)(void) exit_func )

Redefine the exiting routine

Parameters

[in] exit_func Exiting function

◆ redefine_message()

void redefine_message ( void(*)(const char *) write_func )

Redefine the IO routine for printing message

Parameters

[in] write_func Writing function

◆ redefine_read()

void redefine_read ( void(*)(const char *, char *) read_func )

Redefine the IO routine for Reading

Parameters

[in] read_func Reading function

◆ string_strip_blanks()

void string_strip_blanks	(	char *	string,
		int	flag_lead
	)

Strip the blanks from a string

Parameters

[in,out]	string	String to be cleaned
[in]	flag_lead	1 to strip only the leading blanks

◆ string_strip_quotes()

void string_strip_quotes ( char * string )

Strip the leading and trailing quotes from a string

Parameters

[in,out] string String to be cleaned

Remarks: The quote is searched in first position. If not found, nothing done; If found, the trailing quote is stripped, if similar to the first; character

Functions

Function Documentation

◆ _buffer_read()

◆ _buffer_write()

◆ _erase_current_string()

◆ _file_delimitors()

◆ _file_get_ncol()

◆ _file_open()

◆ _file_read()

◆ _file_write()

◆ _lire_double()

◆ _lire_int()

◆ _lire_logical()

◆ _lire_string()

◆ _record_read()

◆ exit_extern()

◆ mem_error()

◆ message_extern()

◆ print_current_line()

◆ print_range()

◆ record_close()

◆ redefine_error()

◆ redefine_exit()

◆ redefine_message()

◆ redefine_read()

◆ string_strip_blanks()

◆ string_strip_quotes()