search

eddelbuettel / rprotobuf

R Interface to Protocol Buffers
71 stars 25 forks source link

Update .Call to non-quoted registered identifiers #86

Closed eddelbuettel closed 11 months ago

eddelbuettel commented 2 years ago

A lot of the old calls remain:

-*- mode: ag; default-directory: "~/git/rprotobuf/R/" -*-
Ag started at Wed Mar 23 12:33:52

ag --literal --group --line-number --column --color --color-match 30\;43 --color-path 1\;32 --smart-case --stats -- Call\( .
File: extensions.R
30:3:   .Call( "setMessageField", object@pointer, field, values,
54:10:        .Call( "getExtension_cpp", object@pointer, field, PACKAGE = "RProtoBuf" )

File: wrapper_CodedOutputStream.R
5:3:    .Call( "ZeroCopyOutputStream_WriteRaw", object@pointer, payload, 
13:3:   .Call( "ZeroCopyOutputStream_WriteString", object@pointer, payload, 
21:3:   .Call( "ZeroCopyOutputStream_WriteLittleEndian32", object@pointer, payload, 
25:3:   .Call( "ZeroCopyOutputStream_WriteLittleEndian32", object@pointer, payload, 
29:3:   .Call( "ZeroCopyOutputStream_WriteLittleEndian32", object@pointer, payload, 
37:3:   .Call( "ZeroCopyOutputStream_WriteLittleEndian64", object@pointer, payload, 
41:3:   .Call( "ZeroCopyOutputStream_WriteLittleEndian64", object@pointer, payload, 
45:3:   .Call( "ZeroCopyOutputStream_WriteLittleEndian64", object@pointer, payload, 
54:3:   .Call( "ZeroCopyOutputStream_WriteVarint32", object@pointer, payload, 
58:3:   .Call( "ZeroCopyOutputStream_WriteVarint32", object@pointer, payload, 
62:3:   .Call( "ZeroCopyOutputStream_WriteVarint32", object@pointer, payload, 
71:3:   .Call( "ZeroCopyOutputStream_WriteVarint64", object@pointer, payload, 
75:3:   .Call( "ZeroCopyOutputStream_WriteVarint64", object@pointer, payload, 
79:3:   .Call( "ZeroCopyOutputStream_WriteVarint64", object@pointer, payload, 

File: wrapper_EnumValueDescriptor.R
3:3:    .Call( "EnumValueDescriptor__enum_type", object@pointer, PACKAGE = "RProtoBuf" )
10:3:   .Call( "EnumValueDescriptor__number", object@pointer, PACKAGE = "RProtoBuf" )

File: clone.R
6:14:   message <- .Call( "Message__clone", object@pointer, PACKAGE="RProtoBuf")

File: size.R
6:3:    .Call( "Message__bytesize", object@pointer, PACKAGE = "RProtoBuf" )
15:4:       .Call( "Message__field_size", object@pointer, field, PACKAGE = "RProtoBuf" )
34:4:       .Call( "Message__set_field_size", object@pointer, field, value, PACKAGE = "RProtoBuf" )

File: read.R
9:3:    .Call( "Descriptor__readMessageFromFile", descriptor@pointer, file, PACKAGE = "RProtoBuf" )
13:3:   .Call( "Descriptor__readMessageFromRawVector", descriptor@pointer, input, PACKAGE="RProtoBuf" )
24:14:  message <- .Call( "Descriptor__readMessageFromConnection", descriptor@pointer, input, PACKAGE = "RProtoBuf" )
39:3:   .Call( "Descriptor__readASCIIFromString", descriptor@pointer, input,
52:14:  message <- .Call( "Descriptor__readASCIIFromConnection", descriptor@pointer, input,
67:3:   .Call( "Descriptor__readJSONFromString", descriptor@pointer, input,
79:14:  message <- .Call( "Descriptor__readJSONFromConnection", descriptor@pointer, input,

File: wrapper_ServiceDescriptor.R
5:3:    .Call( "ServiceDescriptor_method_count", object@pointer, PACKAGE = "RProtoBuf" )
22:12:      return( .Call( "ServiceDescriptor_getMethodByIndex", object@pointer, as.integer(index)-1L, PACKAGE = "RProtoBuf" ) )
26:12:      return( .Call( "ServiceDescriptor_getMethodByName", object@pointer, as.character(name), PACKAGE = "RProtoBuf" ) )

File: wrapper_ZeroCopyInputStream.R
31:3:   .Call( "ZeroCopyInputStream_Next", object@pointer, PACKAGE = "RProtoBuf" )
35:13:  invisible(.Call( "ZeroCopyInputStream_BackUp", object@pointer, count, PACKAGE = "RProtoBuf" ))
39:3:   .Call( "ZeroCopyInputStream_ByteCount", object@pointer, PACKAGE = "RProtoBuf" )
43:14:  invisible( .Call( "ZeroCopyInputStream_Skip", object@pointer, count, PACKAGE = "RProtoBuf" ) )
49:3:   .Call( "ZeroCopyOutputStream_Next", object@pointer, payload, PACKAGE = "RProtoBuf" )
53:14:  invisible( .Call( "ZeroCopyOutputStream_BackUp", object@pointer, count, PACKAGE = "RProtoBuf" ) )
57:3:   .Call( "ZeroCopyOutputStream_ByteCount", object@pointer, PACKAGE = "RProtoBuf" )
67:3:   .Call( "ArrayInputStream__new", payload, -1L, PACKAGE = "RProtoBuf" )
71:3:   .Call( "ArrayInputStream__new", payload, block_size, PACKAGE = "RProtoBuf" )
75:3:   .Call( "ArrayInputStream__new", payload, as.integer(block_size), PACKAGE = "RProtoBuf" )
84:3:   .Call( "ArrayOutputStream__new", size, -1L, PACKAGE = "RProtoBuf" )
87:3:   .Call( "ArrayOutputStream__new", size, block_size, PACKAGE = "RProtoBuf" )
90:3:   .Call( "ArrayOutputStream__new", size, as.integer(block_size) , PACKAGE = "RProtoBuf" )
93:3:   .Call( "ArrayOutputStream__new", as.integer(size), -1L, PACKAGE = "RProtoBuf" )
96:3:   .Call( "ArrayOutputStream__new", as.integer(size), block_size, PACKAGE = "RProtoBuf" )
99:3:   .Call( "ArrayOutputStream__new", as.integer(size), as.integer(block_size) , PACKAGE = "RProtoBuf" )
109:3:  .Call( "FileInputStream_new", filename, block_size, close.on.delete, PACKAGE = "RProtoBuf" )
112:3:  .Call( "FileInputStream_Close", con@pointer, PACKAGE = "RProtoBuf" )
115:3:  .Call( "FileInputStream_GetErrno", object@pointer, PACKAGE = "RProtoBuf" )
118:14: invisible( .Call( "FileInputStream_SetCloseOnDelete", object@pointer, isTRUE(close), PACKAGE = "RProtoBuf" ) )
136:3:  .Call( "FileOutputStream_new", filename, block_size, close.on.delete, PACKAGE = "RProtoBuf" )
139:3:  .Call( "FileOutputStream_Flush", con@pointer, PACKAGE = "RProtoBuf" )
142:3:  .Call( "FileOutputStream_Close", con@pointer, PACKAGE = "RProtoBuf" )
145:3:  .Call( "FileOutputStream_GetErrno", object@pointer, PACKAGE = "RProtoBuf" )
148:14: invisible( .Call( "FileOutputStream_SetCloseOnDelete", object@pointer, isTRUE(close), PACKAGE = "RProtoBuf" ) )
168:3:  .Call( "ConnectionInputStream_new", object, was_open, PACKAGE = "RProtoBuf" )
188:3:  .Call( "ConnectionOutputStream_new", object, was_open, PACKAGE = "RProtoBuf" )

File: wrapper_FieldDescriptor.R
6:3:    .Call( "FieldDescriptor__is_extension", object@pointer, PACKAGE = "RProtoBuf" )
10:3:   .Call( "FieldDescriptor__number", object@pointer, PACKAGE = "RProtoBuf" )
38:11:  type <- .Call( "FieldDescriptor__type", object@pointer, PACKAGE = "RProtoBuf" )
63:14:  cpptype <- .Call( "FieldDescriptor__cpp_type", object@pointer, PACKAGE = "RProtoBuf" )
80:10:  lab <- .Call( "FieldDescriptor__label", object@pointer, PACKAGE = "RProtoBuf" )
92:3:   .Call( "FieldDescriptor__is_repeated", object@pointer, PACKAGE = "RProtoBuf" )
99:3:   .Call( "FieldDescriptor__is_optional", object@pointer, PACKAGE = "RProtoBuf" )
106:3:  .Call( "FieldDescriptor__is_required", object@pointer, PACKAGE = "RProtoBuf" )
113:3:  .Call( "FieldDescriptor__has_default_value", object@pointer, PACKAGE = "RProtoBuf" )
120:3:  .Call( "FieldDescriptor__default_value", object@pointer, PACKAGE = "RProtoBuf" )
128:3:  .Call( "FieldDescriptor__message_type", object@pointer, PACKAGE = "RProtoBuf" )
132:3:  .Call( "FieldDescriptor__enum_type", object@pointer, PACKAGE = "RProtoBuf" )

File: wrapper_CodedInputStream.R
6:3:    .Call( "ZeroCopyInputStream_ReadRaw", object@pointer, size, PACKAGE = "RProtoBuf" )
11:18:                .Call( "ZeroCopyInputStream_ReadRaw", object@pointer, as.integer(size),
22:3:   .Call( "ZeroCopyInputStream_ReadString", object@pointer, size, PACKAGE = "RProtoBuf" )
27:18:                .Call("ZeroCopyInputStream_ReadString", object@pointer, as.integer(size),
38:3:   .Call( "ZeroCopyInputStream_ReadVarint32", object@pointer, PACKAGE = "RProtoBuf" )
45:3:   .Call( "ZeroCopyInputStream_ReadLittleEndian32", object@pointer, PACKAGE = "RProtoBuf" )
52:3:   .Call( "ZeroCopyInputStream_ReadLittleEndian64", object@pointer, PACKAGE = "RProtoBuf" )
59:3:   .Call( "ZeroCopyInputStream_ReadVarint64", object@pointer, PACKAGE = "RProtoBuf" )

File: has.R
6:8:    if (!.Call( "Message__field_exists", object@pointer, name, PACKAGE = "RProtoBuf" )) {
9:11:       return(.Call( "Message__has_field", object@pointer, name, PACKAGE = "RProtoBuf" ))
13:11:  return(.Call( "has_enum_name", object@pointer, name, PACKAGE = "RProtoBuf"))

File: field_count.R
5:3:    .Call( "Descriptor__field_count", object@pointer, PACKAGE = "RProtoBuf" )
12:3:   .Call( "Descriptor__nested_type_count", object@pointer, PACKAGE = "RProtoBuf" )
20:3:   .Call( "Descriptor__enum_type_count", object@pointer, PACKAGE = "RProtoBuf" )
37:12:      return( .Call( "Descriptor__field", object@pointer, as.integer(index)-1L, PACKAGE = "RProtoBuf" ) )
41:12:      return( .Call( "Descriptor__FindFieldByNumber", object@pointer, as.integer(number), PACKAGE = "RProtoBuf" ) )
45:12:      return( .Call( "Descriptor__FindFieldByName", object@pointer, as.character(name), PACKAGE = "RProtoBuf" ) )
62:12:      return( .Call( "Descriptor__nested_type", object@pointer, as.integer(index)-1L, PACKAGE = "RProtoBuf" ) )
66:12:      return( .Call( "Descriptor__FindNestedTypeByName", object@pointer, as.character(name), PACKAGE = "RProtoBuf" ) )
78:12:      return( .Call( "Descriptor__enum_type", object@pointer, as.integer(index)-1L, PACKAGE = "RProtoBuf" ) )
82:12:      return( .Call( "Descriptor__FindEnumTypeByName", object@pointer, as.character(name), PACKAGE = "RProtoBuf" ) )

File: with.R
6:12:   names <- .Call( "Message__fieldNames", xp, PACKAGE = "RProtoBuf" )
13:12:                .Call( "getMessageField", xp, x, PACKAGE="RProtoBuf" )
16:12:                .Call( "setMessageField", xp, x, v, PACKAGE="RProtoBuf")

File: descriptor.R
6:3:    .Call( "Message__descriptor", object@pointer, PACKAGE = "RProtoBuf" )
13:3:   .Call( "Message__fileDescriptor", object@pointer, PACKAGE = "RProtoBuf" )
16:3:   .Call( "Descriptor__fileDescriptor", object@pointer, PACKAGE = "RProtoBuf" )
19:3:   .Call( "EnumDescriptor__fileDescriptor", object@pointer, PACKAGE = "RProtoBuf" )
22:3:   .Call( "FieldDescriptor__fileDescriptor", object@pointer, PACKAGE = "RProtoBuf" )
25:3:   .Call( "ServiceDescriptor__fileDescriptor", object@pointer, PACKAGE = "RProtoBuf" )
28:3:   .Call( "MethodDescriptor__fileDescriptor", object@pointer, PACKAGE = "RProtoBuf" )

File: wrapper_EnumDescriptor.R
6:3:    .Call( "EnumDescriptor__value_count", object@pointer, PACKAGE = "RProtoBuf" )
25:12:      return( .Call( "EnumDescriptor__getValueByIndex", object@pointer, as.integer(index)-1L, PACKAGE = "RProtoBuf" ) )
30:12:      return( .Call( "EnumDescriptor__getValueByNumber", object@pointer, as.integer(number), PACKAGE = "RProtoBuf" ) )
35:12:      return( .Call( "EnumDescriptor__getValueByName", object@pointer, as.character(name), PACKAGE = "RProtoBuf" ) )

File: aslist.R
2:3:    .Call( "Message__as_list", x@pointer, PACKAGE = "RProtoBuf" )
7:3:    .Call( "Descriptor__as_list", x@pointer, PACKAGE = "RProtoBuf" )
10:3:   .Call( "EnumDescriptor__as_list", x@pointer, PACKAGE = "RProtoBuf" )
13:3:   .Call( "FileDescriptor__as_list", x@pointer, PACKAGE = "RProtoBuf" )
16:3:   .Call( "ServiceDescriptor__as_list", x@pointer, PACKAGE = "RProtoBuf" )

File: serialize.R
24:5:           .Call( "Message__serialize_to_file", object@pointer, file, PACKAGE = "RProtoBuf" )
29:16:          payload <- .Call( "Message__get_payload", object@pointer, PACKAGE = "RProtoBuf" )

File: swap.R
11:3:   .Call( "Message__swap", object@pointer, field, left, right, 

File: 00classes.R
7:37:#.icall <- function(...) invisible(.Call(...))
95:14:  message <- .Call( "newProtoMessage", descriptor, PACKAGE = "RProtoBuf" )
119:11: desc <- .Call( "getProtobufDescriptor", type,
123:12:     desc <- .Call("getExtensionDescriptor", type, PACKAGE="RProtoBuf")
126:13:         desc <- .Call("getEnumDescriptor", type, PACKAGE="RProtoBuf")
140:13:  nexts <- .Call("Message__num_extensions", object@pointer, PACKAGE="RProtoBuf")
175:33:     "clone" = function( ... )    .Call( "Message__clone"         , x@pointer, PACKAGE = "RProtoBuf"),
176:33:     "isInitialized" = function() .Call( "Message__is_initialized", x@pointer, PACKAGE = "RProtoBuf"),
177:33:     "descriptor" = function()    .Call( "Message__descriptor"    , x@pointer, PACKAGE = "RProtoBuf"),
203:4:      .Call( "getMessageField", x@pointer, name, PACKAGE = "RProtoBuf" )
207:3:  .Call( "setMessageField", x@pointer, name, value, PACKAGE = "RProtoBuf" )
234:4:      .Call( "do_dollar_Descriptor", x@pointer, name, PACKAGE="RProtoBuf")
251:4:      .Call( "get_value_of_enum", x@pointer, name, PACKAGE = "RProtoBuf" )
290:4:      .Call( "ServiceDescriptor__method", x@pointer, name, PACKAGE = "RProtoBuf" )
403:4:      .Call( "getMessageField", x@pointer, i, PACKAGE = "RProtoBuf" )
420:12:          .Call("Descriptor_getField", x@pointer, i, PACKAGE="RProtoBuf")
450:4:      .Call( "ServiceDescriptor__method", x@pointer, name, PACKAGE = "RProtoBuf" )
474:4:      .Call( "setMessageField", x@pointer, i, value, PACKAGE = "RProtoBuf" )
497:3:  .Call( "update_message", object@pointer, named, PACKAGE="RProtoBuf")
506:3:  .Call( "Message__length", x@pointer, PACKAGE = "RProtoBuf" )
515:3:  .Call( "EnumDescriptor__length", x@pointer, PACKAGE = "RProtoBuf" )
518:3:  .Call( "ServiceDescriptor_method_count", x@pointer, PACKAGE = "RProtoBuf" )
540:3:  .Call( "Descriptor__name", object@pointer, full, PACKAGE = "RProtoBuf" )
544:3:  .Call( "FieldDescriptor__name", object@pointer, full, PACKAGE = "RProtoBuf" )
548:3:  .Call( "EnumDescriptor__name", object@pointer, full, PACKAGE = "RProtoBuf" )
552:3:  .Call( "EnumDescriptor__name", object@pointer, full, PACKAGE = "RProtoBuf" )
556:3:  .Call( "ServiceDescriptor__name", object@pointer, full, PACKAGE = "RProtoBuf" )
560:3:  .Call( "MethodDescriptor__name", object@pointer, full, PACKAGE = "RProtoBuf" )
564:15: filename <- .Call( "FileDescriptor__name", object@pointer, PACKAGE = "RProtoBuf" )
588:3:  .Call( "Descriptor__as_Message", from@pointer, PACKAGE = "RProtoBuf" )
591:3:  .Call( "FieldDescriptor__as_Message", from@pointer, PACKAGE = "RProtoBuf" )
594:3:  .Call( "EnumDescriptor__as_Message", from@pointer, PACKAGE = "RProtoBuf" )
597:3:  .Call( "ServiceDescriptor__as_Message", from@pointer, PACKAGE = "RProtoBuf" )
600:3:  .Call( "MethodDescriptor__as_Message", from@pointer, PACKAGE = "RProtoBuf" )
603:3:  .Call( "FileDescriptor__as_Message", from@pointer, PACKAGE = "RProtoBuf" )
606:3:  .Call( "EnumValueDescriptor__as_Message", from@pointer, PACKAGE = "RProtoBuf" )

File: add.R
11:3:   .Call( "Message__add_values", object@pointer, field, values, PACKAGE = "RProtoBuf" )

File: completion.R
18:4:       .Call( "Message__fieldNames", x@pointer, PACKAGE = "RProtoBuf" ) ,
32:4:       .Call( "Descriptor__getMemberNames", x@pointer, PACKAGE = "RProtoBuf" ), 
45:4:       .Call( "EnumDescriptor__getConstantNames", x@pointer, PACKAGE = "RProtoBuf" ), 
77:4:       .Call( "ServiceDescriptor__getMethodNames", x@pointer, PACKAGE = "RProtoBuf" ), 
95:4:       .Call( "FileDescriptor__getMemberNames", x@pointer, PACKAGE = "RProtoBuf" ), 

File: identical.R
4:3:    .Call( "identical_messages", x@pointer, y@pointer, PACKAGE = "RProtoBuf" ) 
8:3:    .Call( "identical_messages", e1@pointer, e2@pointer, PACKAGE = "RProtoBuf" )
11:5:   ! .Call( "identical_messages", e1@pointer, e2@pointer, PACKAGE = "RProtoBuf" )
21:3:   .Call( "all_equal_messages", target@pointer, current@pointer, tolerance, PACKAGE = "RProtoBuf" )

File: merge.R
9:15:       message <- .Call( "Message__merge", x@pointer, y@pointer, PACKAGE="RProtoBuf")

File: internals.R
47:3:   .Call( "readProtoFiles_cpp", files, directories, PACKAGE = "RProtoBuf" )
100:3:  .Call( "readProtoFiles_cpp", files, protoPath, PACKAGE = "RProtoBuf" )
105:3:  .Call( "resetDescriptorPool_cpp", PACKAGE = "RProtoBuf" )
111:14: version <- .Call(get_protobuf_library_version)

File: lookup.R
11:20:        otable <- .Call("newProtocolBufferLookup", pos, PACKAGE = "RProtoBuf")

File: wrapper_MethodDescriptor.R
10:3:   .Call("MethodDescriptor__input_type", object@pointer, PACKAGE = "RProtoBuf" )
14:3:   .Call("MethodDescriptor__output_type", object@pointer, PACKAGE = "RProtoBuf" )

File: debug_string.R
3:3:    .Call( "Message__as_character", x@pointer, PACKAGE = "RProtoBuf" )
6:3:    .Call( "Descriptor__as_character", x@pointer, PACKAGE = "RProtoBuf" )
9:3:    .Call( "EnumDescriptor__as_character", x@pointer, PACKAGE = "RProtoBuf" )
12:3:   .Call( "FieldDescriptor__as_character", x@pointer, PACKAGE = "RProtoBuf" )
15:3:   .Call( "ServiceDescriptor__as_character", x@pointer, PACKAGE = "RProtoBuf" )
18:3:   .Call( "MethodDescriptor__as_character", x@pointer, PACKAGE = "RProtoBuf" )
21:3:   .Call( "FileDescriptor__as_character", x@pointer, PACKAGE = "RProtoBuf" )
24:3:   .Call( "EnumValueDescriptor__as_character", x@pointer, PACKAGE = "RProtoBuf" )
52:6:    .Call( "Message__as_json", x@pointer,

File: set.R
28:3:   .Call( "Message__set_field_values", object@pointer, 
48:3:   .Call( "Message__get_field_values", object@pointer, 

File: initialized.R
6:3:    .Call( "Message__is_initialized", object@pointer, PACKAGE = "RProtoBuf" )

File: zzz.R
5:8:    ##.Call( "check_libprotobuf_version", minversion, PACKAGE = "RProtoBuf" )

File: clear.R
5:3:    .Call( "Message__clear", object@pointer, PACKAGE = "RProtoBuf" )
10:3:   .Call( "Message__clear_field", object@pointer, field, PACKAGE = "RProtoBuf" )
15:3:   .Call( "Message__clear_field", object@pointer, field, PACKAGE = "RProtoBuf" )
20:3:   .Call( "Message__clear_field", object@pointer, as.integer(field), PACKAGE = "RProtoBuf" )
25:3:   .Call( "Message__clear_field", object@pointer, as.integer(field), PACKAGE = "RProtoBuf" )

File: containing_type.R
7:13:   retval <- .Call( "Descriptor__containing_type", object@pointer, PACKAGE = "RProtoBuf" )
17:13:  retval <- .Call( "EnumDescriptor__containing_type", object@pointer, PACKAGE = "RProtoBuf" )
28:3:   .Call( "FieldDescriptor__containing_type", object@pointer, PACKAGE = "RProtoBuf" )
189 matches
32 files contained matches
35 files searched
77875 bytes searched
0.029782 seconds

Ag finished at Wed Mar 23 12:33:52