hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Recovered from cvs revision 2007-08-16 15:19:00

Browse Source
This commit is contained in:
hyung-hwan
2007-08-17 00:19:00 +00:00
parent 6270be21c9
commit b09566a637
4 changed files with 94 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
ase/net/Awk.cpp
View File

@ -1,5 +1,5 @@
/*
* $Id: Awk.cpp,v 1.11 2007/08/05 14:52:54 bacon Exp $
* $Id: Awk.cpp,v 1.13 2007/08/15 15:25:06 bacon Exp $
*/
#include "stdafx.h"
@ -18,12 +18,16 @@ namespace ASE
{
class StubAwk: public Awk
{
public:
public:
StubAwk (Net::Awk^ wrapper): wrapper(wrapper)
{
}
~StubAwk ()
{
wrapper = nullptr;
}
int stubFunctionHandler (
Return* ret, const Argument* args, size_t nargs,
const char_t* name, size_t len)
@ -45,8 +49,7 @@ namespace ASE
{
gh.Free ();
io.setHandle (NULL);
return -1;
return -1;
}
}
@ -389,8 +392,8 @@ namespace ASE
ase_vfprintf (stderr, fmt, arg);
}
private:
msclr::auto_gcroot<ASE::Net::Awk^> wrapper;
protected:
msclr::auto_gcroot<ASE::Net::Awk^> wrapper;
};
namespace Net
@ -404,19 +407,53 @@ namespace ASE
//throw new AwkException ("cannot open awk");
}
//option = awk->getOption ();
//Option = Option | OPTION::CRLF;
option = (OPTION)(awk->getOption () | awk->OPT_CRLF);
awk->setOption ((int)option);
}
Awk::~Awk ()
{
Close ();
delete awk;
System::Diagnostics::Debug::Print ("Awk::~Awk");
if (awk != NULL)
{
awk->close ();
ASE::Awk* tmp = awk;
awk = NULL;
delete tmp;
}
}
Awk::!Awk ()
{
System::Diagnostics::Debug::Print ("Awk::!Awk");
if (awk != NULL)
{
awk->close ();
ASE::Awk* tmp = awk;
awk = NULL;
delete tmp; // this causes Awk::~Awk to be called because the destrucotr of StubAwk reference to this with auto_gcroot
}
}
Awk::OPTION Awk::Option::get ()
{
if (awk != NULL) this->option = (OPTION)awk->getOption ();
return this->option;
}
void Awk::Option::set (Awk::OPTION opt)
{
this->option = opt;
if (awk != NULL) awk->setOption ((int)this->option);
}
void Awk::Close ()
{
awk->close ();
System::Diagnostics::Debug::Print ("Awk::Close");
if (awk != NULL)
{
awk->close ();
}
}
bool Awk::Parse ()

11
ase/net/Awk.hpp
View File

@ -1,5 +1,5 @@
/*
* $Id: Awk.hpp,v 1.9 2007/08/05 14:52:54 bacon Exp $
* $Id: Awk.hpp,v 1.11 2007/08/15 15:25:06 bacon Exp $
*/
#pragma once
@ -164,6 +164,7 @@ namespace ASE
typedef ASE::Awk::char_t char_t;
Awk ();
!Awk ();
virtual ~Awk ();
//bool Open ();
@ -177,15 +178,15 @@ namespace ASE
bool AddFunction (System::String^ name, int minArgs, int maxArgs, FunctionHandler^ handler);
bool DeleteFunction (System::String^ name);
property OPTION^ Option
property OPTION Option
{
OPTION^ get () { return this->option; }
void set (OPTION^ opt) { this->option = opt; }
OPTION get (); //{ return this->option; }
void set (OPTION opt); //{ this->option = opt; }
}
protected:
ASE::Awk* awk;
OPTION^ option;
OPTION option;
public protected:
// Source