Function Ptr

   SuperStrict

   ' The following declares the interface of the function
   ' you want to assign to the function reference
   global someFunc(val:int, text:String)

   someFunc = dateOut

  someFunc(12, "Dec 2006")

  end

  function dateOut(date:int, text:string
     print string(date) + " " + text
  end function

Doesn't that just create "new executable code"?

Global FuncPtr:Byte Ptr '= ...
Global Func:Int ( ) = Int ( ) FuncPtr

Global FuncPtr:Byte Ptr '= ...
Global Func:Int ( ) = FuncPtr

Global b:Byte Ptr=MemAlloc(7)

b[0]=Byte(195)

Global func( a:Int )=Byte Ptr(b)

func( 5 )

class myClass {
    float Operator * ( Vec3 a, Vec3 b ) {
    }
}

Strict
Framework brl.blitz

'here we create a new bit of code in a temporary memory area:
Local PrepareArea:Byte Ptr = MemAlloc ( 7 )
PrepareArea [ 0 ] = 184 'mov eax,_RedirectFunc
( Byte Ptr Ptr ( PrepareArea + 1 ) ) [ 0 ] = RedirectFunc
PrepareArea [ 5 ] = 255 'jmp eax (part 1)
PrepareArea [ 6 ] = 224 'jmp eax (part 2)

'now we want to copy our new created function to the executable memory
'it should replace the String.FromWString function:
'MemCopy String.FromWString , PrepareArea , 7 'doesn't work, use this instead:
WriteProcessMemory GetCurrentProcess ( ) , String.FromWString , PrepareArea , 7 , Null 'works

'now let's just try to call String.FromWString and see what happens instead:
WriteStdout String.FromWString ( "Hello".ToWString ( ) ) + "~n"

Function RedirectFunc$ ( Param:Short Ptr )
  WriteStdout "Someone tried to call String.FromWString!~n"
  WriteStdout "String.FromWString was called with the following pointer as parameter:~n"
  WriteStdout Int Param + "~n"
  Return "This is the return value...."
EndFunction

Extern "Win32"
  Function GetCurrentProcess ( )
  Function WriteProcessMemory ( DstProc , Dst:Byte Ptr , Src:Byte Ptr , Size , Written Ptr )
EndExtern