cron.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) 'Cron.pas' rev: 10.00

#ifndef CronHPP
#define CronHPP

#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 <Sysutils.hpp>	// Pascal unit

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

namespace Cron
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TCronCheck { cchMinutes, cchHours, cchDays, cchMonths, cchWeekdays, cchYears, cchYearDays, cchSeconds };
#pragma option pop

typedef Set<Byte, 0, 255>  TSetOfByte;

class DELPHICLASS TCron;
class PASCALIMPLEMENTATION TCron : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TSetOfByte fSets[8];
	TSetOfByte fYearDays2Set;
	bool fExtendedSyntax;
	AnsiString __fastcall GetField(AnsiString aPattern, int I);
	void __fastcall ParseStr(AnsiString &aPattern);
	TSetOfByte __fastcall GetChecks(TCronCheck Idx);
	void __fastcall SetChecks(TCronCheck Idx, const TSetOfByte &Value);
	void __fastcall SetPattern(AnsiString aPattern);
	AnsiString __fastcall GetPattern();
	
protected:
	virtual void __fastcall SetPatternItem(TCronCheck aCheck, AnsiString aPattern);
	virtual AnsiString __fastcall GetPatternItem(TCronCheck aCheck);
	
public:
	bool __fastcall IsEmpty(void);
	bool __fastcall IsMatch(TCronCheck aCheck, Word aVal)/* overload */;
	bool __fastcall IsMatch(System::TDateTime aDT)/* overload */;
	void __fastcall SetCheck(TCronCheck aCheck, Word aVal, bool aEnable = true)/* overload */;
	void __fastcall SetCheck(TCronCheck aCheck, Word aValFrom, Word aValTo, bool aEnable = true)/* overload */;
	__property AnsiString Pattern = {read=GetPattern, write=SetPattern};
	__property TSetOfByte Checks[TCronCheck Idx] = {read=GetChecks, write=SetChecks};
	__property bool ExtendedSyntax = {read=fExtendedSyntax, write=fExtendedSyntax, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TCron(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TCron(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Cron */
using namespace Cron;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Cron