From 39b8b45b45dff8a0e3935eeef44fcae7d27840a7 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Thu, 1 Aug 2024 20:52:20 +0100
Subject: [PATCH] rename to dotscape

---
 build-unix.sh                  |   2 +-
 dot-to-dot => dotscape         | Bin
 dot-to-dot.mlb => dotscape.mlb |   0
 ffi/export.h                   |  22 +++++++++++-----------
 imperative-shell/shell.sml     |   2 +-
 5 files changed, 13 insertions(+), 13 deletions(-)
 rename dot-to-dot => dotscape (100%)
 rename dot-to-dot.mlb => dotscape.mlb (100%)

diff --git a/build-unix.sh b/build-unix.sh
index acd95e3..0c241ed 100755
--- a/build-unix.sh
+++ b/build-unix.sh
@@ -1,7 +1,7 @@
 #!/bin/sh
 mlton -link-opt "$(pkg-config --cflags glfw3) $(pkg-config --static --libs glfw3)" \
   -export-header ffi/export.h \
-  dot-to-dot.mlb \
+  dotscape.mlb \
   ffi/glad.c \
   ffi/glfw-export.c \
   ffi/gles3-export.c \
diff --git a/dot-to-dot b/dotscape
similarity index 100%
rename from dot-to-dot
rename to dotscape
diff --git a/dot-to-dot.mlb b/dotscape.mlb
similarity index 100%
rename from dot-to-dot.mlb
rename to dotscape.mlb
diff --git a/ffi/export.h b/ffi/export.h
index 2ae940a..c4487b8 100644
--- a/ffi/export.h
+++ b/ffi/export.h
@@ -1,5 +1,5 @@
-#ifndef __DOT_TO_DOT_ML_H__
-#define __DOT_TO_DOT_ML_H__
+#ifndef __DOTSCAPE_ML_H__
+#define __DOTSCAPE_ML_H__
 
 /* Copyright (C) 2004-2007 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
@@ -132,23 +132,23 @@ typedef Pointer Objptr;
 
 #endif /* _MLTON_EXPORT_H_ */
 
-#if !defined(PART_OF_DOT_TO_DOT) && \
-    !defined(STATIC_LINK_DOT_TO_DOT) && \
-    !defined(DYNAMIC_LINK_DOT_TO_DOT)
-#define PART_OF_DOT_TO_DOT
+#if !defined(PART_OF_DOTSCAPE) && \
+    !defined(STATIC_LINK_DOTSCAPE) && \
+    !defined(DYNAMIC_LINK_DOTSCAPE)
+#define PART_OF_DOTSCAPE
 #endif
 
-#if defined(PART_OF_DOT_TO_DOT)
+#if defined(PART_OF_DOTSCAPE)
 #define MLLIB_PRIVATE(x) PRIVATE x
 #define MLLIB_PUBLIC(x) PUBLIC x
-#elif defined(STATIC_LINK_DOT_TO_DOT)
+#elif defined(STATIC_LINK_DOTSCAPE)
 #define MLLIB_PRIVATE(x)
 #define MLLIB_PUBLIC(x) PUBLIC x
-#elif defined(DYNAMIC_LINK_DOT_TO_DOT)
+#elif defined(DYNAMIC_LINK_DOTSCAPE)
 #define MLLIB_PRIVATE(x)
 #define MLLIB_PUBLIC(x) EXTERNAL x
 #else
-#error Must specify linkage for dot_to_dot
+#error Must specify linkage for dotscape
 #define MLLIB_PRIVATE(x)
 #define MLLIB_PUBLIC(x)
 #endif
@@ -167,4 +167,4 @@ MLLIB_PUBLIC(void mltonMouseClickCallback (Int32 x0, Int32 x1);)
 }
 #endif
 
-#endif /* __DOT_TO_DOT_ML_H__ */
+#endif /* __DOTSCAPE_ML_H__ */
diff --git a/imperative-shell/shell.sml b/imperative-shell/shell.sml
index 13af0b2..c107a7c 100644
--- a/imperative-shell/shell.sml
+++ b/imperative-shell/shell.sml
@@ -11,7 +11,7 @@ struct
       val _ = Glfw.windowHint (Glfw.SAMPLES (), 4)
       val window =
         Glfw.createWindow
-          (Constants.windowWidth, Constants.windowHeight, "MLton - dot to dot")
+          (Constants.windowWidth, Constants.windowHeight, "Dotscape")
       val _ = Glfw.makeContextCurrent window
       val _ = Gles3.loadGlad ()