path: root/vcl/source/fontsubset/cff.cxx

/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
 * This file is part of the LibreOffice project.
 *
 * This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
 *
 * This file incorporates work covered by the following license notice:
 *
 *   Licensed to the Apache Software Foundation (ASF) under one or more
 *   contributor license agreements. See the NOTICE file distributed
 *   with this work for additional information regarding copyright
 *   ownership. The ASF licenses this file to you under the Apache
 *   License, Version 2.0 (the "License"); you may not use this file
 *   except in compliance with the License. You may obtain a copy of
 *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
 */

#include <cstdio>
#include <cstring>
#include <vector>
#include <assert.h>

#include <fontsubset.hxx>

#include <comphelper/flagguard.hxx>
#include <o3tl/safeint.hxx>
#include <o3tl/sprintf.hxx>
#include <rtl/math.hxx>
#include <rtl/strbuf.hxx>
#include <rtl/string.hxx>
#include <strhelper.hxx>
#include <sal/log.hxx>
#include <tools/stream.hxx>

typedef sal_uInt8 U8;
typedef sal_uInt16 U16;
typedef sal_Int64 S64;

typedef double RealType;
typedef RealType ValType;

constexpr OString tok_notdef = ".notdef"_ostr;
constexpr OString tok_space = "space"_ostr;
constexpr OString tok_exclam = "exclam"_ostr;
constexpr OString tok_quotedbl = "quotedbl"_ostr;
constexpr OString tok_numbersign = "numbersign"_ostr;
constexpr OString tok_dollar = "dollar"_ostr;
constexpr OString tok_percent = "percent"_ostr;
constexpr OString tok_ampersand = "ampersand"_ostr;
constexpr OString tok_quoteright = "quoteright"_ostr;
constexpr OString tok_parenleft = "parenleft"_ostr;
constexpr OString tok_parenright = "parenright"_ostr;
constexpr OString tok_asterisk = "asterisk"_ostr;
constexpr OString tok_plus = "plus"_ostr;
constexpr OString tok_comma = "comma"_ostr;
constexpr OString tok_hyphen = "hyphen"_ostr;
constexpr OString tok_period = "period"_ostr;
constexpr OString tok_slash = "slash"_ostr;
constexpr OString tok_zero = "zero"_ostr;
constexpr OString tok_one = "one"_ostr;
constexpr OString tok_two = "two"_ostr;
constexpr OString tok_three = "three"_ostr;
constexpr OString tok_four = "four"_ostr;
constexpr OString tok_five = "five"_ostr;
constexpr OString tok_six = "six"_ostr;
constexpr OString tok_seven = "seven"_ostr;
constexpr OString tok_eight = "eight"_ostr;
constexpr OString tok_nine = "nine"_ostr;
constexpr OString tok_colon = "colon"_ostr;
constexpr OString tok_semicolon = "semicolon"_ostr;
constexpr OString tok_less = "less"_ostr;
constexpr OString tok_equal = "equal"_ostr;
constexpr OString tok_greater = "greater"_ostr;
constexpr OString tok_question = "question"_ostr;
constexpr OString tok_at = "at"_ostr;
constexpr OString tok_A = "A"_ostr;
constexpr OString tok_B = "B"_ostr;
constexpr OString tok_C = "C"_ostr;
constexpr OString tok_D = "D"_ostr;
constexpr OString tok_E = "E"_ostr;
constexpr OString tok_F = "F"_ostr;
constexpr OString tok_G = "G"_ostr;
constexpr OString tok_H = "H"_ostr;
constexpr OString tok_I = "I"_ostr;
constexpr OString tok_J = "J"_ostr;
constexpr OString tok_K = "K"_ostr;
constexpr OString tok_L = "L"_ostr;
constexpr OString tok_M = "M"_ostr;
constexpr OString tok_N = "N"_ostr;
constexpr OString tok_O = "O"_ostr;
constexpr OString tok_P = "P"_ostr;
constexpr OString tok_Q = "Q"_ostr;
constexpr OString tok_R = "R"_ostr;
constexpr OString tok_S = "S"_ostr;
constexpr OString tok_T = "T"_ostr;
constexpr OString tok_U = "U"_ostr;
constexpr OString tok_V = "V"_ostr;
constexpr OString tok_W = "W"_ostr;
constexpr OString tok_X = "X"_ostr;
constexpr OString tok_Y = "Y"_ostr;
constexpr OString tok_Z = "Z"_ostr;
constexpr OString tok_bracketleft = "bracketleft"_ostr;
constexpr OString tok_backslash = "backslash"_ostr;
constexpr OString tok_bracketright = "bracketright"_ostr;
constexpr OString tok_asciicircum = "asciicircum"_ostr;
constexpr OString tok_underscore = "underscore"_ostr;
constexpr OString tok_quoteleft = "quoteleft"_ostr;
constexpr OString tok_a = "a"_ostr;
constexpr OString tok_b = "b"_ostr;
constexpr OString tok_c = "c"_ostr;
constexpr OString tok_d = "d"_ostr;
constexpr OString tok_e = "e"_ostr;
constexpr OString tok_f = "f"_ostr;
constexpr OString tok_g = "g"_ostr;
constexpr OString tok_h = "h"_ostr;
constexpr OString tok_i = "i"_ostr;
constexpr OString tok_j = "j"_ostr;
constexpr OString tok_k = "k"_ostr;
constexpr OString tok_l = "l"_ostr;
constexpr OString tok_m = "m"_ostr;
constexpr OString tok_n = "n"_ostr;
constexpr OString tok_o = "o"_ostr;
constexpr OString tok_p = "p"_ostr;
constexpr OString tok_q = "q"_ostr;
constexpr OString tok_r = "r"_ostr;
constexpr OString tok_s = "s"_ostr;
constexpr OString tok_t = "t"_ostr;
constexpr OString tok_u = "u"_ostr;
constexpr OString tok_v = "v"_ostr;
constexpr OString tok_w = "w"_ostr;
constexpr OString tok_x = "x"_ostr;
constexpr OString tok_y = "y"_ostr;
constexpr OString tok_z = "z"_ostr;
constexpr OString tok_braceleft = "braceleft"_ostr;
constexpr OString tok_bar = "bar"_ostr;
constexpr OString tok_braceright = "braceright"_ostr;
constexpr OString tok_asciitilde = "asciitilde"_ostr;
constexpr OString tok_exclamdown = "exclamdown"_ostr;
constexpr OString tok_cent = "cent"_ostr;
constexpr OString tok_sterlin = "sterlin"_ostr;
constexpr OString tok_fraction = "fraction"_ostr;
constexpr OString tok_yen = "yen"_ostr;
constexpr OString tok_florin = "florin"_ostr;
constexpr OString tok_section = "section"_ostr;
constexpr OString tok_currency = "currency"_ostr;
constexpr OString tok_quotesingle = "quotesingle"_ostr;
constexpr OString tok_quotedblleft = "quotedblleft"_ostr;
constexpr OString tok_guillemotleft = "guillemotleft"_ostr;
constexpr OString tok_guilsinglleft = "guilsinglleft"_ostr;
constexpr OString tok_guilsinglright = "guilsinglright"_ostr;
constexpr OString tok_fi = "fi"_ostr;
constexpr OString tok_fl = "fl"_ostr;
constexpr OString tok_endash = "endash"_ostr;
constexpr OString tok_dagger = "dagger"_ostr;
constexpr OString tok_daggerdbl = "daggerdbl"_ostr;
constexpr OString tok_periodcentered = "periodcentered"_ostr;
constexpr OString tok_paragraph = "paragraph"_ostr;
constexpr OString tok_bullet = "bullet"_ostr;
constexpr OString tok_quotesinglbase = "quotesinglbase"_ostr;
constexpr OString tok_quotedblbase = "quotedblbase"_ostr;
constexpr OString tok_quotedblright = "quotedblright"_ostr;
constexpr OString tok_guillemotright = "guillemotright"_ostr;
constexpr OString tok_ellipsis = "ellipsis"_ostr;
constexpr OString tok_perthousand = "perthousand"_ostr;
constexpr OString tok_questiondown = "questiondown"_ostr;
constexpr OString tok_grave = "grave"_ostr;
constexpr OString tok_acute = "acute"_ostr;
constexpr OString tok_circumflex = "circumflex"_ostr;
constexpr OString tok_tilde = "tilde"_ostr;
constexpr OString tok_macron = "macron"_ostr;
constexpr OString tok_breve = "breve"_ostr;
constexpr OString tok_dotaccent = "dotaccent"_ostr;
constexpr OString tok_dieresis = "dieresis"_ostr;
constexpr OString tok_ring = "ring"_ostr;
constexpr OString tok_cedilla = "cedilla"_ostr;
constexpr OString tok_hungarumlaut = "hungarumlaut"_ostr;
constexpr OString tok_ogonek = "ogonek"_ostr;
constexpr OString tok_caron = "caron"_ostr;
constexpr OString tok_emdash = "emdash"_ostr;
constexpr OString tok_AE = "AE"_ostr;
constexpr OString tok_ordfeminine = "ordfeminine"_ostr;
constexpr OString tok_Lslash = "Lslash"_ostr;
constexpr OString tok_Oslash = "Oslash"_ostr;
constexpr OString tok_OE = "OE"_ostr;
constexpr OString tok_ordmasculine = "ordmasculine"_ostr;
constexpr OString tok_ae = "ae"_ostr;
constexpr OString tok_dotlessi = "dotlessi"_ostr;
constexpr OString tok_lslash = "lslash"_ostr;
constexpr OString tok_oslash = "oslash"_ostr;
constexpr OString tok_oe = "oe"_ostr;
constexpr OString tok_germandbls = "germandbls"_ostr;
constexpr OString tok_onesuperior = "onesuperior"_ostr;
constexpr OString tok_logicalnot = "logicalnot"_ostr;
constexpr OString tok_mu = "mu"_ostr;
constexpr OString tok_trademark = "trademark"_ostr;
constexpr OString tok_Eth = "Eth"_ostr;
constexpr OString tok_onehalf = "onehalf"_ostr;
constexpr OString tok_plusminus = "plusminus"_ostr;
constexpr OString tok_Thorn = "Thorn"_ostr;
constexpr OString tok_onequarter = "onequarter"_ostr;
constexpr OString tok_divide = "divide"_ostr;
constexpr OString tok_brokenbar = "brokenbar"_ostr;
constexpr OString tok_degree = "degree"_ostr;
constexpr OString tok_thorn = "thorn"_ostr;
constexpr OString tok_threequarters = "threequarters"_ostr;
constexpr OString tok_twosuperior = "twosuperior"_ostr;
constexpr OString tok_registered = "registered"_ostr;
constexpr OString tok_minus = "minus"_ostr;
constexpr OString tok_eth = "eth"_ostr;
constexpr OString tok_multiply = "multiply"_ostr;
constexpr OString tok_threesuperior = "threesuperior"_ostr;
constexpr OString tok_copyright = "copyright"_ostr;
constexpr OString tok_Aacute = "Aacute"_ostr;
constexpr OString tok_Acircumflex = "Acircumflex"_ostr;
constexpr OString tok_Adieresis = "Adieresis"_ostr;
constexpr OString tok_Agrave = "Agrave"_ostr;
constexpr OString tok_Aring = "Aring"_ostr;
constexpr OString tok_Atilde = "Atilde"_ostr;
constexpr OString tok_Ccedilla = "Ccedilla"_ostr;
constexpr OString tok_Eacute = "Eacute"_ostr;
constexpr OString tok_Ecircumflex = "Ecircumflex"_ostr;
constexpr OString tok_Edieresis = "Edieresis"_ostr;
constexpr OString tok_Egrave = "Egrave"_ostr;
constexpr OString tok_Iacute = "Iacute"_ostr;
constexpr OString tok_Icircumflex = "Icircumflex"_ostr;
constexpr OString tok_Idieresis = "Idieresis"_ostr;
constexpr OString tok_Igrave = "Igrave"_ostr;
constexpr OString tok_Ntilde = "Ntilde"_ostr;
constexpr OString tok_Oacute = "Oacute"_ostr;
constexpr OString tok_Ocircumflex = "Ocircumflex"_ostr;
constexpr OString tok_Odieresis = "Odieresis"_ostr;
constexpr OString tok_Ograve = "Ograve"_ostr;
constexpr OString tok_Otilde = "Otilde"_ostr;
constexpr OString tok_Scaron = "Scaron"_ostr;
constexpr OString tok_Uacute = "Uacute"_ostr;
constexpr OString tok_Ucircumflex = "Ucircumflex"_ostr;
constexpr OString tok_Udieresis = "Udieresis"_ostr;
constexpr OString tok_Ugrave = "Ugrave"_ostr;
constexpr OString tok_Yacute = "Yacute"_ostr;
constexpr OString tok_Ydieresis = "Ydieresis"_ostr;
constexpr OString tok_Zcaron = "Zcaron"_ostr;
constexpr OString tok_aacute = "aacute"_ostr;
constexpr OString tok_acircumflex = "acircumflex"_ostr;
constexpr OString tok_adieresis = "adieresis"_ostr;
constexpr OString tok_agrave = "agrave"_ostr;
constexpr OString tok_aring = "aring"_ostr;
constexpr OString tok_atilde = "atilde"_ostr;
constexpr OString tok_ccedilla = "ccedilla"_ostr;
constexpr OString tok_eacute = "eacute"_ostr;
constexpr OString tok_ecircumflex = "ecircumflex"_ostr;
constexpr OString tok_edieresis = "edieresis"_ostr;
constexpr OString tok_egrave = "egrave"_ostr;
constexpr OString tok_iacute = "iacute"_ostr;
constexpr OString tok_icircumflex = "icircumflex"_ostr;
constexpr OString tok_idieresis = "idieresis"_ostr;
constexpr OString tok_igrave = "igrave"_ostr;
constexpr OString tok_ntilde = "ntilde"_ostr;
constexpr OString tok_oacute = "oacute"_ostr;
constexpr OString tok_ocircumflex = "ocircumflex"_ostr;
constexpr OString tok_odieresis = "odieresis"_ostr;
constexpr OString tok_ograve = "ograve"_ostr;
constexpr OString tok_otilde = "otilde"_ostr;
constexpr OString tok_scaron = "scaron"_ostr;
constexpr OString tok_uacute = "uacute"_ostr;
constexpr OString tok_ucircumflex = "ucircumflex"_ostr;
constexpr OString tok_udieresis = "udieresis"_ostr;
constexpr OString tok_ugrave = "ugrave"_ostr;
constexpr OString tok_yacute = "yacute"_ostr;
constexpr OString tok_ydieresis = "ydieresis"_ostr;
constexpr OString tok_zcaron = "zcaron"_ostr;
constexpr OString tok_exclamsmall = "exclamsmall"_ostr;
constexpr OString tok_Hungarumlautsmall = "Hungarumlautsmall"_ostr;
constexpr OString tok_dollaroldstyle = "dollaroldstyle"_ostr;
constexpr OString tok_dollarsuperior = "dollarsuperior"_ostr;
constexpr OString tok_ampersandsmall = "ampersandsmall"_ostr;
constexpr OString tok_Acutesmall = "Acutesmall"_ostr;
constexpr OString tok_parenleftsuperior = "parenleftsuperior"_ostr;
constexpr OString tok_parenrightsuperior = "parenrightsuperior"_ostr;
constexpr OString tok_twodotenleader = "twodotenleader"_ostr;
constexpr OString tok_onedotenleader = "onedotenleader"_ostr;
constexpr OString tok_zerooldstyle = "zerooldstyle"_ostr;
constexpr OString tok_oneoldstyle = "oneoldstyle"_ostr;
constexpr OString tok_twooldstyle = "twooldstyle"_ostr;
constexpr OString tok_threeoldstyle = "threeoldstyle"_ostr;
constexpr OString tok_fouroldstyle = "fouroldstyle"_ostr;
constexpr OString tok_fiveoldstyle = "fiveoldstyle"_ostr;
constexpr OString tok_sixoldstyle = "sixoldstyle"_ostr;
constexpr OString tok_sevenoldstyle = "sevenoldstyle"_ostr;
constexpr OString tok_eightoldstyle = "eightoldstyle"_ostr;
constexpr OString tok_nineoldstile = "nineoldstile"_ostr;
constexpr OString tok_commasuperior = "commasuperior"_ostr;
constexpr OString tok_threequartersemdash = "threequartersemdash"_ostr;
constexpr OString tok_periodsuperior = "periodsuperior"_ostr;
constexpr OString tok_questionsmall = "questionsmall"_ostr;
constexpr OString tok_asuperior = "asuperior"_ostr;
constexpr OString tok_bsuperior = "bsuperior"_ostr;
constexpr OString tok_centsuperior = "centsuperior"_ostr;
constexpr OString tok_dsuperior = "dsuperior"_ostr;
constexpr OString tok_esuperior = "esuperior"_ostr;
constexpr OString tok_isuperior = "isuperior"_ostr;
constexpr OString tok_lsuperior = "lsuperior"_ostr;
constexpr OString tok_msuperior = "msuperior"_ostr;
constexpr OString tok_nsuperior = "nsuperior"_ostr;
constexpr OString tok_osuperior = "osuperior"_ostr;
constexpr OString tok_rsuperior = "rsuperior"_ostr;
constexpr OString tok_ssuperior = "ssuperior"_ostr;
constexpr OString tok_tsuperior = "tsuperior"_ostr;
constexpr OString tok_ff = "ff"_ostr;
constexpr OString tok_ffi = "ffi"_ostr;
constexpr OString tok_ffl = "ffl"_ostr;
constexpr OString tok_parenleftinferior = "parenleftinferior"_ostr;
constexpr OString tok_parenrightinferior = "parenrightinferior"_ostr;
constexpr OString tok_Circumflexsmall = "Circumflexsmall"_ostr;
constexpr OString tok_hyphensuperior = "hyphensuperior"_ostr;
constexpr OString tok_Gravesmall = "Gravesmall"_ostr;
constexpr OString tok_Asmall = "Asmall"_ostr;
constexpr OString tok_Bsmall = "Bsmall"_ostr;
constexpr OString tok_Csmall = "Csmall"_ostr;
constexpr OString tok_Dsmall = "Dsmall"_ostr;
constexpr OString tok_Esmall = "Esmall"_ostr;
constexpr OString tok_Fsmall = "Fsmall"_ostr;
constexpr OString tok_Gsmall = "Gsmall"_ostr;
constexpr OString tok_Hsmall = "Hsmall"_ostr;
constexpr OString tok_Ismall = "Ismall"_ostr;
constexpr OString tok_Jsmall = "Jsmall"_ostr;
constexpr OString tok_Ksmall = "Ksmall"_ostr;
constexpr OString tok_Lsmall = "Lsmall"_ostr;
constexpr OString tok_Msmall = "Msmall"_ostr;
constexpr OString tok_Nsmall = "Nsmall"_ostr;
constexpr OString tok_Osmall = "Osmall"_ostr;
constexpr OString tok_Psmall = "Psmall"_ostr;
constexpr OString tok_Qsmall = "Qsmall"_ostr;
constexpr OString tok_Rsmall = "Rsmall"_ostr;
constexpr OString tok_Ssmall = "Ssmall"_ostr;
constexpr OString tok_Tsmall = "Tsmall"_ostr;
constexpr OString tok_Usmall = "Usmall"_ostr;
constexpr OString tok_Vsmall = "Vsmall"_ostr;
constexpr OString tok_Wsmall = "Wsmall"_ostr;
constexpr OString tok_Xsmall = "Xsmall"_ostr;
constexpr OString tok_Ysmall = "Ysmall"_ostr;
constexpr OString tok_Zsmall = "Zsmall"_ostr;
constexpr OString tok_colonmonetary = "colonmonetary"_ostr;
constexpr OString tok_onefitted = "onefitted"_ostr;
constexpr OString tok_rupia = "rupia"_ostr;
constexpr OString tok_Tildesmall = "Tildesmall"_ostr;
constexpr OString tok_exclamdownsmall = "exclamdownsmall"_ostr;
constexpr OString tok_centoldstyle = "centoldstyle"_ostr;
constexpr OString tok_Lslashsmall = "Lslashsmall"_ostr;
constexpr OString tok_Scaronsmall = "Scaronsmall"_ostr;
constexpr OString tok_Zcaronsmall = "Zcaronsmall"_ostr;
constexpr OString tok_Dieresissmall = "Dieresissmall"_ostr;
constexpr OString tok_Brevesmall = "Brevesmall"_ostr;
constexpr OString tok_Caronsmall = "Caronsmall"_ostr;
constexpr OString tok_Dotaccentsmall = "Dotaccentsmall"_ostr;
constexpr OString tok_Macronsmall = "Macronsmall"_ostr;
constexpr OString tok_figuredash = "figuredash"_ostr;
constexpr OString tok_hypheninferior = "hypheninferior"_ostr;
constexpr OString tok_Ogoneksmall = "Ogoneksmall"_ostr;
constexpr OString tok_Ringsmall = "Ringsmall"_ostr;
constexpr OString tok_Cedillasmall = "Cedillasmall"_ostr;
constexpr OString tok_questiondownsmall = "questiondownsmall"_ostr;
constexpr OString tok_oneeight = "oneeight"_ostr;
constexpr OString tok_threeeights = "threeeights"_ostr;
constexpr OString tok_fiveeights = "fiveeights"_ostr;
constexpr OString tok_seveneights = "seveneights"_ostr;
constexpr OString tok_onethird = "onethird"_ostr;
constexpr OString tok_twothirds = "twothirds"_ostr;
constexpr OString tok_zerosuperior = "zerosuperior"_ostr;
constexpr OString tok_foursuperior = "foursuperior"_ostr;
constexpr OString tok_fivesuperior = "fivesuperior"_ostr;
constexpr OString tok_sixsuperior = "sixsuperior"_ostr;
constexpr OString tok_sevensuperior = "sevensuperior"_ostr;
constexpr OString tok_eightsuperior = "eightsuperior"_ostr;
constexpr OString tok_ninesuperior = "ninesuperior"_ostr;
constexpr OString tok_zeroinferior = "zeroinferior"_ostr;
constexpr OString tok_oneinferior = "oneinferior"_ostr;
constexpr OString tok_twoinferior = "twoinferior"_ostr;
constexpr OString tok_threeinferior = "threeinferior"_ostr;
constexpr OString tok_fourinferior = "fourinferior"_ostr;
constexpr OString tok_fiveinferior = "fiveinferior"_ostr;
constexpr OString tok_sixinferior = "sixinferior"_ostr;
constexpr OString tok_seveninferior = "seveninferior"_ostr;
constexpr OString tok_eightinferior = "eightinferior"_ostr;
constexpr OString tok_nineinferior = "nineinferior"_ostr;
constexpr OString tok_centinferior = "centinferior"_ostr;
constexpr OString tok_dollarinferior = "dollarinferior"_ostr;
constexpr OString tok_periodinferior = "periodinferior"_ostr;
constexpr OString tok_commainferior = "commainferior"_ostr;
constexpr OString tok_Agravesmall = "Agravesmall"_ostr;
constexpr OString tok_Aacutesmall = "Aacutesmall"_ostr;
constexpr OString tok_Acircumflexsmall = "Acircumflexsmall"_ostr;
constexpr OString tok_Atildesmall = "Atildesmall"_ostr;
constexpr OString tok_Adieresissmall = "Adieresissmall"_ostr;
constexpr OString tok_Aringsmall = "Aringsmall"_ostr;
constexpr OString tok_AEsmall = "AEsmall"_ostr;
constexpr OString tok_Ccedillasmall = "Ccedillasmall"_ostr;
constexpr OString tok_Egravesmall = "Egravesmall"_ostr;
constexpr OString tok_Eacutesmall = "Eacutesmall"_ostr;
constexpr OString tok_Ecircumflexsmall = "Ecircumflexsmall"_ostr;
constexpr OString tok_Edieresissmall = "Edieresissmall"_ostr;
constexpr OString tok_Igravesmall = "Igravesmall"_ostr;
constexpr OString tok_Iacutesmall = "Iacutesmall"_ostr;
constexpr OString tok_Icircumflexsmall = "Icircumflexsmall"_ostr;
constexpr OString tok_Idieresissmall = "Idieresissmall"_ostr;
constexpr OString tok_Ethsmall = "Ethsmall"_ostr;
constexpr OString tok_Ntildesmall = "Ntildesmall"_ostr;
constexpr OString tok_Ogravesmall = "Ogravesmall"_ostr;
constexpr OString tok_Oacutesmall = "Oacutesmall"_ostr;
constexpr OString tok_Ocircumflexsmall = "Ocircumflexsmall"_ostr;
constexpr OString tok_Otildesmall = "Otildesmall"_ostr;
constexpr OString tok_Odieressissmall = "Odieressissmall"_ostr;
constexpr OString tok_OEsmall = "OEsmall"_ostr;
constexpr OString tok_Oslashsmall = "Oslashsmall"_ostr;
constexpr OString tok_Ugravesmall = "Ugravesmall"_ostr;
constexpr OString tok_Uacutesmall = "Uacutesmall"_ostr;
constexpr OString tok_Ucircumflexsmall = "Ucircumflexsmall"_ostr;
constexpr OString tok_Udieresissmall = "Udieresissmall"_ostr;
constexpr OString tok_Yacutesmall = "Yacutesmall"_ostr;
constexpr OString tok_Thornsmall = "Thornsmall"_ostr;
constexpr OString tok_Ydieresissmall = "Ydieresissmall"_ostr;
constexpr OString tok_001_000 = "001.000"_ostr;
constexpr OString tok_001_001 = "001.001"_ostr;
constexpr OString tok_001_002 = "001.002"_ostr;
constexpr OString tok_001_003 = "001.003"_ostr;
constexpr OString tok_Black = "Black"_ostr;
constexpr OString tok_Bold = "Bold"_ostr;
constexpr OString tok_Book = "Book"_ostr;
constexpr OString tok_Light = "Light"_ostr;
constexpr OString tok_Medium = "Medium"_ostr;
constexpr OString tok_Regular = "Regular"_ostr;
constexpr OString tok_Roman = "Roman"_ostr;
constexpr OString tok_Semibold = "Semibold"_ostr;

constexpr OString pStringIds[] = {
/*0*/   tok_notdef,       tok_space,            tok_exclam,           tok_quotedbl,
    tok_numbersign,       tok_dollar,           tok_percent,          tok_ampersand,
    tok_quoteright,       tok_parenleft,        tok_parenright,       tok_asterisk,
    tok_plus,             tok_comma,            tok_hyphen,           tok_period,
/*16*/  tok_slash,        tok_zero,             tok_one,              tok_two,
    tok_three,            tok_four,             tok_five,             tok_six,
    tok_seven,            tok_eight,            tok_nine,             tok_colon,
    tok_semicolon,        tok_less,             tok_equal,            tok_greater,
/*32*/  tok_question,     tok_at,               tok_A,                tok_B,
    tok_C,                tok_D,                tok_E,                tok_F,
    tok_G,                tok_H,                tok_I,                tok_J,
    tok_K,                tok_L,                tok_M,                tok_N,
/*48*/  tok_O,            tok_P,                tok_Q,                tok_R,
    tok_S,                tok_T,                tok_U,                tok_V,
    tok_W,                tok_X,                tok_Y,                tok_Z,
    tok_bracketleft,      tok_backslash,        tok_bracketright,     tok_asciicircum,
/*64*/  tok_underscore,   tok_quoteleft,        tok_a,                tok_b,
    tok_c,                tok_d,                tok_e,                tok_f,
    tok_g,                tok_h,                tok_i,                tok_j,
    tok_k,                tok_l,                tok_m,                tok_n,
/*80*/  tok_o,            tok_p,                tok_q,                tok_r,
    tok_s,                tok_t,                tok_u,                tok_v,
    tok_w,                tok_x,                tok_y,                tok_z,
    tok_braceleft,        tok_bar,              tok_braceright,       tok_asciitilde,
/*96*/  tok_exclamdown,   tok_cent,             tok_sterlin,          tok_fraction,
    tok_yen,              tok_florin,           tok_section,          tok_currency,
    tok_quotesingle,      tok_quotedblleft,     tok_guillemotleft,    tok_guilsinglleft,
    tok_guilsinglright,   tok_fi,               tok_fl,               tok_endash,
/*112*/ tok_dagger,       tok_daggerdbl,        tok_periodcentered,   tok_paragraph,
    tok_bullet,           tok_quotesinglbase,   tok_quotedblbase,     tok_quotedblright,
    tok_guillemotright,   tok_ellipsis,         tok_perthousand,      tok_questiondown,
    tok_grave,            tok_acute,            tok_circumflex,       tok_tilde,
/*128*/ tok_macron,       tok_breve,            tok_dotaccent,        tok_dieresis,
    tok_ring,             tok_cedilla,          tok_hungarumlaut,     tok_ogonek,
    tok_caron,            tok_emdash,           tok_AE,               tok_ordfeminine,
    tok_Lslash,           tok_Oslash,           tok_OE,               tok_ordmasculine,
/*144*/ tok_ae,           tok_dotlessi,         tok_lslash,           tok_oslash,
    tok_oe,               tok_germandbls,       tok_onesuperior,      tok_logicalnot,
    tok_mu,               tok_trademark,        tok_Eth,              tok_onehalf,
    tok_plusminus,        tok_Thorn,            tok_onequarter,       tok_divide,
/*160*/ tok_brokenbar,    tok_degree,           tok_thorn,            tok_threequarters,
    tok_twosuperior,      tok_registered,       tok_minus,            tok_eth,
    tok_multiply,         tok_threesuperior,    tok_copyright,        tok_Aacute,
    tok_Acircumflex,      tok_Adieresis,        tok_Agrave,           tok_Aring,
/*176*/ tok_Atilde,       tok_Ccedilla,         tok_Eacute,           tok_Ecircumflex,
    tok_Edieresis,        tok_Egrave,           tok_Iacute,           tok_Icircumflex,
    tok_Idieresis,        tok_Igrave,           tok_Ntilde,           tok_Oacute,
    tok_Ocircumflex,      tok_Odieresis,        tok_Ograve,           tok_Otilde,
/*192*/ tok_Scaron,       tok_Uacute,           tok_Ucircumflex,      tok_Udieresis,
    tok_Ugrave,           tok_Yacute,           tok_Ydieresis,        tok_Zcaron,
    tok_aacute,           tok_acircumflex,      tok_adieresis,        tok_agrave,
    tok_aring,            tok_atilde,           tok_ccedilla,         tok_eacute,
/*208*/ tok_ecircumflex,  tok_edieresis,        tok_egrave,           tok_iacute,
    tok_icircumflex,      tok_idieresis,        tok_igrave,           tok_ntilde,
    tok_oacute,           tok_ocircumflex,      tok_odieresis,        tok_ograve,
    tok_otilde,           tok_scaron,           tok_uacute,           tok_ucircumflex,
/*224*/ tok_udieresis,    tok_ugrave,           tok_yacute,           tok_ydieresis,
    tok_zcaron,           tok_exclamsmall,      tok_Hungarumlautsmall,tok_dollaroldstyle,
    tok_dollarsuperior,   tok_ampersandsmall,   tok_Acutesmall,       tok_parenleftsuperior,
    tok_parenrightsuperior,tok_twodotenleader,  tok_onedotenleader,   tok_zerooldstyle,
/*240*/ tok_oneoldstyle,  tok_twooldstyle,      tok_threeoldstyle,    tok_fouroldstyle,
    tok_fiveoldstyle,     tok_sixoldstyle,      tok_sevenoldstyle,    tok_eightoldstyle,
    tok_nineoldstile,     tok_commasuperior,    tok_threequartersemdash,tok_periodsuperior,
    tok_questionsmall,    tok_asuperior,        tok_bsuperior,        tok_centsuperior,
/*256*/ tok_dsuperior,    tok_esuperior,        tok_isuperior,        tok_lsuperior,
    tok_msuperior,        tok_nsuperior,        tok_osuperior,        tok_rsuperior,
    tok_ssuperior,        tok_tsuperior,        tok_ff,               tok_ffi,
    tok_ffl,              tok_parenleftinferior,tok_parenrightinferior,tok_Circumflexsmall,
/*272*/ tok_hyphensuperior,tok_Gravesmall,      tok_Asmall,           tok_Bsmall,
    tok_Csmall,           tok_Dsmall,           tok_Esmall,           tok_Fsmall,
    tok_Gsmall,           tok_Hsmall,           tok_Ismall,           tok_Jsmall,
    tok_Ksmall,           tok_Lsmall,           tok_Msmall,           tok_Nsmall,
/*288*/ tok_Osmall,       tok_Psmall,           tok_Qsmall,           tok_Rsmall,
    tok_Ssmall,           tok_Tsmall,           tok_Usmall,           tok_Vsmall,
    tok_Wsmall,           tok_Xsmall,           tok_Ysmall,           tok_Zsmall,
    tok_colonmonetary,    tok_onefitted,        tok_rupia,            tok_Tildesmall,
/*304*/ tok_exclamdownsmall,tok_centoldstyle,   tok_Lslashsmall,      tok_Scaronsmall,
    tok_Zcaronsmall,      tok_Dieresissmall,    tok_Brevesmall,       tok_Caronsmall,
    tok_Dotaccentsmall,   tok_Macronsmall,      tok_figuredash,       tok_hypheninferior,
    tok_Ogoneksmall,      tok_Ringsmall,        tok_Cedillasmall,     tok_questiondownsmall,
/*320*/ tok_oneeight,     tok_threeeights,      tok_fiveeights,       tok_seveneights,
    tok_onethird,         tok_twothirds,        tok_zerosuperior,     tok_foursuperior,
    tok_fivesuperior,     tok_sixsuperior,      tok_sevensuperior,    tok_eightsuperior,
    tok_ninesuperior,     tok_zeroinferior,     tok_oneinferior,      tok_twoinferior,
/*336*/ tok_threeinferior,tok_fourinferior,     tok_fiveinferior,     tok_sixinferior,
    tok_seveninferior,    tok_eightinferior,    tok_nineinferior,     tok_centinferior,
    tok_dollarinferior,   tok_periodinferior,   tok_commainferior,    tok_Agravesmall,
    tok_Aacutesmall,      tok_Acircumflexsmall, tok_Atildesmall,      tok_Adieresissmall,
/*352*/ tok_Aringsmall,   tok_AEsmall,          tok_Ccedillasmall,    tok_Egravesmall,
    tok_Eacutesmall,      tok_Ecircumflexsmall, tok_Edieresissmall,   tok_Igravesmall,
    tok_Iacutesmall,      tok_Icircumflexsmall, tok_Idieresissmall,   tok_Ethsmall,
    tok_Ntildesmall,      tok_Ogravesmall,      tok_Oacutesmall,      tok_Ocircumflexsmall,
/*368*/ tok_Otildesmall,  tok_Odieressissmall,  tok_OEsmall,          tok_Oslashsmall,
    tok_Ugravesmall,      tok_Uacutesmall,      tok_Ucircumflexsmall, tok_Udieresissmall,
    tok_Yacutesmall,      tok_Thornsmall,       tok_Ydieresissmall,   tok_001_000,
    tok_001_001,          tok_001_002,          tok_001_003,          tok_Black,
/*384*/ tok_Bold,         tok_Book,             tok_Light,            tok_Medium,
    tok_Regular,          tok_Roman,            tok_Semibold
};

// TOP DICT keywords (also covers PRIV DICT keywords)
static const char* pDictOps[] = {
    "sVersion",         "sNotice",              "sFullName",        "sFamilyName",
    "sWeight",          "aFontBBox",            "dBlueValues",      "dOtherBlues",
    "dFamilyBlues",     "dFamilyOtherBlues",    "nStdHW",           "nStdVW",
    "xESC",             "nUniqueID",            "aXUID",            "nCharset",
    "nEncoding",        "nCharStrings",         "PPrivate",         "nSubrs",
    "nDefaultWidthX",   "nNominalWidthX",       nullptr,               nullptr,
    nullptr,               nullptr,                   nullptr,               nullptr,
    "shortint",         "longint",              "BCD",              nullptr
};

// TOP DICT escapes (also covers PRIV DICT escapes)
static const char* pDictEscs[] = {
    "sCopyright",           "bIsFixedPitch",    "nItalicAngle",     "nUnderlinePosition",
    "nUnderlineThickness",  "nPaintType",       "tCharstringType",  "aFontMatrix",
    "nStrokeWidth",         "nBlueScale",       "nBlueShift",       "nBlueFuzz",
    "dStemSnapH",           "dStemSnapV",       "bForceBold",       nullptr,
    nullptr,                   "nLanguageGroup",   "nExpansionFactor", "nInitialRandomSeed",
    "nSyntheticBase",       "sPostScript",      "sBaseFontName",    "dBaseFontBlend",
    nullptr,                   nullptr,               nullptr,               nullptr,
    nullptr,                   nullptr,               "rROS",             "nCIDFontVersion",
    "nCIDFontRevision",     "nCIDFontType",     "nCIDCount",        "nUIDBase",
    "nFDArray",             "nFDSelect",        "sFontName"
};

static const char* pStandardEncoding[] = {
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", "space", "exclam", "quotedbl",
    "numbersign", "dollar", "percent", "ampersand",
    "quoteright", "parenleft", "parenright", "asterisk", "plus",
    "comma", "hyphen", "period", "slash", "zero", "one", "two",
    "three", "four", "five", "six", "seven", "eight", "nine",
    "colon", "semicolon", "less", "equal", "greater",
    "question", "at", "A", "B", "C", "D", "E", "F", "G", "H",
    "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T",
    "U", "V", "W", "X", "Y", "Z", "bracketleft", "backslash",
    "bracketright", "asciicircum", "underscore", "quoteleft",
    "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l",
    "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x",
    "y", "z", "braceleft", "bar", "braceright", "asciitilde",
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", "exclamdown",
    "cent", "sterling", "fraction", "yen", "florin", "section",
    "currency", "quotesingle", "quotedblleft", "guillemotleft",
    "guilsinglleft", "guilsinglright", "fi", "fl", ".notdef",
    "endash", "dagger", "daggerdbl", "periodcentered",
    ".notdef", "paragraph", "bullet", "quotesinglbase",
    "quotedblbase", "quotedblright", "guillemotright",
    "ellipsis", "perthousand", ".notdef", "questiondown",
    ".notdef", "grave", "acute", "circumflex", "tilde",
    "macron", "breve", "dotaccent", "dieresis", ".notdef",
    "ring", "cedilla", ".notdef", "hungarumlaut", "ogonek",
    "caron", "emdash", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", ".notdef",
    ".notdef", ".notdef", ".notdef", "AE", ".notdef",
    "ordfeminine", ".notdef", ".notdef", ".notdef", ".notdef",
    "Lslash", "Oslash", "OE", "ordmasculine", ".notdef",
    ".notdef", ".notdef", ".notdef", ".notdef", "ae", ".notdef",
    ".notdef", ".notdef", "dotlessi", ".notdef", ".notdef",
    "lslash", "oslash", "oe", "germandbls", ".notdef",
    ".notdef", ".notdef", ".notdef"
};

namespace {

namespace TYPE1OP
{
    enum OPS
    {
        HSTEM=1,        VSTEM=3,        VMOVETO=4,      RLINETO=5,
        HLINETO=6,      VLINETO=7,      RCURVETO=8,     CLOSEPATH=9,
        CALLSUBR=10,    RETURN=11,      T1ESC=12,       HSBW=13,
        ENDCHAR=14,     RMOVETO=21,     HMOVETO=22,     VHCURVETO=30,
        HVCURVETO=31
    };

    enum ESCS
    {
        DOTSECTION=0,   VSTEM3=1,           HSTEM3=2,   SEAC=6,
        SBW=7,          ABS=9,              ADD=10,     SUB=11,
        DIV=12,         CALLOTHERSUBR=16,   POP=17,     SETCURRENTPOINT=33
    };
}

namespace TYPE2OP
{
    enum OPS
    {
        HSTEM=1,        VSTEM=3,        VMOVETO=4,      RLINETO=5,
        HLINETO=6,      VLINETO=7,      RCURVETO=8,     CALLSUBR=10,
        RETURN=11,      T2ESC=12,       ENDCHAR=14,     HSTEMHM=18,
        HINTMASK=19,    CNTRMASK=20,    RMOVETO=21,     HMOVETO=22,
        VSTEMHM=23,     RCURVELINE=24,  RLINECURVE=25,  VVCURVETO=26,
        HHCURVETO=27,   SHORTINT=28,    CALLGSUBR=29,   VHCURVETO=30,
        HVCURVETO=31
    };

    enum ESCS
    {
        AND=3,      OR=4,       NOT=5,      ABS=9,
        ADD=10,     SUB=11,     DIV=12,     NEG=14,
        EQ=15,      DROP=18,    PUT=20,     GET=21,
        IFELSE=22,  RANDOM=23,  MUL=24,     SQRT=26,
        DUP=27,     EXCH=28,    INDEX=29,   ROLL=30,
        HFLEX=34,   FLEX=35,    HFLEX1=36,  FLEX1=37
    };
}

struct CffGlobal
{
    explicit CffGlobal();

    int     mnNameIdxBase;
    int     mnStringIdxBase;
    bool    mbCIDFont;
    int     mnCharStrBase;
    int     mnCharStrCount;
    int     mnCharsetBase;
    int     mnGlobalSubrBase;
    int     mnGlobalSubrCount;
    int     mnGlobalSubrBias;
    int     mnFDSelectBase;
    int     mnFontDictBase;
    int     mnFDAryCount;

    std::vector<ValType>   maFontBBox;
    std::vector<ValType>   maFontMatrix;

    int     mnFontNameSID;
    int     mnFullNameSID;
};

struct CffLocal
{
    explicit CffLocal();

    int     mnPrivDictBase;
    int     mnPrivDictSize;
    int     mnLocalSubrOffs;
    int     mnLocalSubrBase;
    int     mnLocalSubrBias;

    ValType maNominalWidth;
    ValType maDefaultWidth;

    // ATM hinting related values
    ValType     maStemStdHW;
    ValType     maStemStdVW;
    std::vector<ValType>   maStemSnapH;
    std::vector<ValType>   maStemSnapV;
    std::vector<ValType>   maBlueValues;
    std::vector<ValType>   maOtherBlues;
    std::vector<ValType>   maFamilyBlues;
    std::vector<ValType>   maFamilyOtherBlues;
    RealType    mfBlueScale;
    RealType    mfBlueShift;
    RealType    mfBlueFuzz;
    RealType    mfExpFactor;
    int         mnLangGroup;
    bool        mbForceBold;
};

const int MAX_T1OPS_SIZE = 81920; // TODO: use dynamic value

struct CharString
{
    int nLen;
    U8 aOps[MAX_T1OPS_SIZE];
    int nCffGlyphId;
};


class CffSubsetterContext
:   private CffGlobal
{
public:
    static const int NMAXSTACK = 48;    // see CFF.appendixB
    static const int NMAXHINTS = 2*96;  // see CFF.appendixB
    static const int NMAXTRANS = 32;    // see CFF.appendixB

    explicit CffSubsetterContext( const U8* pBasePtr, int nBaseLen);

    bool    initialCffRead();
    void    emitAsType1( class Type1Emitter&,
                const sal_GlyphId* pGlyphIds, const U8* pEncoding,
                int nGlyphCount, FontSubsetInfo& );

private:
    void    convertCharStrings(const sal_GlyphId* pGlyphIds, int nGlyphCount,
                std::vector<CharString>& rCharStrings);
    int     convert2Type1Ops( CffLocal*, const U8* pType2Ops, int nType2Len, U8* pType1Ops);
    void    convertOneTypeOp();
    void    convertOneTypeEsc();
    void    callType2Subr( bool bGlobal, int nSubrNumber);
    sal_Int32 getReadOfs() const { return static_cast<sal_Int32>(mpReadPtr - mpBasePtr);}

    const U8* mpBasePtr;
    const U8* mpBaseEnd;

    const U8* mpReadPtr;
    const U8* mpReadEnd;

    U8*     mpWritePtr;
    bool    mbNeedClose;
    bool    mbIgnoreHints;
    sal_Int32 mnCntrMask;

    int     seekIndexData( int nIndexBase, int nDataIndex);
    void    seekIndexEnd( int nIndexBase);

    CffLocal    maCffLocal[256];
    CffLocal*   mpCffLocal;

    void        readDictOp();
    RealType    readRealVal();
    OString     getString( int nStringID);
    int         getFDSelect( int nGlyphIndex) const;
    int         getGlyphSID( int nGlyphIndex) const;
    OString     getGlyphName( int nGlyphIndex);
    bool        getBaseAccent(ValType aBase, ValType aAccent, int* nBase, int* nAccent);

    void    read2push();
    void    writeType1Val( ValType);
    void    writeTypeOp( int nTypeOp);
    void    writeTypeEsc( int nTypeOp);
    void    writeCurveTo( int nStackPos, int nIX1, int nIY1, int nIX2, int nIY2, int nIX3, int nIY3);
    void    pop2MultiWrite( int nArgsPerTypo, int nTypeOp, int nTypeXor=0);
    void    popAll2Write( int nTypeOp);

public: // TODO: is public really needed?
    // accessing the value stack
    // TODO: add more checks
    void    push( ValType nVal) { mnValStack[ mnStackIdx++] = nVal;}
    ValType popVal() { return ((mnStackIdx>0) ? mnValStack[ --mnStackIdx] : 0);}
    ValType getVal( int nIndex) const { return mnValStack[ nIndex];}
    int     popInt();
    int     size() const { return mnStackIdx;}
    void    clear() { mnStackIdx = 0;}

    // accessing the charstring hints
    void    addHints( bool bVerticalHints);

    // accessing other charstring specifics
    void    updateWidth( bool bUseFirstVal);

private:
    // typeop execution context
    int mnStackIdx;
    ValType mnValStack[ NMAXSTACK+4];
    ValType mnTransVals[ NMAXTRANS];

    int mnHintSize;
    int mnHorzHintSize;
    ValType mnHintStack[ NMAXHINTS];

    ValType maCharWidth;

    bool    mbDoSeac;
    std::vector<sal_GlyphId> maExtraGlyphIds;
};

}

CffSubsetterContext::CffSubsetterContext( const U8* pBasePtr, int nBaseLen)
    : mpBasePtr( pBasePtr)
    , mpBaseEnd( pBasePtr+nBaseLen)
    , mpReadPtr(nullptr)
    , mpReadEnd(nullptr)
    , mpWritePtr(nullptr)
    , mbNeedClose(false)
    , mbIgnoreHints(false)
    , mnCntrMask(0)
    , mnStackIdx(0)
    , mnValStack{}
    , mnTransVals{}
    , mnHintSize(0)
    , mnHorzHintSize(0)
    , mnHintStack{}
    , maCharWidth(-1)
    , mbDoSeac(true)
{
//  setCharStringType( 1);
    // TODO: new CffLocal[ mnFDAryCount];
    mpCffLocal = &maCffLocal[0];
}

inline int CffSubsetterContext::popInt()
{
    const ValType aVal = popVal();
    const int nInt = static_cast<int>(aVal);
    assert( nInt == aVal);
    return nInt;
}

inline void CffSubsetterContext::updateWidth( bool bUseFirstVal)
{
    // the first value is not a hint but the charwidth
    if( maCharWidth>0 )
        return;

    if( bUseFirstVal) {
        maCharWidth = mpCffLocal->maNominalWidth + mnValStack[0];
        // remove bottom stack entry
        --mnStackIdx;
        for( int i = 0; i < mnStackIdx; ++i)
            mnValStack[ i] = mnValStack[ i+1];
    } else {
        maCharWidth = mpCffLocal->maDefaultWidth;
    }
}

void CffSubsetterContext::addHints( bool bVerticalHints)
{
    // the first charstring value may a charwidth instead of a charwidth
    updateWidth( (mnStackIdx & 1) != 0);
    // return early (e.g. no implicit hints for hintmask)
    if( !mnStackIdx)
        return;

    // copy the remaining values to the hint arrays
    // assert( (mnStackIdx & 1) == 0); // depends on called subrs
    if( mnStackIdx & 1) --mnStackIdx;//#######
    // TODO: if( !bSubr) assert( mnStackIdx >= 2);

    assert( (mnHintSize + mnStackIdx) <= 2*NMAXHINTS);

    ValType nHintOfs = 0;
    for( int i = 0; i < mnStackIdx; ++i) {
        nHintOfs += mnValStack[ i ];
        mnHintStack[ mnHintSize++] = nHintOfs;
    }

    if( !bVerticalHints)
        mnHorzHintSize = mnHintSize;

    // clear all values from the stack
    mnStackIdx = 0;
}

void CffSubsetterContext::readDictOp()
{
    const U8 c = *mpReadPtr;
    if( c <= 21 ) {
        int nOpId = *(mpReadPtr++);
        const char* pCmdName = nullptr;
        if( nOpId != 12)
            pCmdName = pDictOps[nOpId];
        else {
            const U8 nExtId = *(mpReadPtr++);
            if (nExtId < 39)
               pCmdName = pDictEscs[nExtId];
            nOpId = 900 + nExtId;
        }

        if (!pCmdName)  // skip reserved operators
            return;

        //TODO: if( nStackIdx > 0)
        int nInt = 0;
        switch( *pCmdName) {
        default: SAL_WARN("vcl.fonts", "unsupported DictOp.type='" << *pCmdName << "'."); break;
        case 'b':   // bool
            nInt = popInt();
            switch( nOpId) {
            case 915: mpCffLocal->mbForceBold = nInt; break;    // "ForceBold"
            default: break; // TODO: handle more boolean dictops?
            }
            break;
        case 'n': { // dict-op number
            ValType nVal = popVal();
            nInt = static_cast<int>(nVal);
            switch( nOpId) {
            case  10: mpCffLocal->maStemStdHW = nVal; break;    // "StdHW"
            case  11: mpCffLocal->maStemStdVW = nVal; break;    // "StdVW"
            case  15: mnCharsetBase = nInt; break;              // "charset"
            case  16: break;                                    // "nEncoding"
            case  17: mnCharStrBase = nInt; break;              // "nCharStrings"
            case  19: mpCffLocal->mnLocalSubrOffs = nInt; break;// "nSubrs"
            case  20: mpCffLocal->maDefaultWidth = nVal; break; // "defaultWidthX"
            case  21: mpCffLocal->maNominalWidth = nVal; break; // "nominalWidthX"
            case 909: mpCffLocal->mfBlueScale = nVal; break;    // "BlueScale"
            case 910: mpCffLocal->mfBlueShift = nVal; break;    // "BlueShift"
            case 911: mpCffLocal->mfBlueFuzz = nVal; break;     // "BlueFuzz"
            case 912: mpCffLocal->mfExpFactor = nVal; break;    // "ExpansionFactor"
            case 917: mpCffLocal->mnLangGroup = nInt; break;    // "LanguageGroup"
            case 936: mnFontDictBase = nInt; break;             // "nFDArray"
            case 937: mnFDSelectBase = nInt; break;             // "nFDSelect"
            default: break; // TODO: handle more numeric dictops?
            }
            } break;
        case 'a': { // array
            switch( nOpId) {
            case   5: maFontBBox.clear(); break;     // "FontBBox"
            case 907: maFontMatrix.clear(); break; // "FontMatrix"
            default: break; // TODO: reset other arrays?
            }
            for( int i = 0; i < size(); ++i ) {
                ValType nVal = getVal(i);
                switch( nOpId) {
                case   5: maFontBBox.push_back( nVal); break;     // "FontBBox"
                case 907: maFontMatrix.push_back( nVal); break; // "FontMatrix"
                default: break; // TODO: handle more array dictops?
                }
            }
            clear();
            } break;
        case 'd': { // delta array
            ValType nVal = 0;
            for( int i = 0; i < size(); ++i ) {
                nVal += getVal(i);
                switch( nOpId) {
                case   6: mpCffLocal->maBlueValues.push_back( nVal); break;     // "BlueValues"
                case   7: mpCffLocal->maOtherBlues.push_back( nVal); break;     // "OtherBlues"
                case   8: mpCffLocal->maFamilyBlues.push_back( nVal); break;    // "FamilyBlues"
                case   9: mpCffLocal->maFamilyOtherBlues.push_back( nVal); break;// "FamilyOtherBlues"
                case 912: mpCffLocal->maStemSnapH.push_back( nVal); break;      // "StemSnapH"
                case 913: mpCffLocal->maStemSnapV.push_back( nVal); break;      // "StemSnapV"
                default: break; // TODO: handle more delta-array dictops?
                }
            }
            clear();
            } break;
        case 's':   // stringid (SID)
            nInt = popInt();
            switch( nOpId ) {
            case   2: mnFullNameSID = nInt; break;      // "FullName"
            case   3: break;    // "FamilyName"
            case 938: mnFontNameSID = nInt; break;      // "FontName"
            default: break; // TODO: handle more string dictops?
            }
            break;
        case 'P':   // private dict
            mpCffLocal->mnPrivDictBase = popInt();
            mpCffLocal->mnPrivDictSize = popInt();
            break;
        case 'r': { // ROS operands
            popInt(); // TODO: use sid1
            popInt(); // TODO: use sid2
            popVal();
            mbCIDFont = true;
            } break;
        case 't':   // CharstringType
            popInt();
            break;
        }
    } else if( (c >= 32) || (c == 28) ) {
//      --mpReadPtr;
        read2push();
    } else if( c == 29 ) {      // longint
        ++mpReadPtr;            // skip 29
        sal_Int32 nS32 = mpReadPtr[0] << 24;
        nS32 += mpReadPtr[1] << 16;
        nS32 += mpReadPtr[2] << 8;
        nS32 += mpReadPtr[3] << 0;
        mpReadPtr += 4;
        ValType nVal = static_cast<ValType>(nS32);
        push( nVal );
    } else if( c == 30) {       // real number
        ++mpReadPtr; // skip 30
        const RealType fReal = readRealVal();
        // push value onto stack
        ValType nVal = fReal;
        push( nVal);
    }
}

void CffSubsetterContext::read2push()
{
    ValType aVal = 0;

    const U8*& p = mpReadPtr;
    const U8 c = *p;
    if( c == 28 ) {
        sal_Int16 nS16 = (p[1] << 8) + p[2];
        aVal = nS16;
        p += 3;
    } else if( c <= 246 ) {     // -107..+107
        aVal = static_cast<ValType>(p[0] - 139);
        p += 1;
    } else if( c <= 250 ) {     // +108..+1131
        aVal = static_cast<ValType>(((p[0] << 8) + p[1]) - 63124);
        p += 2;
    } else if( c <= 254 ) {     // -108..-1131
        aVal = static_cast<ValType>(64148 - ((p[0] << 8) + p[1]));
        p += 2;
    } else /*if( c == 255)*/ {  // Fixed16.16
        int nS32 = (p[1] << 24) + (p[2] << 16) + (p[3] << 8) + p[4];
        if( (sizeof(nS32) != 2) && (nS32 & (1U<<31)))
            nS32 |= (~0U) << 31;    // assuming 2s complement
        aVal = static_cast<ValType>(nS32 * (1.0 / 0x10000));
        p += 5;
    }

    push( aVal);
}

void CffSubsetterContext::writeType1Val( ValType aVal)
{
    U8* pOut = mpWritePtr;

    // tdf#126242
    // Type2 has 16.16 fixed numbers, but Type1 does not. To represent values
    // with fractions we multiply it by a factor then use “div” operator to
    // divide it back and keep the fractions.
    // Code Adapted from:
    // https://github.com/fontforge/fontforge/blob/f152f12e567ea5bd737a2907c318ae26cfaabd08/fontforge/splinesave.c#L378
    int nDiv = 0;
    aVal = rint(aVal * 1024) / 1024;
    if (aVal != floor(aVal))
    {
        if (aVal == rint(aVal * 64) / 64)
            nDiv = 64;
        else
            nDiv = 1024;
        aVal *= nDiv;
    }

    int nInt = static_cast<int>(rint(aVal));
    if (nDiv && floor(nInt) / nDiv == floor(nInt / nDiv))
    {
        nInt = rint(nInt / nDiv);
        nDiv = 0;
    }

    if( (nInt >= -107) && (nInt <= +107)) {
        *(pOut++) = static_cast<U8>(nInt + 139);    // -107..+107
    } else if( (nInt >= -1131) && (nInt <= +1131)) {
        if( nInt >= 0)
            nInt += 63124;                          // +108..+1131
        else
            nInt = 64148 - nInt;                    // -108..-1131
        *(pOut++) = static_cast<U8>(nInt >> 8);
        *(pOut++) = static_cast<U8>(nInt);
    } else {
        // numtype==255 means int32 for Type1, but 16.16 for Type2 charstrings!!!
        *(pOut++) = 255;
        *(pOut++) = static_cast<U8>(nInt >> 24);
        *(pOut++) = static_cast<U8>(nInt >> 16);
        *(pOut++) = static_cast<U8>(nInt >> 8);
        *(pOut++) = static_cast<U8>(nInt);
    }

    mpWritePtr = pOut;

    if (nDiv)
    {
        writeType1Val(nDiv);
        writeTypeEsc(TYPE1OP::DIV);
    }
}

inline void CffSubsetterContext::writeTypeOp( int nTypeOp)
{
    *(mpWritePtr++) = static_cast<U8>(nTypeOp);
}

inline void CffSubsetterContext::writeTypeEsc( int nTypeEsc)
{
    *(mpWritePtr++) = TYPE1OP::T1ESC;
    *(mpWritePtr++) = static_cast<U8>(nTypeEsc);
}

void CffSubsetterContext::pop2MultiWrite( int nArgsPerTypo, int nTypeOp, int nTypeXor)
{
    for( int i = 0; i < mnStackIdx;) {
        for( int j = 0; j < nArgsPerTypo; ++j) {
            const ValType aVal = mnValStack[i+j];
            writeType1Val( aVal);
        }
        i += nArgsPerTypo;
        writeTypeOp( nTypeOp);
        nTypeOp ^= nTypeXor;    // for toggling vlineto/hlineto
    }
    clear();
}

void CffSubsetterContext::popAll2Write( int nTypeOp)
{
    // pop in reverse order, then write
    for( int i = 0; i < mnStackIdx; ++i) {
        const ValType aVal = mnValStack[i];
        writeType1Val( aVal);
    }
    clear();
    writeTypeOp( nTypeOp);
}

void CffSubsetterContext::writeCurveTo( int nStackPos,
    int nIX1, int nIY1, int nIX2, int nIY2, int nIX3, int nIY3)
{
    // get the values from the stack
    const ValType nDX1 = nIX1 ? mnValStack[ nStackPos+nIX1 ] : 0;
    const ValType nDY1 = nIY1 ? mnValStack[ nStackPos+nIY1 ] : 0;
    const ValType nDX2 = nIX2 ? mnValStack[ nStackPos+nIX2 ] : 0;
    const ValType nDY2 = nIY2 ? mnValStack[ nStackPos+nIY2 ] : 0;
    const ValType nDX3 = nIX3 ? mnValStack[ nStackPos+nIX3 ] : 0;
    const ValType nDY3 = nIY3 ? mnValStack[ nStackPos+nIY3 ] : 0;

    // emit the curveto operator and operands
    // TODO: determine the most efficient curveto operator
    // TODO: depending on type1op or type2op target
    writeType1Val( nDX1 );
    writeType1Val( nDY1 );
    writeType1Val( nDX2 );
    writeType1Val( nDY2 );
    writeType1Val( nDX3 );
    writeType1Val( nDY3 );
    writeTypeOp( TYPE1OP::RCURVETO );
}

void CffSubsetterContext::convertOneTypeOp()
{
    const int nType2Op = *(mpReadPtr++);

    int i, nInt; // prevent WAE for declarations inside switch cases
    // convert each T2op
    switch( nType2Op) {
    case TYPE2OP::T2ESC:
        convertOneTypeEsc();
        break;
    case TYPE2OP::HSTEM:
    case TYPE2OP::VSTEM:
        addHints( nType2Op == TYPE2OP::VSTEM );
        for( i = 0; i < mnHintSize; i+=2 ) {
            writeType1Val( mnHintStack[i]);
            writeType1Val( mnHintStack[i+1] - mnHintStack[i]);
            writeTypeOp( nType2Op );
        }
        break;
    case TYPE2OP::HSTEMHM:
    case TYPE2OP::VSTEMHM:
        addHints( nType2Op == TYPE2OP::VSTEMHM);
        break;
    case TYPE2OP::CNTRMASK:
        // TODO: replace cntrmask with vstem3/hstem3
        addHints( true);
        {
        U8 nMaskBit = 0;
        U8 nMaskByte = 0;
        for( i = 0; i < mnHintSize; i+=2, nMaskBit>>=1) {
            if( !nMaskBit) {
                nMaskByte = *(mpReadPtr++);
                nMaskBit = 0x80;
            }
            if( !(nMaskByte & nMaskBit))
                continue;
            if( i >= 8*int(sizeof(mnCntrMask)))
                mbIgnoreHints = true;
            if( mbIgnoreHints)
                continue;
            mnCntrMask |= (1U << i);
        }
        }
        break;
    case TYPE2OP::HINTMASK:
        addHints( true);
        {
        sal_Int32 nHintMask = 0;
        int nCntrBits[2] = {0,0};
        U8 nMaskBit = 0;
        U8 nMaskByte = 0;
        int const MASK_BITS = 8*sizeof(nHintMask);
        for( i = 0; i < mnHintSize; i+=2, nMaskBit>>=1) {
            if( !nMaskBit) {
                nMaskByte = *(mpReadPtr++);
                nMaskBit = 0x80;
            }
            if( !(nMaskByte & nMaskBit))
                continue;
            if( i >= MASK_BITS)
                mbIgnoreHints = true;
            if( mbIgnoreHints)
                continue;
            nHintMask |= (1U << i);
            nCntrBits[ i < mnHorzHintSize] += (mnCntrMask >> i) & 1;
        }

        mbIgnoreHints |= (nCntrBits[0] && (nCntrBits[0] != 3));
        mbIgnoreHints |= (nCntrBits[1] && (nCntrBits[1] != 3));
        if( mbIgnoreHints)
            break;

        for( i = 0; i < mnHintSize; i+=2) {
            if(i >= MASK_BITS || !(nHintMask & (1U << i)))
                continue;
            writeType1Val( mnHintStack[i]);
            writeType1Val( mnHintStack[i+1] - mnHintStack[i]);
            const bool bHorz = (i < mnHorzHintSize);
            if( !nCntrBits[ bHorz])
                writeTypeOp( bHorz ? TYPE1OP::HSTEM : TYPE1OP::VSTEM);
            else if( !--nCntrBits[ bHorz])
                writeTypeEsc( bHorz ? TYPE1OP::HSTEM3 : TYPE1OP::VSTEM3);
        }
        }
        break;
    case TYPE2OP::CALLSUBR:
    case TYPE2OP::CALLGSUBR:
        {
        nInt = popInt();
        const bool bGlobal = (nType2Op == TYPE2OP::CALLGSUBR);
        callType2Subr( bGlobal, nInt);
        }
        break;
    case TYPE2OP::RETURN:
        // TODO: check that we are in a subroutine
        return;
    case TYPE2OP::VMOVETO:
    case TYPE2OP::HMOVETO:
        if( mbNeedClose)
            writeTypeOp( TYPE1OP::CLOSEPATH);
        else
            updateWidth( size() > 1);
        mbNeedClose = true;
        pop2MultiWrite( 1, nType2Op);
        break;
    case TYPE2OP::VLINETO:
    case TYPE2OP::HLINETO:
        pop2MultiWrite( 1, nType2Op,
            TYPE1OP::VLINETO ^ TYPE1OP::HLINETO);
        break;
    case TYPE2OP::RMOVETO:
        // TODO: convert rmoveto to vlineto/hlineto if possible
        if( mbNeedClose)
            writeTypeOp( TYPE1OP::CLOSEPATH);
        else
            updateWidth( size() > 2);
        mbNeedClose = true;
        pop2MultiWrite( 2, nType2Op);
        break;
    case TYPE2OP::RLINETO:
        // TODO: convert rlineto to vlineto/hlineto if possible
        pop2MultiWrite( 2, nType2Op);
        break;
    case TYPE2OP::RCURVETO:
        // TODO: convert rcurveto to vh/hv/hh/vv-curveto if possible
        pop2MultiWrite( 6, nType2Op);
        break;
    case TYPE2OP::RCURVELINE:
        i = 0;
        while( (i += 6) <= mnStackIdx)
            writeCurveTo( i, -6, -5, -4, -3, -2, -1 );
        i -= 6;
        while( (i += 2) <= mnStackIdx) {
            writeType1Val( mnValStack[i-2]);
            writeType1Val( mnValStack[i-1]);
            writeTypeOp( TYPE2OP::RLINETO);
        }
        clear();
        break;
    case TYPE2OP::RLINECURVE:
        i = 0;
        while( (i += 2) <= mnStackIdx-6) {
            writeType1Val( mnValStack[i-2]);
            writeType1Val( mnValStack[i-1]);
            writeTypeOp( TYPE2OP::RLINETO);
        }
        i -= 2;
        while( (i += 6) <= mnStackIdx)
            writeCurveTo( i, -6, -5, -4, -3, -2, -1 );
        clear();
        break;
    case TYPE2OP::VHCURVETO:
    case TYPE2OP::HVCURVETO:
        {
        bool bVert = (nType2Op == TYPE2OP::VHCURVETO);
        i = 0;
        nInt = 0;
        if( mnStackIdx & 1 )
            nInt = static_cast<int>(mnValStack[ --mnStackIdx ]);
        while( (i += 4) <= mnStackIdx) {
            // TODO: use writeCurveTo()
            if( bVert ) writeType1Val( 0 );
            writeType1Val( mnValStack[i-4] );
            if( !bVert ) writeType1Val( 0);
            writeType1Val( mnValStack[i-3] );
            writeType1Val( mnValStack[i-2] );
            if( !bVert ) writeType1Val( static_cast<ValType>((i==mnStackIdx) ? nInt : 0) );
            writeType1Val( mnValStack[i-1] );
            if( bVert ) writeType1Val( static_cast<ValType>((i==mnStackIdx) ? nInt : 0) );
            bVert = !bVert;
            writeTypeOp( TYPE2OP::RCURVETO);
        }
        }
        clear();
        break;
    case TYPE2OP::HHCURVETO:
        i = (mnStackIdx & 1);
        while( (i += 4) <= mnStackIdx) {
            if( i != 5)
                writeCurveTo( i, -4,  0, -3, -2, -1, 0);
            else
                writeCurveTo( i, -4, -5, -3, -2, -1, 0);
        }
        clear();
        break;
    case TYPE2OP::VVCURVETO:
        i = (mnStackIdx & 1);
        while( (i += 4) <= mnStackIdx) {
            if( i != 5)
                writeCurveTo( i,  0, -4, -3, -2, 0, -1);
            else
                writeCurveTo( i, -5, -4, -3, -2, 0, -1);
        }
        clear();
        break;
    case TYPE2OP::ENDCHAR:
        if (size() >= 4 && mbDoSeac)
        {
            // Deprecated seac-like use of endchar (Adobe Technical Note #5177,
            // Appendix C).
            auto achar = popVal();
            auto bchar = popVal();
            auto ady = popVal();
            auto adx = popVal();
            int nBase = {}, nAccent = {};
            if (getBaseAccent(bchar, achar, &nBase, &nAccent))
            {
                maExtraGlyphIds.push_back(nBase);
                maExtraGlyphIds.push_back(nAccent);
                writeType1Val(0); // TODO accent sb
                writeType1Val(adx);
                writeType1Val(ady);
                writeType1Val(bchar);
                writeType1Val(achar);
                writeTypeEsc(TYPE1OP::SEAC);
            }
        }
        if( mbNeedClose)
            writeTypeOp( TYPE1OP::CLOSEPATH);
        else
            updateWidth( size() >= 1);
        // mbNeedClose = true;
        writeTypeOp( TYPE1OP::ENDCHAR);
        break;
    default:
        if( ((nType2Op >= 32) && (nType2Op <= 255)) || (nType2Op == 28)) {
            --mpReadPtr;
            read2push();
        } else {
            popAll2Write( nType2Op);
            assert(false && "TODO?");
        }
        break;
    }
}

void CffSubsetterContext::convertOneTypeEsc()
{
    const int nType2Esc = *(mpReadPtr++);
    ValType* pTop = &mnValStack[ mnStackIdx-1];
    // convert each T2op
    switch( nType2Esc) {
    case TYPE2OP::AND:
        assert( mnStackIdx >= 2 );
        pTop[0] = static_cast<ValType>(static_cast<int>(pTop[0]) & static_cast<int>(pTop[-1]));
        --mnStackIdx;
        break;
    case TYPE2OP::OR:
        assert( mnStackIdx >= 2 );
        pTop[0] = static_cast<ValType>(static_cast<int>(pTop[0]) | static_cast<int>(pTop[-1]));
        --mnStackIdx;
        break;
    case TYPE2OP::NOT:
        assert( mnStackIdx >= 1 );
        pTop[0] = ValType(pTop[0] == 0);
        break;
    case TYPE2OP::ABS:
        assert( mnStackIdx >= 1 );
        if( pTop[0] >= 0)
            break;
        [[fallthrough]];
    case TYPE2OP::NEG:
        assert( mnStackIdx >= 1 );
        pTop[0] = -pTop[0];
        break;
    case TYPE2OP::ADD:
        assert( mnStackIdx >= 2 );
        pTop[0] += pTop[-1];
        --mnStackIdx;
        break;
    case TYPE2OP::SUB:
        assert( mnStackIdx >= 2 );
        pTop[0] -= pTop[-1];
        --mnStackIdx;
        break;
    case TYPE2OP::MUL:
        assert( mnStackIdx >= 2 );
        if( pTop[-1])
            pTop[0] *= pTop[-1];
        --mnStackIdx;
        break;
    case TYPE2OP::DIV:
        assert( mnStackIdx >= 2 );
        if( pTop[-1])
            pTop[0] /= pTop[-1];
        --mnStackIdx;
        break;
    case TYPE2OP::EQ:
        assert( mnStackIdx >= 2 );
        pTop[0] = ValType(pTop[0] == pTop[-1]);
        --mnStackIdx;
        break;
    case TYPE2OP::DROP:
        assert( mnStackIdx >= 1 );
        --mnStackIdx;
        break;
    case TYPE2OP::PUT: {
        assert( mnStackIdx >= 2 );
        const int nIdx = static_cast<int>(pTop[0]);
        assert( nIdx >= 0 );
        assert( nIdx < NMAXTRANS );
        mnTransVals[ nIdx] = pTop[-1];
        mnStackIdx -= 2;
        break;
        }
    case TYPE2OP::GET: {
        assert( mnStackIdx >= 1 );
        const int nIdx = static_cast<int>(pTop[0]);
        assert( nIdx >= 0 );
        assert( nIdx < NMAXTRANS );
        pTop[0] = mnTransVals[ nIdx ];
        break;
        }
    case TYPE2OP::IFELSE: {
        assert( mnStackIdx >= 4 );
        if( pTop[-1] > pTop[0] )
            pTop[-3] = pTop[-2];
        mnStackIdx -= 3;
        break;
        }
    case TYPE2OP::RANDOM:
        pTop[+1] = 1234; // TODO
        ++mnStackIdx;
        break;
    case TYPE2OP::SQRT:
        // TODO: implement
        break;
    case TYPE2OP::DUP:
        assert( mnStackIdx >= 1 );
        pTop[+1] = pTop[0];
        ++mnStackIdx;
        break;
    case TYPE2OP::EXCH: {
        assert( mnStackIdx >= 2 );
        const ValType nVal = pTop[0];
        pTop[0] = pTop[-1];
        pTop[-1] = nVal;
        break;
        }
    case TYPE2OP::INDEX: {
        assert( mnStackIdx >= 1 );
        const int nVal = static_cast<int>(pTop[0]);
        assert( nVal >= 0 );
        assert( nVal < mnStackIdx-1 );
        pTop[0] = pTop[-1-nVal];
        break;
        }
    case TYPE2OP::ROLL: {
        assert( mnStackIdx >= 1 );
        const int nNum = static_cast<int>(pTop[0]);
        assert( nNum >= 0);
        assert( nNum < mnStackIdx-2 );
        (void)nNum; // TODO: implement
        // TODO: implement: const int nOfs = static_cast<int>(pTop[-1]);
        mnStackIdx -= 2;
        break;
        }
    case TYPE2OP::HFLEX1: {
            assert( mnStackIdx == 9);

            writeCurveTo( mnStackIdx, -9, -8, -7, -6, -5,  0);
            writeCurveTo( mnStackIdx, -4,  0, -3, -2, -1,  0);
        // TODO: emulate hflex1 using othersubr call

            mnStackIdx -= 9;
        }
        break;
    case TYPE2OP::HFLEX: {
            assert( mnStackIdx == 7);
            ValType* pX = &mnValStack[ mnStackIdx];

            pX[+1] = -pX[-5]; // temp: +dy5==-dy2
            writeCurveTo( mnStackIdx, -7,  0, -6, -5, -4,  0);
            writeCurveTo( mnStackIdx, -3,  0, -2, +1, -1,  0);
        // TODO: emulate hflex using othersubr call

            mnStackIdx -= 7;
        }
        break;
    case TYPE2OP::FLEX: {
            assert( mnStackIdx == 13 );
            writeCurveTo( mnStackIdx, -13, -12, -11, -10, -9, -8 );
            writeCurveTo( mnStackIdx,  -7,  -6,  -5,  -4, -3, -2 );
            // ignoring ValType nFlexDepth = mnValStack[ mnStackIdx-1 ];
            mnStackIdx -= 13;
        }
        break;
    case TYPE2OP::FLEX1: {
            assert( mnStackIdx == 11 );
            // write the first part of the flex1-hinted curve
            writeCurveTo( mnStackIdx, -11, -10, -9, -8, -7, -6 );

            // determine if nD6 is horizontal or vertical
            const int i = mnStackIdx;
            ValType nDeltaX = mnValStack[i-11] + mnValStack[i-9] + mnValStack[i-7] + mnValStack[i-5] + mnValStack[i-3];
            if( nDeltaX < 0 ) nDeltaX = -nDeltaX;
            ValType nDeltaY = mnValStack[i-10] + mnValStack[i-8] + mnValStack[i-6] + mnValStack[i-4] + mnValStack[i-2];
            if( nDeltaY < 0 ) nDeltaY = -nDeltaY;
            const bool bVertD6 = (nDeltaY > nDeltaX);

            // write the second part of the flex1-hinted curve
            if( !bVertD6 )
                writeCurveTo( mnStackIdx, -5, -4, -3, -2, -1, 0);
            else
                writeCurveTo( mnStackIdx, -5, -4, -3, -2, 0, -1);
            mnStackIdx -= 11;
        }
        break;
    default:
        SAL_WARN("vcl.fonts", "unhandled type2esc " << nType2Esc);
        assert( false);
        break;
    }
}

void CffSubsetterContext::callType2Subr( bool bGlobal, int nSubrNumber)
{
    const U8* const pOldReadPtr = mpReadPtr;
    const U8* const pOldReadEnd = mpReadEnd;

    if( bGlobal ) {
        nSubrNumber += mnGlobalSubrBias;
        seekIndexData( mnGlobalSubrBase, nSubrNumber);
    } else {
        nSubrNumber += mpCffLocal->mnLocalSubrBias;
        seekIndexData( mpCffLocal->mnLocalSubrBase, nSubrNumber);
    }

    while( mpReadPtr < mpReadEnd)
        convertOneTypeOp();

    mpReadPtr = pOldReadPtr;
    mpReadEnd = pOldReadEnd;
}

int CffSubsetterContext::convert2Type1Ops( CffLocal* pCffLocal, const U8* const pT2Ops, int nT2Len, U8* const pT1Ops)
{
    mpCffLocal = pCffLocal;

    // prepare the charstring conversion
    mpWritePtr = pT1Ops;
    U8 aType1Ops[ MAX_T1OPS_SIZE];
    if( !pT1Ops)
        mpWritePtr = aType1Ops;
    *const_cast<U8**>(&pT1Ops) = mpWritePtr;

    // prepend random seed for T1crypt
    *(mpWritePtr++) = 0x48;
    *(mpWritePtr++) = 0x44;
    *(mpWritePtr++) = 0x55;
    *(mpWritePtr++) = ' ';

    // convert the Type2 charstring to Type1
    mpReadPtr = pT2Ops;
    mpReadEnd = pT2Ops + nT2Len;
    // prepend "hsbw" or "sbw"
    // TODO: only emit hsbw when charwidth is known
    writeType1Val(0); // TODO: aSubsetterContext.getLeftSideBearing();
    U8* pCharWidthPtr=mpWritePtr; // need to overwrite that later
    // pad out 5 bytes for the char width with default val 1000 (to be
    // filled with the actual value below)
    *(mpWritePtr++) = 255;
    *(mpWritePtr++) = static_cast<U8>(0);
    *(mpWritePtr++) = static_cast<U8>(0);
    *(mpWritePtr++) = static_cast<U8>(250);
    *(mpWritePtr++) = static_cast<U8>(124);
    writeTypeOp(TYPE1OP::HSBW);
    mbNeedClose = false;
    mbIgnoreHints = false;
    mnHintSize=mnHorzHintSize=mnStackIdx=0; maCharWidth=-1;//#######
    mnCntrMask = 0;
    while( mpReadPtr < mpReadEnd)
        convertOneTypeOp();
    if( maCharWidth != -1 )
    {
        // overwrite earlier charWidth value, which we only now have
        // parsed out of mpReadPtr buffer (by way of
        // convertOneTypeOp()s above)
        const int nInt = static_cast<int>(maCharWidth);
        *(pCharWidthPtr++) = 255;
        *(pCharWidthPtr++) = static_cast<U8>(nInt >> 24);
        *(pCharWidthPtr++) = static_cast<U8>(nInt >> 16);
        *(pCharWidthPtr++) = static_cast<U8>(nInt >> 8);
        *(pCharWidthPtr++) = static_cast<U8>(nInt);
    }

    const int nType1Len = mpWritePtr - pT1Ops;

    // encrypt the Type1 charstring
    unsigned nRDCryptR = 4330; // TODO: mnRDCryptSeed;
    for( U8* p = pT1Ops; p < mpWritePtr; ++p) {
        *p ^= (nRDCryptR >> 8);
        nRDCryptR = (*p + nRDCryptR) * 52845 + 22719;
    }

    return nType1Len;
}

RealType CffSubsetterContext::readRealVal()
{
    // TODO: more thorough number validity test
    bool bComma = false;
    int nExpVal = 0;
    int nExpSign = 0;
    S64 nNumber = 0;
    RealType fReal = +1.0;
    for(;;){
        const U8 c = *(mpReadPtr++); // read nibbles
        // parse high nibble
        const U8 nH = c >> 4U;
        if( nH <= 9) {
            nNumber = nNumber * 10 + nH;
            --nExpVal;
        } else if( nH == 10) {  // comma
            nExpVal = 0;
            bComma = true;
        } else if( nH == 11) {  // +exp
            fReal *= nNumber;
            nExpSign = +1;
            nNumber = 0;
        } else if( nH == 12) {  // -exp
            fReal *= nNumber;
            nExpSign = -1;
            nNumber = 0;
        } else if( nH == 13) {  // reserved
            // TODO: ignore or error?
        } else if( nH == 14)    // minus
            fReal = -fReal;
        else if( nH == 15)  // end
            break;
        // parse low nibble
        const U8 nL = c & 0x0F;
        if( nL <= 9) {
            nNumber = nNumber * 10 + nL;
            --nExpVal;
        } else if( nL == 10) {  // comma
            nExpVal = 0;
            bComma = true;
        } else if( nL == 11) {  // +exp
            fReal *= nNumber;
            nNumber = 0;
            nExpSign = +1;
        } else if( nL == 12) {  // -exp
            fReal *= nNumber;
            nNumber = 0;
            nExpSign = -1;
        } else if( nL == 13) {  // reserved
            // TODO: ignore or error?
        } else if( nL == 14)    // minus
            fReal = -fReal;
        else if( nL == 15)  // end
            break;
    }

    // merge exponents
    if( !bComma)
        nExpVal = 0;
    if( !nExpSign) { fReal *= nNumber;}
    else if( nExpSign > 0) { nExpVal += static_cast<int>(nNumber);}
    else if( nExpSign < 0) { nExpVal -= static_cast<int>(nNumber);}

    // apply exponents
    if( !nExpVal) { /*nothing to apply*/}
    else if( nExpVal > 0) { while( --nExpVal >= 0) fReal *= 10.0;}
    else if( nExpVal < 0) { while( ++nExpVal <= 0) fReal /= 10.0;}
    return fReal;
}

// prepare to access an element inside a CFF/CID index table
int CffSubsetterContext::seekIndexData( int nIndexBase, int nDataIndex)
{
    assert( (nIndexBase > 0) && (mpBasePtr + nIndexBase + 3 <= mpBaseEnd));
    if( nDataIndex < 0)
        return -1;
    mpReadPtr = mpBasePtr + nIndexBase;
    const int nDataCount = (mpReadPtr[0]<<8) + mpReadPtr[1];
    if( nDataIndex >= nDataCount)
        return -1;
    const int nDataOfsSz = mpReadPtr[2];
    mpReadPtr += 3 + (nDataOfsSz * nDataIndex);
    int nOfs1 = 0;
    switch( nDataOfsSz) {
        default: SAL_WARN("vcl.fonts", "\tINVALID nDataOfsSz=" << nDataOfsSz); return -1;
        case 1: nOfs1 = mpReadPtr[0]; break;
        case 2: nOfs1 = (mpReadPtr[0]<<8) + mpReadPtr[1]; break;
        case 3: nOfs1 = (mpReadPtr[0]<<16) + (mpReadPtr[1]<<8) + mpReadPtr[2]; break;
        case 4: nOfs1 = (mpReadPtr[0]<<24) + (mpReadPtr[1]<<16) + (mpReadPtr[2]<<8) + mpReadPtr[3]; break;
    }
    mpReadPtr += nDataOfsSz;

    int nOfs2 = 0;
    switch( nDataOfsSz) {
        case 1: nOfs2 = mpReadPtr[0]; break;
        case 2: nOfs2 = (mpReadPtr[0]<<8) + mpReadPtr[1]; break;
        case 3: nOfs2 = (mpReadPtr[0]<<16) + (mpReadPtr[1]<<8) + mpReadPtr[2]; break;
        case 4: nOfs2 = (mpReadPtr[0]<<24) + (mpReadPtr[1]<<16) + (mpReadPtr[2]<<8) + mpReadPtr[3]; break;
    }

    mpReadPtr = mpBasePtr + (nIndexBase + 2) + nDataOfsSz * (nDataCount + 1) + nOfs1;
    mpReadEnd = mpReadPtr + (nOfs2 - nOfs1);
    assert( nOfs1 >= 0);
    assert( nOfs2 >= nOfs1);
    assert( mpReadPtr <= mpBaseEnd);
    assert( mpReadEnd <= mpBaseEnd);
    return (nOfs2 - nOfs1);
}

// skip over a CFF/CID index table
void CffSubsetterContext::seekIndexEnd( int nIndexBase)
{
    assert( (nIndexBase > 0) && (mpBasePtr + nIndexBase + 3 <= mpBaseEnd));
    mpReadPtr = mpBasePtr + nIndexBase;
    const int nDataCount = (mpReadPtr[0]<<8) + mpReadPtr[1];
    const int nDataOfsSz = mpReadPtr[2];
    mpReadPtr += 3 + nDataOfsSz * nDataCount;
    assert( mpReadPtr <= mpBaseEnd);
    int nEndOfs = 0;
    switch( nDataOfsSz) {
        default: SAL_WARN("vcl.fonts", "\tINVALID nDataOfsSz=" << nDataOfsSz); return;
        case 1: nEndOfs = mpReadPtr[0]; break;
        case 2: nEndOfs = (mpReadPtr[0]<<8) + mpReadPtr[1]; break;
        case 3: nEndOfs = (mpReadPtr[0]<<16) + (mpReadPtr[1]<<8) + mpReadPtr[2];break;
        case 4: nEndOfs = (mpReadPtr[0]<<24) + (mpReadPtr[1]<<16) + (mpReadPtr[2]<<8) + mpReadPtr[3]; break;
    }
    mpReadPtr += nDataOfsSz;
    mpReadPtr += nEndOfs - 1;
    mpReadEnd = mpBaseEnd;
    assert( nEndOfs >= 0);
    assert( mpReadEnd <= mpBaseEnd);
}

// initialize FONTDICT specific values
CffLocal::CffLocal()
:   mnPrivDictBase( 0)
,   mnPrivDictSize( 0)
,   mnLocalSubrOffs( 0)
,   mnLocalSubrBase( 0)
,   mnLocalSubrBias( 0)
,   maNominalWidth( 0)
,   maDefaultWidth( 0)
,   maStemStdHW( 0)
,   maStemStdVW( 0)
,   mfBlueScale( 0.0)
,   mfBlueShift( 0.0)
,   mfBlueFuzz( 0.0)
,   mfExpFactor( 0.0)
,   mnLangGroup( 0)
,   mbForceBold( false)
{
}

CffGlobal::CffGlobal()
:   mnNameIdxBase( 0)
,   mnStringIdxBase( 0)
,   mbCIDFont( false)
,   mnCharStrBase( 0)
,   mnCharStrCount( 0)
,   mnCharsetBase( 0)
,   mnGlobalSubrBase( 0)
,   mnGlobalSubrCount( 0)
,   mnGlobalSubrBias( 0)
,   mnFDSelectBase( 0)
,   mnFontDictBase( 0)
,   mnFDAryCount( 1)
,   mnFontNameSID( 0)
,   mnFullNameSID( 0)
{
}

bool CffSubsetterContext::initialCffRead()
{
    // get the CFFHeader
    mpReadPtr = mpBasePtr;
    const U8 nVerMajor = *(mpReadPtr++);
    const U8 nVerMinor = *(mpReadPtr++);
    const U8 nHeaderSize = *(mpReadPtr++);
    const U8 nOffsetSize = *(mpReadPtr++);
    // TODO: is the version number useful for anything else?
    assert( (nVerMajor == 1) && (nVerMinor == 0));
    (void)(nVerMajor + nVerMinor + nOffsetSize); // avoid compiler warnings

    // prepare access to the NameIndex
    mnNameIdxBase = nHeaderSize;
    mpReadPtr = mpBasePtr + nHeaderSize;
    seekIndexEnd( mnNameIdxBase);

    // get the TopDict index
    const sal_Int32 nTopDictBase = getReadOfs();
    const int nTopDictCount = (mpReadPtr[0]<<8) + mpReadPtr[1];
    if( nTopDictCount) {
        for( int i = 0; i < nTopDictCount; ++i) {
            seekIndexData( nTopDictBase, i);
            while( mpReadPtr < mpReadEnd)
                readDictOp();
            assert( mpReadPtr == mpReadEnd);
        }
    }

    // prepare access to the String index
    mnStringIdxBase =  getReadOfs();
    seekIndexEnd( mnStringIdxBase);

    // prepare access to the GlobalSubr index
    mnGlobalSubrBase =  getReadOfs();
    mnGlobalSubrCount = (mpReadPtr[0]<<8) + mpReadPtr[1];
    mnGlobalSubrBias = (mnGlobalSubrCount<1240)?107:(mnGlobalSubrCount<33900)?1131:32768;
    // skip past the last GlobalSubr entry
//  seekIndexEnd( mnGlobalSubrBase);

    // get/skip the Encodings (we got mnEncodingBase from TOPDICT)
//  seekEncodingsEnd( mnEncodingBase);
    // get/skip the Charsets (we got mnCharsetBase from TOPDICT)
//  seekCharsetsEnd( mnCharStrBase);
    // get/skip FDSelect (CID only) data

    // prepare access to the CharStrings index (we got the base from TOPDICT)
    mpReadPtr = mpBasePtr + mnCharStrBase;
    mnCharStrCount = (mpReadPtr[0]<<8) + mpReadPtr[1];
//  seekIndexEnd( mnCharStrBase);

    // read the FDArray index (CID only)
    if( mbCIDFont) {
//      assert( mnFontDictBase == tellRel());
        mpReadPtr = mpBasePtr + mnFontDictBase;
        mnFDAryCount = (mpReadPtr[0]<<8) + mpReadPtr[1];
        if (o3tl::make_unsigned(mnFDAryCount) >= SAL_N_ELEMENTS(maCffLocal))
        {
            SAL_INFO("vcl.fonts", "CffSubsetterContext: too many CFF in font");
            return false;
        }

        // read FDArray details to get access to the PRIVDICTs
        for( int i = 0; i < mnFDAryCount; ++i) {
            mpCffLocal = &maCffLocal[i];
            seekIndexData( mnFontDictBase, i);
            while( mpReadPtr < mpReadEnd)
                readDictOp();
            assert( mpReadPtr == mpReadEnd);
        }
    }

    for( int i = 0; i < mnFDAryCount; ++i) {
        mpCffLocal = &maCffLocal[i];

        // get the PrivateDict index
        // (we got mnPrivDictSize and mnPrivDictBase from TOPDICT or FDArray)
        if( mpCffLocal->mnPrivDictSize != 0) {
            assert( mpCffLocal->mnPrivDictSize > 0);
            // get the PrivDict data
            mpReadPtr = mpBasePtr + mpCffLocal->mnPrivDictBase;
            mpReadEnd = mpReadPtr + mpCffLocal->mnPrivDictSize;
            assert( mpReadEnd <= mpBaseEnd);
            // read PrivDict details
            while( mpReadPtr < mpReadEnd)
                readDictOp();
        }

        // prepare access to the LocalSubrs (we got mnLocalSubrOffs from PRIVDICT)
        if( mpCffLocal->mnLocalSubrOffs) {
            // read LocalSubrs summary
            mpCffLocal->mnLocalSubrBase = mpCffLocal->mnPrivDictBase + mpCffLocal->mnLocalSubrOffs;
            mpReadPtr = mpBasePtr + mpCffLocal->mnLocalSubrBase;
            const int nSubrCount = (mpReadPtr[0] << 8) + mpReadPtr[1];
            mpCffLocal->mnLocalSubrBias = (nSubrCount<1240)?107:(nSubrCount<33900)?1131:32768;
//          seekIndexEnd( mpCffLocal->mnLocalSubrBase);
        }
    }

    // ignore the Notices info

    return true;
}

// get a cstring from a StringID
OString CffSubsetterContext::getString( int nStringID)
{
    // get a standard string if possible
    const static int nStdStrings = SAL_N_ELEMENTS(pStringIds);
    if( (nStringID >= 0) && (nStringID < nStdStrings))
        return pStringIds[ nStringID];

    // else get the string from the StringIndex table
    comphelper::ValueRestorationGuard pReadPtr(mpReadPtr);
    comphelper::ValueRestorationGuard pReadEnd(mpReadEnd);
    nStringID -= nStdStrings;
    int nLen = seekIndexData( mnStringIdxBase, nStringID);
    // assert( nLen >= 0);
    // TODO: just return the undecorated name
    if( nLen < 0) {
        return "name[" + OString::number(nStringID) + "].notfound!";
    } else {
        const int nMaxLen = 2560 - 1;
        if( nLen >= nMaxLen)
            nLen = nMaxLen; // TODO: still needed?
        return OString(reinterpret_cast<char const *>(mpReadPtr), nLen);
    }
}

// access a CID's FDSelect table
int CffSubsetterContext::getFDSelect( int nGlyphIndex) const
{
    assert( nGlyphIndex >= 0);
    assert( nGlyphIndex < mnCharStrCount);
    if( !mbCIDFont)
        return 0;

    const U8* pReadPtr = mpBasePtr + mnFDSelectBase;
    const U8 nFDSelFormat = *(pReadPtr++);
    switch( nFDSelFormat) {
        case 0: { // FDSELECT format 0
                pReadPtr += nGlyphIndex;
                const U8 nFDIdx = *(pReadPtr++);
                return nFDIdx;
            } //break;
        case 3: { // FDSELECT format 3
                const U16 nRangeCount = (pReadPtr[0]<<8) + pReadPtr[1];
                assert( nRangeCount > 0);
                assert( nRangeCount <= mnCharStrCount);
                U16 nPrev = (pReadPtr[2]<<8) + pReadPtr[3];
                assert( nPrev == 0);
                (void)nPrev;
                pReadPtr += 4;
                // TODO? binary search
                for( int i = 0; i < nRangeCount; ++i) {
                    const U8 nFDIdx = pReadPtr[0];
                    const U16 nNext = (pReadPtr[1]<<8) + pReadPtr[2];
                    assert( nPrev < nNext);
                    if( nGlyphIndex < nNext)
                        return nFDIdx;
                    pReadPtr += 3;
                    nPrev = nNext;
                }
            } break;
        default:    // invalid FDselect format
            SAL_WARN("vcl.fonts", "invalid CFF.FdselType=" << nFDSelFormat);
            break;
    }

    assert( false);
    return -1;
}

int CffSubsetterContext::getGlyphSID( int nGlyphIndex) const
{
    if( nGlyphIndex == 0)
        return 0;       // ".notdef"
    assert( nGlyphIndex >= 0);
    assert( nGlyphIndex < mnCharStrCount);
    if( (nGlyphIndex < 0) || (nGlyphIndex >= mnCharStrCount))
        return -1;

    // get the SID/CID from the Charset table
    const U8* pReadPtr = mpBasePtr + mnCharsetBase;
    const U8 nCSetFormat = *(pReadPtr++);
    int nGlyphsToSkip = nGlyphIndex - 1;
    switch( nCSetFormat) {
        case 0: // charset format 0
            pReadPtr += 2 * nGlyphsToSkip;
            nGlyphsToSkip = 0;
            break;
        case 1: // charset format 1
            while( nGlyphsToSkip >= 0) {
                const int nLeft = pReadPtr[2];
                if( nGlyphsToSkip <= nLeft)
                    break;
                nGlyphsToSkip -= nLeft + 1;
                pReadPtr += 3;
            }
            break;
        case 2: // charset format 2
            while( nGlyphsToSkip >= 0) {
                const int nLeft = (pReadPtr[2]<<8) + pReadPtr[3];
                if( nGlyphsToSkip <= nLeft)
                    break;
                nGlyphsToSkip -= nLeft + 1;
                pReadPtr += 4;
            }
            break;
        default:
            SAL_WARN("vcl.fonts", "ILLEGAL CFF-Charset format " << nCSetFormat);
            return -2;
    }

    int nSID = (pReadPtr[0]<<8) + pReadPtr[1];
    nSID += nGlyphsToSkip;
    // NOTE: for CID-fonts the resulting SID is interpreted as CID
    return nSID;
}

// NOTE: the result becomes invalid with the next call to this method
OString CffSubsetterContext::getGlyphName( int nGlyphIndex)
{
    // the first glyph is always the .notdef glyph
    if( nGlyphIndex == 0)
        return tok_notdef;

    // get the glyph specific name
    const int nSID = getGlyphSID( nGlyphIndex);
    if( nSID < 0)           // default glyph name
    {
        char aDefaultGlyphName[64];
        o3tl::sprintf( aDefaultGlyphName, "gly%03d", nGlyphIndex);
        return aDefaultGlyphName;
    }
    else if( mbCIDFont)     // default glyph name in CIDs
    {
         char aDefaultGlyphName[64];
         o3tl::sprintf( aDefaultGlyphName, "cid%03d", nSID);
         return aDefaultGlyphName;
    }
    else {                  // glyph name from string table
        auto const pSidName = getString( nSID);
        // check validity of glyph name
        const char* p = pSidName.getStr();
        while( (*p >= '0') && (*p <= 'z')) ++p;
        if( (p >= pSidName.getStr()+1) && (*p == '\0'))
            return pSidName;
        // if needed invent a fallback name
        char aDefaultGlyphName[64];
        o3tl::sprintf( aDefaultGlyphName, "bad%03d", nSID);
        return aDefaultGlyphName;
    }
}

bool CffSubsetterContext::getBaseAccent(ValType aBase, ValType aAccent, int* nBase, int* nAccent)
{
    bool bBase = false, bAccent = false;
    for (int i = 0; i < mnCharStrCount; i++)
    {
        OString pGlyphName = getGlyphName(i);
        if (pGlyphName == pStandardEncoding[int(aBase)])
        {
            *nBase = i;
            bBase = true;
        }
        if (pGlyphName == pStandardEncoding[int(aAccent)])
        {
            *nAccent = i;
            bAccent = true;
        }
        if (bBase && bAccent)
            return true;
    }
    return false;
}

namespace {

class Type1Emitter
{
public:
    explicit    Type1Emitter( SvStream* pOutFile, bool bPfbSubset);
    ~Type1Emitter();
    void        setSubsetName( const char* );

    size_t      emitRawData( const char* pData, size_t nLength) const;
    void        emitAllRaw();
    void        emitAllHex();
    void        emitAllCrypted();
    int         tellPos() const;
    void        updateLen( int nTellPos, size_t nLength);
    void        emitValVector( const char* pLineHead, const char* pLineTail, const std::vector<ValType>&);
private:
    SvStream*   mpFileOut;
    unsigned    mnEECryptR;
public:
    OStringBuffer maBuffer;

    char        maSubsetName[256];
    bool        mbPfbSubset;
    int         mnHexLineCol;
};

}

Type1Emitter::Type1Emitter( SvStream* pOutFile, bool bPfbSubset)
:   mpFileOut( pOutFile)
,   mnEECryptR( 55665)  // default eexec seed, TODO: mnEECryptSeed
,   mbPfbSubset( bPfbSubset)
,   mnHexLineCol( 0)
{
    maSubsetName[0] = '\0';
}

Type1Emitter::~Type1Emitter()
{
    if( !mpFileOut)
        return;
    mpFileOut = nullptr;
}

void Type1Emitter::setSubsetName( const char* pSubsetName)
{
    maSubsetName[0] = '\0';
    if( pSubsetName)
        strncpy( maSubsetName, pSubsetName, sizeof(maSubsetName) - 1);
    maSubsetName[sizeof(maSubsetName)-1] = '\0';
}

int Type1Emitter::tellPos() const
{
    int nTellPos = mpFileOut->Tell();
    return nTellPos;
}

void Type1Emitter::updateLen( int nTellPos, size_t nLength)
{
    // update PFB segment header length
    U8 cData[4];
    cData[0] = static_cast<U8>(nLength >>  0);
    cData[1] = static_cast<U8>(nLength >>  8);
    cData[2] = static_cast<U8>(nLength >> 16);
    cData[3] = static_cast<U8>(nLength >> 24);
    const tools::Long nCurrPos = mpFileOut->Tell();
    if (nCurrPos < 0)
        return;
    if (mpFileOut->Seek(nTellPos) != static_cast<sal_uInt64>(nTellPos))
        return;
    mpFileOut->WriteBytes(cData, sizeof(cData));
    mpFileOut->Seek(nCurrPos);
}

inline size_t Type1Emitter::emitRawData(const char* pData, size_t nLength) const
{
    return mpFileOut->WriteBytes( pData, nLength );
}

inline void Type1Emitter::emitAllRaw()
{
    // writeout raw data
    emitRawData( maBuffer.getStr(), maBuffer.getLength());
    // reset the raw buffer
    maBuffer.setLength(0);
}

inline void Type1Emitter::emitAllHex()
{
    auto const end = maBuffer.getStr() + maBuffer.getLength();
    for( const char* p = maBuffer.getStr(); p < end;) {
        // convert binary chunk to hex
        char aHexBuf[0x4000];
        char* pOut = aHexBuf;
        while( (p < end) && (pOut < aHexBuf+sizeof(aHexBuf)-4)) {
            // convert each byte to hex
            char cNibble = (static_cast<unsigned char>(*p) >> 4) & 0x0F;
            cNibble += (cNibble < 10) ? '0' : 'A'-10;
            *(pOut++) = cNibble;
            cNibble = *(p++) & 0x0F;
            cNibble += (cNibble < 10) ? '0' : 'A'-10;
            *(pOut++) = cNibble;
            // limit the line length
            if( (++mnHexLineCol & 0x3F) == 0)
                *(pOut++) = '\n';
        }
        // writeout hex-converted chunk
        emitRawData( aHexBuf, pOut-aHexBuf);
    }
    // reset the raw buffer
    maBuffer.setLength(0);
}

void Type1Emitter::emitAllCrypted()
{
    // apply t1crypt
    for( sal_Int32 i = 0; i < maBuffer.getLength(); ++i) {
        maBuffer[i] ^= (mnEECryptR >> 8);
        mnEECryptR = (static_cast<U8>(maBuffer[i]) + mnEECryptR) * 52845 + 22719;
    }

    // emit the t1crypt result
    if( mbPfbSubset)
        emitAllRaw();
    else
        emitAllHex();
}

// #i110387# quick-and-dirty double->ascii conversion
// also strip off trailing zeros in fraction while we are at it
static OString dbl2str( double fVal)
{
    return rtl::math::doubleToString(fVal, rtl_math_StringFormat_G, 6, '.', true);
}

void Type1Emitter::emitValVector( const char* pLineHead, const char* pLineTail,
    const std::vector<ValType>& rVector)
{
    // ignore empty vectors
    if( rVector.empty())
        return;

    // emit the line head
    maBuffer.append( pLineHead);
    // emit the vector values
    std::vector<ValType>::value_type aVal = 0;
    for( std::vector<ValType>::const_iterator it = rVector.begin();;) {
        aVal = *it;
        if( ++it == rVector.end() )
            break;
        maBuffer.append(dbl2str( aVal));
        maBuffer.append(' ');
    }
    // emit the last value
    maBuffer.append(dbl2str( aVal));
    // emit the line tail
    maBuffer.append( pLineTail);
}

void CffSubsetterContext::convertCharStrings(const sal_GlyphId* pGlyphIds, int nGlyphCount,
                                             std::vector<CharString>& rCharStrings)
{
    // If we are doing extra glyphs used for seac operator, check for already
    // converted glyphs.
    bool bCheckDuplicates = !rCharStrings.empty();
    rCharStrings.reserve(rCharStrings.size() + nGlyphCount);
    for (int i = 0; i < nGlyphCount; ++i)
    {
        const int nCffGlyphId = pGlyphIds[i];
        assert((nCffGlyphId >= 0) && (nCffGlyphId < mnCharStrCount));

        if (!bCheckDuplicates)
        {
            const auto it
                = std::find_if(rCharStrings.begin(), rCharStrings.end(),
                               [&](const CharString& c) { return c.nCffGlyphId == nCffGlyphId; });
            if (it != rCharStrings.end())
                continue;
        }

        // get privdict context matching to the glyph
        const int nFDSelect = getFDSelect(nCffGlyphId);
        if (nFDSelect < 0)
            continue;
        mpCffLocal = &maCffLocal[nFDSelect];

        // convert the Type2op charstring to its Type1op counterpart
        const int nT2Len = seekIndexData(mnCharStrBase, nCffGlyphId);
        assert(nT2Len > 0);

        CharString aCharString;
        const int nT1Len = convert2Type1Ops(mpCffLocal, mpReadPtr, nT2Len, aCharString.aOps);
        aCharString.nLen = nT1Len;
        aCharString.nCffGlyphId = nCffGlyphId;

        rCharStrings.push_back(aCharString);
    }
}

void CffSubsetterContext::emitAsType1( Type1Emitter& rEmitter,
    const sal_GlyphId* pReqGlyphIds, const U8* pReqEncoding,
    int nGlyphCount, FontSubsetInfo& rFSInfo)
{
    // prepare some fontdirectory details
    static const int nUniqueIdBase = 4100000; // using private-interchange UniqueIds
    static int nUniqueId = nUniqueIdBase;
    ++nUniqueId;

    char* pFontName = rEmitter.maSubsetName;
    if( !*pFontName ) {
        if( mnFontNameSID) {
            // get the fontname directly if available
            strncpy(
                pFontName, getString( mnFontNameSID).getStr(), sizeof(rEmitter.maSubsetName) - 1);
            pFontName[sizeof(rEmitter.maSubsetName) - 1] = 0;
        } else if( mnFullNameSID) {
            // approximate fontname as fullname-whitespace
            auto const str = getString( mnFullNameSID);
            const char* pI = str.getStr();
            char* pO = pFontName;
            const char* pLimit = pFontName + sizeof(rEmitter.maSubsetName) - 1;
            while( pO < pLimit) {
                const char c = *(pI++);
                if( c != ' ')
                    *(pO++) = c;
                if( !c)
                    break;
            }
            *pO = '\0';
        } else {
            // fallback name of last resort
            strncpy( pFontName, "DummyName", sizeof(rEmitter.maSubsetName));
        }
    }
    const char* pFullName = pFontName;
    const char* pFamilyName = pFontName;

    // create a PFB+Type1 header
    if( rEmitter.mbPfbSubset ) {
        static const char aPfbHeader[] = "\x80\x01\x00\x00\x00\x00";
        rEmitter.emitRawData( aPfbHeader, sizeof(aPfbHeader)-1);
    }

    rEmitter.maBuffer.append(
        "%!FontType1-1.0: " + OString::Concat(rEmitter.maSubsetName) + " 001.003\n");
    // emit TOPDICT
    rEmitter.maBuffer.append(
        "11 dict begin\n"   // TODO: dynamic entry count for TOPDICT
        "/FontType 1 def\n"
        "/PaintType 0 def\n");
    rEmitter.maBuffer.append( "/FontName /" + OString::Concat(rEmitter.maSubsetName) + " def\n");
    rEmitter.maBuffer.append( "/UniqueID " + OString::number(nUniqueId) + " def\n");
    // emit FontMatrix
    if( maFontMatrix.size() == 6)
        rEmitter.emitValVector( "/FontMatrix [", "]readonly def\n", maFontMatrix);
    else // emit default FontMatrix if needed
        rEmitter.maBuffer.append( "/FontMatrix [0.001 0 0 0.001 0 0]readonly def\n");

    // emit FontBBox
    ValType fXFactor = 1.0;
    ValType fYFactor = 1.0;
    if( maFontMatrix.size() >= 4) {
        fXFactor = 1000.0F * maFontMatrix[0];
        fYFactor = 1000.0F * maFontMatrix[3];
    }

    auto aFontBBox = maFontBBox;
    if (rFSInfo.m_bFilled)
        aFontBBox = {
            rFSInfo.m_aFontBBox.Left() / fXFactor, rFSInfo.m_aFontBBox.Top() / fYFactor,
            rFSInfo.m_aFontBBox.Right() / fXFactor, (rFSInfo.m_aFontBBox.Bottom() + 1) / fYFactor
        };
    else if (aFontBBox.size() != 4)
        aFontBBox = { 0, 0, 999, 999 }; // emit default FontBBox if needed
    rEmitter.emitValVector( "/FontBBox {", "}readonly def\n", aFontBBox);
    // emit FONTINFO into TOPDICT
    rEmitter.maBuffer.append(
        "/FontInfo 2 dict dup begin\n"  // TODO: check fontinfo entry count
        " /FullName (" + OString::Concat(pFullName) + ") readonly def\n"
        " /FamilyName (" + pFamilyName + ") readonly def\n"
        "end readonly def\n");

    rEmitter.maBuffer.append(
        "/Encoding 256 array\n"
        "0 1 255 {1 index exch /.notdef put} for\n");
    for( int i = 1; (i < nGlyphCount) && (i < 256); ++i) {
        OString pGlyphName = getGlyphName( pReqGlyphIds[i]);
        rEmitter.maBuffer.append(
            "dup " + OString::number(pReqEncoding[i]) + " /" + pGlyphName + " put\n");
    }
    rEmitter.maBuffer.append( "readonly def\n");
    rEmitter.maBuffer.append(
        // TODO: more topdict entries
        "currentdict end\n"
        "currentfile eexec\n");

    // emit PFB header
    rEmitter.emitAllRaw();
    if( rEmitter.mbPfbSubset) {
        // update PFB header segment
        const int nPfbHeaderLen = rEmitter.tellPos() - 6;
        rEmitter.updateLen( 2, nPfbHeaderLen);

        // prepare start of eexec segment
        rEmitter.emitRawData( "\x80\x02\x00\x00\x00\x00", 6);   // segment start
    }
    const int nEExecSegTell = rEmitter.tellPos();

    // which always starts with a privdict
    // count the privdict entries
    int nPrivEntryCount = 9;
    // emit blue hints only if non-default values
    nPrivEntryCount += int(!mpCffLocal->maOtherBlues.empty());
    nPrivEntryCount += int(!mpCffLocal->maFamilyBlues.empty());
    nPrivEntryCount += int(!mpCffLocal->maFamilyOtherBlues.empty());
    nPrivEntryCount += int(mpCffLocal->mfBlueScale != 0.0);
    nPrivEntryCount += int(mpCffLocal->mfBlueShift != 0.0);
    nPrivEntryCount += int(mpCffLocal->mfBlueFuzz != 0.0);
    // emit stem hints only if non-default values
    nPrivEntryCount += int(mpCffLocal->maStemStdHW != 0);
    nPrivEntryCount += int(mpCffLocal->maStemStdVW != 0);
    nPrivEntryCount += int(!mpCffLocal->maStemSnapH.empty());
    nPrivEntryCount += int(!mpCffLocal->maStemSnapV.empty());
    // emit other hints only if non-default values
    nPrivEntryCount += int(mpCffLocal->mfExpFactor != 0.0);
    nPrivEntryCount += int(mpCffLocal->mnLangGroup != 0);
    nPrivEntryCount += int(mpCffLocal->mnLangGroup == 1);
    nPrivEntryCount += int(mpCffLocal->mbForceBold);
    // emit the privdict header
    rEmitter.maBuffer.append(
        "\110\104\125 "
        "dup\n/Private " + OString::number(nPrivEntryCount) + " dict dup begin\n"
        "/RD{string currentfile exch readstring pop}executeonly def\n"
        "/ND{noaccess def}executeonly def\n"
        "/NP{noaccess put}executeonly def\n"
        "/MinFeature{16 16}ND\n"
        "/password 5839 def\n");    // TODO: mnRDCryptSeed?

    // emit blue hint related privdict entries
    if( !mpCffLocal->maBlueValues.empty())
        rEmitter.emitValVector( "/BlueValues [", "]ND\n", mpCffLocal->maBlueValues);
    else
        rEmitter.maBuffer.append( "/BlueValues []ND\n"); // default to empty BlueValues
    rEmitter.emitValVector( "/OtherBlues [", "]ND\n", mpCffLocal->maOtherBlues);
    rEmitter.emitValVector( "/FamilyBlues [", "]ND\n", mpCffLocal->maFamilyBlues);
    rEmitter.emitValVector( "/FamilyOtherBlues [", "]ND\n", mpCffLocal->maFamilyOtherBlues);

    if( mpCffLocal->mfBlueScale) {
        rEmitter.maBuffer.append( "/BlueScale ");
        rEmitter.maBuffer.append(dbl2str( mpCffLocal->mfBlueScale));
        rEmitter.maBuffer.append( " def\n");
    }
    if( mpCffLocal->mfBlueShift) {  // default BlueShift==7
        rEmitter.maBuffer.append( "/BlueShift ");
        rEmitter.maBuffer.append(dbl2str( mpCffLocal->mfBlueShift));
        rEmitter.maBuffer.append( " def\n");
    }
    if( mpCffLocal->mfBlueFuzz) {       // default BlueFuzz==1
        rEmitter.maBuffer.append( "/BlueFuzz ");
        rEmitter.maBuffer.append(dbl2str( mpCffLocal->mfBlueFuzz));
        rEmitter.maBuffer.append( " def\n");
    }

    // emit stem hint related privdict entries
    if( mpCffLocal->maStemStdHW) {
        rEmitter.maBuffer.append( "/StdHW [");
        rEmitter.maBuffer.append(dbl2str( mpCffLocal->maStemStdHW));
        rEmitter.maBuffer.append( "] def\n");
    }
    if( mpCffLocal->maStemStdVW) {
        rEmitter.maBuffer.append( "/StdVW [");
        rEmitter.maBuffer.append(dbl2str( mpCffLocal->maStemStdVW));
        rEmitter.maBuffer.append( "] def\n");
    }
    rEmitter.emitValVector( "/StemSnapH [", "]ND\n", mpCffLocal->maStemSnapH);
    rEmitter.emitValVector( "/StemSnapV [", "]ND\n", mpCffLocal->maStemSnapV);

    // emit other hints
    if( mpCffLocal->mbForceBold)
        rEmitter.maBuffer.append( "/ForceBold true def\n");
    if( mpCffLocal->mnLangGroup != 0)
        rEmitter.maBuffer.append(
            "/LanguageGroup " + OString::number(mpCffLocal->mnLangGroup) + " def\n");
    if( mpCffLocal->mnLangGroup == 1) // compatibility with ancient printers
        rEmitter.maBuffer.append( "/RndStemUp false def\n");
    if( mpCffLocal->mfExpFactor) {
        rEmitter.maBuffer.append( "/ExpansionFactor ");
        rEmitter.maBuffer.append(dbl2str( mpCffLocal->mfExpFactor));
        rEmitter.maBuffer.append( " def\n");
    }

    // emit remaining privdict entries
    rEmitter.maBuffer.append( "/UniqueID " + OString::number(nUniqueId) + " def\n");
    // TODO?: more privdict entries?

    rEmitter.maBuffer.append(
        "/OtherSubrs\n"
        "% Dummy code for faking flex hints\n"
        "[ {} {} {} {systemdict /internaldict known not {pop 3}\n"
        "{1183615869 systemdict /internaldict get exec\n"
        "dup /startlock known\n"
        "{/startlock get exec}\n"
        "{dup /strtlck known\n"
        "{/strtlck get exec}\n"
        "{pop 3}\nifelse}\nifelse}\nifelse\n} executeonly\n"
        "] ND\n");

    // emit used GlobalSubr charstrings
    // these are the just the default subrs
    // TODO: do we need them as the flex hints are resolved differently?
    rEmitter.maBuffer.append(
        "/Subrs 5 array\n"
        "dup 0 15 RD \x5F\x3D\x6B\xAC\x3C\xBD\x74\x3D\x3E\x17\xA0\x86\x58\x08\x85 NP\n"
        "dup 1 9 RD \x5F\x3D\x6B\xD8\xA6\xB5\x68\xB6\xA2 NP\n"
        "dup 2 9 RD \x5F\x3D\x6B\xAC\x39\x46\xB9\x43\xF9 NP\n"
        "dup 3 5 RD \x5F\x3D\x6B\xAC\xB9 NP\n"
        "dup 4 12 RD \x5F\x3D\x6B\xAC\x3E\x5D\x48\x54\x62\x76\x39\x03 NP\n"
        "ND\n");

    // TODO: emit more GlobalSubr charstrings?
    // TODO: emit used LocalSubr charstrings?

    // emit the CharStrings for the requested glyphs
    std::vector<CharString> aCharStrings;
    mbDoSeac = true;
    convertCharStrings(pReqGlyphIds, nGlyphCount, aCharStrings);

    // The previous convertCharStrings might collect extra glyphs used in seac
    // operator, convert them as well
    if (!maExtraGlyphIds.empty())
    {
        mbDoSeac = false;
        convertCharStrings(maExtraGlyphIds.data(), maExtraGlyphIds.size(), aCharStrings);
    }
    rEmitter.maBuffer.append(
        "2 index /CharStrings " + OString::number(aCharStrings.size()) + " dict dup begin\n");
    rEmitter.emitAllCrypted();
    for (const auto& rCharString : aCharStrings)
    {
        // get the glyph name
        OString pGlyphName = getGlyphName(rCharString.nCffGlyphId);
        // emit the encrypted Type1op charstring
        rEmitter.maBuffer.append(
            "/" + pGlyphName + " " + OString::number(rCharString.nLen) + " RD ");
        rEmitter.maBuffer.append(
            reinterpret_cast<char const *>(rCharString.aOps), rCharString.nLen);
        rEmitter.maBuffer.append( " ND\n");
        rEmitter.emitAllCrypted();
        // provide individual glyphwidths if requested
    }
    rEmitter.maBuffer.append( "end end\nreadonly put\nput\n");
    rEmitter.maBuffer.append( "dup/FontName get exch definefont pop\n");
    rEmitter.maBuffer.append( "mark currentfile closefile\n");
    rEmitter.emitAllCrypted();

    // mark stop of eexec encryption
    if( rEmitter.mbPfbSubset) {
        const int nEExecLen = rEmitter.tellPos() - nEExecSegTell;
        rEmitter.updateLen( nEExecSegTell-4, nEExecLen);
    }

    // create PFB footer
    static const char aPfxFooter[] = "\x80\x01\x14\x02\x00\x00\n" // TODO: check segment len
        "0000000000000000000000000000000000000000000000000000000000000000\n"
        "0000000000000000000000000000000000000000000000000000000000000000\n"
        "0000000000000000000000000000000000000000000000000000000000000000\n"
        "0000000000000000000000000000000000000000000000000000000000000000\n"
        "0000000000000000000000000000000000000000000000000000000000000000\n"
        "0000000000000000000000000000000000000000000000000000000000000000\n"
        "0000000000000000000000000000000000000000000000000000000000000000\n"
        "0000000000000000000000000000000000000000000000000000000000000000\n"
        "cleartomark\n"
        "\x80\x03";
    if( rEmitter.mbPfbSubset)
        rEmitter.emitRawData( aPfxFooter, sizeof(aPfxFooter)-1);
    else
        rEmitter.emitRawData( aPfxFooter+6, sizeof(aPfxFooter)-9);

    // provide details to the subset requesters, TODO: move into own method?
    // note: Top and Bottom are flipped between Type1 and VCL
    // note: the rest of VCL expects the details below to be scaled like for an emUnits==1000 font

    rFSInfo.m_nFontType = rEmitter.mbPfbSubset ? FontType::TYPE1_PFB : FontType::TYPE1_PFA;

    if (rFSInfo.m_bFilled)
        return;

    rFSInfo.m_aFontBBox = { Point(static_cast<sal_Int32>(aFontBBox[0] * fXFactor),
                                  static_cast<sal_Int32>(aFontBBox[1] * fYFactor)),
                            Point(static_cast<sal_Int32>(aFontBBox[2] * fXFactor),
                                  static_cast<sal_Int32>(aFontBBox[3] * fYFactor)) };
    // PDF-Spec says the values below mean the ink bounds!
    // TODO: use better approximations for these ink bounds
    rFSInfo.m_nAscent  = +rFSInfo.m_aFontBBox.Bottom(); // for capital letters
    rFSInfo.m_nDescent = -rFSInfo.m_aFontBBox.Top();    // for all letters
    rFSInfo.m_nCapHeight = rFSInfo.m_nAscent;           // for top-flat capital letters

    rFSInfo.m_aPSName   = OUString( rEmitter.maSubsetName, strlen(rEmitter.maSubsetName), RTL_TEXTENCODING_UTF8 );
}

bool FontSubsetInfo::CreateFontSubsetFromCff()
{
    CffSubsetterContext aCff( mpInFontBytes, mnInByteLength);
    bool bRC = aCff.initialCffRead();
    if (!bRC)
        return bRC;

    // emit Type1 subset from the CFF input
    // TODO: also support CFF->CFF subsetting (when PDF-export and PS-printing need it)
    const bool bPfbSubset(mnReqFontTypeMask & FontType::TYPE1_PFB);
    Type1Emitter aType1Emitter( mpOutFile, bPfbSubset);
    aType1Emitter.setSubsetName( maReqFontName.getStr() );
    aCff.emitAsType1( aType1Emitter,
        mpReqGlyphIds, mpReqEncodedIds,
        mnReqGlyphCount, *this);
    return true;
}

/* vim:set shiftwidth=4 softtabstop=4 expandtab: */