b495262aff
'cleanup' previously only deleted ThermoPhase, Kinetics, Transport, Domain1D, Sim1D, and XML_Node objects, while missing all objects associated with reactor networks (Reactor, ReactorNet, FlowDevice, Wall), MultiPhase, Func1, and reaction paths (ReactionPathBuilder, ReactionPathDiagram). Fixes #251.
90 lines
2.2 KiB
C++
90 lines
2.2 KiB
C++
/**
|
|
* @file ctfunctions.cpp
|
|
*/
|
|
#include <string.h>
|
|
#include <iostream>
|
|
|
|
#include "clib/ct.h"
|
|
#include "clib/ctreactor.h"
|
|
#include "clib/ctonedim.h"
|
|
#include "clib/ctmultiphase.h"
|
|
#include "clib/ctxml.h"
|
|
#include "clib/ctfunc.h"
|
|
#include "clib/ctrpath.h"
|
|
#include "ctmatutils.h"
|
|
|
|
using namespace std;
|
|
|
|
void reportError()
|
|
{
|
|
int buflen = 0;
|
|
char* output_buf = 0;
|
|
buflen = getCanteraError(buflen, output_buf) + 1;
|
|
output_buf = (char*)mxCalloc(buflen, sizeof(char));
|
|
getCanteraError(buflen, output_buf);
|
|
mexErrMsgTxt(output_buf);
|
|
}
|
|
|
|
void ctfunctions(int nlhs, mxArray* plhs[],
|
|
int nrhs, const mxArray* prhs[])
|
|
{
|
|
int job = getInt(prhs[1]);
|
|
int iok = 0, dbg, validate;
|
|
char* infile, *dbfile, *trfile, *idtag;
|
|
int buflen = 0;
|
|
char* output_buf = 0;
|
|
|
|
switch (job) {
|
|
|
|
// convert CK file to CTI
|
|
case 1:
|
|
if (nrhs < 8) {
|
|
mexErrMsgTxt("Wrong number of inputs.");
|
|
return;
|
|
}
|
|
infile = getString(prhs[2]);
|
|
dbfile = getString(prhs[3]);
|
|
trfile = getString(prhs[4]);
|
|
idtag = getString(prhs[5]);
|
|
dbg = getInt(prhs[6]);
|
|
validate = getInt(prhs[7]);
|
|
iok = ck_to_cti(infile, dbfile, trfile, idtag, dbg, validate);
|
|
break;
|
|
|
|
// get Cantera error
|
|
case 2:
|
|
buflen = getCanteraError(buflen, output_buf) + 1;
|
|
output_buf = (char*)mxCalloc(buflen, sizeof(char));
|
|
iok = getCanteraError(buflen, output_buf);
|
|
plhs[0] = mxCreateString(output_buf);
|
|
iok = 0;
|
|
return;
|
|
|
|
// add directory
|
|
case 3:
|
|
infile = getString(prhs[2]);
|
|
iok = addCanteraDirectory(strlen(infile), infile);
|
|
break;
|
|
|
|
// clear storage
|
|
case 4:
|
|
iok = domain_clear();
|
|
iok = sim1D_clear();
|
|
iok = mix_clear();
|
|
iok = xml_clear();
|
|
iok = func_clear();
|
|
iok = clearStorage();
|
|
iok = clear_reactors();
|
|
iok = clear_rxnpath();
|
|
break;
|
|
|
|
default:
|
|
mexErrMsgTxt("ctfunctions: unknown job");
|
|
}
|
|
plhs[0] = mxCreateNumericMatrix(1,1,mxDOUBLE_CLASS,mxREAL);
|
|
double* h = mxGetPr(plhs[0]);
|
|
*h = double(iok);
|
|
if (iok < 0) {
|
|
reportError();
|
|
}
|
|
}
|