The R Project SVN R

/*

 *  R : A Computer Language for Statistical Data Analysis

 *  Copyright (C) 1999, 2000  Guido Masarotto

 *

 *  This program is free software; you can redistribute it and/or modify

 *  it under the terms of the GNU General Public License as published by

 *  the Free Software Foundation; either version 2 of the License, or

 *  (at your option) any later version.

 *

 *  This program 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 this program; if not, a copy is available at

 *  https://www.R-project.org/Licenses/

 */

/* Copyright (C) 2023      The R Core Team

   Path length limitations

 */

/* Support for printer

 *  printer newprinter()  - return a printer object - to draw to the

 *                          printer use drawto(...) and the drawXXX

 *                          functions + nextpage(printer)

 *                          printers can be deleted by 'del(printer)'

 */

#include "win-nls.h"

#include "internal.h"

#include "rui.h"

#include <stdlib.h>

/*

 *  Internal printer deletion function.

 */

static void private_delprinter(printer obj)

{

    HDC h = (HDC) obj->handle;

    if (!obj || !h || (obj->kind != PrinterObject)) return;

    EndPage(h);

    EndDoc(h);

    DeleteDC(h);

    return;

}

/*

 *  Create/return the base printer object.

 */

static object get_printer_base(void)

{

    static object printer_base = NULL;

    if (! printer_base)

	printer_base = new_object(BaseObject, 0, NULL);

    return printer_base;

}

static HDC chooseprinter(void)

{

    PRINTDLG pd;

    HDC dc;

    DWORD rc;

    char *cwd = NULL;

    /* FIXME: can PrintDlg change the current directory? */

    rc = GetCurrentDirectory(0, NULL);

    if (rc) {

	cwd = (char *)malloc(rc);

	if (cwd) {

	    DWORD rc1 = GetCurrentDirectory(rc, cwd);

	    if (rc1 <= 0 || rc1 >= rc) {

		free(cwd);

		cwd = NULL;

	    }

	}

    }

    pd.lStructSize = sizeof( PRINTDLG );

    pd.hwndOwner = NULL;

    pd.hDevMode = (HANDLE)NULL;

    pd.hDevNames = (HANDLE)NULL;

    pd.Flags = PD_RETURNDC | PD_NOSELECTION | PD_NOPAGENUMS |

	PD_USEDEVMODECOPIES;

    pd.nFromPage = 0;

    pd.nToPage = 0;

    pd.nMinPage = 0;

    pd.nMaxPage = 0;

    pd.nCopies = 1;

    pd.hInstance = (HINSTANCE)NULL;

    pd.lCustData = (LPARAM)0;

    pd.lpfnPrintHook = 0;

    pd.lpfnSetupHook = 0;

    pd.lpPrintTemplateName = (LPCSTR) 0;

    pd.lpSetupTemplateName = (LPCSTR) 0;

    pd.hPrintTemplate = (HGLOBAL)0;

    pd.hSetupTemplate = (HGLOBAL)0;

    /* FIXME: use PrintDlgEx? */

    dc = PrintDlg( &pd ) ? pd.hDC : NULL;

    if (cwd) {

	SetCurrentDirectory(cwd);

	free(cwd);

    }

    if (!dc) {

	rc = CommDlgExtendedError(); /* 0 means user cancelled */

	if (rc) R_ShowMessage(G_("Unable to choose printer"));

    }

    return dc;

}

printer newprinter(double width, double height, const char *name)

{

    DOCINFO docinfo;

    printer obj;

    HDC hDC;

    double dd,AL;

    int ww,hh,x0,y0;

    if(strlen(name)) {

	OSVERSIONINFO verinfo;

	verinfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);

	GetVersionEx(&verinfo);

	switch(verinfo.dwPlatformId) {

	case VER_PLATFORM_WIN32_NT:

	    hDC = CreateDC("WINSPOOL", name, NULL, NULL);

	default:

	    hDC = CreateDC(NULL, name, NULL, NULL);

	}

    } else hDC = chooseprinter();

    if ( !hDC ) return NULL;

    obj = new_object(PrinterObject, (HANDLE) hDC, get_printer_base());

    if ( !obj ) {

	R_ShowMessage(G_("Insufficient memory for new printer"));

	DeleteDC(hDC);

	return NULL;

    }

    if ((width == 0.0) && (height == 0.0)) {

	ww = GetDeviceCaps(hDC, HORZRES);

	hh = GetDeviceCaps(hDC, VERTRES);

    }

    else {

	if (width < 0.1) width = 0.1;

	if (height < 0.1) height = 0.1;

	dd =  GetDeviceCaps(hDC, HORZSIZE) / width;

	AL = (dd < 1.0) ? dd : 1.0;

	dd = GetDeviceCaps(hDC, VERTSIZE) / height;

	AL = (dd < AL) ? dd : AL;

	ww = (AL * width) * GetDeviceCaps(hDC, LOGPIXELSX) / 25.4;

	hh = (AL * height) * GetDeviceCaps(hDC, LOGPIXELSY) / 25.4;

    }

    x0 = (GetDeviceCaps(hDC, HORZRES) - ww) / 2;

    y0 = (GetDeviceCaps(hDC, VERTRES) - hh) / 2;

    obj->rect = rect(x0, y0, ww, hh);

    obj->depth = GetDeviceCaps(hDC, BITSPIXEL)* GetDeviceCaps(hDC, PLANES);

    obj->die = private_delprinter;

    obj->drawstate = copydrawstate();

    obj->drawstate->dest = obj;

    docinfo.cbSize = sizeof(DOCINFO);	/* set this size... */

    docinfo.lpszDocName = "GraphAppPrintJob";

    docinfo.lpszOutput = 0;		/* no file output... */

    docinfo.lpszDatatype = 0;

    docinfo.fwType = 0;

    /* Note: this fails when trying to print to a file using a long path,

       seen on Windows 10 19045, "Microsoft Print to PDF". However, this is

       the same as with other applications, seems to be a Windows issue. */

    if (StartDoc(hDC, &docinfo) <= 0) {

	R_ShowMessage(G_("Unable to start the print job"));

	del(obj);

	return NULL;

    }

    StartPage(hDC);

    return obj;

}

void nextpage(printer p)

{

    if (!p || (p->kind != PrinterObject)) return;

    EndPage((HDC) p->handle);

    StartPage((HDC) p->handle);

}