R/zzz.R

In lorweiuk/CREx: Run behavioral experiments from R.

.onLoad <- function(path, libname) {
  
  # try( library.dynam( chname="libjpeg-9",    package=libname, lib.loc=path) )
  # try( library.dynam( chname="libmodplug-1", package=libname, lib.loc=path) )
  # try( library.dynam( chname="libogg-0",    package=libname, lib.loc=path) )
  # try( library.dynam( chname="libvorbis-0", package=libname, lib.loc=path) )

  # try( library.dynam( chname="libvorbisfile-3", package=libname, lib.loc=path) )
  # try( library.dynam( chname="libwebp-7",       package=libname, lib.loc=path) )
  # try( library.dynam( chname="SDL2",            package=libname, lib.loc=path) )
  # try( library.dynam( chname="SDL2_image",      package=libname, lib.loc=path) )

  # try( library.dynam( chname="SDL2_mixer", package=libname, lib.loc=path) )
  # try( library.dynam( chname="SDL2_ttf",   package=libname, lib.loc=path) )
  # try( library.dynam( chname="libmpg123-0",package=libname, lib.loc=path) )
  # try( library.dynam( chname="zlib1",      package=libname, lib.loc=path) )

  try( library.dynam( chname="libtiff-5",     package=libname, lib.loc=path) )
  try( library.dynam( chname="libpng16-16",   package=libname, lib.loc=path) )
  # try( library.dynam( chname="libfreetype-6", package=libname, lib.loc=path) )
  # try( library.dynam( chname="libFLAC-8",     package=libname, lib.loc=path) )
  try( library.dynam( chname="CREx",          package=libname, lib.loc=path) )

}

.onUnload <- function(path, libname) {

    # try( library.dynam.unload( chname="libjpeg-9",    libpath = paste0(path,"/",libname) ) )
    # try( library.dynam.unload( chname="libmodplug-1", libpath = paste0(path,"/",libname) ) )
    # try( library.dynam.unload( chname="libogg-0",    libpath = paste0(path,"/",libname) ) )
    # try( library.dynam.unload( chname="libvorbis-0", libpath = paste0(path,"/",libname) ) )

    # try( library.dynam.unload( chname="libvorbisfile-3", libpath = paste0(path,"/",libname) ) )
    # try( library.dynam.unload( chname="libwebp-7",       libpath = paste0(path,"/",libname) ) )
    # try( library.dynam.unload( chname="SDL2",            libpath = paste0(path,"/",libname) ) )
    # try( library.dynam.unload( chname="SDL2_image",      libpath = paste0(path,"/",libname) ) )

    # try( library.dynam.unload( chname="SDL2_mixer",  libpath = paste0(path,"/",libname) ) )
    # try( library.dynam.unload( chname="SDL2_ttf",    libpath = paste0(path,"/",libname) ) )
    # try( library.dynam.unload( chname="libmpg123-0", libpath = paste0(path,"/",libname) ) )
    # try( library.dynam.unload( chname="zlib1",       libpath = paste0(path,"/",libname) ) )

    try( library.dynam.unload( chname="libtiff-5",     libpath = paste0(path,"/",libname) ) )
    try( library.dynam.unload( chname="libpng16-16",   libpath = paste0(path,"/",libname) ) )
    # try( library.dynam.unload( chname="libfreetype-6", libpath = paste0(path,"/",libname) ) )
    # try( library.dynam.unload( chname="libFLAC-8",     libpath = paste0(path,"/",libname) ) )
    try( library.dynam.unload( chname="CREx",          libpath = paste0(path,"/",libname) ) )

}

.CRset_timer_resolution <- function(resolution) {

  if ( !is.numeric(resolution) ) {
    stop("Timer resolution must be numeric.")
  }

  resout <- .Call("SDLset_timer_resolution", resolution, PACKAGE = "CREx")

  if (is.numeric(resout)) {
    if (resout == -1) {
      return(NULL)
    }
  }

  return(resout)
}

.CRreset_timer_resolution <- function(resolution) {

  if ( !is.numeric(resolution) ) {
    stop("Timer resolution must be numeric.")
  }

  invisible( .Call("SDLreset_timer_resolution", resolution, PACKAGE = "CREx") )
}