/*

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

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

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.  Oracle designates this

 * particular file as subject to the "Classpath" exception as provided

 * by Oracle in the LICENSE file that accompanied this code.

 *

 * This code 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

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

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

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

 * or visit www.oracle.com if you need additional information or have any

 * questions.

 */

#include "awt.h"

#include <math.h>

#include <windef.h>

#include <wtypes.h>

#include <winuser.h>

#include <commdlg.h>

#include <winspool.h>

#include "awt_Toolkit.h"

#include "awt_Component.h"

#include "awt_Dialog.h"

#include "awt_Font.h"

#include "awt_PrintDialog.h"

#include "awt_PrintControl.h"

#include "awt_Window.h"

#include "ComCtl32Util.h"

#include <sun_awt_windows_WPrinterJob.h>

#include <jlong_md.h>

#include <float.h>

#define DEBUG_PRINTING  0

/* Round 'num' to the nearest integer and return

 * the result as a long.

 */

#define ROUND_TO_LONG(num)    ((long) floor((num) + 0.5))

/* Round 'num' to the nearest integer and return

 * the result as an int.

 */

#define ROUND_TO_INT(num)     ((int) floor((num) + 0.5))

/************************************************************************

 * WPrintJob native methods

 */

extern "C" {

/*** Private Constants ***/

static char *kJavaIntStr = "I";

static char *kJavaLongStr = "J";

/* 2D printing uses 3 byte BGR pixels in Raster printing */

static int J2DRasterBPP = 3;

/*

 * Class Names

 */

static const char *PRINTEREXCEPTION_STR = "java/awt/print/PrinterException";

/*

 * The following strings are the names of instance variables in WPrintJob2D.

 */

static const char *PRINTPAPERSIZE_STR = "mPrintPaperSize"; // The paper size

static const char *XRES_STR = "mPrintXRes";     // The x dpi.

static const char *YRES_STR = "mPrintYRes";     // The y dpi.

static const char *PHYSX_STR = "mPrintPhysX";   // pixel x of printable area

static const char *PHYSY_STR = "mPrintPhysY";   // pixel y of printable area

static const char *PHYSW_STR = "mPrintWidth";   // pixel wid of printable area

static const char *PHYSH_STR = "mPrintHeight";  // pixel hgt of printable area

static const char *PAGEW_STR = "mPageWidth";    // pixel wid of page

static const char *PAGEH_STR = "mPageHeight";   // pixel hgt of page

static const char *DRIVER_COPIES_STR = "driverDoesMultipleCopies";

static const char *DRIVER_COLLATE_STR = "driverDoesCollation";

static const char *USER_COLLATE_STR = "userRequestedCollation";

static const char *NO_DEFAULTPRINTER_STR = "noDefaultPrinter";

static const char *LANDSCAPE_270_STR = "landscapeRotates270";

// public int java.awt.print.PrinterJob.getCopies()

static const char *GETCOPIES_STR = "getCopies";

static const char *GETCOPIES_SIG = "()I";

/*

 * Methods and fields in awt.print.PageFormat.

 */

// public Paper getPaper()

static const char *GETPAPER_STR = "getPaper";

static const char *GETPAPER_SIG = "()Ljava/awt/print/Paper;";

// public void setPaper(Paper paper)

static const char *SETPAPER_STR = "setPaper";

static const char *SETPAPER_SIG = "(Ljava/awt/print/Paper;)V";

// public int getOrientation()

static const char *GETORIENT_STR = "getOrientation";

static const char *GETORIENT_SIG = "()I";

// public void setOrientation(int orientation)

static const char *SETORIENT_STR = "setOrientation";

static const char *SETORIENT_SIG = "(I)V";

static const int PAGEFORMAT_LANDSCAPE = 0;

static const int PAGEFORMAT_PORTRAIT = 1;

//static const int PAGEFORMAT_REVERSELANDSCAPE = 2;

// instance variables for PrintRequestAttribute settings

static const char *ATTSIDES_STR = "mAttSides";

static const char *ATTCHROMATICITY_STR = "mAttChromaticity";

static const char *ATTXRES_STR = "mAttXRes";

static const char *ATTYRES_STR = "mAttYRes";

static const char *ATTQUALITY_STR = "mAttQuality";

static const char *ATTCOLLATE_STR = "mAttCollate";

static const char *ATTCOPIES_STR = "mAttCopies";

static const char *ATTMEDIASZNAME_STR = "mAttMediaSizeName";

static const char *ATTMEDIATRAY_STR = "mAttMediaTray";

/*

 * Methods in awt.print.Paper.

 */

// public void setSize(double width, double height)

static const char *SETSIZE_STR = "setSize";

static const char *SETSIZE_SIG = "(DD)V";

// protected void setImageableArea(double x, double y, double width,

//                                                  double height)

static const char *SETIMAGEABLE_STR = "setImageableArea";

static const char *SETIMAGEABLE_SIG = "(DDDD)V";

// public double getWidth()

static const char *GETWIDTH_STR = "getWidth";

static const char *GETWIDTH_SIG = "()D";

// public double getHeight()

static const char *GETHEIGHT_STR = "getHeight";

static const char *GETHEIGHT_SIG = "()D";

// public double getImageableX()

static const char *GETIMG_X_STR = "getImageableX";

static const char *GETIMG_X_SIG = "()D";

// public double getImageableY()

static const char *GETIMG_Y_STR = "getImageableY";

static const char *GETIMG_Y_SIG = "()D";

// public double getImageableWidth()

static const char *GETIMG_W_STR = "getImageableWidth";

static const char *GETIMG_W_SIG = "()D";

// public double getImageableHeight()

static const char *GETIMG_H_STR = "getImageableHeight";

static const char *GETIMG_H_SIG = "()D";

/* Multiply a Window's MM_HIENGLISH value

 * (1000th of an inch) by this number to

 * get a value in 72nds of an inch.

 */

static const double HIENGLISH_TO_POINTS = (72.0 / 1000.0);

/* Multiply a Window's MM_HIMETRIC value

 * (100ths of a millimeter) by this

 * number to get a value in 72nds of an inch.

 */

static const double HIMETRIC_TO_POINTS = (72.0 / 2540.0);

/* Multiply a Window's MM_LOMETRIC value

 * (10ths of a millimeter) by this

 * number to get a value in 72nds of an inch.

 */

static const double LOMETRIC_TO_POINTS = (72.0 / 254.0);

/* Multiply a measurement in 1/72's of an inch by this

 * value to convert it to Window's MM_HIENGLISH

 * (1000th of an inch) units.

 */

static const double POINTS_TO_HIENGLISH = (1000.0 / 72.0);

/* Multiply a measurement in 1/72's of an inch by this

 * value to convert it to Window's MM_HIMETRIC

 * (100th of an millimeter) units.

 */

static const double POINTS_TO_HIMETRIC = (2540.0 / 72.0);

/* Multiply a measurement in 1/72's of an inch by this

 * value to convert it to Window's MM_LOMETRIC

 * (10th of an millimeter) units.

 */

static const double POINTS_TO_LOMETRIC = (254.0 / 72.0);

jfieldID AwtPrintDialog::pageID;

/*** Private Macros ***/

/* A Page Setup paint hook passes a word describing the

   orientation and type of page being displayed in the

   dialog. These macros break the word down into meaningful

   values.

*/

#define PRINTER_TYPE_MASK   (0x0003)

#define PORTRAIT_MASK       (0x0004)

#define ENVELOPE_MASK       (0x0008)

#define IS_ENVELOPE(param)  (((param) & ENVELOPE_MASK) != 0)

#define IS_PORTRAIT(param)  (((param) & PORTRAIT_MASK) != 0)

/*      If the Pagable does not know the number of pages in the document,

        then we limit the print dialog to this number of pages.

*/

#define MAX_UNKNOWN_PAGES 9999

/* When making a font that is already at least bold,

 * bolder then we increase the LOGFONT lfWeight field

 * by this amount.

 */

#define EMBOLDEN_WEIGHT   (100)

/* The lfWeight field of a GDI LOGFONT structure should not

 * exceed this value.

 */

#define MAX_FONT_WEIGHT   (1000)

/*** Private Variable Types ***/

typedef struct {

    jdouble x;

    jdouble y;

    jdouble width;

    jdouble height;

} RectDouble;

/*** Private Prototypes ***/

static UINT CALLBACK pageDlgHook(HWND hDlg, UINT msg,

                                 WPARAM wParam, LPARAM lParam);

static void initPrinter(JNIEnv *env, jobject self);

static HDC getDefaultPrinterDC(JNIEnv *env, jobject printerJob);

static void pageFormatToSetup(JNIEnv *env, jobject job, jobject page,

                              PAGESETUPDLG *setup, HDC hDC);

static WORD getOrientationFromDevMode2(HGLOBAL hDevMode);

static WORD getOrientationFromDevMode(JNIEnv *env, jobject self);

static void setOrientationInDevMode(HGLOBAL hDevMode, jboolean isPortrait);

static void doPrintBand(JNIEnv *env, jboolean browserPrinting,

                        HDC printDC, jbyteArray imageArray,

                        jint x, jint y, jint width, jint height);

static int bitsToDevice(HDC printDC, jbyte *image, long destX, long destY,

                        long width, long height);

static void retrievePaperInfo(const PAGESETUPDLG *setup, POINT *paperSize,

                              RECT *margins, jint *orientation,

                              HDC hdc);

static jint getCopies(JNIEnv *env, jobject printerJob);

static jobject getPaper(JNIEnv *env, jobject page);

static void setPaper(JNIEnv *env, jobject page, jobject paper);

static jint getPageFormatOrientation(JNIEnv *env, jobject page);

static void setPageFormatOrientation(JNIEnv *env, jobject page, jint orient);

static void getPaperValues(JNIEnv *env, jobject paper, RectDouble *paperSize,

                          RectDouble *margins, BOOL widthAsMargin=TRUE);

static void setPaperValues(JNIEnv *env, jobject paper, const POINT *paperSize,

                            const RECT *margins, int units);

static long convertFromPoints(double value, int units);

static double convertToPoints(long value, int units);

void setCapabilities(JNIEnv *env, jobject self, HDC printDC);

static inline WORD getPrintPaperSize(JNIEnv *env, jobject self);

static inline void setPrintPaperSize(JNIEnv *env, jobject self, WORD sz);

static jint getIntField(JNIEnv *env, jobject self, const char *fieldName);

static jlong getLongField(JNIEnv *env, jobject self, const char *fieldName);

static void setIntField(JNIEnv *env, jobject self,

                            const char *fieldName, jint value);

static void setLongField(JNIEnv *env, jobject self,

                            const char *fieldName, jlong value);

static jfieldID getIdOfIntField(JNIEnv *env, jobject self,

                            const char *fieldName);

static jfieldID getIdOfLongField(JNIEnv *env, jobject self,

                            const char *fieldName);

static void setBooleanField(JNIEnv *env, jobject self,

                            const char *fieldName, jboolean value);

static jbyte *findNonWhite(jbyte *image, long sy, long width, long height,

                           long scanLineStride, long *numLinesP);

static jbyte *findWhite(jbyte *image, long sy, long width, long height,

                           long scanLineStride, long *numLines);

static void dumpDevMode(HGLOBAL hDevMode);

static void dumpPrinterCaps(HANDLE hDevNames);

static void throwPrinterException(JNIEnv *env, DWORD err);

static void matchPaperSize(HDC printDC, HGLOBAL hDevMode, HGLOBAL hDevNames,

                           double origWid, double origHgt,

                           double* newHgt, double *newWid,

                           WORD* paperSize);

/***********************************************************************/

static jboolean jFontToWFontW(JNIEnv *env, HDC printDC, jstring fontName,

                        jfloat fontSize, jboolean isBold, jboolean isItalic,

                        jint rotation, jfloat awScale);

static jboolean jFontToWFontA(JNIEnv *env, HDC printDC, jstring fontName,

                        jfloat fontSize, jboolean isBold, jboolean isItalic,

                        jint rotation, jfloat awScale);

static int CALLBACK fontEnumProcW(ENUMLOGFONTEXW  *lpelfe,

                                 NEWTEXTMETRICEX *lpntme,

                                 int FontType,

                                 LPARAM lParam);

static int CALLBACK fontEnumProcA(ENUMLOGFONTEXA  *logfont,

                                  NEWTEXTMETRICEX  *lpntme,

                                  int FontType,

                                  LPARAM lParam);

static int embolden(int currentWeight);

static BOOL getPrintableArea(HDC pdc, HANDLE hDevMode, RectDouble *margin);

/************************************************************************

 * WPageDialog native methods

 */

JNIEXPORT void JNICALL

Java_sun_awt_windows_WPageDialog_initIDs(JNIEnv *env, jclass cls)

{

    TRY;

    AwtPrintDialog::pageID =

        env->GetFieldID(cls, "page", "Ljava/awt/print/PageFormat;");

    DASSERT(AwtPrintDialog::pageID != NULL);

    CATCH_BAD_ALLOC;

}

/************************************************************************

 * WPageDialogPeer native methods

 */

/*

 * Class:     sun_awt_windows_WPageDialogPeer

 * Method:    show

 * Signature: ()Z

 *

 */

JNIEXPORT jboolean JNICALL

Java_sun_awt_windows_WPageDialogPeer__1show(JNIEnv *env, jobject peer)

{

    TRY;

    // as peer object is used later on another thread, create global ref here

    jobject peerGlobalRef = env->NewGlobalRef(peer);

    DASSERT(peerGlobalRef != NULL);

    jobject target = env->GetObjectField(peerGlobalRef, AwtObject::targetID);

    jobject parent = env->GetObjectField(peerGlobalRef, AwtPrintDialog::parentID);

    jobject page = env->GetObjectField(target, AwtPrintDialog::pageID);

    DASSERT(page != NULL);

    jobject self = env->GetObjectField(target, AwtPrintDialog::controlID);

    DASSERT(self != NULL);

    AwtComponent *awtParent = (parent != NULL) ? (AwtComponent *)JNI_GET_PDATA(parent) : NULL;

    HWND hwndOwner = awtParent ? awtParent->GetHWnd() : NULL;

    jboolean doIt = JNI_FALSE; // Assume the user will cancel the dialog.

    PAGESETUPDLG setup;

    memset(&setup, 0, sizeof(setup));

    setup.lStructSize = sizeof(setup);

    /*

      Fix for 6488834.

      To disable Win32 native parent modality we have to set

      hwndOwner field to either NULL or some hidden window. For

      parentless dialogs we use NULL to show them in the taskbar,

      and for all other dialogs AwtToolkit's HWND is used.

    */

    if (awtParent != NULL)

    {

        setup.hwndOwner = AwtToolkit::GetInstance().GetHWnd();

    }

    else

    {

        setup.hwndOwner = NULL;

    }

    setup.hDevMode = NULL;

    setup.hDevNames = NULL;

    setup.Flags = PSD_RETURNDEFAULT | PSD_DEFAULTMINMARGINS;

    // setup.ptPaperSize =

    // setup.rtMinMargin =

    // setup.rtMargin =

    setup.hInstance = NULL;

    setup.lCustData = (LPARAM)peerGlobalRef;

    setup.lpfnPageSetupHook = reinterpret_cast<LPPAGESETUPHOOK>(pageDlgHook);

    setup.lpfnPagePaintHook = NULL;

    setup.lpPageSetupTemplateName = NULL;

    setup.hPageSetupTemplate = NULL;

    /* Because the return default flag is set, this first call

     * will not display the dialog but will return default values, inc

     * including hDevMode, hDevName, ptPaperSize, and rtMargin values.

     * We can use the devmode to set the orientation of the page

     * and the size of the page.

     * The units used by the user is also needed.

     */

    if (AwtPrintControl::getPrintHDMode(env, self) == NULL ||

        AwtPrintControl::getPrintHDName(env,self) == NULL) {

        (void)::PageSetupDlg(&setup);

        /* check if hDevMode and hDevNames are set.

         * If both are null, then there is no default printer.

         */

        if ((setup.hDevMode == NULL) && (setup.hDevNames == NULL)) {

            return JNI_FALSE;

        }

    } else {

        int measure = PSD_INTHOUSANDTHSOFINCHES;

        int sz = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_IMEASURE, NULL, 0);

        if (sz > 0) {

          LPTSTR str = (LPTSTR)safe_Malloc(sizeof(TCHAR) * sz);

          if (str != NULL) {

            sz = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_IMEASURE, str, sz);

            if (sz > 0) {

              if (_tcscmp(TEXT("0"), str) == 0) {

                measure = PSD_INHUNDREDTHSOFMILLIMETERS;

              }

            }

            free((LPTSTR)str);

          }

        }

        setup.Flags |= measure;

        setup.hDevMode = AwtPrintControl::getPrintHDMode(env, self);

        setup.hDevNames = AwtPrintControl::getPrintHDName(env, self);

    }

    /* Move page size and orientation from the PageFormat object

     * into the Windows setup structure so that the format can

     * be displayed in the dialog.

     */

    pageFormatToSetup(env, self, page, &setup,

                      AwtPrintControl::getPrintDC(env, self));

    setup.lpfnPageSetupHook = reinterpret_cast<LPPAGESETUPHOOK>(pageDlgHook);

    setup.Flags = PSD_ENABLEPAGESETUPHOOK | PSD_MARGINS;

    AwtDialog::CheckInstallModalHook();

    BOOL ret = ::PageSetupDlg(&setup);

    if (ret) {

        jobject paper = getPaper(env, page);

        int units = setup.Flags & PSD_INTHOUSANDTHSOFINCHES ?

                                                MM_HIENGLISH :

                                                MM_HIMETRIC;

        POINT paperSize;

        RECT margins;

        jint orientation;

        /* The printer may have been changed, and we track that change,

         * but then need to get a new DC for the current printer so that

         * we validate the paper size correctly

         */

        if (setup.hDevNames != NULL) {

            DEVNAMES* names = (DEVNAMES*)::GlobalLock(setup.hDevNames);

            if (names != NULL) {

                LPTSTR printer = (LPTSTR)names+names->wDeviceOffset;

                SAVE_CONTROLWORD

                HDC newDC = ::CreateDC(TEXT("WINSPOOL"), printer, NULL, NULL);

                RESTORE_CONTROLWORD

                if (newDC != NULL) {

                    HDC oldDC = AwtPrintControl::getPrintDC(env, self);

                    if (oldDC != NULL) {

                         ::DeleteDC(oldDC);

                    }

                }

                AwtPrintControl::setPrintDC(env, self, newDC);

            }

            ::GlobalUnlock(setup.hDevNames);

        }

        /* Get the Windows paper and margins description.

        */

        retrievePaperInfo(&setup, &paperSize, &margins, &orientation,

                          AwtPrintControl::getPrintDC(env, self));

        /* Convert the Windows' paper and margins description

         * and place them into a Paper instance.

         */

        setPaperValues(env, paper, &paperSize, &margins, units);

        /* Put the updated Paper instance and the orientation into

         * the PageFormat.

         */

        setPaper(env, page, paper);

        setPageFormatOrientation(env, page, orientation);

        if (setup.hDevMode != NULL) {

            DEVMODE *devmode = (DEVMODE *)::GlobalLock(setup.hDevMode);

            if (devmode != NULL) {

                if (devmode->dmFields & DM_PAPERSIZE) {

                    setPrintPaperSize(env, self, devmode->dmPaperSize);

                }

            }

            ::GlobalUnlock(setup.hDevMode);

        }

        doIt = JNI_TRUE;

    }

    DASSERT(env->GetLongField(peer, AwtComponent::hwndID) == 0L);