feat(native): add Locale module

src/Core/App.re

@@ -255,6 +255,10 @@ let start = init => {
 
   Revery_Native.initApp();
 
+  AppLog.infof(m =>
+    m("Operating in locale : %s", Revery_Native.Locale.getUser())
+  );
+
   let appLoop = () => {
     _flushEvents();
 

src/Native/Locale.re

@@ -0,0 +1 @@
+external getUser: unit => string = "revery_getUserLocale";

src/Native/ReveryCocoa.h

@@ -12,7 +12,7 @@ void revery_scheduleNotificationFromNow_cocoa(const char *title,
         const char *body,
         long onClickFunc, int mute,
         int seconds);
-void* revery_getIconHandle_cocoa();
+void *revery_getIconHandle_cocoa();
 
 /* Icon progress bar functions */
 void revery_setIconProgress_cocoa(void* dt, double progress);
@@ -22,3 +22,6 @@ void revery_hideIconProgress_cocoa(void* ip);
 /* Open functions */
 int revery_openURL_cocoa(const char *url_string);
 int revery_openFile_cocoa(const char *path_string);
+
+/* Locale functions */
+char *revery_getUserLocale_cocoa();

src/Native/Revery_Native.re

@@ -2,5 +2,6 @@ module Dialog = Dialog;
 module Icon = Icon;
 module Notification = Notification;
 module Shell = Shell;
+module Locale = Locale;
 
 include Initialization;

src/Native/dune

@@ -10,6 +10,7 @@
         notification notification_cocoa
         icon icon_cocoa icon_win32
         shell shell_cocoa shell_gtk shell_win32
+        locale locale_cocoa
         utilities
         ReveryAppDelegate ReveryAppDelegate_func
         ReveryProgressBar)

src/Native/locale.c

@@ -0,0 +1,29 @@
+#include <stdio.h>
+
+#include <caml/alloc.h>
+#include <caml/callback.h>
+#include <caml/memory.h>
+#include <caml/mlvalues.h>
+#include <string.h>
+
+#include "caml_values.h"
+
+#ifdef WIN32
+#include "ReveryWin32.h"
+#elif __APPLE__
+#include "ReveryCocoa.h"
+#else
+#include "ReveryGtk.h"
+#include <locale.h>
+#endif
+
+CAMLprim value revery_getUserLocale() {
+    CAMLparam0();
+    char *ret;
+#ifdef __APPLE__
+    ret = revery_getUserLocale_cocoa();
+#else
+    ret = setlocale(LC_CTYPE, NULL);
+#endif
+    CAMLreturn(caml_copy_string(ret));
+}

src/Native/locale_cocoa.c

@@ -0,0 +1,10 @@
+#ifdef __APPLE__
+#include <stdio.h>
+
+#import <Cocoa/Cocoa.h>
+
+char *revery_getUserLocale_cocoa() {
+    NSLocale *nsLocale = [NSLocale currentLocale];
+    return (char *)[[nsLocale localeIdentifier] UTF8String];
+}
+#endif