/* Copyright (C) 2018-2026 Artifex Software, Inc.

   All Rights Reserved.

   This software is provided AS-IS with no warranty, either express or

   implied.

   This software is distributed under license and may not be copied,

   modified or distributed except as expressly authorized under the terms

   of the license contained in the file LICENSE in this distribution.

   Refer to licensing information at http://www.artifex.com or contact

   Artifex Software, Inc.,  39 Mesa Street, Suite 108A, San Francisco,

   CA 94129, USA, for further information.

*/

/* Text operations for the PDF interpreter */

#include "pdf_int.h"

#include "pdf_array.h"

#include "pdf_text.h"

#include "pdf_image.h"

#include "pdf_colour.h"

#include "pdf_stack.h"

#include "pdf_font.h"

#include "pdf_font_types.h"

#include "pdf_gstate.h"

#include "pdf_trans.h"

#include "pdf_optcontent.h"

#include "gsstate.h"

#include "gsmatrix.h"

#include "gdevbbox.h"

#include "gspaint.h"        /* For gs_fill() and friends */

#include "gscoord.h"        /* For gs_setmatrix() */

#include "gxdevsop.h"               /* For special ops */

static int pdfi_set_TL(pdf_context *ctx, double TL);

int pdfi_BT(pdf_context *ctx)

{

    int code;

    gs_matrix m;

    bool illegal_BT = false;

    if (ctx->text.BlockDepth != 0) {

        illegal_BT = true;

        if (ctx->text.TextClip) {

            gx_device *dev = gs_currentdevice_inline(ctx->pgs);

            ctx->text.TextClip = false;

            (void)dev_proc(dev, dev_spec_op)(dev, gxdso_hilevel_text_clip, (void *)0, 1);

        }

        code = pdfi_set_warning_stop(ctx, gs_note_error(gs_error_syntaxerror), NULL, W_PDF_NESTEDTEXTBLOCK, "pdfi_BT", NULL);

        if (code < 0)

            return code;

    }

    gs_make_identity(&m);

    code = gs_settextmatrix(ctx->pgs, &m);

    if (code < 0)

        return code;

    code = gs_settextlinematrix(ctx->pgs, &m);

    if (code < 0)

        return code;

    /* We should not perform the clip (for text rendering modes involving a clip)

     * when preserving the text rendering mode.

     */

    if (gs_currenttextrenderingmode(ctx->pgs) >= 4 && ctx->text.BlockDepth == 0 && !ctx->device_state.preserve_tr_mode) {

        /* Start a new path (so our clip doesn't include any

         * already extant path in the graphics state)

         */

        gs_newpath(ctx->pgs);

    }

    ctx->text.initial_current_point_valid = ctx->pgs->current_point_valid;

    if (!ctx->pgs->current_point_valid)

        code = gs_moveto(ctx->pgs, 0, 0);

    ctx->text.BlockDepth++;

    if (ctx->page.has_transparency && gs_currenttextknockout(ctx->pgs) && !illegal_BT)

        gs_begin_transparency_text_group(ctx->pgs);

    return code;

}

static int do_ET(pdf_context *ctx)

{

    int code = 0;

    gx_clip_path *copy = NULL;

    /* If we have reached the end of a text block (or the outermost block

     * if we have illegally nested text blocks) and we are using a 'clip'

     * text rendering mode, then we need to apply the clip. We also need

     * to grestore back one level as we will have pushed a gsave either in

     * pdfi_BT or in pdfi_Tr. The extra gsave is so we can accumulate a

     * clipping path separately to any path already existing in the

     * graphics state.

     */

    /* See the note on text rendering modes with clip in pdfi_BT() above */

    if (ctx->text.BlockDepth == 0 && gs_currenttextrenderingmode(ctx->pgs) >= 4) {

        gs_point initial_point;

        if  (!ctx->device_state.preserve_tr_mode) {

            ctx->text.TextClip = false;

            /* Capture the current position */

            code = gs_currentpoint(ctx->pgs, &initial_point);

            if (code >= 0 || code == gs_error_nocurrentpoint) {

                gs_point adjust;

                bool nocurrentpoint = code >= 0 ? false : true;

                gs_currentfilladjust(ctx->pgs, &adjust);

                code = gs_setfilladjust(ctx->pgs, (double)0.0, (double)0.0);

                if (code < 0)

                    return code;

                code = gs_clip(ctx->pgs);

                if (code >= 0)

                    copy = gx_cpath_alloc_shared(ctx->pgs->clip_path, ctx->memory, "save clip path");

                code = gs_setfilladjust(ctx->pgs, adjust.x, adjust.y);

                if (code < 0)

                    return code;

                if (copy != NULL)

                    (void)gx_cpath_assign_free(ctx->pgs->clip_path, copy);

                if (nocurrentpoint == false)

                    code = gs_moveto(ctx->pgs, initial_point.x, initial_point.y);

            }

        }

    }

    if (ctx->page.has_transparency && gs_currenttextknockout(ctx->pgs))

        gs_end_transparency_text_group(ctx->pgs);

    if (!ctx->text.initial_current_point_valid)

        gs_newpath(ctx->pgs);

    return code;

}

int pdfi_ET(pdf_context *ctx)

{

    if (ctx->text.BlockDepth == 0) {

        int code = pdfi_set_warning_stop(ctx, gs_note_error(gs_error_syntaxerror), NULL, W_PDF_ETNOTEXTBLOCK, "pdfi_ET", NULL);

        return code;

    }

    ctx->text.BlockDepth--;

    return do_ET(ctx);

}

int pdfi_T_star(pdf_context *ctx)

{

    int code;

    gs_matrix m, mat;

    if (ctx->text.BlockDepth == 0) {

        int code;

        if ((code = pdfi_set_warning_stop(ctx, gs_note_error(gs_error_syntaxerror), NULL, W_PDF_TEXTOPNOBT, "pdfi_T_star", NULL)) < 0)

            return code;

    }

    gs_make_identity(&m);

    m.ty += ctx->pgs->textleading;

    code = gs_matrix_multiply(&m, &ctx->pgs->textlinematrix, &mat);

    if (code < 0)

        return code;

    code = gs_settextmatrix(ctx->pgs, (gs_matrix *)&mat);

    if (code < 0)

        return code;

    code = gs_settextlinematrix(ctx->pgs, (gs_matrix *)&mat);

    return code;

}

static int pdfi_set_Tc(pdf_context *ctx, double Tc)

{

    return gs_settextspacing(ctx->pgs, Tc);

}

int pdfi_Tc(pdf_context *ctx)

{

    int code;

    double d;

    code = pdfi_destack_real(ctx, &d);

    if (code < 0)

        return code;

    return pdfi_set_Tc(ctx, d);

}

int pdfi_Td(pdf_context *ctx)

{

    int code;

    double Txy[2];

    gs_matrix m, mat;

    code = pdfi_destack_reals(ctx, Txy, 2);

    if (code < 0)

        return code;

    gs_make_identity(&m);

    m.tx = Txy[0];

    m.ty = Txy[1];

    if (ctx->text.BlockDepth == 0) {

        pdfi_set_warning(ctx, 0, NULL, W_PDF_TEXTOPNOBT, "pdfi_Td", NULL);

        gs_make_identity(&mat);

        code = gs_settextmatrix(ctx->pgs, &mat);

        if (code < 0)

            return code;

        code = gs_settextlinematrix(ctx->pgs, &mat);

        if (code < 0)

            return code;

    }

    code = gs_matrix_multiply(&m, &ctx->pgs->textlinematrix, &mat);

    if (code < 0)

        return code;

    code = gs_settextmatrix(ctx->pgs, (gs_matrix *)&mat);

    if (code < 0)

        return code;

    return gs_settextlinematrix(ctx->pgs, (gs_matrix *)&mat);

}

int pdfi_TD(pdf_context *ctx)

{

    int code;

    double Txy[2];

    gs_matrix m, mat;

    gs_make_identity(&m);

    code = pdfi_destack_reals(ctx, Txy, 2);

    if (code < 0)

        return code;

    m.tx = Txy[0];

    m.ty = Txy[1];

    if (ctx->text.BlockDepth == 0) {

        pdfi_set_warning(ctx, 0, NULL, W_PDF_TEXTOPNOBT, "pdfi_TD", NULL);

        gs_make_identity(&mat);

        code = gs_settextmatrix(ctx->pgs, &mat);

        if (code < 0)

            return code;

        code = gs_settextlinematrix(ctx->pgs, &mat);

        if (code < 0)

            return code;

    }

    code = pdfi_set_TL(ctx, m.ty * 1.0f);

    if (code < 0)

        return code;

    code = gs_matrix_multiply(&m, &ctx->pgs->textlinematrix, &mat);

    if (code < 0)

        return code;

    code = gs_settextmatrix(ctx->pgs, (gs_matrix *)&mat);

    if (code < 0)

        return code;

    return gs_settextlinematrix(ctx->pgs, (gs_matrix *)&mat);

}

/* This routine sets up most of the text params structure. In particular it

 * creates and initialises the x and y widths arrays, and for type 3 fonts

 * it creates and populates the 'chars' member.

 * It also sets the delta_sace member and partially set sup the 'operation'

 * bitfield. It does not set any of the TEXT_DO_* fields because we intend

 * to use this routine to set up the 'common' parts of the structure and

 * then we will twiddle the 'TEXT_DO_*' fields as required for the type of

 * operation we are doing (fill, create path for stroke, create path for fill)

 */

static int pdfi_show_set_params(pdf_context *ctx, pdf_string *s, gs_text_params_t *text)

{

    pdf_font *current_font = NULL;

    gs_matrix mat;

    float *x_widths = NULL, *y_widths = NULL, width;

    double Tw = 0, Tc = 0;

    int i, code;

    text->data.chars = NULL;

    text->x_widths = NULL;

    text->y_widths = NULL;

    /* NOTE: we don't scale the FontMatrix we leave it as the default

     * and do all our scaling with the textmatrix/ctm. This saves having

     * to create multiple instances of the same font, and simplifies

     * composite fonts significantly.

     */

    current_font = pdfi_get_current_pdf_font(ctx);

    if (current_font == NULL)

        return_error(gs_error_invalidfont);

    /* Division by PDFfontsize because these are in unscaled font units,

       and the font scale is now pickled into the text matrix, so we have to

       undo that.

     */

    Tc = gs_currenttextspacing(ctx->pgs) / ctx->pgs->PDFfontsize;

    if (current_font->pdfi_font_type == e_pdf_font_type1 ||

        current_font->pdfi_font_type == e_pdf_font_cff ||

        current_font->pdfi_font_type == e_pdf_font_type3 ||

        current_font->pdfi_font_type == e_pdf_font_cff ||

        current_font->pdfi_font_type == e_pdf_font_truetype ||

        current_font->pdfi_font_type == e_pdf_font_microtype ||

        current_font->pdfi_font_type == e_pdf_font_type0)

    {

        /* For Type 0 fonts, we apply the DW/W/DW2/W2 values when we retrieve the metrics for

           setcachedevice - see pdfi_fapi_set_cache()

         */

        if (current_font->pdfi_font_type == e_pdf_font_type0 || current_font->Widths == NULL) {

            text->operation = TEXT_RETURN_WIDTH;

            if (Tc != 0) {

                text->operation |= TEXT_ADD_TO_ALL_WIDTHS;

                if (current_font->pfont && current_font->pfont->WMode == 0) {

                    text->delta_all.x = Tc;

                    text->delta_all.y = 0;

                } else {

                    text->delta_all.y = Tc;

                    text->delta_all.x = 0;

                }

            }

        } else {

            gs_point pt;

            x_widths = (float *)gs_alloc_bytes(ctx->memory, (size_t)s->length * sizeof(float), "X widths array for text");

            y_widths = (float *)gs_alloc_bytes(ctx->memory, (size_t)s->length * sizeof(float), "Y widths array for text");

            if (x_widths == NULL || y_widths == NULL) {

                code = gs_note_error(gs_error_VMerror);

                goto text_params_error;

            }

            memset(x_widths, 0x00, s->length * sizeof(float));

            memset(y_widths, 0x00, s->length * sizeof(float));

            /* To calculate the Width (which is defined in unscaled text units) as a value in user

             * space we need to transform it by the FontMatrix

             */

            mat = current_font->pfont->FontMatrix;

            for (i = 0;i < s->length; i++) {

                /* Get the width (in unscaled text units) */

                if (s->data[i] < current_font->FirstChar || s->data[i] > current_font->LastChar)

                    width = current_font->MissingWidth;

                else

                    width = current_font->Widths[s->data[i] - current_font->FirstChar];

                /* And convert the width into an appropriate value for the current environment */

                gs_distance_transform(width, 0, &mat, &pt);

                x_widths[i] = hypot(pt.x, pt.y) * (width < 0 ? -1.0 : 1.0);

                /* Add any Tc value */

                x_widths[i] += Tc;

            }

            text->operation = TEXT_RETURN_WIDTH | TEXT_REPLACE_WIDTHS;

            text->x_widths = x_widths;

            text->y_widths = y_widths;

            text->widths_size = s->length * 2;

        }

        Tw = gs_currentwordspacing(ctx->pgs);

        if (Tw != 0) {

            text->operation |= TEXT_ADD_TO_SPACE_WIDTH;

            /* Division by PDFfontsize because these are in unscaled font units,

               and the font scale is now pickled into the text matrix, so we have to

               undo that.

             */

            if (current_font->pfont && current_font->pfont->WMode == 0) {

                text->delta_space.x = Tw / ctx->pgs->PDFfontsize;

                text->delta_space.y = 0;

            } else {

                text->delta_space.y = Tw / ctx->pgs->PDFfontsize;

                text->delta_space.x = 0;

            }

            text->space.s_char = 0x20;

        }

        if (current_font->pdfi_font_type == e_pdf_font_type3) {

            text->operation |= TEXT_FROM_CHARS;

            text->data.chars = (const gs_char *)gs_alloc_bytes(ctx->memory, (size_t)s->length * sizeof(gs_char), "string gs_chars");

            if (!text->data.chars) {

                code = gs_note_error(gs_error_VMerror);

                goto text_params_error;

            }

            for (i = 0; i < s->length; i++) {

                ((gs_char *)text->data.chars)[i] = (gs_char)s->data[i];

            }

        }

        else {

            text->operation |= TEXT_FROM_BYTES;

            text->data.bytes = (const byte *)s->data;

        }

        text->size = s->length;

    }

    else {

        code = gs_note_error(gs_error_invalidfont);

        goto text_params_error;

    }

    return 0;

text_params_error:

    gs_free_object(ctx->memory, x_widths, "X widths array for text");

    text->x_widths = NULL;

    gs_free_object(ctx->memory, y_widths, "Y widths array for text");

    text->y_widths = NULL;

    gs_free_object(ctx->memory, (void *)text->data.chars, "string gs_chars");

    text->data.chars = NULL;

    return code;

}

/* These routines actually perform the fill/stroke/clip of the text.

 * We build up the compound cases by reusing the basic cases which

 * is why we reset the TEXT_DO_ fields after use.

 */

static int pdfi_show_simple(pdf_context *ctx, gs_text_params_t *text)

{

    int code = 0;

    gs_text_enum_t *penum=NULL, *saved_penum=NULL;

    code = gs_text_begin(ctx->pgs, text, ctx->memory, &penum);

    if (code >= 0) {

        penum->single_byte_space = true;

        saved_penum = ctx->text.current_enum;

        ctx->text.current_enum = penum;

        code = gs_text_process(penum);

        gs_text_release(ctx->pgs, penum, "pdfi_Tj");

        ctx->text.current_enum = saved_penum;

    }

    return code;

}

/* Mode 0 - fill */

static int pdfi_show_Tr_0(pdf_context *ctx, gs_text_params_t *text)

{

    int code;

    /* just draw the text */

    text->operation |= TEXT_DO_DRAW;

    code = pdfi_show_simple(ctx, text);

    text->operation &= ~TEXT_DO_DRAW;

    return code;

}

/* Mode 1 - stroke */

static int pdfi_show_Tr_1(pdf_context *ctx, gs_text_params_t *text)

{

    int code;

    gs_text_enum_t *penum=NULL, *saved_penum=NULL;

    gs_point end_point, initial_point;

    gx_device *dev = ctx->pgs->device;

    int galphabits = dev->color_info.anti_alias.graphics_bits, talphabits = dev->color_info.anti_alias.text_bits;

    end_point.x = end_point.y = initial_point.x = initial_point.y = 0;

    /* Capture the current position */

    code = gs_currentpoint(ctx->pgs, &initial_point);

    if (code < 0)

        return code;

    /* We don't want to disturb the current path, so do a gsave now

     * We will grestore back to this point after we have stroked the

     * text, which will leave any current path unchanged.

     */

    code = pdfi_gsave(ctx);

    if (code < 0)

        goto Tr1_error;

    /* Start a new path (so our stroke doesn't include any

     * already extant path in the graphics state)

     */

    code = gs_newpath(ctx->pgs);

    if (code < 0)

        goto Tr1_error;

    code = gs_moveto(ctx->pgs, initial_point.x, initial_point.y);

    if (code < 0)

        goto Tr1_error;

    /* Don't draw the text, create a path suitable for stroking */

    text->operation |= TEXT_DO_FALSE_CHARPATH;

    /* Run the text methods to create the path */

    code = gs_text_begin(ctx->pgs, text, ctx->memory, &penum);

    if (code < 0)

        goto Tr1_error;

    penum->single_byte_space = true;

    saved_penum = ctx->text.current_enum;

    ctx->text.current_enum = penum;

    code = gs_text_process(penum);

    gs_text_release(ctx->pgs, penum, "pdfi_Tj");

    ctx->text.current_enum = saved_penum;

    if (code < 0)

        goto Tr1_error;

    /* After a stroke operation there is no current point and we need

     * it to be set as if we had drawn the text. So capture it now

     * and we will append a 'move' to the current point when we have

     * finished the stroke.

     */

    code = gs_currentpoint(ctx->pgs, &end_point);

    if (code < 0)

        goto Tr1_error;

    if (talphabits != galphabits)

        dev->color_info.anti_alias.graphics_bits = talphabits;

    /* Change to the current stroking colour */

    gs_swapcolors_quick(ctx->pgs);

    /* Finally, stroke the actual path */

    code = gs_stroke(ctx->pgs);

    /* Switch back to the non-stroke colour */

    gs_swapcolors_quick(ctx->pgs);

    if (talphabits != galphabits)

        dev->color_info.anti_alias.graphics_bits = galphabits;

Tr1_error:

    /* And grestore back to where we started */

    (void)pdfi_grestore(ctx);

    /* If everything went well, then move the current point to the

     * position we captured at the end of the path creation */

    if (code >= 0)

        code = gs_moveto(ctx->pgs, end_point.x, end_point.y);

    text->operation &= ~TEXT_DO_FALSE_CHARPATH;

    return code;

}

/* Mode 2 - fill then stroke */

static int pdfi_show_Tr_2(pdf_context *ctx, gs_text_params_t *text)

{

    int code, restart = 0;

    gs_text_enum_t *penum=NULL, *saved_penum=NULL;

    gs_point end_point, initial_point;

    gx_device *dev = ctx->pgs->device;

    int galphabits = dev->color_info.anti_alias.graphics_bits, talphabits = dev->color_info.anti_alias.text_bits;

    end_point.x = end_point.y = initial_point.x = initial_point.y = 0;

    /* Capture the current position */

    code = gs_currentpoint(ctx->pgs, &initial_point);

    if (code < 0)

        return code;

    /* We don't want to disturb the current path, so do a gsave now

     * We will grestore back to this point after we have stroked the

     * text, which will leave any current path unchanged.

     */

    code = pdfi_gsave(ctx);

    if (code < 0)

        goto Tr1_error;

    /* Start a new path (so our stroke doesn't include any

     * already extant path in the graphics state)

     */

    code = gs_newpath(ctx->pgs);

    if (code < 0)

        goto Tr1_error;

    code = gs_moveto(ctx->pgs, initial_point.x, initial_point.y);

    if (code < 0)

        goto Tr1_error;

    /* Don't draw the text, create a path suitable for stroking */

    text->operation |= TEXT_DO_FALSE_CHARPATH;

    /* Run the text methods to create the path */

    code = gs_text_begin(ctx->pgs, text, ctx->memory, &penum);

    if (code < 0)

        goto Tr1_error;

    penum->single_byte_space = true;

    saved_penum = ctx->text.current_enum;

    ctx->text.current_enum = penum;

    code = gs_text_process(penum);

    gs_text_release(ctx->pgs, penum, "pdfi_Tj");

    ctx->text.current_enum = saved_penum;

    if (code < 0)

        goto Tr1_error;

    /* After a stroke operation there is no current point and we need

     * it to be set as if we had drawn the text. So capture it now

     * and we will append a 'move' to the current point when we have

     * finished the stroke.

     */

    code = gs_currentpoint(ctx->pgs, &end_point);

    if (code < 0)

        goto Tr1_error;

    if (talphabits != galphabits)

        dev->color_info.anti_alias.graphics_bits = talphabits;

    code = gs_fillstroke(ctx->pgs, &restart);

    if (talphabits != galphabits)

        dev->color_info.anti_alias.graphics_bits = galphabits;

Tr1_error:

    /* And grestore back to where we started */

    (void)pdfi_grestore(ctx);

    /* If everything went well, then move the current point to the

     * position we captured at the end of the path creation */

    if (code >= 0)

        code = gs_moveto(ctx->pgs, end_point.x, end_point.y);

    text->operation &= ~TEXT_DO_FALSE_CHARPATH;

    return code;

}

static int pdfi_show_Tr_3(pdf_context *ctx, gs_text_params_t *text)

{

    int code;

    gs_text_enum_t *penum=NULL, *saved_penum=NULL;

    /* Don't draw the text */

    text->operation |= TEXT_DO_NONE | TEXT_RENDER_MODE_3;

    /* Run the text methods to create the path */

    code = gs_text_begin(ctx->pgs, text, ctx->memory, &penum);

    if (code < 0)

        return code;

    penum->single_byte_space = true;

    saved_penum = ctx->text.current_enum;

    ctx->text.current_enum = penum;

    code = gs_text_process(penum);

    gs_text_release(ctx->pgs, penum, "pdfi_Tj");

    ctx->text.current_enum = saved_penum;

    return code;

}

/* Prototype the basic 'clip' function, as the following routines will all use it */

static int pdfi_show_Tr_7(pdf_context *ctx, gs_text_params_t *text);

static int pdfi_show_Tr_4(pdf_context *ctx, gs_text_params_t *text)

{

    int code;

    gs_point initial_point;

    /* Capture the current position */

    code = gs_currentpoint(ctx->pgs, &initial_point);

    if (code < 0)

        return code;

    ctx->text.TextClip = true;

    /* First fill the text */

    code = pdfi_show_Tr_0(ctx, text);

    if (code < 0)

        return code;

    /* Return the current point to the initial point */

    code = gs_moveto(ctx->pgs, initial_point.x, initial_point.y);

    if (code >= 0)

        /* And add the text to the acumulated path for clipping */

        code = pdfi_show_Tr_7(ctx, text);

    return code;

}

static int pdfi_show_Tr_5(pdf_context *ctx, gs_text_params_t *text)

{

    int code;

    gs_point initial_point;

    /* Capture the current position */

    code = gs_currentpoint(ctx->pgs, &initial_point);

    if (code < 0)

        return code;

    ctx->text.TextClip = true;

    /* First stroke the text */

    code = pdfi_show_Tr_1(ctx, text);

    if (code < 0)

        return code;

    /* Return the current point to the initial point */

    code = gs_moveto(ctx->pgs, initial_point.x, initial_point.y);

    if (code >= 0)

        /* And add the text to the acumulated path for clipping */

        code = pdfi_show_Tr_7(ctx, text);

    return code;

}

static int pdfi_show_Tr_6(pdf_context *ctx, gs_text_params_t *text)

{

    int code;

    gs_point initial_point;

    /* Capture the current position */

    code = gs_currentpoint(ctx->pgs, &initial_point);

    if (code < 0)

        return code;

    ctx->text.TextClip = true;

    /* First fill and stroke the text */

    code = pdfi_show_Tr_2(ctx, text);

    if (code < 0)

        return code;

    /* Return the current point to the initial point */

    code = gs_moveto(ctx->pgs, initial_point.x, initial_point.y);

    if (code >= 0)

        /* And add the text to the acumulated path for clipping */

        code = pdfi_show_Tr_7(ctx, text);

    return code;

}

static int pdfi_show_Tr_7(pdf_context *ctx, gs_text_params_t *text)

{

    int code;

    gs_text_enum_t *penum=NULL, *saved_penum=NULL;

    ctx->text.TextClip = true;

    /* Don't draw the text, create a path suitable for filling */

    text->operation |= TEXT_DO_TRUE_CHARPATH;

    /* Run the text methods to create the path */

    code = gs_text_begin(ctx->pgs, text, ctx->memory, &penum);

    if (code < 0)

        goto Tr7_error;

    penum->single_byte_space = true;

    saved_penum = ctx->text.current_enum;

    ctx->text.current_enum = penum;

    code = gs_text_process(penum);

    gs_text_release(ctx->pgs, penum, "pdfi_Tj");

    ctx->text.current_enum = saved_penum;

Tr7_error:

    text->operation &= ~TEXT_DO_TRUE_CHARPATH;

    return code;

}

static int pdfi_show_Tr_preserve(pdf_context *ctx, gs_text_params_t *text)

{

    int Trmode = 0, code;

    pdf_font *current_font = NULL;

    gs_point initial_point;

    current_font = pdfi_get_current_pdf_font(ctx);

    if (current_font == NULL)

        return_error(gs_error_invalidfont);

    /* Capture the current position, in case we need it for clipping */

    code = gs_currentpoint(ctx->pgs, &initial_point);

    Trmode = gs_currenttextrenderingmode(ctx->pgs);

    if (Trmode == 3) {

        if (current_font->pdfi_font_type == e_pdf_font_type3)

            text->operation = TEXT_RETURN_WIDTH | TEXT_FROM_CHARS | TEXT_DO_NONE | TEXT_RENDER_MODE_3;

        else

            text->operation = TEXT_RETURN_WIDTH | TEXT_FROM_BYTES | TEXT_DO_NONE | TEXT_RENDER_MODE_3;

    }

    else

        text->operation |= TEXT_RETURN_WIDTH | TEXT_DO_DRAW;

    /* If we're preserving the text rendering mode, then we don't run a separate

     * stroke operation, we do effectively run a fill. The fill setup loads the

     * fill device colour whch, for patterns, creates the pattern tile.

     * But, because we never load the stroke colour into a device colour, the

     * pattern tile never gets loaded, so we get an error trying to draw the

     * text.

     * We could load the stroke colour in gs_text_begin, but that's potentially

     * wasteful given that most of the time we won't be using the stroke colour

     * os I've chosen to load the stroke device colour explicitly here.

     * But, obviously, only when preserving a stroking text rendering mode.

     */

    if (Trmode == 1 || Trmode == 2 || Trmode == 5 || Trmode == 6) {

        gs_swapcolors_quick(ctx->pgs);

        code = gx_set_dev_color(ctx->pgs);

        if (code != 0)

            return code;

        code = gs_gstate_color_load(ctx->pgs);

        if (code < 0)

            return code;

        gs_swapcolors_quick(ctx->pgs);

    }

    /* If we've switched to aemitting text with a 'clip' rendering mode then we

     * tell pdfwrite that here, so that it can emit a 'q', which it can later

     * (see pdfi_op_Q) restore to with a Q. It's the only way to get the clipping

     * right.

     */

    if (Trmode >= 4 && current_font->pdfi_font_type != e_pdf_font_type3 && ctx->text.TextClip == 0) {

        gx_device *dev = gs_currentdevice_inline(ctx->pgs);

        ctx->text.TextClip = true;

        code = dev_proc(dev, dev_spec_op)(dev, gxdso_hilevel_text_clip, (void *)ctx->pgs, 1);

        if (code < 0 && code != gs_error_undefined)

            return code;

  }

    code = pdfi_show_simple(ctx, text);

    return code;

}

static int pdfi_show(pdf_context *ctx, pdf_string *s)

{

    int code = 0, SavedTextDepth = 0;

    int code1 = 0;

    gs_text_params_t text;

    pdf_font *current_font = NULL;

    int Trmode = 0;

    int initial_gsave_level = ctx->pgs->level;

    pdfi_trans_state_t state;

    int outside_text_block = 0;

    if (ctx->text.BlockDepth == 0) {

        pdfi_set_warning(ctx, 0, NULL, W_PDF_TEXTOPNOBT, "pdfi_show", NULL);

        outside_text_block = 1;

    }

    if (hypot(ctx->pgs->ctm.xx, ctx->pgs->ctm.xy) == 0.0

     || hypot(ctx->pgs->ctm.yy, ctx->pgs->ctm.yx) == 0.0) {

        /* This can mean a font scaled to 0, which appears to be valid, or a degenerate

         * ctm/text matrix, which isn't. A degenrate matrix will have triggered a warning

         * before, so we just skip the operation here.

         */

         return 0;

    }

    current_font = pdfi_get_current_pdf_font(ctx);

    if (current_font == NULL)

        return_error(gs_error_invalidfont);

    code = pdfi_show_set_params(ctx, s, &text);

    if (code < 0)

        goto show_error;

    /* <sigh> Ugliness......

     * It seems that transparency can require that we set a transparency Group

     * during the course of a text operation, and that Group can, of course,

     * execute operations which are barred during text operations (because

     * the Group doesn't affect the text as such). So we need to not throw

     * errors if that happens. Do that by just setting the BlockDepth to 0.

     */

    SavedTextDepth = ctx->text.BlockDepth;

    ctx->text.BlockDepth = 0;

    code = pdfi_trans_setup_text(ctx, &state, true);

    ctx->text.BlockDepth = SavedTextDepth;

    if (code >= 0) {

        if (ctx->device_state.preserve_tr_mode) {

        code = pdfi_show_Tr_preserve(ctx, &text);

        } else {

            Trmode = gs_currenttextrenderingmode(ctx->pgs);

            /* The spec says that we ignore text rendering modes other than 0 for

             * type 3 fonts, but Acrobat also honours mode 3 (do nothing)

             */

            if (current_font->pdfi_font_type == e_pdf_font_type3 && Trmode != 0 && Trmode != 3)

                Trmode = 0;

            switch(Trmode) {

            case 0:

                code = pdfi_show_Tr_0(ctx, &text);

                break;

            case 1:

                code = pdfi_show_Tr_1(ctx, &text);

                break;

            case 2:

                code = pdfi_show_Tr_2(ctx, &text);

                break;

            case 3:

                code = pdfi_show_Tr_3(ctx, &text);

                break;

            case 4:

                code = pdfi_show_Tr_4(ctx, &text);

                break;

            case 5:

                code = pdfi_show_Tr_5(ctx, &text);

                break;

            case 6:

                code = pdfi_show_Tr_6(ctx, &text);

                break;

            case 7:

                code = pdfi_show_Tr_7(ctx, &text);

                break;

            default:

                break;

            }

        }

        code1 = pdfi_trans_teardown_text(ctx, &state);

        if (code == 0)

            code = code1;

    }

    /* We shouldn't need to do this, but..... It turns out that if we have text rendering mode 3 set

     * then gs_text_begin will execute a gsave, push the nulldevice and alter the saved gsave level.

     * If we then get an error while processing the text we don't gs_restore enough times which

     * leaves the nulldevice as the current device, and eats all the following content!

     * To avoid that, we save the gsave depth at the start of this routine, and grestore enough

     * times to get back to the same level. I think this is actually a bug in the graphics library

     * but it doesn't get exposed in normal usage so we'll just work around it here.

     */

    while(ctx->pgs->level > initial_gsave_level)

        gs_grestore(ctx->pgs);

    /* If we were outside a text block when we started this function, then we effectively started

     * one by calling the show mechanism. Among other things, this can have pushed a transparency

     * group. We need to ensure that this is properly closed, so do the guts of the 'ET' operator

     * here (without adjusting the blockDepth, or giving more warnings). See Bug 707753. */

    if (outside_text_block) {

        code1 = do_ET(ctx);

        if (code == 0)

            code = code1;

    }

show_error:

    if ((void *)text.data.chars != (void *)s->data)

        gs_free_object(ctx->memory, (void *)text.data.chars, "string gs_chars");

    gs_free_object(ctx->memory, (void *)text.x_widths, "Free X widths array on error");

    gs_free_object(ctx->memory, (void *)text.y_widths, "Free Y widths array on error");

    return code;

}

/* NOTE: the bounding box this generates has llx and lly at 0,0,

   so is arguably not a "real" bounding box

 */

int pdfi_string_bbox(pdf_context *ctx, pdf_string *s, gs_rect *bboxout, gs_point *advance_width, bool for_stroke)

{

    int code = 0;

    gx_device_bbox *bbdev;

    pdf_font *current_font = pdfi_get_current_pdf_font(ctx);

    gs_matrix tmpmat, Trm, Trm_ctm;

    gs_point cppt, startpt;

    if (current_font == NULL)

        return_error(gs_error_invalidfont);

    for_stroke = current_font->pdfi_font_type == e_pdf_font_type3 ? false : for_stroke;

    if (ctx->devbbox == NULL) {

        bbdev = gs_alloc_struct_immovable(ctx->memory, gx_device_bbox, &st_device_bbox, "pdfi_string_bbox(bbdev)");

        if (bbdev == NULL)

           return_error(gs_error_VMerror);

        gx_device_bbox_init(bbdev, NULL, ctx->memory);

        ctx->devbbox = (gx_device *)bbdev;

        rc_increment(ctx->devbbox);

    }

    else {

        bbdev = (gx_device_bbox *)ctx->devbbox;

    }

    gx_device_retain((gx_device *)bbdev, true);

    gx_device_bbox_set_white_opaque(bbdev, true);

    code = pdfi_gsave(ctx);

    if (code < 0) {

        gx_device_retain((gx_device *)bbdev, false);

        return code;

    }

    /* The bbox device needs a fairly high resolution to get accurate results */

    gx_device_set_resolution((gx_device *)bbdev, 720.0, 720.0);

    code = gs_setdevice_no_erase(ctx->pgs, (gx_device *)bbdev);

    if (code < 0)

        goto out;

    Trm.xx = ctx->pgs->PDFfontsize * (ctx->pgs->texthscaling / 100);

    Trm.xy = 0;

    Trm.yx = 0;

    Trm.yy = ctx->pgs->PDFfontsize;

    Trm.tx = 0;

    Trm.ty = ctx->pgs->textrise;

    memcpy(&tmpmat, &ctx->pgs->textmatrix, sizeof(tmpmat));

    /* We want to avoid any translations unrelated to the extents of the text */

    tmpmat.tx = tmpmat.ty = 0;

    gs_matrix_multiply(&Trm, &tmpmat, &Trm);

    memcpy(&tmpmat, &ctm_only(ctx->pgs), sizeof(tmpmat));

    /* As above */

    tmpmat.tx = tmpmat.ty = 0;

    gs_matrix_multiply(&Trm, &tmpmat, &Trm_ctm);

    gs_setmatrix(ctx->pgs, &Trm_ctm);

    gs_settextrenderingmode(ctx->pgs, for_stroke ? 2 : 0);

    code = pdfi_gs_setgray(ctx, 1.0);

    if (code < 0)

        goto out;

    /* The bbox device (not surprisingly) clips to the device width/height

       so we have to offset our initial point to cope with glyphs that include

       negative coordinates. Most significantly, descender features - hence the

       larger y offset.

       The offsets are guesses.

     */

    startpt.x = ctx->pgs->PDFfontsize;

    startpt.y = ctx->pgs->PDFfontsize * 16.0 * (ctx->pgs->textrise >= 0 ? 1 : -ctx->pgs->textrise);

    code = gs_moveto(ctx->pgs, startpt.x, startpt.y);

    if (code < 0)

        goto out;

    /* Pretend to have at least one BT or pdfi_show will generate a spurious warning */

    ctx->text.BlockDepth++;

    code = pdfi_show(ctx, s);

    /* And an ET */

    ctx->text.BlockDepth--;

    if (code < 0)

        goto out;

    code = gx_device_bbox_bbox(bbdev, bboxout);

    if (code < 0)

        goto out;

    bboxout->q.x -= bboxout->p.x;

    bboxout->q.y -= bboxout->p.y;

    bboxout->p.x = bboxout->p.y = 0;

    code = gs_currentpoint(ctx->pgs, &cppt);