Initial commit

Author: elizagamedev

.clang-format

@@ -0,0 +1 @@
+BasedOnStyle: Google

code-unix.c

@@ -0,0 +1,13 @@
+#include <errno.h>
+#include <stdio.h>
+#include <unistd.h>
+
+int main(int argc, char **argv) {
+  if (argc < 2) {
+    fprintf(stderr, "error: no arguments provided\n");
+    return 1;
+  }
+  execvp(argv[1], &argv[1]);
+  perror("execvp() failed");
+  return errno;
+}

code-windows.c

@@ -0,0 +1,55 @@
+#define WIN32_LEAN_AND_MEAN
+
+#include <shlwapi.h>
+#include <windows.h>
+
+static const WCHAR *NextArgument(const WCHAR *commandLine) {
+  if (*commandLine == '"') {
+    commandLine++;
+    while (*commandLine) {
+      if (*commandLine++ == '"') {
+        break;
+      }
+    }
+  } else {
+    while (*commandLine && *commandLine != ' ' && *commandLine != '\t') {
+      commandLine++;
+    }
+  }
+  while (*commandLine == ' ' || *commandLine == '\t') {
+    commandLine++;
+  }
+  return commandLine;
+}
+
+int APIENTRY WinMain(HINSTANCE hInst, HINSTANCE hInstPrev, PSTR cmdline,
+                     int cmdshow) {
+  WCHAR *commandLine = StrDupW(NextArgument(GetCommandLineW()));
+
+  STARTUPINFOW si;
+  ZeroMemory(&si, sizeof(si));
+  si.cb = sizeof(si);
+
+  PROCESS_INFORMATION pi;
+  ZeroMemory(&pi, sizeof(pi));
+
+  if (CreateProcessW(
+          /*lpApplicationName=*/NULL, commandLine,
+          /*lpProcessAttributes=*/NULL,
+          /*lpThreadAttributes=*/NULL,
+          /*bInheritHandles=*/FALSE,
+          /*dwCreationFlags=*/0,
+          /*lpEnvironment=*/NULL,
+          /*lpCurrentDirectory=*/NULL, &si, &pi)) {
+    return 0;
+  }
+
+  DWORD error = GetLastError();
+  WCHAR *message;
+  FormatMessageW(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
+                 /*lpSource=*/NULL, /*dwMessageId=*/error,
+                 /*dwLanguageId=*/0, (WCHAR *)&message, /*nSize=*/0,
+                 /*Arguments=*/NULL);
+  MessageBoxW(NULL, message, L"code.exe", MB_OK | MB_ICONERROR);
+  return error;
+}

unity.el

@@ -0,0 +1,81 @@
+;;; unity.el --- Unity integration for Emacs -*- lexical-binding:t -*-
+;;; Commentary:
+;;; Code:
+
+(defgroup unity nil
+  "Unity game engine integration."
+  :group 'external)
+
+(defcustom unity-var-directory
+  (expand-file-name (convert-standard-filename "var/unity/")
+                    user-emacs-directory)
+  "Directory for persistent data."
+  :type 'string
+  :group 'unity)
+
+(defcustom unity-cc
+  "gcc"
+  "C compiler command to build code shim on Unix-like systems."
+  :type 'string
+  :group 'unity)
+
+(defun unity--code-binary-file ()
+  "Return the file name of the code shim."
+  (concat unity-var-directory (if (eq system-type 'windows-nt)
+                                  "code.exe"
+                                "code")))
+
+(defun unity--project-path-p (path)
+  "Return t if PATH is in a Unity project."
+  (string-match-p "/[Aa]ssets/" path))
+
+(defun unity--rename-file-advice (file newname &optional ok-if-already-exists)
+  "Advice function for `rename-file' for renaming Unity files.
+
+FILE, NEWNAME, and OK-IF-ALREADY-EXISTS are documented by `rename-file'."
+  (when (unity--project-path-p file)
+    (let ((meta-file (concat file ".meta")))
+      (when (file-exists-p meta-file)
+        (rename-file meta-file (concat newname ".meta")
+                     ok-if-already-exists)))))
+
+(defun unity--build-code-shim ()
+  "Build the code shim."
+  (make-directory unity-var-directory t)
+  (when (get-buffer "*unity-subprocess*")
+    (kill-buffer "*unity-subprocess*"))
+  (let ((subprocess-buffer (get-buffer-create "*unity-subprocess*"))
+        (source-name
+         (concat (file-name-directory (or load-file-name buffer-file-name))
+                 (if (eq system-type 'windows-nt)
+                     "code-windows.c"
+                   "code-unix.c"))))
+    (if (eq (call-process unity-cc nil subprocess-buffer nil
+                          source-name "-o" (unity--code-binary-file))
+            0)
+        (progn
+          (kill-buffer subprocess-buffer)
+          (message "Unity code shim built successfully."))
+      (progn
+        (switch-to-buffer-other-window subprocess-buffer)
+        (special-mode)))))
+
+(defun unity-build-code-shim ()
+  "Build the code shim if it's not already built."
+  (unless (file-exists-p (unity--code-binary-file))
+    (unity-build-code-shim)))
+
+(defun unity-rebuild-code-shim ()
+  "Force rebuild the code shim."
+  (when (file-exists-p (unity--code-binary-file))
+    (delete-file (unity--code-binary-file)))
+  (unity--build-code-shim))
+
+(defun unity-setup ()
+  "Activate Unity.el integration."
+  (interactive)
+  (advice-add #'rename-file :after #'unity--rename-file-advice))
+
+(provide 'unity)
+
+;;; unity.el ends here