.packageName <- "hdf5"
"hdf5load" <-  function (file, load = TRUE, verbosity = 0, tidy = FALSE)
{
  call <- sys.call()
  .External("do_hdf5load", call, sys.frame(sys.parent()), file, load,
            as.integer (verbosity), as.logical(tidy),
            PACKAGE="hdf5")
}   

"hdf5save" <- function (fileout, ...)
{
  call <- sys.call()
  invisible(.External("do_hdf5save", call, sys.frame(sys.parent()),
                      fileout, ..., PACKAGE="hdf5"))
}

"hdf5cleanup" <- function (fid)
{
  call <- sys.call()
  invisible(.External("do_hdf5cleanup", call, sys.frame(sys.parent()), fid,
            PACKAGE="hdf5"))
}
.noGenerics <- TRUE

.onLoad <- function(lib, pkg)
{
  opath <-  Sys.getenv("PATH")
  libbin <- file.path(R.home(), "library/hdf5/libs")
  if(!exists("Sys.setenv")) Sys.setenv <- Sys.putenv
  Sys.setenv(PATH=paste(libbin, opath, sep=";"))
  library.dynam("hdf5", pkg, lib)
  Sys.setenv(PATH=opath)
}

.onUnload <- function (libpath)
{
   library.dynam.unload("hdf5", libpath)
}
