repo/extra/pango/patches/no-fribidi.patch

diff --git a/meson.build b/meson.build
index 50ec14b..f45dd6a 100644
--- a/meson.build
+++ b/meson.build
@@ -200,7 +200,6 @@ endif
 pango_deps = []
 
 glib_req_version = '>= 2.62'
-fribidi_req_version = '>= 1.0.6'
 libthai_req_version = '>= 0.1.9'
 harfbuzz_req_version = '>= 2.6.0'
 fontconfig_req_version = '>= 2.13.0'
@@ -217,10 +216,6 @@ gobject_dep = dependency('gobject-2.0', version: glib_req_version)
 gio_dep = dependency('gio-2.0', version: glib_req_version)
 pango_deps += [glib_dep, gobject_dep, gio_dep]
 
-fribidi_dep = dependency('fribidi', version: fribidi_req_version,
-                         default_options: ['docs=false'])
-pango_deps += fribidi_dep
-
 thai_dep = dependency('libthai', version: libthai_req_version, required: get_option('libthai'))
 if thai_dep.found()
   pango_conf.set('HAVE_LIBTHAI', 1)
diff --git a/pango/pango-bidi-type.c b/pango/pango-bidi-type.c
index 4277dc1..73d3476 100644
--- a/pango/pango-bidi-type.c
+++ b/pango/pango-bidi-type.c
@@ -23,14 +23,21 @@
 
 #include <string.h>
 
-#include <fribidi.h>
-
 #undef PANGO_DISABLE_DEPRECATED
 
 #include "pango-bidi-type.h"
 #include "pango-utils.h"
 #include "pango-utils-private.h"
 
+typedef uint32_t FriBidiChar;
+typedef uint32_t FriBidiCharType;
+typedef uint32_t FriBidiBracketType;
+typedef int FriBidiStrIndex;
+typedef int FriBidiParType;
+typedef signed char FriBidiLevel;
+
+#define FRIBIDI_PAR_LTR (0x00000010L | 0x00000100L)
+
 /**
  * pango_bidi_type_for_unichar:
  * @ch: a Unicode character
@@ -49,41 +56,7 @@
 PangoBidiType
 pango_bidi_type_for_unichar (gunichar ch)
 {
-  FriBidiCharType fribidi_ch_type;
-
-  G_STATIC_ASSERT (sizeof (FriBidiChar) == sizeof (gunichar));
-
-  fribidi_ch_type = fribidi_get_bidi_type (ch);
-
-  switch (fribidi_ch_type)
-    {
-    case FRIBIDI_TYPE_LTR:  return PANGO_BIDI_TYPE_L;
-    case FRIBIDI_TYPE_LRE:  return PANGO_BIDI_TYPE_LRE;
-    case FRIBIDI_TYPE_LRO:  return PANGO_BIDI_TYPE_LRO;
-    case FRIBIDI_TYPE_RTL:  return PANGO_BIDI_TYPE_R;
-    case FRIBIDI_TYPE_AL:   return PANGO_BIDI_TYPE_AL;
-    case FRIBIDI_TYPE_RLE:  return PANGO_BIDI_TYPE_RLE;
-    case FRIBIDI_TYPE_RLO:  return PANGO_BIDI_TYPE_RLO;
-    case FRIBIDI_TYPE_PDF:  return PANGO_BIDI_TYPE_PDF;
-    case FRIBIDI_TYPE_EN:   return PANGO_BIDI_TYPE_EN;
-    case FRIBIDI_TYPE_ES:   return PANGO_BIDI_TYPE_ES;
-    case FRIBIDI_TYPE_ET:   return PANGO_BIDI_TYPE_ET;
-    case FRIBIDI_TYPE_AN:   return PANGO_BIDI_TYPE_AN;
-    case FRIBIDI_TYPE_CS:   return PANGO_BIDI_TYPE_CS;
-    case FRIBIDI_TYPE_NSM:  return PANGO_BIDI_TYPE_NSM;
-    case FRIBIDI_TYPE_BN:   return PANGO_BIDI_TYPE_BN;
-    case FRIBIDI_TYPE_BS:   return PANGO_BIDI_TYPE_B;
-    case FRIBIDI_TYPE_SS:   return PANGO_BIDI_TYPE_S;
-    case FRIBIDI_TYPE_WS:   return PANGO_BIDI_TYPE_WS;
-    case FRIBIDI_TYPE_ON:   return PANGO_BIDI_TYPE_ON;
-    case FRIBIDI_TYPE_LRI:  return PANGO_BIDI_TYPE_LRI;
-    case FRIBIDI_TYPE_RLI:  return PANGO_BIDI_TYPE_RLI;
-    case FRIBIDI_TYPE_FSI:  return PANGO_BIDI_TYPE_FSI;
-    case FRIBIDI_TYPE_PDI:  return PANGO_BIDI_TYPE_PDI;
-    case _FRIBIDI_TYPE_SENTINEL:
-    default:
-      return PANGO_BIDI_TYPE_ON;
-    }
+  return PANGO_BIDI_TYPE_L;
 }
 
 /* Some bidi-related functions */
@@ -136,38 +109,14 @@ pango_log2vis_fill_embedding_levels (const gchar    *text,
 {
   glong i;
   const gchar *p;
-  FriBidiParType fribidi_base_dir;
   FriBidiCharType *bidi_types;
   FriBidiCharType bidi_types_[64];
   FriBidiBracketType *bracket_types;
   FriBidiBracketType bracket_types_[64];
-  FriBidiLevel max_level;
-  FriBidiCharType ored_types = 0;
-  FriBidiCharType anded_strongs = FRIBIDI_TYPE_RLE;
 
   G_STATIC_ASSERT (sizeof (FriBidiLevel) == sizeof (guint8));
   G_STATIC_ASSERT (sizeof (FriBidiChar) == sizeof (gunichar));
 
-  switch (*pbase_dir)
-    {
-    case PANGO_DIRECTION_LTR:
-    case PANGO_DIRECTION_TTB_RTL:
-      fribidi_base_dir = FRIBIDI_PAR_LTR;
-      break;
-    case PANGO_DIRECTION_RTL:
-    case PANGO_DIRECTION_TTB_LTR:
-      fribidi_base_dir = FRIBIDI_PAR_RTL;
-      break;
-    case PANGO_DIRECTION_WEAK_RTL:
-      fribidi_base_dir = FRIBIDI_PAR_WRTL;
-      break;
-    case PANGO_DIRECTION_WEAK_LTR:
-    case PANGO_DIRECTION_NEUTRAL:
-    default:
-      fribidi_base_dir = FRIBIDI_PAR_WLTR;
-      break;
-    }
-
   if (n_chars < 64)
     {
       bidi_types = bidi_types_;
@@ -181,20 +130,11 @@ pango_log2vis_fill_embedding_levels (const gchar    *text,
 
   for (i = 0, p = text; p < text + length; p = g_utf8_next_char(p), i++)
     {
-      gunichar ch = g_utf8_get_char (p);
-      FriBidiCharType char_type = fribidi_get_bidi_type (ch);
-
       if (i == n_chars)
         break;
 
-      bidi_types[i] = char_type;
-      ored_types |= char_type;
-      if (FRIBIDI_IS_STRONG (char_type))
-        anded_strongs &= char_type;
-      if (G_UNLIKELY(bidi_types[i] == FRIBIDI_TYPE_ON))
-        bracket_types[i] = fribidi_get_bracket (ch);
-      else
-        bracket_types[i] = FRIBIDI_NO_BRACKET;
+      bidi_types[i] = FRIBIDI_PAR_LTR;
+      bracket_types[i] = 0;
     }
 
     /* Short-circuit (malloc-expensive) FriBidi call for unidirectional
@@ -211,59 +151,14 @@ pango_log2vis_fill_embedding_levels (const gchar    *text,
      * o base_dir doesn't have an RTL taste.
      * o there are letters, and base_dir is weak.
      */
-    if (!FRIBIDI_IS_ISOLATE (ored_types) &&
-	!FRIBIDI_IS_RTL (ored_types) &&
-	!FRIBIDI_IS_ARABIC (ored_types) &&
-	(!FRIBIDI_IS_RTL (fribidi_base_dir) ||
-	  (FRIBIDI_IS_WEAK (fribidi_base_dir) &&
-	   FRIBIDI_IS_LETTER (ored_types))
-	))
-      {
-        /* all LTR */
-	fribidi_base_dir = FRIBIDI_PAR_LTR;
 	memset (embedding_levels_list, 0, n_chars);
-	goto resolved;
-      }
-    /* The case that all resolved levels will be RTL is much more complex.
-     * No isolates, no numbers, all strongs are RTL, and one of
-     * the following:
-     *
-     * o base_dir has an RTL taste (may be weak).
-     * o there are letters, and base_dir is weak.
-     */
-    else if (!FRIBIDI_IS_ISOLATE (ored_types) &&
-	     !FRIBIDI_IS_NUMBER (ored_types) &&
-	     FRIBIDI_IS_RTL (anded_strongs) &&
-	     (FRIBIDI_IS_RTL (fribidi_base_dir) ||
-	       (FRIBIDI_IS_WEAK (fribidi_base_dir) &&
-		FRIBIDI_IS_LETTER (ored_types))
-	     ))
-      {
-        /* all RTL */
-	fribidi_base_dir = FRIBIDI_PAR_RTL;
-	memset (embedding_levels_list, 1, n_chars);
-	goto resolved;
-      }
-
-
-  max_level = fribidi_get_par_embedding_levels_ex (bidi_types, bracket_types, n_chars,
-						   &fribidi_base_dir,
-						   (FriBidiLevel*)embedding_levels_list);
-
-  if (G_UNLIKELY(max_level == 0))
-    {
-      /* fribidi_get_par_embedding_levels() failed. */
-      memset (embedding_levels_list, 0, length);
-    }
-
-resolved:
   if (n_chars >= 64)
     {
       g_free (bidi_types);
       g_free (bracket_types);
     }
 
-  *pbase_dir = (fribidi_base_dir == FRIBIDI_PAR_LTR) ?  PANGO_DIRECTION_LTR : PANGO_DIRECTION_RTL;
+  *pbase_dir = PANGO_DIRECTION_LTR;
 }
 
 /**
@@ -285,18 +180,7 @@ resolved:
 PangoDirection
 pango_unichar_direction (gunichar ch)
 {
-  FriBidiCharType fribidi_ch_type;
-
-  G_STATIC_ASSERT (sizeof (FriBidiChar) == sizeof (gunichar));
-
-  fribidi_ch_type = fribidi_get_bidi_type (ch);
-
-  if (!FRIBIDI_IS_STRONG (fribidi_ch_type))
-    return PANGO_DIRECTION_NEUTRAL;
-  else if (FRIBIDI_IS_RTL (fribidi_ch_type))
-    return PANGO_DIRECTION_RTL;
-  else
-    return PANGO_DIRECTION_LTR;
+  return PANGO_DIRECTION_LTR;
 }