# Package: rdyncall
# File: R/dyncall.R
# Description: dyncall bindings for R

# ----------------------------------------------------------------------------
# call vm alloc/free (internal)

new.callvm <- function( 
  callmode = c(
    "cdecl",
    "stdcall",
    "thiscall","thiscall.gcc","thiscall.msvc",
    "fastcall","fastcall.gcc","fastcall.msvc")
, size = 4096 )
{
  callmode <- match.arg(callmode)
  x <- .Call("new_callvm", callmode, as.integer(size), PACKAGE="rdyncall")
  reg.finalizer(x, free.callvm)
  return(x)
}

free.callvm <- function(x)
{
  .Call("free_callvm", x, PACKAGE="rdyncall")
}

# ----------------------------------------------------------------------------
# CallVM's for calling conventions - will be initialized .onLoad

callvm.default       <- callvm.cdecl         <- NULL
callvm.stdcall       <- NULL
callvm.thiscall      <- NULL
callvm.thiscall.gcc  <- NULL
callvm.thiscall.msvc <- NULL
callvm.fastcall      <- NULL
callvm.fastcall.gcc  <- NULL
callvm.fastcall.msvc <- NULL

# ----------------------------------------------------------------------------
# public interface

.dyncall <- function( address, signature, ... , callmode = "default" )
{
  callvm <- switch(callmode, 
      default=callvm.default,
      cdecl=callvm.cdecl, 
      stdcall=callvm.stdcall, 
      thiscall=,thiscall.gcc=callvm.thiscall.gcc, thiscall.msvc=callvm.thiscall.msvc, 
      fastcall=,fastcall.gcc=callvm.fastcall.gcc, fastcall.msvc=callvm.fastcall.msvc)
  .External("dyncall", callvm, address, signature, ..., PACKAGE="rdyncall")
}

.dyncall.cdecl <- function( address, signature, ... ) .External("dyncall", callvm.cdecl, address, signature, ..., PACKAGE="rdyncall")
.dyncall.default <- function( address, signature, ... ) .External("dyncall", callvm.default, address, signature, ..., PACKAGE="rdyncall")
.dyncall.stdcall <- function( address, signature, ... ) .External("dyncall", callvm.stdcall, address, signature, ..., PACKAGE="rdyncall")
.dyncall.thiscall.gcc <- function( address, signature, ... ) .External("dyncall", callvm.thiscall.gcc, address, signature, ..., PACKAGE="rdyncall")
.dyncall.thiscall.msvc <- function( address, signature, ... ) .External("dyncall", callvm.thiscall.msvc, address, signature, ..., PACKAGE="rdyncall")
.dyncall.fastcall.gcc <- function( address, signature, ... ) .External("dyncall", callvm.fastcall.gcc, address, signature, ..., PACKAGE="rdyncall")
.dyncall.fastcall.msvc <- function( address, signature, ... ) .External("dyncall", callvm.fastcall.msvc, address, signature, ..., PACKAGE="rdyncall")

.dyncall.thiscall <- .dyncall.thiscall.gcc
.dyncall.fastcall <- .dyncall.fastcall.gcc

# ----------------------------------------------------------------------------
# initialize callvm's on load

.onLoad <- function(libname,pkgname)
{
  callvm.cdecl         <<- new.callvm("cdecl")
  callvm.default       <<- callvm.cdecl
  callvm.stdcall       <<- new.callvm("stdcall")
  callvm.thiscall      <<- new.callvm("thiscall")
  callvm.thiscall.gcc  <<- new.callvm("thiscall.gcc")
  callvm.thiscall.msvc <<- new.callvm("thiscall.msvc")
  callvm.fastcall      <<- new.callvm("fastcall")
  callvm.fastcall.gcc  <<- new.callvm("fastcall.gcc")
  callvm.fastcall.msvc <<- new.callvm("fastcall.msvc")
}