TOPIC:

using System.Reflection
using XSharp.RDD.Enums
using XSharp.RDD.Support
using XSharp.RDD

public delegate XSErrorHandler( oError as XSharp.Error ) as void

class XSRuntimeHandler
	static protect initonly _oHandler as XSRuntimeHandler
	protect _oError as XSharp.Error
	protect _oErrorHandler as XSErrorHandler

static constructor()

	_oHandler := XSRuntimeHandler{}

	return

protected constructor()

	self:_SetErrorBlock()

	return

protected method _SetErrorBlock() as void
	local oBlock as ICodeblock
	local oMC as IMacroCompiler
	local oType as System.Type
	local lIsBlock as logic
	local lAddsMemvars as logic
	local lIsCodeBlock as logic
	local oBlockType as System.Type
	local cBlock as string
	local oCbType as System.Type

	oBlock := null
	cBlock := "{|o| XSRuntimeHandler.HandleError(o) }"

	try

	oMC := XSharp.RuntimeState.MacroCompiler
	oType := typeof( Workarea )
	if oMC != null
		oBlock  := oMC:Compile( cBlock, true, oType:Module, out lIsBlock, out lAddsMemvars )
		lIsCodeBlock := false
		oBlockType := oBlock:GetType()
		while oBlockType != null
			if oBlockType:FullName != "XSharp._Codeblock"
				oBlockType := oBlockType:BaseType
			else
				lIsCodeBlock := true
				exit
			endif
		enddo
		if ! lIsCodeBlock
			oCbType := null
		    foreach oAsm as Assembly in AppDomain.CurrentDomain:GetAssemblies()
		    	if oAsm:GetName():Name:ToLower() == "xsharp.rt"
		            oCbType := oAsm:GetType( "XSharp._Codeblock" )
		            if oCbType == null
		            	foreach oT as Type in oAsm:GetTypes()
		                    if oT:FullName:ToLower() == "xsharp._codeblock"
		                        oCbType := oT
		                        exit
		                    endif
		                next
		            endif
		        endif
		        if oCbType != null
		            exit
		        endif
		    next
			if oCbType != null
				oBlock  := (ICodeblock) Activator.CreateInstance( oCbType, <object>{ oBlock, cBlock, lIsCodeBlock, lAddsMemvars} )
			endif
		endif
	endif
	ErrorBlock( ( codeblock ) oBlock )

	catch oEx as Exception

	HandleError( XSharp.Error{ oEx } )

	end try

	return

static property Error as XSharp.Error get _oHandler:_oError
static property ErrorHandler as XSErrorHandler set _oHandler:_oErrorHandler := value

static method HandleError( o as XSharp.Error ) as void

	_oHandler:_oError := o
	if _oHandler:_oErrorHandler != null
		_oHandler:_oErrorHandler:Invoke( o )
	endif

	return

end class

using XSharp.RDD.Enums
using XSharp.RDD.Support
using XSharp.RDD

function Start( ) as void
	local oRDETester			as RDETester

	System.Console.WriteLine("Start test...")
	oRDETester			:= RDETester{}
	if oRDETester:Initialize()
		oRDETester:Process()
	endif
	oRDETester:Dispose()
	System.Console.WriteLine("End test...")
	System.Console.WriteLine("Press return...")
	System.Console.ReadLine()

	return

class RDETester implements IDisposable
protect _oServer as XSharp.VO.SDK.DbServer
protect _cFileName as string

constructor()

	_cFileName := "c:\temp\RDETester.dbf"

	return

method Initialize() as logic
	local aStruct as array

	XSRuntimeHandler.ErrorHandler := HandleError

	if System.IO.File.Exists( _cFileName )
		System.IO.File.Delete( _cFileName )
	endif

	aStruct := ArrayNew( 2 )
	aStruct[1] := { "F1", "C", 20, 0 }
	aStruct[2] := { "F2", "N", 10, 2 }

	DbCreate( _cFileName, aStruct , "DBFCDX")
	DbCloseArea()

	_oServer := XSharp.VO.SDK.DbServer{ _cFileName, true, false, "DBFCDX" }
	_oServer:Append( true )

	return true

method HandleError( o as XSharp.Error ) as void

	System.Console.WriteLine( "Error has occurred"  )
	System.Console.WriteLine( "Subsystem:" + o:SubSystem )
	System.Console.WriteLine( "Function:" + o:FuncSym )
	System.Console.WriteLine( "Description:" + o:Description )

	return

method Process() as logic

	_oServer:FieldPut( "F1", "hallo" )
	_oServer:FieldPut( "F2", 100 )
	_oServer:FieldPut( "F3", 100 )

	return true

method Dispose() as void

	if _oServer != null
		if _oServer:Used
			_oServer:Close()
		endif
		_oServer			:= null
	endif

	return

end class

protected method _SetErrorBlock() as void
	local oBlock as ICodeblock

	oBlock := {|o| XSRuntimeHandler.HandleError( o ) }
	ErrorBlock( ( codeblock ) oBlock )

	return