From 4791b245b42ff2123f2ebf46b754cc5ca5631081 Mon Sep 17 00:00:00 2001
From: Javier Sancho <jsf@jsancho.org>
Date: Sun, 10 May 2020 10:22:10 +0200
Subject: [PATCH] primitive-types

---
 src/primitive-types.cpp | 110 ++++++++++++++++++++--------------------
 src/primitive-types.h   |   8 +--
 2 files changed, 57 insertions(+), 61 deletions(-)

diff --git a/src/primitive-types.cpp b/src/primitive-types.cpp
index 2593c75..8cd2a50 100644
--- a/src/primitive-types.cpp
+++ b/src/primitive-types.cpp
@@ -23,61 +23,61 @@
 #include <libguile.h>
 #include "primitive-types.h"
 
-extern "C" {
 
-  irr::scene::E_PRIMITIVE_TYPE
-  scm_to_primitive_type (SCM primitive_type)
-  {
-    char* type = scm_to_utf8_stringn (scm_symbol_to_string (primitive_type), NULL);
-    if (!strcmp (type, "points"))
-      {
-        return irr::scene::EPT_POINTS;
-      }
-    else if (!strcmp (type, "line-strip"))
-      {
-        return irr::scene::EPT_LINE_STRIP;
-      }
-    else if (!strcmp (type, "line-loop"))
-      {
-        return irr::scene::EPT_LINE_LOOP;
-      }
-    else if (!strcmp (type, "lines"))
-      {
-        return irr::scene::EPT_LINES;
-      }
-    else if (!strcmp (type, "triangle-strip"))
-      {
-        return irr::scene::EPT_TRIANGLE_STRIP;
-      }
-    else if (!strcmp (type, "triangle-fan"))
-      {
-        return irr::scene::EPT_TRIANGLE_FAN;
-      }
-    else if (!strcmp (type, "triangles"))
-      {
-        return irr::scene::EPT_TRIANGLES;
-      }
-    else if (!strcmp (type, "quad-strip"))
-      {
-        return irr::scene::EPT_QUAD_STRIP;
-      }
-    else if (!strcmp (type, "quads"))
-      {
-        return irr::scene::EPT_QUADS;
-      }
-    else if (!strcmp (type, "polygon"))
-      {
-        return irr::scene::EPT_POLYGON;
-      }
-    else if (!strcmp (type, "point-sprites"))
-      {
-        return irr::scene::EPT_POINT_SPRITES;
-      }
-    else
-      {
-        scm_error (scm_arg_type_key, NULL, "Wrong primitive type: ~S",
-                   scm_list_1 (primitive_type), scm_list_1 (primitive_type));
-      }
-  }
+using namespace irr;
 
+
+scene::E_PRIMITIVE_TYPE
+scm_to_primitive_type (SCM primitive_type)
+{
+  char* type = scm_to_utf8_stringn (scm_symbol_to_string (primitive_type), NULL);
+  if (!strcmp (type, "points"))
+    {
+      return scene::EPT_POINTS;
+    }
+  else if (!strcmp (type, "line-strip"))
+    {
+      return scene::EPT_LINE_STRIP;
+    }
+  else if (!strcmp (type, "line-loop"))
+    {
+      return scene::EPT_LINE_LOOP;
+    }
+  else if (!strcmp (type, "lines"))
+    {
+      return scene::EPT_LINES;
+    }
+  else if (!strcmp (type, "triangle-strip"))
+    {
+      return scene::EPT_TRIANGLE_STRIP;
+    }
+  else if (!strcmp (type, "triangle-fan"))
+    {
+      return scene::EPT_TRIANGLE_FAN;
+    }
+  else if (!strcmp (type, "triangles"))
+    {
+      return scene::EPT_TRIANGLES;
+    }
+  else if (!strcmp (type, "quad-strip"))
+    {
+      return scene::EPT_QUAD_STRIP;
+    }
+  else if (!strcmp (type, "quads"))
+    {
+      return scene::EPT_QUADS;
+    }
+  else if (!strcmp (type, "polygon"))
+    {
+      return scene::EPT_POLYGON;
+    }
+  else if (!strcmp (type, "point-sprites"))
+    {
+      return scene::EPT_POINT_SPRITES;
+    }
+  else
+    {
+      scm_error (scm_arg_type_key, NULL, "Wrong primitive type: ~S",
+                 scm_list_1 (primitive_type), scm_list_1 (primitive_type));
+    }
 }
diff --git a/src/primitive-types.h b/src/primitive-types.h
index a3c8bb6..09ca8df 100644
--- a/src/primitive-types.h
+++ b/src/primitive-types.h
@@ -25,11 +25,7 @@
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
 
-extern "C" {
-
-  irr::scene::E_PRIMITIVE_TYPE
-  scm_to_primitive_type (SCM primitive_type);
-
-}
+irr::scene::E_PRIMITIVE_TYPE
+scm_to_primitive_type (SCM primitive_type);
 
 #endif
-- 
2.39.5