.packageName <- "shogun"
#shogun <- function(...) .External("shogun",...,PACKAGE="shogun")

# Load the shogun dynamic library at startup.
#
.First.lib <- function(lib,pkg)
{
	cat(paste("\nWelcome! This is SHOGUN version \n"))
library.dynam("shogun", pkg, lib)
load(paste(lib, "/", "shogun", "/R/", "shogun.RData", sep=''), envir=.GlobalEnv)
cacheMetaData(1)
}
# Unload the library.
#
.Last.lib <- function(lib)
{
library.dynam.unload("shogun.so", lib)
}

# Because in packages with namespaces .First.lib will not be loaded
# one needs another functions called .onLoad resp. .onUnload
#
.onLoad <- function(lib, pkg) .First.lib(lib,pkg)
.onUnload <- function(lib) .Last.lib(lib)
