/* Copyright (C) 2001-2021 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.,  1305 Grant Avenue - Suite 200, Novato,

   CA 94945, U.S.A., +1(415)492-9861, for further information.

*/

/* Basic path operators */

#include "math_.h"

#include "ghost.h"

#include "oper.h"

#include "igstate.h"

#include "gsmatrix.h"

#include "gspath.h"

#include "store.h"

/* Forward references */

static int common_to(i_ctx_t *,

                      int (*)(gs_gstate *, double, double));

static int common_curve(i_ctx_t *,

  int (*)(gs_gstate *, double, double, double, double, double, double));

/* - newpath - */

static int

znewpath(i_ctx_t *i_ctx_p)

{

    return gs_newpath(igs);

}

/* - currentpoint <x> <y> */

static int

zcurrentpoint(i_ctx_t *i_ctx_p)

{

    os_ptr op = osp;

    gs_point pt;

    int code = gs_currentpoint(igs, &pt);

    if (code < 0)

        return code;

    push(2);

    make_real(op - 1, pt.x);

    make_real(op, pt.y);

    return 0;

}

/* - .currentpoint_valid <bool> */

static int

zcurrentpoint_valid(i_ctx_t *i_ctx_p)

{

    os_ptr op = osp;

    gs_point pt;

    int code = gs_currentpoint(igs, &pt);

    push(1);

    make_bool(op, code == 0);

    return 0;

}

/* <x> <y> moveto - */

int

zmoveto(i_ctx_t *i_ctx_p)

{

    return common_to(i_ctx_p, gs_moveto);

}

/* <dx> <dy> rmoveto - */

int

zrmoveto(i_ctx_t *i_ctx_p)

{

    return common_to(i_ctx_p, gs_rmoveto);

}

/* <x> <y> lineto - */

int

zlineto(i_ctx_t *i_ctx_p)

{

    return common_to(i_ctx_p, gs_lineto);

}

/* <dx> <dy> rlineto - */

int

zrlineto(i_ctx_t *i_ctx_p)

{

    return common_to(i_ctx_p, gs_rlineto);

}

/* Common code for [r](move/line)to */

static int

common_to(i_ctx_t *i_ctx_p,

          int (*add_proc)(gs_gstate *, double, double))

{

    os_ptr op = osp;

    double opxy[2];

    int code;

    if ((code = num_params(op, 2, opxy)) < 0 ||

        (code = (*add_proc)(igs, opxy[0], opxy[1])) < 0

        )

        return code;

    pop(2);

    return 0;

}

/* <x1> <y1> <x2> <y2> <x3> <y3> curveto - */

int

zcurveto(i_ctx_t *i_ctx_p)

{

    return common_curve(i_ctx_p, gs_curveto);

}

/* <dx1> <dy1> <dx2> <dy2> <dx3> <dy3> rcurveto - */

int

zrcurveto(i_ctx_t *i_ctx_p)

{

    return common_curve(i_ctx_p, gs_rcurveto);

}

/* Common code for [r]curveto */

static int

common_curve(i_ctx_t *i_ctx_p,

             int (*add_proc)(gs_gstate *, double, double, double, double, double, double))

{

    os_ptr op = osp;

    double opxy[6];

    int code;

    if ((code = num_params(op, 6, opxy)) < 0)

        return code;

    code = (*add_proc)(igs, opxy[0], opxy[1], opxy[2], opxy[3], opxy[4], opxy[5]);

    if (code >= 0)

        pop(6);

    return code;

}

/* - closepath - */

int

zclosepath(i_ctx_t *i_ctx_p)

{

    return gs_closepath(igs);

}

/* - initclip - */

static int

zinitclip(i_ctx_t *i_ctx_p)

{

    return gs_initclip(igs);

}

/* - clip - */

static int

zclip(i_ctx_t *i_ctx_p)

{

    return gs_clip(igs);

}

/* - eoclip - */

static int

zeoclip(i_ctx_t *i_ctx_p)

{

    return gs_eoclip(igs);

}

/* ------ Initialization procedure ------ */

const op_def zpath_op_defs[] =

{

    {"0clip", zclip},

    {"0closepath", zclosepath},

    {"0currentpoint", zcurrentpoint},

    {"0.currentpoint_valid", zcurrentpoint_valid},

    {"6curveto", zcurveto},

    {"0eoclip", zeoclip},

    {"0initclip", zinitclip},

    {"2lineto", zlineto},

    {"2moveto", zmoveto},

    {"0newpath", znewpath},

    {"6rcurveto", zrcurveto},

    {"2rlineto", zrlineto},

    {"2rmoveto", zrmoveto},

    op_def_end(0)

};