wap.hpp

boomerang library 5.11 internet ed

// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Wap.pas' rev: 10.00

#ifndef WapHPP
#define WapHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Connect.hpp>	// Pascal unit
#include <Contnrs.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Wap
{
//-- type declarations -------------------------------------------------------
typedef unsigned TMultiByte;

struct TWAPEnumeration
{
	
public:
	unsigned Id;
	AnsiString Text;
	Byte Ver;
} ;

struct TWBXMLTagSpaceEnumeration
{
	
public:
	Byte Id;
	AnsiString Name;
	Byte CodeSpace;
} ;

struct TWBXMLAttribSpaceEnumeration
{
	
public:
	Byte Id;
	AnsiString Name;
	WideString ValuePrefix;
	int Options;
	Byte CodeSpace;
} ;

struct TWBXMLValueSpaceEnumeration
{
	
public:
	Byte Id;
	WideString Value;
	Byte CodeSpace;
} ;

typedef TWBXMLTagSpaceEnumeration TWBXMLTagSpaceEnumerationOpenArray[256];

typedef TWBXMLAttribSpaceEnumeration TWBXMLAttribSpaceEnumerationOpenArray[256];

typedef TWBXMLValueSpaceEnumeration TWBXMLValueSpaceEnumerationOpenArray[256];

typedef TWAPEnumeration Wap__1[93];

typedef TWAPEnumeration Wap__2[9];

typedef TWAPEnumeration Wap__3[3];

typedef TWAPEnumeration Wap__4[32];

typedef TWAPEnumeration Wap__5[8];

typedef TWAPEnumeration Wap__6[29];

typedef TWAPEnumeration Wap__7[2];

class DELPHICLASS TStringTable;
class PASCALIMPLEMENTATION TStringTable : public Contnrs::TObjectList 
{
	typedef Contnrs::TObjectList inherited;
	
public:
	WideString operator[](int Index) { return Strings[Index]; }
	
private:
	WideString __fastcall GetString(int Index);
	void __fastcall SetString(int Index, const WideString Value);
	bool __fastcall GetMandatory(int Index);
	void __fastcall SetMandatory(int Index, const bool Value);
	
public:
	__property WideString Strings[int Index] = {read=GetString, write=SetString/*, default*/};
	__property bool Mandatories[int Index] = {read=GetMandatory, write=SetMandatory};
	HIDESBASE int __fastcall Add(const WideString S, bool aMandatory = false);
	HIDESBASE int __fastcall IndexOf(const WideString S);
public:
	#pragma option push -w-inl
	/* TObjectList.Create */ inline __fastcall TStringTable(void)/* overload */ : Contnrs::TObjectList() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TStringTable(void) { }
	#pragma option pop
	
};


class DELPHICLASS TXMLValue;
class PASCALIMPLEMENTATION TXMLValue : public Contnrs::TObjectList 
{
	typedef Contnrs::TObjectList inherited;
	
private:
	virtual WideString __fastcall GetAsString();
	void __fastcall SetAsString(const WideString Value);
	System::TDateTime __fastcall GetAsDateTime(void);
	void __fastcall SetAsDateTime(const System::TDateTime Value);
	
public:
	__property WideString asString = {read=GetAsString, write=SetAsString};
	__property System::TDateTime asDateTime = {read=GetAsDateTime, write=SetAsDateTime};
	void __fastcall AddString(const WideString S);
	void __fastcall AddFromStream(Classes::TStream* St, int aLen);
public:
	#pragma option push -w-inl
	/* TObjectList.Create */ inline __fastcall TXMLValue(void)/* overload */ : Contnrs::TObjectList() { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TXMLValue(void) { }
	#pragma option pop
	
};


class DELPHICLASS TXMLElement;
class DELPHICLASS TXMLAttrib;
class PASCALIMPLEMENTATION TXMLElement : public TXMLValue 
{
	typedef TXMLValue inherited;
	
private:
	Contnrs::TObjectList* fAttribs;
	AnsiString fName;
	TXMLElement* fParent;
	
public:
	__fastcall virtual TXMLElement(void);
	__fastcall virtual ~TXMLElement(void);
	HIDESBASE void __fastcall Clear(void);
	__property AnsiString Name = {read=fName, write=fName};
	__property Contnrs::TObjectList* Attribs = {read=fAttribs};
	__property TXMLElement* Parent = {read=fParent, write=fParent};
	int __fastcall ElementCount(const AnsiString aName);
	TXMLElement* __fastcall ElementFind(const AnsiString aName, int aIdx);
	TXMLElement* __fastcall ElementGet(const AnsiString aName, int aIdx);
	TXMLElement* __fastcall ElementAdd(const AnsiString aName)/* overload */;
	TXMLElement* __fastcall ElementAdd(const AnsiString aName, WideString aValue)/* overload */;
	TXMLElement* __fastcall ElementAdd(const AnsiString aName, Classes::TStream* aValue)/* overload */;
	int __fastcall AttribCount(const AnsiString aName);
	TXMLAttrib* __fastcall AttribFind(const AnsiString aName, int aIdx);
	TXMLAttrib* __fastcall AttribGet(const AnsiString aName, int aIdx);
	TXMLAttrib* __fastcall AttribAdd(const AnsiString aName, WideString aValue)/* overload */;
	TXMLAttrib* __fastcall AttribAdd(const AnsiString aName, Classes::TStream* aValue)/* overload */;
	TXMLAttrib* __fastcall AttribAdd(const AnsiString aName, System::TDateTime aValue)/* overload */;
};


class DELPHICLASS TXMLText;
class PASCALIMPLEMENTATION TXMLText : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	WideString fText;
	
public:
	__property WideString Text = {read=fText, write=fText};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TXMLText(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TXMLText(void) { }
	#pragma option pop
	
};


class DELPHICLASS TXMLText2;
class PASCALIMPLEMENTATION TXMLText2 : public TXMLText 
{
	typedef TXMLText inherited;
	
private:
	bool Mandatory;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TXMLText2(void) : TXMLText() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TXMLText2(void) { }
	#pragma option pop
	
};


class DELPHICLASS TXMLText3;
class PASCALIMPLEMENTATION TXMLText3 : public TXMLText 
{
	typedef TXMLText inherited;
	
private:
	Byte fKind;
	unsigned fId;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TXMLText3(void) : TXMLText() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TXMLText3(void) { }
	#pragma option pop
	
};


class DELPHICLASS TXMLStream;
class PASCALIMPLEMENTATION TXMLStream : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Classes::TStringStream* fStream;
	System::TDateTime __fastcall GetAsDateTime(void);
	void __fastcall SetAsDateTime(const System::TDateTime Value);
	
public:
	__fastcall TXMLStream(void);
	__fastcall virtual ~TXMLStream(void);
	__property Classes::TStringStream* Stream = {read=fStream};
	__property System::TDateTime asDateTime = {read=GetAsDateTime, write=SetAsDateTime};
};