R/descriptor.R

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

setGeneric( "descriptor", function(object, ...){
	standardGeneric( "descriptor" )
} )
setMethod( "descriptor", "Message", function(object, ...){
	.Call( "Message__descriptor", object@pointer, PACKAGE = "RProtoBuf" )
} )

setGeneric( "fileDescriptor", function(object, ...){
	standardGeneric( "fileDescriptor" )
} )
setMethod( "fileDescriptor", "Message", function(object, ...){
	.Call( "Message__fileDescriptor", object@pointer, PACKAGE = "RProtoBuf" )
} )
setMethod( "fileDescriptor", "Descriptor", function(object, ...){
	.Call( "Descriptor__fileDescriptor", object@pointer, PACKAGE = "RProtoBuf" )
} )
setMethod( "fileDescriptor", "EnumDescriptor", function(object, ...){
	.Call( "EnumDescriptor__fileDescriptor", object@pointer, PACKAGE = "RProtoBuf" )
} )
setMethod( "fileDescriptor", "FieldDescriptor", function(object, ...){
	.Call( "FieldDescriptor__fileDescriptor", object@pointer, PACKAGE = "RProtoBuf" )
} )
setMethod( "fileDescriptor", "ServiceDescriptor", function(object, ...){
	.Call( "ServiceDescriptor__fileDescriptor", object@pointer, PACKAGE = "RProtoBuf" )
} )
setMethod( "fileDescriptor", "MethodDescriptor", function(object, ...){
	.Call( "MethodDescriptor__fileDescriptor", object@pointer, PACKAGE = "RProtoBuf" )
} )