From 2ff4c111800aef2020558fcff8268f75a1a293b9 Mon Sep 17 00:00:00 2001
From: Aviral Goel <goel.aviral@gmail.com>
Date: Mon, 1 Apr 2019 00:43:16 -0400
Subject: [PATCH] Add function to access the symbol table

---
 src/include/Rdyntrace.h | 1 +
 src/main/dyntrace.c     | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/src/include/Rdyntrace.h b/src/include/Rdyntrace.h
index adff4a61..065774d9 100644
--- a/src/include/Rdyntrace.h
+++ b/src/include/Rdyntrace.h
@@ -828,6 +828,7 @@ int dyntrace_get_c_function_argument_evaluation(SEXP op);
 int dyntrace_get_c_function_arity(SEXP op);
 int dyntrace_get_primitive_offset(SEXP op);
 const char *const dyntrace_get_c_function_name(SEXP op);
+SEXP* dyntrace_get_symbol_table();
 
 void(SET_PRENV_UNPROBED)(SEXP x, SEXP v);
 void(SET_PRVALUE_UNPROBED)(SEXP x, SEXP v);
diff --git a/src/main/dyntrace.c b/src/main/dyntrace.c
index b6ce3c8b..c193a839 100644
--- a/src/main/dyntrace.c
+++ b/src/main/dyntrace.c
@@ -249,3 +249,7 @@ const char* const dyntrace_get_c_function_name(SEXP op) {
     int offset = dyntrace_get_primitive_offset(op);
     return R_FunTab[offset].name;
 }
+
+SEXP* dyntrace_get_symbol_table() {
+    return R_SymbolTable;
+}