R/wrapper_FieldDescriptor.R

In eddelbuettel/rprotobuf: R Interface to the 'Protocol Buffers' 'API' (Version 2 or 3)

setGeneric( "is_extension", function(object){
	standardGeneric("is_extension")
} )
setMethod( "is_extension", "FieldDescriptor", function(object){
	.Call(FieldDescriptor__is_extension, object@pointer)
})

setMethod( "number", "FieldDescriptor", function(object){
	.Call(FieldDescriptor__number, object@pointer)
} )

TYPE_DOUBLE   <- 1L
TYPE_FLOAT    <- 2L
TYPE_INT64    <- 3L
TYPE_UINT64   <- 4L
TYPE_INT32    <- 5L
TYPE_FIXED64  <- 6L
TYPE_FIXED32  <- 7L
TYPE_BOOL     <- 8L
TYPE_STRING   <- 9L
TYPE_GROUP    <- 10L
TYPE_MESSAGE  <- 11L
TYPE_BYTES    <- 12L
TYPE_UINT32   <- 13L
TYPE_ENUM     <- 14L
TYPE_SFIXED32 <- 15L
TYPE_SFIXED64 <- 16L
TYPE_SINT32   <- 17L
TYPE_SINT64   <- 18L

.TYPES <- sapply(ls( pattern="^TYPE_" ), function(x) get(x))

setGeneric( "type", function(object, as.string = FALSE){
	standardGeneric( "type" )
} )
setMethod( "type", "FieldDescriptor", function(object, as.string = FALSE){
	type <- .Call(FieldDescriptor__type, object@pointer)
	if( as.string ) {
                names(which(.TYPES == type))
        } else {
                type
        }
} )


CPPTYPE_INT32 <- 1L
CPPTYPE_INT64 <- 2L
CPPTYPE_UINT32 <- 3L
CPPTYPE_UINT64 <- 4L
CPPTYPE_DOUBLE <- 5L
CPPTYPE_FLOAT <- 6L
CPPTYPE_BOOL <- 7L
CPPTYPE_ENUM <- 8L
CPPTYPE_STRING <- 9L
CPPTYPE_MESSAGE <- 10L

.CPPTYPES <- sapply(ls( pattern="^CPPTYPE_" ), function(x) get(x))
setGeneric( "cpp_type", function(object, as.string = FALSE ){
	standardGeneric( "cpp_type" )
} )
setMethod( "cpp_type", "FieldDescriptor", function(object, as.string = FALSE){
	cpptype <- .Call(FieldDescriptor__cpp_type, object@pointer)
	if( as.string ) {
                names(which(.CPPTYPES == cpptype))
        } else {
                cpptype
        }
} )

LABEL_OPTIONAL <- 1L
LABEL_REQUIRED <- 2L
LABEL_REPEATED <- 3L
.LABELS <- sapply(ls( pattern="^LABEL_" ), function(x) get(x))

setGeneric( "label", function(object, as.string = FALSE ){
	standardGeneric( "label" )
} )
setMethod( "label", "FieldDescriptor", function(object, as.string = FALSE){
	lab <- .Call(FieldDescriptor__label, object@pointer)
	if( as.string ) {
                names(which(.LABELS == lab))
        } else {
                lab
        }
} )

setGeneric( "is_repeated", function(object ){
	standardGeneric( "is_repeated" )
} )
setMethod( "is_repeated", "FieldDescriptor", function(object){
	.Call(FieldDescriptor__is_repeated, object@pointer)
} )

setGeneric( "is_optional", function(object){
	standardGeneric( "is_optional" )
} )
setMethod( "is_optional", "FieldDescriptor", function(object){
	.Call(FieldDescriptor__is_optional, object@pointer)
} )

setGeneric( "is_required", function(object ){
	standardGeneric( "is_required" )
} )
setMethod( "is_required", "FieldDescriptor", function(object){
	.Call(FieldDescriptor__is_required, object@pointer)
} )

setGeneric( "has_default_value", function(object ){
	standardGeneric( "has_default_value" )
} )
setMethod( "has_default_value", "FieldDescriptor", function(object){
	.Call(FieldDescriptor__has_default_value, object@pointer)
} )

setGeneric( "default_value", function(object ){
	standardGeneric( "default_value" )
} )
setMethod( "default_value", "FieldDescriptor", function(object){
	.Call(FieldDescriptor__default_value, object@pointer)
} )


setGeneric( "message_type", function(object ){
	standardGeneric( "message_type" )
} )
setMethod( "message_type", "FieldDescriptor", function(object){
	.Call(FieldDescriptor__message_type, object@pointer)
} )

setMethod( "enum_type", c( object = "FieldDescriptor", index = "missing", name = "missing"), function(object){
	.Call(FieldDescriptor__enum_type, object@pointer)
} )