/*

 * Copyright © 2018 Adobe Inc.

 *

 *  This is part of HarfBuzz, a text shaping library.

 *

 * Permission is hereby granted, without written agreement and without

 * license or royalty fees, to use, copy, modify, and distribute this

 * software and its documentation for any purpose, provided that the

 * above copyright notice and the following two paragraphs appear in

 * all copies of this software.

 *

 * IN NO EVENT SHALL THE COPYRIGHT HOLDER BE LIABLE TO ANY PARTY FOR

 * DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES

 * ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN

 * IF THE COPYRIGHT HOLDER HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH

 * DAMAGE.

 *

 * THE COPYRIGHT HOLDER SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING,

 * BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND

 * FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS

 * ON AN "AS IS" BASIS, AND THE COPYRIGHT HOLDER HAS NO OBLIGATION TO

 * PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.

 *

 * Adobe Author(s): Michiharu Ariza

 */

#ifndef HB_OT_CFF1_TABLE_CC

#define HB_OT_CFF1_TABLE_CC

#ifdef HB_OT_CFF1_TABLE_CC /* Pacify -Wunused-macros. */

#include "hb.hh"

#ifndef HB_NO_CFF

#include "hb-draw.hh"

#include "hb-algs.hh"

#include "hb-ot-cff1-table.hh"

#include "hb-cff1-interp-cs.hh"

using namespace CFF;

struct sid_to_gid_t

{

  uint16_t  sid;

  uint8_t   gid;

  int cmp (uint16_t a) const

  {

    if (a == sid) return 0;

    return (a < sid) ? -1 : 1;

  }

};

/* SID to code */

static const uint8_t standard_encoding_to_code [] =

{

    0,   32,   33,   34,   35,   36,   37,   38,  39,   40,   41,   42,   43,   44,   45,   46,

   47,   48,   49,   50,   51,   52,   53,   54,  55,   56,   57,   58,   59,   60,   61,   62,

   63,   64,   65,   66,   67,   68,   69,   70,  71,   72,   73,   74,   75,   76,   77,   78,

   79,   80,   81,   82,   83,   84,   85,   86,  87,   88,   89,   90,   91,   92,   93,   94,

   95,   96,   97,   98,   99,  100,  101,  102, 103,  104,  105,  106,  107,  108,  109,  110,

  111,  112,  113,  114,  115,  116,  117,  118, 119,  120,  121,  122,  123,  124,  125,  126,

  161,  162,  163,  164,  165,  166,  167,  168, 169,  170,  171,  172,  173,  174,  175,  177,

  178,  179,  180,  182,  183,  184,  185,  186, 187,  188,  189,  191,  193,  194,  195,  196,

  197,  198,  199,  200,  202,  203,  205,  206, 207,  208,  225,  227,  232,  233,  234,  235,

  241,  245,  248,  249,  250,  251

};

/* SID to code */

static const uint8_t expert_encoding_to_code [] =

{

    0,   32,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,   44,   45,   46,

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,   58,   59,    0,    0,    0,

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    0,    0,    0,   47,    0,    0,    0,    0,    0,    0,    0,    0,    0,   87,   88,    0,

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    0,    0,    0,    0,    0,    0,  201,    0,    0,    0,    0,  189,    0,    0,  188,    0,

    0,    0,    0,  190,  202,    0,    0,    0,    0,  203,    0,    0,    0,    0,    0,    0,

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    0,    0,    0,    0,    0,   33,   34,   36,   37,   38,   39,   40,   41,   42,   43,   48,

   49,   50,   51,   52,   53,   54,   55,   56,   57,   60,   61,   62,   63,   65,   66,   67,

   68,   69,   73,   76,   77,   78,   79,   82,   83,   84,   86,   89,   90,   91,   93,   94,

   95,   96,   97,   98,   99,  100,  101,  102,  103,  104,  105,  106,  107,  108,  109,  110,

  111,  112,  113,  114,  115,  116,  117,  118,  119,  120,  121,  122,  123,  124,  125,  126,

  161,  162,  163,  166,  167,  168,  169,  170,  172,  175,  178,  179,  182,  183,  184,  191,

  192,  193,  194,  195,  196,  197,  200,  204,  205,  206,  207,  208,  209,  210,  211,  212,

  213,  214,  215,  216,  217,  218,  219,  220,  221,  222,  223,  224,  225,  226,  227,  228,

  229,  230,  231,  232,  233,  234,  235,  236,  237,  238,  239,  240,  241,  242,  243,  244,

  245,  246,  247,  248,  249,  250,  251,  252,  253,  254,  255

};

/* glyph ID to SID */

static const uint16_t expert_charset_to_sid [] =

{

    0,    1,  229,  230,  231,  232,  233,  234,  235,  236,  237,  238,   13,   14,   15,   99,

  239,  240,  241,  242,  243,  244,  245,  246,  247,  248,   27,   28,  249,  250,  251,  252,

  253,  254,  255,  256,  257,  258,  259,  260,  261,  262,  263,  264,  265,  266,  109,  110,

  267,  268,  269,  270,  271,  272,  273,  274,  275,  276,  277,  278,  279,  280,  281,  282,

  283,  284,  285,  286,  287,  288,  289,  290,  291,  292,  293,  294,  295,  296,  297,  298,

  299,  300,  301,  302,  303,  304,  305,  306,  307,  308,  309,  310,  311,  312,  313,  314,

  315,  316,  317,  318,  158,  155,  163,  319,  320,  321,  322,  323,  324,  325,  326,  150,

  164,  169,  327,  328,  329,  330,  331,  332,  333,  334,  335,  336,  337,  338,  339,  340,

  341,  342,  343,  344,  345,  346,  347,  348,  349,  350,  351,  352,  353,  354,  355,  356,

  357,  358,  359,  360,  361,  362,  363,  364,  365,  366,  367,  368,  369,  370,  371,  372,

  373,  374,  375,  376,  377,  378

};

/* glyph ID to SID */

static const uint16_t expert_subset_charset_to_sid [] =

{

    0,    1,  231,  232,  235,  236,  237,  238,   13,   14,   15,   99,  239,  240,  241,  242,

  243,  244,  245,  246,  247,  248,   27,   28,  249,  250,  251,  253,  254,  255,  256,  257,

  258,  259,  260,  261,  262,  263,  264,  265,  266,  109,  110,  267,  268,  269,  270,  272,

  300,  301,  302,  305,  314,  315,  158,  155,  163,  320,  321,  322,  323,  324,  325,  326,

  150,  164,  169,  327,  328,  329,  330,  331,  332,  333,  334,  335,  336,  337,  338,  339,

  340,  341,  342,  343,  344,  345,  346

};

/* SID to glyph ID */

static const sid_to_gid_t expert_charset_sid_to_gid [] =

{

    { 1, 1 },     { 13, 12 },   { 14, 13 },   { 15, 14 },

    { 27, 26 },   { 28, 27 },   { 99, 15 },   { 109, 46 },

    { 110, 47 },  { 150, 111 }, { 155, 101 }, { 158, 100 },

    { 163, 102 }, { 164, 112 }, { 169, 113 }, { 229, 2 },

    { 230, 3 },   { 231, 4 },   { 232, 5 },   { 233, 6 },

    { 234, 7 },   { 235, 8 },   { 236, 9 },   { 237, 10 },

    { 238, 11 },  { 239, 16 },  { 240, 17 },  { 241, 18 },

    { 242, 19 },  { 243, 20 },  { 244, 21 },  { 245, 22 },

    { 246, 23 },  { 247, 24 },  { 248, 25 },  { 249, 28 },

    { 250, 29 },  { 251, 30 },  { 252, 31 },  { 253, 32 },

    { 254, 33 },  { 255, 34 },  { 256, 35 },  { 257, 36 },

    { 258, 37 },  { 259, 38 },  { 260, 39 },  { 261, 40 },

    { 262, 41 },  { 263, 42 },  { 264, 43 },  { 265, 44 },

    { 266, 45 },  { 267, 48 },  { 268, 49 },  { 269, 50 },

    { 270, 51 },  { 271, 52 },  { 272, 53 },  { 273, 54 },

    { 274, 55 },  { 275, 56 },  { 276, 57 },  { 277, 58 },

    { 278, 59 },  { 279, 60 },  { 280, 61 },  { 281, 62 },

    { 282, 63 },  { 283, 64 },  { 284, 65 },  { 285, 66 },

    { 286, 67 },  { 287, 68 },  { 288, 69 },  { 289, 70 },

    { 290, 71 },  { 291, 72 },  { 292, 73 },  { 293, 74 },

    { 294, 75 },  { 295, 76 },  { 296, 77 },  { 297, 78 },

    { 298, 79 },  { 299, 80 },  { 300, 81 },  { 301, 82 },

    { 302, 83 },  { 303, 84 },  { 304, 85 },  { 305, 86 },

    { 306, 87 },  { 307, 88 },  { 308, 89 },  { 309, 90 },

    { 310, 91 },  { 311, 92 },  { 312, 93 },  { 313, 94 },

    { 314, 95 },  { 315, 96 },  { 316, 97 },  { 317, 98 },

    { 318, 99 },  { 319, 103 }, { 320, 104 }, { 321, 105 },

    { 322, 106 }, { 323, 107 }, { 324, 108 }, { 325, 109 },

    { 326, 110 }, { 327, 114 }, { 328, 115 }, { 329, 116 },

    { 330, 117 }, { 331, 118 }, { 332, 119 }, { 333, 120 },

    { 334, 121 }, { 335, 122 }, { 336, 123 }, { 337, 124 },

    { 338, 125 }, { 339, 126 }, { 340, 127 }, { 341, 128 },

    { 342, 129 }, { 343, 130 }, { 344, 131 }, { 345, 132 },

    { 346, 133 }, { 347, 134 }, { 348, 135 }, { 349, 136 },

    { 350, 137 }, { 351, 138 }, { 352, 139 }, { 353, 140 },

    { 354, 141 }, { 355, 142 }, { 356, 143 }, { 357, 144 },

    { 358, 145 }, { 359, 146 }, { 360, 147 }, { 361, 148 },

    { 362, 149 }, { 363, 150 }, { 364, 151 }, { 365, 152 },

    { 366, 153 }, { 367, 154 }, { 368, 155 }, { 369, 156 },

    { 370, 157 }, { 371, 158 }, { 372, 159 }, { 373, 160 },

    { 374, 161 }, { 375, 162 }, { 376, 163 }, { 377, 164 },

    { 378, 165 }

};

/* SID to glyph ID */

static const sid_to_gid_t expert_subset_charset_sid_to_gid [] =

{

  { 1, 1 },       { 13, 8 },      { 14, 9 },      { 15, 10 },

  { 27, 22 },     { 28, 23 },     { 99, 11 },     { 109, 41 },

  { 110, 42 },    { 150, 64 },    { 155, 55 },    { 158, 54 },

  { 163, 56 },    { 164, 65 },    { 169, 66 },    { 231, 2 },

  { 232, 3 },     { 235, 4 },     { 236, 5 },     { 237, 6 },

  { 238, 7 },     { 239, 12 },    { 240, 13 },    { 241, 14 },

  { 242, 15 },    { 243, 16 },    { 244, 17 },    { 245, 18 },

  { 246, 19 },    { 247, 20 },    { 248, 21 },    { 249, 24 },

  { 250, 25 },    { 251, 26 },    { 253, 27 },    { 254, 28 },

  { 255, 29 },    { 256, 30 },    { 257, 31 },    { 258, 32 },

  { 259, 33 },    { 260, 34 },    { 261, 35 },    { 262, 36 },

  { 263, 37 },    { 264, 38 },    { 265, 39 },    { 266, 40 },

  { 267, 43 },    { 268, 44 },    { 269, 45 },    { 270, 46 },

  { 272, 47 },    { 300, 48 },    { 301, 49 },    { 302, 50 },

  { 305, 51 },    { 314, 52 },    { 315, 53 },    { 320, 57 },

  { 321, 58 },    { 322, 59 },    { 323, 60 },    { 324, 61 },

  { 325, 62 },    { 326, 63 },    { 327, 67 },    { 328, 68 },

  { 329, 69 },    { 330, 70 },    { 331, 71 },    { 332, 72 },

  { 333, 73 },    { 334, 74 },    { 335, 75 },    { 336, 76 },

  { 337, 77 },    { 338, 78 },    { 339, 79 },    { 340, 80 },

  { 341, 81 },    { 342, 82 },    { 343, 83 },    { 344, 84 },

  { 345, 85 },    { 346, 86 }

};

/* code to SID */

static const uint8_t standard_encoding_to_sid [] =

{

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    1,    2,    3,    4,    5,    6,    7,    8,    9,   10,   11,   12,   13,   14,   15,   16,

    17,  18,   19,   20,   21,   22,   23,   24,   25,   26,   27,   28,   29,   30,   31,   32,

    33,  34,   35,   36,   37,   38,   39,   40,   41,   42,   43,   44,   45,   46,   47,   48,

    49,  50,   51,   52,   53,   54,   55,   56,   57,   58,   59,   60,   61,   62,   63,   64,

    65,  66,   67,   68,   69,   70,   71,   72,   73,   74,   75,   76,   77,   78,   79,   80,

    81,  82,   83,   84,   85,   86,   87,   88,   89,   90,   91,   92,   93,   94,   95,    0,

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    0,   96,   97,   98,   99,  100,  101,  102,  103,  104,  105,  106,  107,  108,  109,  110,

    0,  111,  112,  113,  114,    0,  115,  116,  117,  118,  119,  120,  121,  122,    0,  123,

    0,  124,  125,  126,  127,  128,  129,  130,  131,    0,  132,  133,    0,  134,  135,  136,

  137,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,

    0,   138,   0,  139,    0,    0,    0,    0,  140,  141,  142,  143,    0,    0,    0,    0,

    0,   144,   0,    0,    0,  145,    0,    0,  146,  147,  148,  149,    0,    0,    0,    0

};

hb_codepoint_t OT::cff1::lookup_standard_encoding_for_code (hb_codepoint_t sid)

{

  if (sid < ARRAY_LENGTH (standard_encoding_to_code))

    return (hb_codepoint_t)standard_encoding_to_code[sid];

  else

    return 0;

}

hb_codepoint_t OT::cff1::lookup_expert_encoding_for_code (hb_codepoint_t sid)

{

  if (sid < ARRAY_LENGTH (expert_encoding_to_code))

    return (hb_codepoint_t)expert_encoding_to_code[sid];

  else

    return 0;

}

hb_codepoint_t OT::cff1::lookup_expert_charset_for_sid (hb_codepoint_t glyph)

{

  if (glyph < ARRAY_LENGTH (expert_charset_to_sid))

    return (hb_codepoint_t)expert_charset_to_sid[glyph];

  else

    return 0;

}

hb_codepoint_t OT::cff1::lookup_expert_subset_charset_for_sid (hb_codepoint_t glyph)

{

  if (glyph < ARRAY_LENGTH (expert_subset_charset_to_sid))

    return (hb_codepoint_t)expert_subset_charset_to_sid[glyph];

  else

    return 0;

}

hb_codepoint_t OT::cff1::lookup_expert_charset_for_glyph (hb_codepoint_t sid)

{

  const auto *pair = hb_sorted_array (expert_charset_sid_to_gid).bsearch (sid);

  return pair ? pair->gid : 0;

}

hb_codepoint_t OT::cff1::lookup_expert_subset_charset_for_glyph (hb_codepoint_t sid)

{

  const auto *pair = hb_sorted_array (expert_subset_charset_sid_to_gid).bsearch (sid);

  return pair ? pair->gid : 0;

}

hb_codepoint_t OT::cff1::lookup_standard_encoding_for_sid (hb_codepoint_t code)

{

  if (code < ARRAY_LENGTH (standard_encoding_to_sid))

    return (hb_codepoint_t)standard_encoding_to_sid[code];

  else

    return CFF_UNDEF_SID;

}

struct bounds_t

{

  void init ()

  {

    min.set_int (INT_MAX, INT_MAX);

    max.set_int (INT_MIN, INT_MIN);

  }

  void update (const point_t &pt)

  {

    if (pt.x < min.x) min.x = pt.x;

    if (pt.x > max.x) max.x = pt.x;

    if (pt.y < min.y) min.y = pt.y;

    if (pt.y > max.y) max.y = pt.y;

  }

  void merge (const bounds_t &b)

  {

    if (empty ())

      *this = b;

    else if (!b.empty ())

    {

      if (b.min.x < min.x) min.x = b.min.x;

      if (b.max.x > max.x) max.x = b.max.x;

      if (b.min.y < min.y) min.y = b.min.y;

      if (b.max.y > max.y) max.y = b.max.y;

    }

  }

  void offset (const point_t &delta)

  {

    if (!empty ())

    {

      min.move (delta);

      max.move (delta);

    }

  }

  bool empty () const { return (min.x >= max.x) || (min.y >= max.y); }

  point_t min;

  point_t max;

};

struct cff1_extents_param_t

{

  cff1_extents_param_t (const OT::cff1::accelerator_t *_cff) : cff (_cff)

  {

    bounds.init ();

  }

  void start_path   ()       { path_open = true; }

  void end_path     ()       { path_open = false; }

  bool is_path_open () const { return path_open; }

  bool path_open = false;

  bounds_t bounds;

  const OT::cff1::accelerator_t *cff;

};

struct cff1_path_procs_extents_t : path_procs_t<cff1_path_procs_extents_t, cff1_cs_interp_env_t, cff1_extents_param_t>

{

  static void moveto (cff1_cs_interp_env_t &env, cff1_extents_param_t& param, const point_t &pt)

  {

    param.end_path ();

    env.moveto (pt);

  }

  static void line (cff1_cs_interp_env_t &env, cff1_extents_param_t& param, const point_t &pt1)

  {

    if (!param.is_path_open ())

    {

      param.start_path ();

      param.bounds.update (env.get_pt ());

    }

    env.moveto (pt1);

    param.bounds.update (env.get_pt ());

  }

  static void curve (cff1_cs_interp_env_t &env, cff1_extents_param_t& param, const point_t &pt1, const point_t &pt2, const point_t &pt3)

  {

    if (!param.is_path_open ())

    {

      param.start_path ();

      param.bounds.update (env.get_pt ());

    }

    /* include control points */

    param.bounds.update (pt1);

    param.bounds.update (pt2);

    env.moveto (pt3);

    param.bounds.update (env.get_pt ());

  }

};

static bool _get_bounds (const OT::cff1::accelerator_t *cff, hb_codepoint_t glyph, bounds_t &bounds, bool in_seac=false, int64_t *budget = nullptr);

struct cff1_cs_opset_extents_t : cff1_cs_opset_t<cff1_cs_opset_extents_t, cff1_extents_param_t, cff1_path_procs_extents_t>

{

  static void process_seac (cff1_cs_interp_env_t &env, cff1_extents_param_t& param)

  {

    unsigned int  n = env.argStack.get_count ();

    point_t delta;

    delta.x = env.argStack[n-4];

    delta.y = env.argStack[n-3];

    hb_codepoint_t base = param.cff->std_code_to_glyph (env.argStack[n-2].to_int ());

    hb_codepoint_t accent = param.cff->std_code_to_glyph (env.argStack[n-1].to_int ());

    bounds_t  base_bounds, accent_bounds;

    if (likely (!env.in_seac && base && accent

         && _get_bounds (param.cff, base, base_bounds, true, env.get_budget ())

         && _get_bounds (param.cff, accent, accent_bounds, true, env.get_budget ())))

    {

      param.bounds.merge (base_bounds);

      accent_bounds.offset (delta);

      param.bounds.merge (accent_bounds);

    }

    else

      env.set_error ();

  }

};

bool _get_bounds (const OT::cff1::accelerator_t *cff, hb_codepoint_t glyph, bounds_t &bounds, bool in_seac, int64_t *budget)

{

  bounds.init ();

  if (unlikely (!cff->is_valid () || (glyph >= cff->num_glyphs))) return false;

  unsigned int fd = cff->fdSelect->get_fd (glyph);

  const hb_ubytes_t str = (*cff->charStrings)[glyph];

  cff1_cs_interp_env_t env (str, *cff, fd);

  env.set_in_seac (in_seac);

  cff1_cs_interpreter_t<cff1_cs_opset_extents_t, cff1_extents_param_t> interp (env);

  cff1_extents_param_t param (cff);

  if (unlikely (!interp.interpret (param, budget))) return false;

  bounds = param.bounds;

  return true;

}

bool OT::cff1::accelerator_t::get_extents (hb_font_t *font, hb_codepoint_t glyph, hb_glyph_extents_t *extents, int64_t *budget) const

{

#ifdef HB_NO_OT_FONT_CFF

  /* XXX Remove check when this code moves to .hh file. */

  return true;

#endif

  bounds_t bounds;

  int64_t stack_budget = HB_BUDGET_GLYPH;

  if (!budget) budget = &stack_budget;

  if (!_get_bounds (this, glyph, bounds, false, budget))

    return false;

  if (bounds.min.x >= bounds.max.x)

  {

    extents->width = 0;

    extents->x_bearing = 0;

  }

  else

  {

    double x_bearing = roundf (bounds.min.x.to_real ());

    extents->x_bearing = hb_clamp_to<hb_position_t> (x_bearing);

    extents->width = hb_clamp_to<hb_position_t> ((double) roundf (bounds.max.x.to_real ()) - x_bearing);

  }

  if (bounds.min.y >= bounds.max.y)

  {

    extents->height = 0;

    extents->y_bearing = 0;

  }

  else

  {

    double y_bearing = roundf (bounds.max.y.to_real ());

    extents->y_bearing = hb_clamp_to<hb_position_t> (y_bearing);

    extents->height = hb_clamp_to<hb_position_t> ((double) roundf (bounds.min.y.to_real ()) - y_bearing);

  }

  font->scale_glyph_extents (extents);

  return true;

}

struct cff1_path_param_t

{

  cff1_path_param_t (const OT::cff1::accelerator_t *cff_, hb_font_t *font_,

         hb_draw_session_t &draw_session_, point_t *delta_)

  {

    draw_session = &draw_session_;

    cff = cff_;

    font = font_;

    delta = delta_;

  }

  void move_to (const point_t &p)

  {

    point_t point = p;

    if (delta) point.move (*delta);

    draw_session->move_to (font->em_fscalef_x (point.x.to_real ()), font->em_fscalef_y (point.y.to_real ()));

  }

  void line_to (const point_t &p)

  {

    point_t point = p;

    if (delta) point.move (*delta);

    draw_session->line_to (font->em_fscalef_x (point.x.to_real ()), font->em_fscalef_y (point.y.to_real ()));

  }

  void cubic_to (const point_t &p1, const point_t &p2, const point_t &p3)

  {

    point_t point1 = p1, point2 = p2, point3 = p3;

    if (delta)

    {

      point1.move (*delta);

      point2.move (*delta);

      point3.move (*delta);

    }

    draw_session->cubic_to (font->em_fscalef_x (point1.x.to_real ()), font->em_fscalef_y (point1.y.to_real ()),

         font->em_fscalef_x (point2.x.to_real ()), font->em_fscalef_y (point2.y.to_real ()),

         font->em_fscalef_x (point3.x.to_real ()), font->em_fscalef_y (point3.y.to_real ()));

  }

  void end_path () { draw_session->close_path (); }

  hb_font_t *font;

  hb_draw_session_t *draw_session;

  point_t *delta;

  const OT::cff1::accelerator_t *cff;

};

struct cff1_path_procs_path_t : path_procs_t<cff1_path_procs_path_t, cff1_cs_interp_env_t, cff1_path_param_t>

{

  static void moveto (cff1_cs_interp_env_t &env, cff1_path_param_t& param, const point_t &pt)

  {

    param.move_to (pt);

    env.moveto (pt);

  }

  static void line (cff1_cs_interp_env_t &env, cff1_path_param_t &param, const point_t &pt1)

  {

    param.line_to (pt1);

    env.moveto (pt1);

  }

  static void curve (cff1_cs_interp_env_t &env, cff1_path_param_t &param, const point_t &pt1, const point_t &pt2, const point_t &pt3)

  {

    param.cubic_to (pt1, pt2, pt3);

    env.moveto (pt3);

  }

};

static bool _get_path (const OT::cff1::accelerator_t *cff, hb_font_t *font, hb_codepoint_t glyph,

           hb_draw_session_t &draw_session, bool in_seac = false, point_t *delta = nullptr,

           int64_t *budget = nullptr);

struct cff1_cs_opset_path_t : cff1_cs_opset_t<cff1_cs_opset_path_t, cff1_path_param_t, cff1_path_procs_path_t>

{

  static void process_seac (cff1_cs_interp_env_t &env, cff1_path_param_t& param)

  {

    /* End previous path */

    param.end_path ();

    unsigned int n = env.argStack.get_count ();

    point_t delta;

    delta.x = env.argStack[n-4];

    delta.y = env.argStack[n-3];

    hb_codepoint_t base = param.cff->std_code_to_glyph (env.argStack[n-2].to_int ());

    hb_codepoint_t accent = param.cff->std_code_to_glyph (env.argStack[n-1].to_int ());

    if (unlikely (!(!env.in_seac && base && accent

        && _get_path (param.cff, param.font, base, *param.draw_session, true, nullptr, env.get_budget ())

        && _get_path (param.cff, param.font, accent, *param.draw_session, true, &delta, env.get_budget ()))))

      env.set_error ();

  }

};

bool _get_path (const OT::cff1::accelerator_t *cff, hb_font_t *font, hb_codepoint_t glyph,

    hb_draw_session_t &draw_session, bool in_seac, point_t *delta,

    int64_t *budget)

{

  if (unlikely (!cff->is_valid () || (glyph >= cff->num_glyphs))) return false;

  unsigned int fd = cff->fdSelect->get_fd (glyph);

  const hb_ubytes_t str = (*cff->charStrings)[glyph];

  cff1_cs_interp_env_t env (str, *cff, fd);

  env.set_in_seac (in_seac);

  cff1_cs_interpreter_t<cff1_cs_opset_path_t, cff1_path_param_t> interp (env);

  cff1_path_param_t param (cff, font, draw_session, delta);

  if (unlikely (!interp.interpret (param, budget))) return false;

  /* Let's end the path specially since it is called inside seac also */

  param.end_path ();

  return true;

}

bool OT::cff1::accelerator_t::get_path (hb_font_t *font, hb_codepoint_t glyph, hb_draw_session_t &draw_session, int64_t *budget) const

{

#ifdef HB_NO_OT_FONT_CFF

  /* XXX Remove check when this code moves to .hh file. */

  return true;

#endif

  int64_t stack_budget = HB_BUDGET_GLYPH;

  if (!budget) budget = &stack_budget;

  return _get_path (this, font, glyph, draw_session, false, nullptr, budget);

}

struct get_seac_param_t

{

  get_seac_param_t (const OT::cff1::accelerator_subset_t *_cff) : cff (_cff) {}

  bool has_seac () const { return base && accent; }

  const OT::cff1::accelerator_subset_t *cff;

  hb_codepoint_t  base = 0;

  hb_codepoint_t  accent = 0;

};

struct cff1_cs_opset_seac_t : cff1_cs_opset_t<cff1_cs_opset_seac_t, get_seac_param_t>

{

  static void process_seac (cff1_cs_interp_env_t &env, get_seac_param_t& param)

  {

    unsigned int  n = env.argStack.get_count ();

    hb_codepoint_t  base_char = (hb_codepoint_t)env.argStack[n-2].to_int ();

    hb_codepoint_t  accent_char = (hb_codepoint_t)env.argStack[n-1].to_int ();

    param.base = param.cff->std_code_to_glyph (base_char);

    param.accent = param.cff->std_code_to_glyph (accent_char);

  }

};

static bool

_cff1_charstring_may_end_in_seac (const hb_ubytes_t &str)

{

  if (unlikely (!str.length || str[str.length - 1] != OpCode_endchar))

    return false;

  unsigned int end = str.length - 1;

  if (!end) return false;

  unsigned int last = str[end - 1];

  /* Type 2 numbers are not self-synchronizing when read backwards.

   * Keep interpreting if any number encoding could end at endchar. */

  if (OpCode_OneByteIntFirst <= last && last <= OpCode_OneByteIntLast)

    return true;

  if (end >= 2 &&

      OpCode_TwoBytePosInt0 <= str[end - 2] &&

      str[end - 2] <= OpCode_TwoByteNegInt3)

    return true;

  if (end >= 3 && str[end - 3] == OpCode_shortint)

    return true;

  if (end >= 5 && str[end - 5] == OpCode_fixedcs)

    return true;

  /* A subroutine can leave the seac operands on the shared stack. */

  return last == OpCode_callsubr || last == OpCode_callgsubr;

}

bool OT::cff1::accelerator_subset_t::get_seac_components (hb_codepoint_t glyph, hb_codepoint_t *base, hb_codepoint_t *accent) const

{

  if (unlikely (!is_valid () || (glyph >= num_glyphs))) return false;

  unsigned int fd = fdSelect->get_fd (glyph);

  const hb_ubytes_t str = (*charStrings)[glyph];

  if (unlikely (!_cff1_charstring_may_end_in_seac (str))) return false;

  cff1_cs_interp_env_t env (str, *this, fd);

  cff1_cs_interpreter_t<cff1_cs_opset_seac_t, get_seac_param_t> interp (env);

  get_seac_param_t  param (this);

  if (unlikely (!interp.interpret (param))) return false;

  if (param.has_seac ())

  {

    *base = param.base;

    *accent = param.accent;

    return true;

  }

  return false;

}

#endif

#endif /* HB_OT_CFF1_TABLE_CC pacify */

#endif /* HB_OT_CFF1_TABLE_CC guard */