move non-whisper.cpp to rcpp_whisper_utils

Author: jwijffels

src/Makevars

@@ -6,8 +6,8 @@ PKG_CPPFLAGS += -DSTRICT_R_HEADERS -I./dr_libs -I./whisper_cpp/ggml/include -I./
 SOURCES = whisper_cpp/ggml/src/ggml-quants.c whisper_cpp/ggml/src/ggml-backend.c whisper_cpp/ggml/src/ggml-alloc.c whisper_cpp/ggml/src/ggml-aarch64.c whisper_cpp/ggml/src/ggml.c 
 OBJECTS = whisper_cpp/ggml/src/ggml-quants.o whisper_cpp/ggml/src/ggml-backend.o whisper_cpp/ggml/src/ggml-alloc.o whisper_cpp/ggml/src/ggml-aarch64.o whisper_cpp/ggml/src/ggml.o 
 
-SOURCES += whisper_cpp/src/whisper.cpp rcpp_whisper.cpp RcppExports.cpp
-OBJECTS += whisper_cpp/src/whisper.o   rcpp_whisper.o   RcppExports.o
+SOURCES += whisper_cpp/src/whisper.cpp rcpp_whisper_utils.cpp RcppExports.cpp
+OBJECTS += whisper_cpp/src/whisper.o   rcpp_whisper_utils.o   RcppExports.o
 
 all: $(SHLIB)
 

src/rcpp_whisper_utils.cpp

@@ -0,0 +1,22 @@
+#include <Rcpp.h>
+
+
+#include "whisper.h"
+
+// [[Rcpp::export]]
+Rcpp::DataFrame whisper_language_info() {
+  auto max_id = whisper_lang_max_id();
+  std::vector<int> id;
+  std::vector<std::string> language;
+  std::vector<std::string> label;
+  for (int i = 0; i <= max_id; ++i) {
+    id.push_back(i);
+    language.push_back(whisper_lang_str(i));
+    label.push_back(whisper_lang_str_full(i));
+  }
+  return Rcpp::DataFrame::create(
+    Rcpp::Named("id") = id, 
+    Rcpp::Named("language") = language, 
+    Rcpp::Named("language_label") = label, 
+    Rcpp::Named("stringsAsFactors") = false);
+}