pyEQL 1.4.0rc9__cp313-cp313-macosx_11_0_arm64.whl

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/fwrap.h

@@ -0,0 +1,163 @@
+#ifdef IPHREEQC_NO_FORTRAN_MODULE
+#ifndef __FWRAP__H
+#define __FWRAP__H
+
+#if defined(_WINDLL)
+#define IPQ_DLL_EXPORT __declspec(dllexport)
+#else
+#define IPQ_DLL_EXPORT
+#endif
+
+#if defined(FC_FUNC)
+#define AccumulateLineF                     FC_FUNC (accumulatelinef,                     ACCUMULATELINEF)
+#define AddErrorF                           FC_FUNC (adderrorf,                           ADDERRORF)
+#define AddWarningF                         FC_FUNC (addwarningf,                         ADDWARNINGF)
+#define ClearAccumulatedLinesF              FC_FUNC (clearaccumulatedlinesf,              CLEARACCUMULATEDLINESF)
+#define CreateIPhreeqcF                     FC_FUNC (createiphreeqcf,                     CREATEIPHREEQCF)
+#define DestroyIPhreeqcF                    FC_FUNC (destroyiphreeqcf,                    DESTROYIPHREEQCF)
+#define GetComponentF                       FC_FUNC (getcomponentf,                       GETCOMPONENTF)
+#define GetComponentCountF                  FC_FUNC (getcomponentcountf,                  GETCOMPONENTCOUNTF)
+#define GetCurrentSelectedOutputUserNumberF FC_FUNC (getcurrentselectedoutputusernumberf, GETCURRENTSELECTEDOUTPUTUSERNUMBERF)
+#define GetDumpFileNameF                    FC_FUNC (getdumpfilenamef,                    GETDUMPFILENAMEF)
+#define GetDumpFileOnF                      FC_FUNC (getdumpfileonf,                      GETDUMPFILEONF)
+#define GetDumpStringLineF                  FC_FUNC (getdumpstringlinef,                  GETDUMPSTRINGLINEF)
+#define GetDumpStringLineCountF             FC_FUNC (getdumpstringlinecountf,             GETDUMPSTRINGLINECOUNTF)
+#define GetDumpStringOnF                    FC_FUNC (getdumpstringonf,                    GETDUMPSTRINGONF)
+#define GetErrorFileNameF                   FC_FUNC (geterrorfilenamef,                   GETERRORFILENAMEF)
+#define GetErrorFileOnF                     FC_FUNC (geterrorfileonf,                     GETERRORFILEONF)
+#define GetErrorOnF                         FC_FUNC (geterroronf,                         GETERRORONF)
+#define GetErrorStringLineF                 FC_FUNC (geterrorstringlinef,                 GETERRORSTRINGLINEF)
+#define GetErrorStringLineCountF            FC_FUNC (geterrorstringlinecountf,            GETERRORSTRINGLINECOUNTF)
+#define GetErrorStringOnF                   FC_FUNC (geterrorstringonf,                   GETERRORSTRINGONF)
+#define GetLogFileNameF                     FC_FUNC (getlogfilenamef,                     GETLOGFILENAMEF)
+#define GetLogFileOnF                       FC_FUNC (getlogfileonf,                       GETLOGFILEONF)
+#define GetLogStringLineF                   FC_FUNC (getlogstringlinef,                   GETLOGSTRINGLINEF)
+#define GetLogStringLineCountF              FC_FUNC (getlogstringlinecountf,              GETLOGSTRINGLINECOUNTF)
+#define GetLogStringOnF                     FC_FUNC (getlogstringonf,                     GETLOGSTRINGONF)
+#define GetNthSelectedOutputUserNumberF     FC_FUNC (getnthselectedoutputusernumberf,     GETNTHSELECTEDOUTPUTUSERNUMBERF)
+#define GetOutputFileNameF                  FC_FUNC (getoutputfilenamef,                  GETOUTPUTFILENAMEF)
+#define GetOutputFileOnF                    FC_FUNC (getoutputfileonf,                    GETOUTPUTFILEONF)
+#define GetOutputStringLineF                FC_FUNC (getoutputstringlinef,                GETOUTPUTSTRINGLINEF)
+#define GetOutputStringLineCountF           FC_FUNC (getoutputstringlinecountf,           GETOUTPUTSTRINGLINECOUNTF)
+#define GetOutputStringOnF                  FC_FUNC (getoutputstringonf,                  GETOUTPUTSTRINGONF)
+#define GetSelectedOutputColumnCountF       FC_FUNC (getselectedoutputcolumncountf,       GETSELECTEDOUTPUTCOLUMNCOUNTF)
+#define GetSelectedOutputCountF             FC_FUNC (getselectedoutputcountf,             GETSELECTEDOUTPUTCOUNTF)
+#define GetSelectedOutputFileNameF          FC_FUNC (getselectedoutputfilenamef,          GETSELECTEDOUTPUTFILENAMEF)
+#define GetSelectedOutputFileOnF            FC_FUNC (getselectedoutputfileonf,            GETSELECTEDOUTPUTFILEONF)
+#define GetSelectedOutputRowCountF          FC_FUNC (getselectedoutputrowcountf,          GETSELECTEDOUTPUTROWCOUNTF)
+#define GetSelectedOutputStringLineF        FC_FUNC (getselectedoutputstringlinef,        GETSELECTEDOUTPUTSTRINGLINEF)
+#define GetSelectedOutputStringLineCountF   FC_FUNC (getselectedoutputstringlinecountf,   GETSELECTEDOUTPUTSTRINGLINECOUNTF)
+#define GetSelectedOutputStringOnF          FC_FUNC (getselectedoutputstringonf,          GETSELECTEDOUTPUTSTRINGONF)
+#define GetSelectedOutputValueF             FC_FUNC (getselectedoutputvaluef,             GETSELECTEDOUTPUTVALUEF)
+#define GetVersionStringF                   FC_FUNC (getversionstringf,                   GETVERSIONSTRINGF)
+#define GetWarningStringLineF               FC_FUNC (getwarningstringlinef,               GETWARNINGSTRINGLINEF)
+#define GetWarningStringLineCountF          FC_FUNC (getwarningstringlinecountf,          GETWARNINGSTRINGLINECOUNTF)
+#define LoadDatabaseF                       FC_FUNC (loaddatabasef,                       LOADDATABASEF)
+#define LoadDatabaseStringF                 FC_FUNC (loaddatabasestringf,                 LOADDATABASESTRINGF)
+#define OutputAccumulatedLinesF             FC_FUNC (outputaccumulatedlinesf,             OUTPUTACCUMULATEDLINESF)
+#define OutputErrorStringF                  FC_FUNC (outputerrorstringf,                  OUTPUTERRORSTRINGF)
+#define OutputWarningStringF                FC_FUNC (outputwarningstringf,                OUTPUTWARNINGSTRINGF)
+#define RunAccumulatedF                     FC_FUNC (runaccumulatedf,                     RUNACCUMULATEDF)
+#define RunFileF                            FC_FUNC (runfilef,                            RUNFILEF)
+#define RunStringF                          FC_FUNC (runstringf,                          RUNSTRINGF)
+#define SetBasicFortranCallbackF            FC_FUNC (setbasicfortrancallbackf,            SETFOTRANBASICCALLBACKF)
+#define SetCurrentSelectedOutputUserNumberF FC_FUNC (setcurrentselectedoutputusernumberf, SETCURRENTSELECTEDOUTPUTUSERNUMBERF)
+#define SetDumpFileNameF                    FC_FUNC (setdumpfilenamef,                    SETDUMPFILENAMEF)
+#define SetDumpFileOnF                      FC_FUNC (setdumpfileonf,                      SETDUMPFILEONF)
+#define SetDumpStringOnF                    FC_FUNC (setdumpstringonf,                    SETDUMPSTRINGONF)
+#define SetErrorFileNameF                   FC_FUNC (seterrorfilenamef,                   SETERRORFILENAMEF)
+#define SetErrorFileOnF                     FC_FUNC (seterrorfileonf,                     SETERRORFILEONF)
+#define SetErrorOnF                         FC_FUNC (seterroronf,                         SETERRORONF)
+#define SetErrorStringOnF                   FC_FUNC (seterrorstringonf,                   SETERRORSTRINGONF)
+#define SetLogFileNameF                     FC_FUNC (setlogfilenamef,                     SETLOGFILENAMEF)
+#define SetLogFileOnF                       FC_FUNC (setlogfileonf,                       SETLOGFILEONF)
+#define SetLogStringOnF                     FC_FUNC (setlogstringonf,                     SETLOGSTRINGONF)
+#define SetOutputFileNameF                  FC_FUNC (setoutputfilenamef,                  SETOUTPUTFILENAMEF)
+#define SetOutputFileOnF                    FC_FUNC (setoutputfileonf,                    SETOUTPUTFILEONF)
+#define SetOutputStringOnF                  FC_FUNC (setoutputstringonf,                  SETOUTPUTSTRINGONF)
+#define SetSelectedOutputFileNameF          FC_FUNC (setselectedoutputfilenamef,          SETSELECTEDOUTPUTFILENAMEF)
+#define SetSelectedOutputFileOnF            FC_FUNC (setselectedoutputfileonf,            SETSELECTEDOUTPUTFILEONF)
+#define SetSelectedOutputStringOnF          FC_FUNC (setselectedoutputstringonf,          SETSELECTEDOUTPUTSTRINGONF)
+#endif /* FC_FUNC */
+
+#if defined(__cplusplus)
+extern "C" {
+#endif
+
+  IPQ_RESULT AccumulateLineF(int *id, char *line, size_t line_length);
+  int        AddErrorF(int *id, char *error_msg, size_t len);
+  int        AddWarningF(int *id, char *warn_msg, size_t len);
+  IPQ_RESULT ClearAccumulatedLinesF(int *id);
+  int        CreateIPhreeqcF(void);
+  int        DestroyIPhreeqcF(int *id);
+  void       GetComponentF(int *id, int* n, char* line, size_t line_length);
+  int        GetComponentCountF(int *id);
+  int        GetCurrentSelectedOutputUserNumberF(int *id);
+  void       GetDumpFileNameF(int *id, char* filename, size_t filename_length);
+  int        GetDumpFileOnF(int *id);
+  void       GetDumpStringLineF(int *id, int* n, char* line, size_t line_length);
+  int        GetDumpStringLineCountF(int *id);
+  int        GetDumpStringOnF(int *id);
+  void       GetErrorFileNameF(int *id, char* filename, size_t filename_length);
+  int        GetErrorFileOnF(int *id);
+  int        GetErrorOnF(int *id);
+  void       GetErrorStringLineF(int *id, int* n, char* line, size_t line_length);
+  int        GetErrorStringLineCountF(int *id);
+  int        GetErrorStringOnF(int *id);
+  void       GetLogFileNameF(int *id, char* filename, size_t filename_length);
+  int        GetLogFileOnF(int *id);
+  void       GetLogStringLineF(int *id, int* n, char* line, size_t line_length);
+  int        GetLogStringLineCountF(int *id);
+  int        GetLogStringOnF(int *id);
+  int        GetNthSelectedOutputUserNumberF(int *id, int* n);
+  void       GetOutputFileNameF(int *id, char* filename, size_t filename_length);
+  int        GetOutputFileOnF(int *id);
+  void       GetOutputStringLineF(int *id, int* n, char* line, size_t line_length);
+  int        GetOutputStringLineCountF(int *id);
+  int        GetOutputStringOnF(int *id);
+  int        GetSelectedOutputColumnCountF(int *id);
+  int        GetSelectedOutputCountF(int *id);
+  void       GetSelectedOutputFileNameF(int *id, char* filename, size_t filename_length);
+  int        GetSelectedOutputFileOnF(int *id);
+  int        GetSelectedOutputRowCountF(int *id);
+  void       GetSelectedOutputStringLineF(int *id, int* n, char* line, size_t line_length);
+  int        GetSelectedOutputStringLineCountF(int *id);
+  int        GetSelectedOutputStringOnF(int *id);
+  IPQ_RESULT GetSelectedOutputValueF(int *id, int *row, int *col, int *vtype, double* dvalue, char* svalue, size_t svalue_length);
+  void       GetVersionStringF(char* version, size_t version_length);
+  void       GetWarningStringLineF(int *id, int* n, char* line, size_t line_length);
+  int        GetWarningStringLineCountF(int *id);
+  int        LoadDatabaseF(int *id, char* filename, size_t filename_length);
+  int        LoadDatabaseStringF(int *id, char* input, size_t input_length);
+  void       OutputAccumulatedLinesF(int *id);
+  void       OutputErrorStringF(int *id);
+  void       OutputWarningStringF(int *id);
+  int        RunAccumulatedF(int *id);
+  int        RunFileF(int *id, char* filename, size_t filename_length);
+  int        RunStringF(int *id, char* input, size_t input_length);
+  IPQ_RESULT SetBasicFortranCallbackF(int *id, double (*fcn)(double *x1, double *x2, const char *str, size_t l));
+  IPQ_RESULT SetCurrentSelectedOutputUserNumberF(int *id, int *n);
+  IPQ_RESULT SetDumpFileNameF(int *id, char* fname, size_t fname_length);
+  IPQ_RESULT SetDumpFileOnF(int *id, int* dump_on);
+  IPQ_RESULT SetDumpStringOnF(int *id, int* dump_string_on);
+  IPQ_RESULT SetErrorFileNameF(int *id, char* fname, size_t fname_length);
+  IPQ_RESULT SetErrorFileOnF(int *id, int* error_file_on);
+  IPQ_RESULT SetErrorOnF(int *id, int* error_on);
+  IPQ_RESULT SetErrorStringOnF(int *id, int* error_string_on);
+  IPQ_RESULT SetLogFileNameF(int *id, char* fname, size_t fname_length);
+  IPQ_RESULT SetLogFileOnF(int *id, int* log_file_on);
+  IPQ_RESULT SetLogStringOnF(int *id, int* log_string_on);
+  IPQ_RESULT SetOutputFileNameF(int *id, char* fname, size_t fname_length);
+  IPQ_RESULT SetOutputFileOnF(int *id, int* output_on);
+  IPQ_RESULT SetOutputStringOnF(int *id, int* output_string_on);
+  IPQ_RESULT SetSelectedOutputFileNameF(int *id, char* fname, size_t fname_length);
+  IPQ_RESULT SetSelectedOutputFileOnF(int *id, int* selected_output_file_on);
+  IPQ_RESULT SetSelectedOutputStringOnF(int *id, int* selected_output_string_on);
+
+
+#if defined(__cplusplus)
+}
+#endif
+void padfstring(char *dest, const char *src, unsigned int len);
+#endif  /* __FWRAP__H */
+#endif

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/fwrap1.cpp

@@ -0,0 +1,24 @@
+#ifdef IPHREEQC_NO_FORTRAN_MODULE
+#include "IPhreeqc.h"
+#include "fwrap.h"
+
+#if defined(_WIN32) && !defined(_M_AMD64)
+
+#if defined(__cplusplus)
+extern "C" {
+#endif
+
+//
+// Intel Fortran compiler 9.1 /iface:cvf
+//
+#define IPQ_DECL __stdcall
+#define IPQ_CASE_UND(name, NAME, name_, NAME_) NAME
+
+#include "fimpl.h"
+
+#if defined(__cplusplus)
+}
+#endif
+
+#endif
+#endif

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/fwrap2.cpp

@@ -0,0 +1,24 @@
+#ifdef IPHREEQC_NO_FORTRAN_MODULE
+#include "IPhreeqc.h"
+#include "fwrap.h"
+
+#if defined(_WIN32)
+
+#if defined(__cplusplus)
+extern "C" {
+#endif
+
+//
+// Intel Fortran compiler 9.1 /iface:cvf
+//
+#define IPQ_DECL
+#define IPQ_CASE_UND(name, NAME, name_, NAME_) NAME
+
+#include "fimpl.h"
+
+#if defined(__cplusplus)
+}
+#endif
+
+#endif
+#endif

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/fwrap3.cpp

@@ -0,0 +1,24 @@
+#ifdef IPHREEQC_NO_FORTRAN_MODULE
+#include "IPhreeqc.h"
+#include "fwrap.h"
+
+#if defined(_WIN32)
+
+#if defined(__cplusplus)
+extern "C" {
+#endif
+
+//
+// Intel Fortran compiler 9.1 /iface:cref /assume:underscore
+//
+#define IPQ_DECL 
+#define IPQ_CASE_UND(name, NAME, name_, NAME_) name_
+
+#include "fimpl.h"
+
+#if defined(__cplusplus)
+}
+#endif
+
+#endif
+#endif

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/fwrap4.cpp

@@ -0,0 +1,24 @@
+#ifdef IPHREEQC_NO_FORTRAN_MODULE
+#include "IPhreeqc.h"
+#include "fwrap.h"
+
+#if defined(_WIN32)
+
+#if defined(__cplusplus)
+extern "C" {
+#endif
+
+//
+// Intel Fortran compiler 9.1 /iface:default /names:lowercase
+//
+#define IPQ_DECL 
+#define IPQ_CASE_UND(name, NAME, name_, NAME_) name
+
+#include "fimpl.h"
+
+#if defined(__cplusplus)
+}
+#endif
+
+#endif
+#endif

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/fwrap5.cpp

@@ -0,0 +1,24 @@
+#ifdef IPHREEQC_NO_FORTRAN_MODULE
+#include "IPhreeqc.h"
+#include "fwrap.h"
+
+#if defined(_WIN32)
+
+#if defined(__cplusplus)
+extern "C" {
+#endif
+
+//
+// Intel Fortran compiler 9.1 /iface:default /names:default /assume:underscore
+//
+#define IPQ_DECL 
+#define IPQ_CASE_UND(name, NAME, name_, NAME_) NAME_
+
+#include "fimpl.h"
+
+#if defined(__cplusplus)
+}
+#endif
+
+#endif
+#endif

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/fwrap6.cpp

@@ -0,0 +1,25 @@
+#ifdef IPHREEQC_NO_FORTRAN_MODULE
+#include "IPhreeqc.h"
+#include "fwrap.h"
+
+#if defined(_WIN32) && !defined(_M_AMD64)
+
+#if defined(__cplusplus)
+extern "C" {
+#endif
+
+//
+// Intel Fortran compiler 9.1 /iface:stdref /names:uppercase /assume:underscore
+//
+#define IPQ_DECL __stdcall
+#define IPQ_CASE_UND(name, NAME, name_, NAME_) NAME_
+
+#include "fimpl.h"
+
+#if defined(__cplusplus)
+}
+#endif
+
+#endif // _WIN32
+#endif
+

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/fwrap7.cpp

@@ -0,0 +1,25 @@
+#ifdef IPHREEQC_NO_FORTRAN_MODULE
+#include "IPhreeqc.h"
+#include "fwrap.h"
+
+#if defined(_WIN32) && !defined(_M_AMD64)
+
+#if defined(__cplusplus)
+extern "C" {
+#endif
+
+//
+// Intel Fortran compiler 9.1 /iface:stdref /names:lowercase /assume:underscore
+//
+#define IPQ_DECL __stdcall
+#define IPQ_CASE_UND(name, NAME, name_, NAME_) name_
+
+#include "fimpl.h"
+
+#if defined(__cplusplus)
+}
+#endif
+
+#endif // _WIN32
+#endif
+

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/fwrap8.cpp

@@ -0,0 +1,24 @@
+#ifdef IPHREEQC_NO_FORTRAN_MODULE
+#include "IPhreeqc.h"
+#include "fwrap.h"
+
+#if defined(_WIN32) && !defined(_M_AMD64)
+
+#if defined(__cplusplus)
+extern "C" {
+#endif
+
+//
+// Intel Fortran compiler 9.1 /iface:stdref /names:lowercase
+//
+#define IPQ_DECL __stdcall
+#define IPQ_CASE_UND(name, NAME, name_, NAME_) name
+
+#include "fimpl.h"
+
+#if defined(__cplusplus)
+}
+#endif
+
+#endif // _WIN32
+#endif

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/phreeqcpp/ChartHandler.cpp

@@ -0,0 +1,225 @@
+// ChartHandler.cpp: implementation of the ChartHandler class.
+//
+//////////////////////////////////////////////////////////////////////
+#if defined MULTICHART
+#include "Phreeqc.h"
+#ifdef _DEBUG
+#pragma warning(disable : 4786)	// disable truncation warning (Only used by debugger)
+#endif
+#include "ChartHandler.h"
+#include <iostream>
+
+#if defined(PHREEQCI_GUI)
+#ifdef _DEBUG
+#define new DEBUG_NEW
+#undef THIS_FILE
+static char THIS_FILE[] = __FILE__;
+#endif
+#endif
+
+//////////////////////////////////////////////////////////////////////
+// Construction/Destruction
+//////////////////////////////////////////////////////////////////////
+
+ChartHandler::ChartHandler(PHRQ_io *io)
+:
+PHRQ_base(io)
+	//
+	// default constructor for ChartHandler
+	//
+{
+	current_chart = NULL;
+	current_chart_n_user = -1000;
+	u_g_defined = false;
+	timer = true;
+	active_charts = 0;
+}
+
+ChartHandler::~ChartHandler()
+{
+	std::map<int, ChartObject *>::iterator it;
+	for (it = this->chart_map.begin(); it != chart_map.end(); it++)
+	{
+		delete it->second;
+	}
+}
+void
+ChartHandler::Punch_user_graph(Phreeqc * phreeqc_ptr)
+{
+	std::map<int, ChartObject *>::iterator it = this->chart_map.begin();
+	for ( ; it != chart_map.end(); it++)
+	{
+		if (it->second->Get_active())
+		{
+#if defined(__cplusplus_cli)
+			while (0 != System::Threading::Interlocked::CompareExchange(it->second->usingResource, 4, 0))
+			{
+				System::Threading::Thread::Sleep(5);
+			}
+#endif
+			try
+			{
+				this->current_chart = it->second;
+				phreeqc_ptr-> punch_user_graph();
+			}
+			catch (...)
+			{
+#if defined(__cplusplus_cli)
+				int n = System::Threading::Interlocked::Exchange(it->second->usingResource, 0);
+				assert(n == 4);
+#endif
+				throw;
+			}
+#if defined(__cplusplus_cli)
+			System::Threading::Interlocked::Exchange(it->second->usingResource, 0);
+#endif
+		}
+	}
+}
+
+bool
+ChartHandler::Read(Phreeqc * phreeqc_ptr, CParser &parser)
+{
+	int n_user;
+	std::string token;
+
+	// reads line, next character is after keyword
+	parser.check_line("ChartHandler", true, false, true, false);
+
+	std::istringstream iss(parser.line());
+	// keyword
+	iss >> token;
+	// number
+	if (!(iss >> n_user))
+	{
+		n_user = 1;
+	}
+
+	// makes new ChartObject if necessary
+	std::map<int, ChartObject *>::iterator it = this->chart_map.find(n_user);
+	if (it == this->chart_map.end())
+	{
+		chart_map[n_user] = new ChartObject(this->Get_io());
+		it = this->chart_map.find(n_user);
+		it->second->Set_phreeqc(phreeqc_ptr);
+	}
+
+	// Read/update ChartObject
+#if defined(__cplusplus_cli)
+	while (0 != System::Threading::Interlocked::CompareExchange(it->second->usingResource, 5, 0))
+	{
+		System::Threading::Thread::Sleep(5);
+	}
+#endif
+	try
+	{
+		{
+			it->second->Read(parser);
+			current_chart_n_user = n_user;
+			current_chart = it->second;
+			u_g_defined = true;
+		}
+
+		// if detached, set timer_end and free
+		if (it->second->Get_detach() && it->second->Get_form_started())
+		{
+			it->second->Set_end_timer(true);
+			it->second->Rate_free();
+		}
+	}
+	catch(...)
+	{
+#if defined(__cplusplus_cli)
+		// Release lock
+		int n = System::Threading::Interlocked::Exchange(it->second->usingResource, 0);
+		assert(n == 5);
+		throw;
+#endif
+	}
+#if defined(__cplusplus_cli)
+	// Release lock
+	int n = System::Threading::Interlocked::Exchange(it->second->usingResource, 0);
+	assert(n == 5);
+#endif
+
+	// if detached, wait for thread to acknowledge and then erase chart
+	if (it->second->Get_detach())
+	{
+		while (it->second->Get_form_started() && it->second->Get_done() != true) 
+		{
+#if defined(__cplusplus_cli)
+			System::Threading::Thread::Sleep(5);
+#endif
+		}
+		delete it->second;
+		this->chart_map.erase(it);
+	}	
+	return true;
+}
+bool
+ChartHandler::End_timer()
+{
+	
+	size_t max_tries = 6000; // 1 h, but not used
+	std::map<int, ChartObject *>::iterator it = this->chart_map.begin();
+	if (chart_map.size() > 0) 
+	{
+		screen_msg("Detaching charts...");
+		if (io != NULL)
+		{
+			io->error_flush();
+		}
+	}
+	for  ( ; it != chart_map.end(); it++)
+	{
+		it->second->Rate_free();
+		if (it->second->Get_form_started())
+		{
+#if defined(__cplusplus_cli)
+			while (0 != System::Threading::Interlocked::CompareExchange(it->second->usingResource, 6, 0))
+			{
+				System::Threading::Thread::Sleep(60);
+			}
+#endif
+			it->second->Set_end_timer(true);
+			//it->second->Set_phreeqc(NULL);
+#if defined(__cplusplus_cli)
+			int n = System::Threading::Interlocked::Exchange(it->second->usingResource, 0);
+			assert(n == 6);
+#endif
+			while (it->second->Get_done() != true) 
+			{
+#if defined(__cplusplus_cli)
+				System::Threading::Thread::Sleep(60);
+#endif
+			}
+			//if (i >= max_tries || i2 >= max_tries)
+			//{
+			//	error_msg("\nChart did not respond.", CONTINUE);
+			//}
+		}
+	}
+	if (chart_map.size() > 0)
+	{
+		screen_msg("\rCharts detached.         \n");
+		if (io != NULL)
+		{
+			io->error_flush();
+		}
+	}
+	this->timer = false;
+
+	return true;
+}
+bool
+ChartHandler::dump(std::ostream & oss, unsigned int indent)
+{
+	std::map<int, ChartObject *>::iterator it = this->chart_map.begin();
+	for  ( ; it != chart_map.end(); it++)
+	{
+		it->second->dump(oss, indent);
+	}
+	return true;
+}
+#endif
+

pyEQL/phreeqc/ext/iphreeqc-3.8.6-17100/src/phreeqcpp/ChartHandler.h

@@ -0,0 +1,59 @@
+#if !defined(CHARTHANDLER_H_INCLUDED)
+#define CHARTHANDLER_H_INCLUDED
+#if defined MULTICHART
+#include <vector>
+#include <map>
+#include <string>
+#include "Parser.h"
+#include "ChartObject.h"
+#include "PHRQ_base.h"
+
+class ChartHandler: public PHRQ_base
+{
+
+public:
+	ChartHandler(PHRQ_io *io = NULL);
+	virtual ~ChartHandler();
+
+	size_t Get_chart_count()const
+	{
+		return this->chart_map.size();
+	}
+	ChartObject * Get_current_chart()
+	{
+		return this->current_chart;
+	}
+	const ChartObject * Get_current_chart()const
+	{
+		return this->current_chart;
+	}
+	bool Get_timer()
+	{
+		return timer;
+	}
+	int Get_active_charts() {return this->active_charts;}
+	void Increment_active_charts()
+	{
+		System::Threading::Interlocked::Increment(this->active_charts);
+	}
+	void Decrement_active_charts()
+	{
+		System::Threading::Interlocked::Decrement(this->active_charts);
+	}
+	bool Read(Phreeqc * phreeqc_ptr, CParser &parser);
+	void Punch_user_graph(Phreeqc * phreeqc_ptr);
+	bool End_timer();
+	bool dump(std::ostream & oss, unsigned int indent);
+protected:
+	std::map<int, ChartObject *> chart_map;
+	int current_chart_n_user;
+	ChartObject * current_chart;
+	bool u_g_defined;
+	bool timer;
+	int active_charts;
+
+public:
+
+};
+#endif // MULTICHART
+#endif // !defined(CHARTHANDLER_H_INCLUDED)