/* Copyright (C) 2003-2013 Runtime Revolution Ltd.

This file is part of LiveCode.

LiveCode is free software; you can redistribute it and/or modify it under

the terms of the GNU General Public License v3 as published by the Free

Software Foundation.

LiveCode is distributed in the hope that it will be useful, but WITHOUT ANY

WARRANTY; without even the implied warranty of MERCHANTABILITY or

FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License

for more details.

You should have received a copy of the GNU General Public License

along with LiveCode. If not see <http://www.gnu.org/licenses/>. */

#include "prefix.h"

#include "globdefs.h"

#include "objdefs.h"

#include "parsedef.h"

#include "filedefs.h"

#include "scriptpt.h"

#include "execpt.h"

#include "cmds.h"

#include "chunk.h"

#include "mcerror.h"

#include "object.h"

#include "stack.h"

#include "card.h"

#include "printer.h"

#include "util.h"

#include "globals.h"

#include "securemode.h"

MCPrint::MCPrint()

{

mode = PM_CARD;

target = NULL;

from = NULL;

to = NULL;

rect = NULL;

initial_state = NULL;

bookmark_closed = false;

}

MCPrint::~MCPrint()

{

delete target;

delete from;

delete to;

delete rect;

delete initial_state;

}

// This parses the following forms:

// print break

// print ( all | marked ) cards [ of <chunk> ] [ from <expr> to <expr> ] [ into <expr> ]

// print <chunk> [ from <expr> to <expr> ] [ into <expr> ]

// print <chunk> cards [ from <expr> to <expr> ] [ into <expr> ]

//

// New interactivity related print syntax:

// print anchor <name> at <position>

// print link to <anchor or url> with rect[angle] <rect>

//

Parse_stat MCPrint::parse(MCScriptPoint &sp)

{

Symbol_type type;

const LT *te;

Boolean single = False;

initpoint(sp);

// print anchor <name> at <position>

// <name> -> from

// <position> -> rect

//

if (sp . skip_token(SP_SUGAR, TT_UNDEFINED, SG_ANCHOR) == PS_NORMAL)

{

mode = PM_ANCHOR;

if (sp . parseexp(False, True, &from) != PS_NORMAL)

{

MCperror -> add(PE_PRINTANCHOR_BADNAMEEXP, sp);

return PS_ERROR;

}

if (sp . skip_token(SP_FACTOR, TT_PREP, PT_AT) != PS_NORMAL)

{

MCperror -> add(PE_PRINTANCHOR_NOATEXP, sp);

return PS_ERROR;

}

if (sp . parseexp(False, True, &rect) != PS_NORMAL)

{

MCperror -> add(PE_PRINTANCHOR_BADTOEXP, sp);

return PS_ERROR;

}

return PS_NORMAL;

}

// print link to [ url | anchor ] <anchor or url> with rect[angle] <rect>

// <anchor or url> -> to

// <rect> -> rect

//

if (sp . skip_token(SP_SUGAR, TT_UNDEFINED, SG_LINK) == PS_NORMAL)

{

mode = PM_LINK;

if (sp . skip_token(SP_FACTOR, TT_TO, PT_TO) != PS_NORMAL)

{

MCperror -> add(PE_PRINTLINK_NOTOEXP, sp);

return PS_ERROR;

}

if (sp.skip_token(SP_SUGAR, TT_UNDEFINED, SG_ANCHOR) == PS_NORMAL)

mode = PM_LINK_ANCHOR;

else if (sp.skip_token(SP_SUGAR, TT_UNDEFINED, SG_URL) == PS_NORMAL)

mode = PM_LINK_URL;

if (sp . parseexp(False, True, &to) != PS_NORMAL)

{

MCperror -> add(PE_PRINTLINK_BADTOEXP, sp);

return PS_ERROR;

}

if (sp . skip_token(SP_REPEAT, TT_UNDEFINED, RF_WITH) != PS_NORMAL ||

sp . skip_token(SP_FACTOR, TT_PROPERTY, P_RECTANGLE) != PS_NORMAL)

{

MCperror -> add(PE_PRINTLINK_NOAREAEXP, sp);

return PS_ERROR;

}

if (sp . parseexp(False, True, &rect) != PS_NORMAL)

{

MCperror -> add(PE_PRINTLINK_BADAREAEXP, sp);

return PS_ERROR;

}

return PS_NORMAL;

}

// print [unicode] bookmark <title> [with level <level>] [at <position>]

// <title> -> from

// <level> -> to

// <position> -> rect

if (sp.skip_token(SP_SUGAR, TT_UNDEFINED, SG_UNICODE) == PS_NORMAL)

mode = PM_UNICODE_BOOKMARK;

if (sp . skip_token(SP_SUGAR, TT_UNDEFINED, SG_BOOKMARK) != PS_NORMAL)

{

if (mode == PM_UNICODE_BOOKMARK)

{

MCperror->add(PE_PRINTBOOKMARK_NOBOOKMARK, sp);

return PS_ERROR;

}

}

else

{

if (mode != PM_UNICODE_BOOKMARK)

mode = PM_BOOKMARK;

if (sp.parseexp(False, True, &from) != PS_NORMAL)

{

MCperror->add(PE_PRINTBOOKMARK_BADTITLEEXP, sp);

return PS_ERROR;

}

if (sp.skip_token(SP_REPEAT, TT_UNDEFINED, RF_WITH) == PS_NORMAL)

{

if (sp.skip_token(SP_SUGAR, TT_UNDEFINED, SG_LEVEL) != PS_NORMAL)

{

MCperror->add(PE_PRINTBOOKMARK_NOLEVEL, sp);

return PS_ERROR;

}

if (sp.parseexp(False, True, &to) != PS_NORMAL)

{

MCperror->add(PE_PRINTBOOKMARK_BADLEVELEXP, sp);

return PS_ERROR;

}

}

if (sp.skip_token(SP_FACTOR, TT_PREP, PT_AT) == PS_NORMAL)

{

if (sp.parseexp(False, True, &rect) != PS_NORMAL)

{

MCperror->add(PE_PRINTBOOKMARK_BADATEXP, sp);

return PS_ERROR;

}

}

if (sp.skip_token(SP_SUGAR, TT_UNDEFINED, SG_INITIALLY) == PS_NORMAL)

{

if (sp.skip_token(SP_SUGAR, TT_UNDEFINED, SG_OPEN) == PS_NORMAL)

bookmark_closed = false;

else if (sp.skip_token(SP_SUGAR, TT_UNDEFINED, SG_CLOSED) == PS_NORMAL)

bookmark_closed = true;

else if (sp.parseexp(False, True, &initial_state) != PS_NORMAL)

{

MCperror->add(PE_PRINTBOOKMARK_BADINITIALEXP, sp);

return PS_ERROR;

}

}

return PS_NORMAL;

}

// Rest of the print syntax

if (sp.next(type) == PS_NORMAL)

{

if (sp.lookup(SP_SHOW, te) == PS_NORMAL)

{

if (te->which == SO_ALL || te->which == SO_MARKED)

{

mode = (Show_object)te->which == SO_ALL ? PM_ALL : PM_MARKED;

if (sp.skip_token(SP_FACTOR, TT_CLASS, CT_CARD) != PS_NORMAL)

{

MCperror->add(PE_PRINT_BADTARGET, sp);

return PS_ERROR;

}

}

else if (te->which == SO_BREAK)

{

sp.skip_token(SP_SHOW, TT_UNDEFINED, SO_BREAK);

mode = PM_BREAK;

return PS_NORMAL;

}

else if (te->which == SO_CARD)

{

MCScriptPoint oldsp(sp);

sp.backup();

target = new MCChunk(False);

MCerrorlock++;

if (target->parse(sp, False) != PS_NORMAL)

{

sp = oldsp;

delete target;

target = NULL;

single = True;

}

MCerrorlock--;

}

}

else

sp . backup();

}

if ((mode != PM_CARD && sp . skip_token(SP_FACTOR, TT_OF) == PS_NORMAL) ||

(mode == PM_CARD && !single && target == NULL))

{

target = new MCChunk(False);

if (target->parse(sp, False) != PS_NORMAL)

{

MCperror->add(PE_PRINT_BADTARGET, sp);

return PS_ERROR;

}

}

if (sp.skip_token(SP_FACTOR, TT_CLASS, CT_CARD) == PS_NORMAL)

mode = PM_SOME;

if (sp.skip_token(SP_FACTOR, TT_FROM, PT_FROM) == PS_NORMAL)

{

if (sp.parseexp(False, True, &from) != PS_NORMAL)

{

MCperror->add(PE_PRINT_BADFROMEXP, sp);

return PS_ERROR;

}

if (sp.skip_token(SP_FACTOR, TT_TO) != PS_NORMAL)

{

MCperror->add(PE_PRINT_NOTO, sp);

return PS_ERROR;

}

if (sp.parseexp(False, True, &to) != PS_NORMAL)

{

MCperror->add(PE_PRINT_BADTOEXP, sp);

return PS_ERROR;

}

}

if (sp.skip_token(SP_FACTOR, TT_PREP, PT_INTO) == PS_NORMAL)

{

sp.skip_token(SP_FACTOR, TT_PROPERTY, P_RECTANGLE);

if (sp.parseexp(False, True, &rect) != PS_NORMAL)

{

MCperror->add(PE_PRINT_BADRECTEXP, sp);

return PS_ERROR;

}

}

return PS_NORMAL;

}

Exec_stat MCPrint::exec(MCExecPoint &ep)

{

if (MCsecuremode & MC_SECUREMODE_PRINT)

{

MCeerror->add(EE_PRINT_NOPERM, line, pos);

return ES_ERROR;

}

if (mode == PM_ANCHOR)

{

char *t_name;

t_name = nil;

if (from -> eval(ep) != ES_NORMAL)

{

MCeerror -> add(EE_PRINTANCHOR_BADNAME, line, pos);

return ES_ERROR;

}

t_name = ep . getsvalue() . clone();

int2 t_at_x, t_at_y;

if (rect -> eval(ep) != ES_NORMAL)

{

MCeerror -> add(EE_PRINTANCHOR_BADLOCATION, line, pos);

delete t_name;

return ES_ERROR;

}

if (!MCU_stoi2x2(ep . getsvalue(), t_at_x, t_at_y))

{

MCeerror -> add(EE_PRINTANCHOR_LOCATIONNAP, line, pos, ep . getsvalue());

delete t_name;

return ES_ERROR;

}

MCprinter -> MakeAnchor(t_name, t_at_x, t_at_y);

delete t_name;

return ES_NORMAL;

}

else if (mode == PM_LINK || mode == PM_LINK_ANCHOR || mode == PM_LINK_URL)

{

MCPrinterLinkType t_type = kMCPrinterLinkUnspecified;

if (mode == PM_LINK_ANCHOR)

t_type = kMCPrinterLinkAnchor;

else if (mode == PM_LINK_URL)

t_type = kMCPrinterLinkURI;

char *t_dest;

t_dest = nil;

if (to -> eval(ep) != ES_NORMAL)

{

MCeerror -> add(EE_PRINTLINK_BADDEST, line, pos);

return ES_ERROR;

}

t_dest = ep . getsvalue() . clone();

if (rect -> eval(ep) != ES_NORMAL)

{

MCeerror -> add(EE_PRINTLINK_BADAREA, line, pos);

return ES_ERROR;

}

int2 i1, i2, i3, i4;

if (!MCU_stoi2x4(ep . getsvalue(), i1, i2, i3, i4))

{

MCeerror->add(EE_PRINTLINK_AREANAR, line, pos, ep . getsvalue());

return ES_ERROR;

}

MCRectangle t_area_rect;

t_area_rect . x = i1;

t_area_rect . y = i2;

t_area_rect . width = MCU_max(i3 - i1, 1);

t_area_rect . height = MCU_max(i4 - i2, 1);

MCprinter -> MakeLink(t_dest, t_area_rect, t_type);

delete t_dest;

return ES_NORMAL;

}

else if (mode == PM_BOOKMARK || mode == PM_UNICODE_BOOKMARK)

{

char *t_title = nil;

uint32_t t_level = 0;

int16_t t_x = 0, t_y = 0;

bool t_success = true;

if (from->eval(ep) != ES_NORMAL)

{

MCeerror->add(EE_PRINTBOOKMARK_BADTITLE, line, pos, ep.getsvalue());

t_success = false;

}

if (t_success)

{

if (mode == PM_UNICODE_BOOKMARK)

ep.utf16toutf8();

else

ep.nativetoutf8();

t_title = ep.getsvalue().clone();

}

if (t_success && to != NULL)

{

if (to->eval(ep) != ES_NORMAL ||

ep.ton() != ES_NORMAL)

{

MCeerror->add(EE_PRINTBOOKMARK_BADLEVEL, line, pos, ep.getsvalue());

t_success = false;

}

else

t_level = ep.getint4();

}

if (t_success && rect != NULL)

{

if (rect->eval(ep) != ES_NORMAL ||

!MCU_stoi2x2(ep.getsvalue(), t_x, t_y))

{

MCeerror->add(EE_PRINTBOOKMARK_BADAT, line, pos, ep.getsvalue());

t_success = false;

}

}

if (t_success && initial_state != NULL)

{

if (initial_state->eval(ep) != ES_NORMAL)

t_success = false;

if (t_success)

{

if (ep.getsvalue() == "closed")

bookmark_closed = true;

else if (ep.getsvalue() == "open")

bookmark_closed = false;

else

t_success = false;

}

if (!t_success)

MCeerror->add(EE_PRINTBOOKMARK_BADINITIAL, line, pos, ep.getsvalue());

}

if (t_success)

MCprinter->MakeBookmark(t_title, t_x, t_y, t_level, bookmark_closed);

delete t_title;

return t_success ? ES_NORMAL : ES_ERROR;

}

MCObject *optr;

uint4 parid;

MCStack *stack = MCdefaultstackptr;

MCCard *t_card;

t_card = NULL;

uint2 count = 1;

MCresult -> clear(False);

// Syntax: print .. from .. to ..

MCRectangle t_src_rect;

bool t_src_rect_required;

t_src_rect_required = true;

if (from != NULL)

{

int2 lrx, lry;

if (from -> eval(ep) != ES_NORMAL)

{

MCeerror -> add(EE_PRINT_CANTGETCOORD, line, pos);

return ES_ERROR;

}

if (!MCU_stoi2x2(ep.getsvalue(), t_src_rect . x, t_src_rect . y))

{

MCeerror -> add(EE_PRINT_NAP, line, pos, ep.getsvalue());

return ES_ERROR;

}

if (to -> eval(ep) != ES_NORMAL)

{

MCeerror -> add(EE_PRINT_CANTGETCOORD, line, pos);

return ES_ERROR;

}

if (!MCU_stoi2x2(ep . getsvalue(), lrx, lry))

{

MCeerror -> add(EE_PRINT_NAP, line, pos, ep . getsvalue());

return ES_ERROR;

}

// MJ: the old printing added 1 to both width and height below.

// This indeed caused rectangles to look 1 pixel too large on either sides. Removing this solves this problem.

t_src_rect . width = lrx - t_src_rect . x;// + 1;

t_src_rect . height = lry - t_src_rect . y; // + 1;

t_src_rect_required = false;

}

//else the source rectangle will be the rect of the target.

// Syntax: print .. into ..

MCRectangle t_dst_rect;

bool t_dst_rect_defined;

t_dst_rect_defined = false;

if (rect != NULL)

{

if (rect -> eval(ep) != ES_NORMAL)

{

MCeerror -> add(EE_PRINT_CANTGETRECT, line, pos);

return ES_ERROR;

}

int2 i1, i2, i3, i4;

if (!MCU_stoi2x4(ep . getsvalue(), i1, i2, i3, i4))

{

MCeerror->add(EE_PRINT_NAR, line, pos, ep . getsvalue());

return ES_ERROR;

}

t_dst_rect . x = i1;

t_dst_rect . y = i2;

t_dst_rect . width = MCU_max(i3 - i1, 1);

t_dst_rect . height = MCU_max(i4 - i2, 1);

t_dst_rect_defined = true; // could use rect != NULL or whatever..

}

switch (mode)

{

case PM_ALL:

case PM_MARKED:

if (target != NULL)

{

if (target -> getobj(ep, optr, parid, True) != ES_NORMAL || optr -> gettype() != CT_STACK)

{

MCeerror -> add(EE_PRINT_NOTARGET, line, pos);

return ES_ERROR;

}

stack = (MCStack *)optr;

}

break;

case PM_SOME:

if (target -> eval(ep) != ES_NORMAL || ep . ton() != ES_NORMAL)

{

MCeerror -> add(EE_PRINT_CANTGETCOUNT, line, pos);

return ES_ERROR;

}

count = ep . getuint2();

break;

case PM_CARD:

if (target != NULL)

{

if (target -> getobj(ep, optr, parid, True) != ES_NORMAL)

{

MCeerror -> add(EE_PRINT_NOTARGET, line, pos);

return ES_ERROR;

}

if (optr->gettype() == CT_CARD)

{

t_card = (MCCard *)optr;

stack = t_card -> getstack();

}

else

{

if (optr -> gettype() != CT_STACK)

{

MCeerror -> add(EE_PRINT_NOTACARD, line, pos);

return ES_ERROR;

}

mode = PM_ALL;

stack = (MCStack *)optr;

}

}

break;

default:

break;

}

if (stack -> getopened() == 0)

{

MCeerror -> add(EE_PRINT_NOTOPEN, line, pos);

return ES_ERROR;

}

MCU_watchcursor(NULL, True);

Exec_stat t_exec_stat;

t_exec_stat = ES_NORMAL;

switch (mode)

{

case PM_BREAK: // syntax: print break

MCprinter -> Break();

break;

case PM_MARKED:

MCprinter -> LayoutStack(stack, true, t_src_rect_required ? NULL : &t_src_rect); // extend this with a stack pointer

break;

case PM_ALL:

MCprinter -> LayoutStack(stack, false, t_src_rect_required ? NULL : &t_src_rect);

break;

case PM_CARD:

{

// If no t_card specified, then we get the current t_card of the default stack.

if (t_card == NULL)

t_card = stack -> getcurcard();

if (t_src_rect_required)

t_src_rect = t_card -> getrect();

if (t_dst_rect_defined) // we have a destination rect, this is where it will go

MCprinter -> Render(t_card, t_src_rect, t_dst_rect);

else // the card is laid out in the current layout

MCprinter -> LayoutCard(t_card, &t_src_rect);

}

break;

case PM_SOME:

{

if (t_src_rect_required)

t_src_rect = MCdefaultstackptr -> getcurcard() -> getrect();

MCprinter -> LayoutCardSequence(MCdefaultstackptr, count, &t_src_rect);

}

break;

default:

// What do we do here? Could get here if mode == PM_UNDEFINED, however, for now

// let's just put an assertion here.

assert(false);

break;

}

// MW-2007-12-17: [[ Bug 266 ]] The watch cursor must be reset before we

// return back to the caller.

MCU_unwatchcursor(ep.getobj()->getstack(), True);

return t_exec_stat;

}