add em_message and em_error as variadic variant of elisp message and error

src/utils.c

@@ -0,0 +1,74 @@
+/*
+ *  Feynman -- Wayland compositor for GNU Emacs
+ *
+ * Copyright (c) 2022 Sameer Rahmani <lxsameer@gnu.org>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, version 2.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include "utils.h"
+
+#include <stdio.h>
+
+void
+em_message (emacs_env *env, const char *fmt, ...)
+{
+  char *internalfmt = NULL;
+  char buffer[4096];
+  va_list args;
+  va_start (args, fmt);
+  int rc = vsnprintf (buffer, sizeof (buffer), fmt, args);
+  va_end (args);
+
+  if (rc < 0)
+    {
+      em_error (env, "Variadic params failed on 'em_message'");
+      return;
+    }
+
+  sprintf (internalfmt, "[Feynman]: %s", fmt);
+  emacs_value message = env->intern (env, "message");
+  emacs_value msg = env->make_string (env, internalfmt, strlen (internalfmt));
+  // emacs_value msgstr  = env->make_string (env, , strlen (msg));
+
+  emacs_value message_args[] = { msg };
+  env->funcall (env, message, 2, message_args);
+};
+
+void
+em_error (emacs_env *env, const char *fmt, ...)
+{
+  char *internalfmt = NULL;
+  emacs_value error = env->intern (env, "error");
+
+  char buffer[4096];
+  va_list args;
+  va_start (args, fmt);
+  int rc = vsnprintf (buffer, sizeof (buffer), fmt, args);
+  va_end (args);
+
+  if (rc < 0)
+    {
+      char *err_msg   = "Variadic params failed on 'em_error'";
+      emacs_value msg = env->make_string (env, err_msg, strlen (err_msg));
+      emacs_value err_args[] = { msg };
+      env->funcall (env, error, 1, err_args);
+      return;
+    }
+
+  sprintf (internalfmt, "[Feynman][Error]: %s", fmt);
+  emacs_value msg = env->make_string (env, internalfmt, strlen (internalfmt));
+
+  emacs_value error_args[] = { msg };
+  env->funcall (env, error, 2, error_args);
+};

src/utils.h

@@ -0,0 +1,35 @@
+/*
+ *  Feynman -- Wayland compositor for GNU Emacs
+ *
+ * Copyright (c) 2022 Sameer Rahmani <lxsameer@gnu.org>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, version 2.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#ifndef FEYNMAN_UTILS_H
+#define FEYNMAN_UTILS_H
+
+#include <emacs-module.h>
+#include <stdarg.h>
+#include <string.h>
+
+// Since free and malloc are provided by emacs already
+void free (void *);
+void *malloc (unsigned long);
+void *calloc (unsigned long, unsigned long);
+int setenv (const char *envname, const char *envval, int overwrite);
+
+void em_message (emacs_env *env, const char *fmt, ...);
+void em_error (emacs_env *env, const char *fmt, ...);
+
+#endif