Gecko [ www.jdcpatala.org ]

Name	Size	Permission
boost_shared_ptr.i	20.88 KB	-rw-r--r--
cdata.i	30 B	-rw-r--r--
exception.i	225 B	-rw-r--r--
r.swg	6.27 KB	-rw-r--r--
rcontainer.swg	5.38 KB	-rw-r--r--
rfragments.swg	4.88 KB	-rw-r--r--
rkw.swg	682 B	-rw-r--r--
ropers.swg	939 B	-rw-r--r--
rrun.swg	8.92 KB	-rw-r--r--
rstdcommon.swg	4.96 KB	-rw-r--r--
rtype.swg	8.17 KB	-rw-r--r--
srun.swg	3.82 KB	-rw-r--r--
std_alloc.i	26 B	-rw-r--r--
std_common.i	2.22 KB	-rw-r--r--
std_container.i	57 B	-rw-r--r--
std_deque.i	25 B	-rw-r--r--
std_except.i	35 B	-rw-r--r--
std_list.i	167 B	-rw-r--r--
std_map.i	67 B	-rw-r--r--
std_pair.i	68 B	-rw-r--r--
std_shared_ptr.i	68 B	-rw-r--r--
std_string.i	35 B	-rw-r--r--
std_vector.i	37.91 KB	-rw-r--r--
stl.i	270 B	-rw-r--r--
typemaps.i	33 B	-rw-r--r--

Code Editor : srun.swg

#                         srun.swg                            #
#
# This is the basic code that is needed at run time within R to
# provide and define the relevant classes.  It is included
# automatically in the generated code by copying the contents of
# srun.swg into the newly created binding code.

# This could be provided as a separate run-time library but this
# approach allows the code to be included directly into the
# generated bindings and so removes the need to have and install an
# additional library.  We may however end up with multiple copies of
# this and some confusion at run-time as to which class to use. This
# is an issue when we use NAMESPACES as we may need to export certain
# classes.

######################################################################

if(length(getClassDef("RSWIGStruct")) == 0) 
  setClass("RSWIGStruct", representation("VIRTUAL"))

if(length(getClassDef("ExternalReference")) == 0) 
# Should be virtual but this means it loses its slots currently
#representation("VIRTUAL")
  setClass("ExternalReference", representation( ref = "externalptr"))

if(length(getClassDef("NativeRoutinePointer")) == 0) 
  setClass("NativeRoutinePointer", 
              representation(parameterTypes = "character",
                             returnType = "character",
                             "VIRTUAL"), 
              contains = "ExternalReference")

if(length(getClassDef("CRoutinePointer")) == 0) 
  setClass("CRoutinePointer", contains = "NativeRoutinePointer")

if(length(getClassDef("EnumerationValue")) == 0) 
  setClass("EnumerationValue", contains = "integer")

if(!isGeneric("copyToR")) 
 setGeneric("copyToR",
            function(value, obj = new(gsub("Ref$", "", class(value)))) 
               standardGeneric("copyToR"
           ))

setGeneric("delete", function(obj) standardGeneric("delete"))

SWIG_createNewRef = 
function(className, ..., append = TRUE)
{
  f = get(paste("new", className, sep = "_"), mode = "function")

f(...)
}

if(!isGeneric("copyToC")) 
 setGeneric("copyToC", 
             function(value, obj = SWIG_createNewRef(class(value)))
              standardGeneric("copyToC"
            ))

# 
defineEnumeration =
function(name, .values, where = topenv(parent.frame()), suffix = "Value")
{
   # Mirror the class definitions via the E analogous to .__C__
  defName = paste(".__E__", name, sep = "")
  delayedAssign(defName,  .values, assign.env = where)

if(nchar(suffix))
    name = paste(name, suffix, sep = "")

setClass(name, contains = "EnumerationValue", where = where)
}

enumToInteger <- function(name,type)
{
   if (is.character(name)) {
   ans <- as.integer(get(paste(".__E__", type, sep = ""))[name])
   if (is.na(ans)) {warning("enum not found ", name, " ", type)}
   ans
   } 
}

enumFromInteger =
function(i,type)
{
  itemlist <- get(paste(".__E__", type, sep=""))
  names(itemlist)[match(i, itemlist)]
}

coerceIfNotSubclass =
function(obj, type) 
{
    if(!is(obj, type)) {as(obj, type)} else obj
}

setClass("SWIGArray", representation(dims = "integer"), contains = "ExternalReference")

setMethod("length", "SWIGArray", function(x) x@dims[1])

defineEnumeration("SCopyReferences",
                   .values = c( "FALSE" = 0, "TRUE" = 1, "DEEP" = 2))

assert = 
function(condition, message = "")
{
  if(!condition)
    stop(message)

TRUE
}

if(FALSE) {
print.SWIGFunction =
function(x, ...)
 {
 }
}

#######################################################################

R_SWIG_getCallbackFunctionStack =
function()
{
    # No PACKAGE argument as we don't know what the DLL is.
  .Call("R_SWIG_debug_getCallbackFunctionData")
}

R_SWIG_addCallbackFunctionStack =
function(fun, userData = NULL)
{
    # No PACKAGE argument as we don't know what the DLL is.
  .Call("R_SWIG_R_pushCallbackFunctionData", fun, userData)
}

#######################################################################

${this.title}

Code Editor : srun.swg