Update, may have some issues due to half-attempt at parallelism support

NAMESPACE

@@ -28,8 +28,6 @@ export(rTrace_globalDefWriter_WriteLocation)
 export(rTrace_globalDefWriter_WriteRegion)
 export(rTrace_globalDefWriter_WriteString)
 export(rTrace_globalDefWriter_WriteSystemTreeNode)
-export(rTrace_helloWorld)
-export(rTrace_helloWorld_wrapper)
 export(rTrace_init_Archive)
 export(rTrace_init_EvtWriter)
 export(rTrace_init_GlobalDefWriter)

R/RcppExports.R

@@ -1,20 +1,9 @@
 # Generated by using Rcpp::compileAttributes() -> do not edit by hand
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
-#' This example uses a function delivering dummy timestamps
-#'     Walltime O(E-6)
-#' @return time - Current time
-NULL
-
-#' Simple hello world function streaming to Rcout
-#' @return R_NilValue
-helloWorld <- function() {
-    .Call('_rTrace_helloWorld', PACKAGE = 'rTrace')
-}
-
 #' Initialize static otf2 {archive} objs
 #' @param archivePath Path to the archive i.e. the directory where the anchor file is located.
-#' @param archiveName Name of the archive. It is used to generate sub paths e.g. 'archiveName.otf2'.
+#' @param archiveName Name of the archive. It is used to generate sub paths e.g. "archiveName.otf2"
 #' @return R_NilValue
 init_Archive <- function(archivePath = "./rTrace", archiveName = "rTrace") {
     .Call('_rTrace_init_Archive', PACKAGE = 'rTrace', archivePath, archiveName)
@@ -96,32 +85,6 @@ evtWriter_Write <- function(regionRef, event_type) {
     .Call('_rTrace_evtWriter_Write', PACKAGE = 'rTrace', regionRef, event_type)
 }
 
-#' Simple multiply+add operation for timing
-#' @param n Number of loops
-#' @return R_NilValue
-mult_add_n <- function(n) {
-    .Call('_rTrace_mult_add_n', PACKAGE = 'rTrace', n)
-}
-
-#' S_abcn
-#' @param n Number of loops
-#' @param a a
-#' @param b b
-#' @param c c
-#' @return R_NilValue
-mult_add_abcn <- function(a, b, c, n) {
-    .Call('_rTrace_mult_add_abcn', PACKAGE = 'rTrace', a, b, c, n)
-}
-
-#' S_abc
-#' @param a a
-#' @param b b
-#' @param c c
-#' @return R_NilValue
-mult_add_abc <- function(a, b, c) {
-    .Call('_rTrace_mult_add_abc', PACKAGE = 'rTrace', a, b, c)
-}
-
 #' set_id
 #' @param idnew new id
 #' @return R_NilValue
@@ -140,7 +103,27 @@ get_pid <- function() {
     .Call('_rTrace_get_pid', PACKAGE = 'rTrace')
 }
 
-#' get_mpi_rank
+#' get_tid
+get_tid <- function() {
+    .Call('_rTrace_get_tid', PACKAGE = 'rTrace')
+}
+
+#' get_ppid
+get_ppid <- function() {
+    .Call('_rTrace_get_ppid', PACKAGE = 'rTrace')
+}
+
+#' mpi_init
+mpi_init <- function() {
+    .Call('_rTrace_mpi_init', PACKAGE = 'rTrace')
+}
+
+#' mpi_finalize
+mpi_finalize <- function() {
+    .Call('_rTrace_mpi_finalize', PACKAGE = 'rTrace')
+}
+
+#' mpi_is_init
 mpi_is_init <- function() {
     .Call('_rTrace_mpi_is_init', PACKAGE = 'rTrace')
 }
@@ -150,3 +133,8 @@ get_mpi_rank <- function() {
     .Call('_rTrace_get_mpi_rank', PACKAGE = 'rTrace')
 }
 
+#' get_mpi_size
+get_mpi_size <- function() {
+    .Call('_rTrace_get_mpi_size', PACKAGE = 'rTrace')
+}
+

R/rTrace.R

@@ -29,13 +29,6 @@
 if (!require("Rcpp")) install.packages("Rcpp")
 library("Rcpp")
 
-#' rTrace_helloWorld_wrapper 
-#' @export
-rTrace_helloWorld_wrapper <- function() {
-    cat("Wrapper for R/helloWorld.R::rTrace_helloWorld\n")
-    rTrace_helloWorld()
-}
-
 #' pkg.env
 #' @description Package-level environment used for storing package variables
 #' @format