R/process_state.R

In NetSim: A Social Networks Simulation Tool in R

create_process_state <- function(name = "default"){
	.Call( "create_process_state", name, PACKAGE = "NetSim" )
}

get_process_state_name <- function(processState){
	.Call("get_process_state_name", processState, PACKAGE = "NetSim")
}

add_network <- function(processState, network, name = "defaultNetwork"){
	.Call("add_network", processState, network, name, PACKAGE = "NetSim")
}

get_network_index <- function(processState, name = "defaultNetwork"){
	.Call("get_network_index", processState, name, PACKAGE = "NetSim")
} 

get_network <- function(processState, name = "defaultNetwork"){
	.Call("get_network", processState, name, PACKAGE = "NetSim")
} 

add_attribute_container <- function(processState, attributeContainer, name = "defaultAttribute"){
	.Call("add_attribute_container", processState, attributeContainer, name, PACKAGE = "NetSim")
}

get_attribute_container_index <- function(processState, name = "defaultAttribute"){
	.Call("get_attribute_container_index", processState, name, PACKAGE = "NetSim")
} 

get_attribute_container <- function(processState, name = "defaultAttribute"){
	.Call("get_attribute_container", processState, name, PACKAGE = "NetSim")
} 

#RcppExport SEXP add_global_attribute(SEXP processStateManager, SEXP value, SEXP name);
add_global_attribute <- function(processState, value = 0, name = "defaultGlobalAttribute"){
	.Call("add_global_attribute", processState, value, name, PACKAGE = "NetSim")
}

#RcppExport SEXP get_global_attribute_index(SEXP processStateManager, SEXP name);
get_global_attribute_index <- function(processState, name = "defaultGlobalAttribute"){
	.Call("get_global_attribute_index", processState, name, PACKAGE = "NetSim")
}

#RcppExport SEXP get_global_attribute(SEXP processStateManager, SEXP name);
get_global_attribute <- function(processState, name = "defaultGlobalAttribute"){
	.Call("get_global_attribute", processState, name, PACKAGE = "NetSim")
}

# a proper print function should print all objects mapped by the process state 
#print.processState <- function(x){
#}