Determines whether a give name exists is registered in the CORBA naming service.

Usage

checkCorbaObjectExists(..., server="")

Arguments

... a CORBA object identifier - a collection of character vectors defining a nested name relative to the default naming service.
server the default naming service relative to which a nested name should be resolved.

Description

Determines whether the specified CORBA object exists in the naming service

Value

logical, with TRUE indicating the object does exist (but is not necessarily active) or FALSE indicating that no object is bound to that name.

Author(s)

Duncan Temple Lang

References

http://www.omegahat.org/CORBA

See Also

namingServiceContents,

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	     or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (..., server = "") 
{
    name <- as.character(unlist(list(...), recursive = F))
    cur <- ""
    contents <- namingServiceContents(as.character(server))
    n <- length(name)
    for (i in 1:n) {
        if (is.na(match(name[i], contents))) {
            return(list(F, element = name[i], index = i))
        }
        if (i < n) {
            cur <- c(cur, name[i])
            contents <- namingServiceContents(cur)
        }
        else return(T)
    }
  }

[Package Contents]