From: Jack Jansen <jack.jansen@cwi.nl>
Date: Mon, 24 Jul 2000 19:50:16 +0000 (+0000)
Subject: Added PyMac_getscript() which returns the pythonic name of the current script. Not... 
X-Git-Tag: v2.0b1~730
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=1f9f2f4c490d901c6a5815f7db8cbe6ba4903849;p=thirdparty%2FPython%2Fcpython.git

Added PyMac_getscript() which returns the pythonic name of the current script. Not ideal and not complete, but good enough for the time being. Idea and most of the code by Fredrik Lund.
---

diff --git a/Mac/Python/macglue.c b/Mac/Python/macglue.c
index ad4e82bdbec7..8b3d6e139c6c 100644
--- a/Mac/Python/macglue.c
+++ b/Mac/Python/macglue.c
@@ -181,6 +181,40 @@ static PyObject *python_event_handler;
 */
 int PyMac_AppearanceCompliant;
 
+/*
+** Find out what the current script is.
+** Donated by Fredrik Lund.
+*/
+char *PyMac_getscript()
+{
+   int font, script, lang;
+    font = 0;
+    font = GetSysFont();
+    script = FontToScript(font);
+    switch (script) {
+    case smRoman:
+        lang = GetScriptVariable(script, smScriptLang);
+        if (lang == langIcelandic)
+            return "mac-iceland";
+        else if (lang == langTurkish)
+            return "mac-turkish";
+        else if (lang == langGreek)
+            return "mac-greek";
+        else
+            return "mac-roman";
+        break;
+    case smJapanese:
+        return "mac-japan";
+    case smGreek:
+        return "mac-greek";
+    case smCyrillic:
+        return "mac-cyrillic";
+    default:
+        return "mac-roman"; /* better than nothing */
+    }
+}
+
+
 #ifdef USE_GUSI1
 /*
 ** GUSI (1.6.0 and earlier, at the least) do not set the MacOS idea of