R/Warehouses.R

In ralmond/Peanut: Parameterized Bayesian Networks, Abstract Classes

setClassUnion("PnodeWarehouse","NULL")
setClassUnion("PnetWarehouse","NULL")


ClearWarehouse <- function (warehouse)
  UseMethod("ClearWarehouse")
setGeneric("ClearWarehouse")

WarehouseManifest <- function (warehouse)
  UseMethod("WarehouseManifest")
setGeneric("WarehouseManifest")

"WarehouseManifest<-" <- function (warehouse,value)
  UseMethod("WarehouseManifest<-")
setGeneric("WarehouseManifest<-")

WarehouseData <- function (warehouse,name)
    UseMethod("WarehouseData")
setGeneric("WarehouseData")

WarehouseSupply <- function(warehouse,name,restoreOnly=FALSE)
  UseMethod("WarehouseSupply")
setGeneric("WarehouseSupply")

WarehouseInventory <- function(warehouse) {
  UseMethod("WarehouseInventory")
}
setGeneric("WarehouseInventory")




setMethod("WarehouseSupply", c("ANY"),
          function(warehouse,name,restoreOnly=FALSE) {
  val <- WarehouseFetch(warehouse,name)
  if (is.null(val))
    val <- WarehouseMake(warehouse,name,restoreOnly)
  val
})

WarehouseFetch <- function (warehouse,name)
    UseMethod("WarehouseFetch")
setGeneric("WarehouseFetch")

WarehouseMake <- function (warehouse,name,restoreOnly=FALSE)
    UseMethod("WarehouseMake")
setGeneric("WarehouseMake")

## Serial should have components name and data.
WarehouseUnpack <- function(warehouse,serial)
  UseMethod("WarehouseUnpack")
setGeneric("WarehouseUnpack")


WarehouseFree <- function (warehouse,name)
    UseMethod("WarehouseFree")
setGeneric("WarehouseFree")

is.PnodeWarehouse <- function (obj) {
  is(obj,"PnodeWarehouse")
}
setGeneric("is.PnodeWarehouse")

is.PnetWarehouse <- function (obj) {
  is(obj,"PnetWarehouse")
}
setGeneric("is.PnetWarehouse")

WarehouseCopy <- function (warehouse,obj,newname)
    UseMethod("WarehouseCopy")
setGeneric("WarehouseCopy")

WarehouseSave <- function (warehouse,obj)
    UseMethod("WarehouseSave")
setGeneric("WarehouseSave")

is.legal.name <- function (warehouse,name)
  UseMethod("is.legal.name")
setGeneric("is.legal.name")

as.legal.name <- function (warehouse,name)
  UseMethod("as.legal.name")
setGeneric("as.legal.name")

is.valid <- function (warehouse,object)
  UseMethod("is.valid")
setGeneric("is.valid")