teraterm/teraterm/clipboar.c

/* Tera Term
 Copyright(C) 1994-1998 T. Teranishi
 All rights reserved. */

/* TERATERM.EXE, Clipboard routines */
#include "teraterm.h"
#include "tttypes.h"
#include "vtdisp.h"
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include <commctrl.h>

#include "ttwinman.h"
#include "ttcommon.h"

#include "clipboar.h"
#include "tt_res.h"

// for clipboard copy
static HGLOBAL CBCopyHandle = NULL;
static PCHAR CBCopyPtr = NULL;

#define CB_BRACKET_NONE  0
#define CB_BRACKET_START 1
#define CB_BRACKET_END   2
// for clipboard paste
static HGLOBAL CBMemHandle = NULL;
static PCHAR CBMemPtr = NULL;
static LONG CBMemPtr2 = 0;
static BOOL CBAddCR = FALSE;
static int CBBracketed = CB_BRACKET_NONE;
static BYTE CBByte;
static BOOL CBRetrySend;
static BOOL CBRetryEcho;
static BOOL CBSendCR;
static BOOL CBDDE;

static HFONT DlgClipboardFont;

PCHAR CBOpen(LONG MemSize)
{
        if (MemSize==0) {
                return (NULL);
        }
        if (CBCopyHandle!=NULL) {
                return (NULL);
        }
        CBCopyPtr = NULL;
        CBCopyHandle = GlobalAlloc(GMEM_MOVEABLE, MemSize);
        if (CBCopyHandle == NULL) {
                MessageBeep(0);
        }
        else {
                CBCopyPtr = GlobalLock(CBCopyHandle);
                if (CBCopyPtr == NULL) {
                        GlobalFree(CBCopyHandle);
                        CBCopyHandle = NULL;
                        MessageBeep(0);
                }
        }
        return (CBCopyPtr);
}

void CBClose()
{
        BOOL Empty;
        if (CBCopyHandle==NULL) {
                return;
        }

        Empty = FALSE;
        if (CBCopyPtr!=NULL) {
                Empty = (CBCopyPtr[0]==0);
        }

        GlobalUnlock(CBCopyHandle);
        CBCopyPtr = NULL;

        if (OpenClipboard(HVTWin)) {
                EmptyClipboard();
                if (! Empty) {
                        SetClipboardData(CF_TEXT, CBCopyHandle);
                }
                CloseClipboard();
        }
        CBCopyHandle = NULL;
}

void CBStartPaste(HWND HWin, BOOL AddCR, BOOL Bracketed,
                  int BuffSize, PCHAR DataPtr, int DataSize)
//
//  DataPtr and DataSize are used only for DDE
//        For clipboard, BuffSize should be 0
//        DataSize should be <= BuffSize
{
        UINT Cf;

        if (! cv.Ready) {
                return;
        }
        if (TalkStatus!=IdTalkKeyb) {
                return;
        }

        CBAddCR = AddCR;
        if (Bracketed) {
                CBBracketed = CB_BRACKET_START;
        }

        if (BuffSize==0) { // for clipboar
                if (IsClipboardFormatAvailable(CF_TEXT)) {
                        Cf = CF_TEXT;
                }
                else if (IsClipboardFormatAvailable(CF_OEMTEXT)) {
                        Cf = CF_OEMTEXT;
                }
                else {
                        return;
                }
        }

        CBMemHandle = NULL;
        CBMemPtr = NULL;
        CBMemPtr2 = 0;
        CBDDE = FALSE;
        if (BuffSize==0) { //clipboard
                if (OpenClipboard(HWin)) {
                        CBMemHandle = GetClipboardData(Cf);
                }
                if (CBMemHandle!=NULL) {
                        TalkStatus=IdTalkCB;
                }
        }
        else { // dde
                CBMemHandle = GlobalAlloc(GHND,BuffSize);
                if (CBMemHandle != NULL) {
                        CBDDE = TRUE;
                        CBMemPtr = GlobalLock(CBMemHandle);
                        if (CBMemPtr != NULL) {
                                memcpy(CBMemPtr,DataPtr,DataSize);
                                GlobalUnlock(CBMemHandle);
                                CBMemPtr=NULL;
                                TalkStatus=IdTalkCB;
                        }
                }
        }
        CBRetrySend = FALSE;
        CBRetryEcho = FALSE;
        CBSendCR = FALSE;
        if (TalkStatus != IdTalkCB) {
                CBEndPaste();
        }
}

// �����������N���b�v�{�[�h������DDE�f�[�^���[�������������B
//
// CBMemHandle�n���h�����O���[�o�������������A�����������I�������������A
// �����N���b�v�{�[�h������DDE�f�[�^�������������������������i�j�����������\�������j�B
// �����A�f�[�^���� null-terminate �����������������O�����������������A�������f�[�^����
// �����������B
// (2006.11.6 yutaka)
void CBSend()
{
        int c;
        BOOL EndFlag;
        static DWORD lastcr;
        static char BracketStart[] = "\033[200~";
        static char BracketEnd[] = "\033[201~";
        static int BracketPtr = 0;
        DWORD now;

        if (CBMemHandle==NULL) {
                return;
        }

        now = GetTickCount();
        if (now - lastcr < (DWORD)ts.PasteDelayPerLine) {
                return;
        }

        if (CBRetrySend) {
                CBRetryEcho = (ts.LocalEcho>0);
                c = CommTextOut(&cv,(PCHAR)&CBByte,1);
                CBRetrySend = (c==0);
                if (CBRetrySend) {
                        return;
                }
        }

        if (CBRetryEcho) {
                c = CommTextEcho(&cv,(PCHAR)&CBByte,1);
                CBRetryEcho = (c==0);
                if (CBRetryEcho) {
                        return;
                }
        }

        CBMemPtr = GlobalLock(CBMemHandle);
        if (CBMemPtr==NULL) {
                return;
        }

        do {
                if (CBSendCR && (CBMemPtr[CBMemPtr2]==0x0a)) {
                        CBMemPtr2++;
                        // added PasteDelayPerLine (2009.4.12 maya)
                        if (ts.PasteDelayPerLine > 0) {
                                lastcr = now;
                                CBSendCR = FALSE;
                                SetTimer(HVTWin, IdPasteDelayTimer, ts.PasteDelayPerLine, NULL);
                                break;
                        }
                }

                EndFlag = (CBMemPtr[CBMemPtr2]==0);
                if (CBBracketed == CB_BRACKET_START) {
                        CBByte = BracketStart[BracketPtr++];
                        if (BracketPtr >= sizeof(BracketStart) - 1) {
                                CBBracketed = CB_BRACKET_END;
                                BracketPtr = 0;
                        }
                }
                else if (! EndFlag) {
                        CBByte = CBMemPtr[CBMemPtr2];
                        CBMemPtr2++;
// Decoding characters which are encoded by MACRO
//   to support NUL character sending
//
//  [encoded character] --> [decoded character]
//         01 01        -->     00
//         01 02        -->     01
                        if (CBByte==0x01) { /* 0x01 from MACRO */
                                CBByte = CBMemPtr[CBMemPtr2];
                                CBMemPtr2++;
                                CBByte = CBByte - 1; // character just after 0x01
                        }
                }
                else if (CBAddCR) {
                        EndFlag = FALSE;
                        CBAddCR = FALSE;
                        CBByte = 0x0d;
                }
                else if (CBBracketed == CB_BRACKET_END) {
                        EndFlag = FALSE;
                        CBByte = BracketEnd[BracketPtr++];
                        if (BracketPtr >= sizeof(BracketEnd) - 1) {
                                CBBracketed = CB_BRACKET_NONE;
                                BracketPtr = 0;
                        }
                }
                else {
                        CBEndPaste();
                        return;
                }

                if (! EndFlag) {
                        c = CommTextOut(&cv,(PCHAR)&CBByte,1);
                        CBSendCR = (CBByte==0x0D);
                        CBRetrySend = (c==0);
                        if ((! CBRetrySend) &&
                            (ts.LocalEcho>0)) {
                                c = CommTextEcho(&cv,(PCHAR)&CBByte,1);
                                CBRetryEcho = (c==0);
                        }
                }
                else {
                        c=0;
                }
        }
        while (c>0);

        if (CBMemPtr!=NULL) {
                GlobalUnlock(CBMemHandle);
                CBMemPtr=NULL;
        }
}

void CBEndPaste()
{
        TalkStatus = IdTalkKeyb;

        if (CBMemHandle!=NULL) {
                if (CBMemPtr!=NULL) {
                        GlobalUnlock(CBMemHandle);
                }
                if (CBDDE) {
                        GlobalFree(CBMemHandle);
                }
        }
        if (!CBDDE) {
                CloseClipboard();
        }

        CBDDE = FALSE;
        CBMemHandle = NULL;
        CBMemPtr = NULL;
        CBMemPtr2 = 0;
        CBAddCR = FALSE;
}


static char *ClipboardPtr = NULL;
static int PasteCanceled = 0;

static LRESULT CALLBACK OnClipboardDlgProc(HWND hDlgWnd, UINT msg, WPARAM wp, LPARAM lp)
{
        LOGFONT logfont;
        HFONT font;
        char uimsg[MAX_UIMSG];
        //char *p;
        POINT p;
        RECT rc_dsk, rc_dlg;
        int dlg_height, dlg_width;
        OSVERSIONINFO osvi;
        static int ok2right, edit2ok, edit2bottom;
        RECT rc_edit, rc_ok, rc_cancel;
        // for status bar
        static HWND hStatus = NULL;
        static init_width, init_height;

        switch (msg) {
                case WM_INITDIALOG:
#if 0
                        for (p = ClipboardPtr; *p ; p++) {
                                char buf[20];
                                _snprintf_s(buf, sizeof(buf), _TRUNCATE, "%02x ", *p);
                                OutputDebugString(buf);
                        }
#endif

                        font = (HFONT)SendMessage(hDlgWnd, WM_GETFONT, 0, 0);
                        GetObject(font, sizeof(LOGFONT), &logfont);
                        if (get_lang_font("DLG_TAHOMA_FONT", hDlgWnd, &logfont, &DlgClipboardFont, ts.UILanguageFile)) {
                                SendDlgItemMessage(hDlgWnd, IDC_EDIT, WM_SETFONT, (WPARAM)DlgClipboardFont, MAKELPARAM(TRUE,0));
                                SendDlgItemMessage(hDlgWnd, IDOK, WM_SETFONT, (WPARAM)DlgClipboardFont, MAKELPARAM(TRUE,0));
                                SendDlgItemMessage(hDlgWnd, IDCANCEL, WM_SETFONT, (WPARAM)DlgClipboardFont, MAKELPARAM(TRUE,0));
                        }
                        else {
                                DlgClipboardFont = NULL;
                        }

                        GetWindowText(hDlgWnd, uimsg, sizeof(uimsg));
                        get_lang_msg("DLG_CLIPBOARD_TITLE", ts.UIMsg, sizeof(ts.UIMsg), uimsg, ts.UILanguageFile);
                        SetWindowText(hDlgWnd, ts.UIMsg);
                        GetDlgItemText(hDlgWnd, IDCANCEL, uimsg, sizeof(uimsg));
                        get_lang_msg("BTN_CANCEL", ts.UIMsg, sizeof(ts.UIMsg), uimsg, ts.UILanguageFile);
                        SetDlgItemText(hDlgWnd, IDCANCEL, ts.UIMsg);
                        GetDlgItemText(hDlgWnd, IDOK, uimsg, sizeof(uimsg));
                        get_lang_msg("BTN_OK", ts.UIMsg, sizeof(ts.UIMsg), uimsg, ts.UILanguageFile);
                        SetDlgItemText(hDlgWnd, IDOK, ts.UIMsg);

                        SendMessage(GetDlgItem(hDlgWnd, IDC_EDIT), WM_SETTEXT, 0, (LPARAM)ClipboardPtr);

                        DispConvScreenToWin(CursorX, CursorY, &p.x, &p.y);
                        ClientToScreen(HVTWin, &p);

                        // �L�����b�g���������������o���������������\���t����������
                        // �m�F�E�C���h�E�����������������\���������������������B
                        // �E�C���h�E���������o������������������ (2008.4.24 maya)
                        osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
                        GetVersionEx(&osvi);
                        if ( (osvi.dwPlatformId == VER_PLATFORM_WIN32_NT && osvi.dwMajorVersion == 4) ||
                             (osvi.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS && osvi.dwMinorVersion < 10) ) {
                                // NT4.0, 95 ���}���`���j�^API��������
                                SystemParametersInfo(SPI_GETWORKAREA, 0, &rc_dsk, 0);
                        }
                        else {
                                HMONITOR hm;
                                POINT pt;
                                MONITORINFO mi;

                                pt.x = p.x;
                                pt.y = p.y;
                                hm = MonitorFromPoint(pt, MONITOR_DEFAULTTONEAREST);

                                mi.cbSize = sizeof(MONITORINFO);
                                GetMonitorInfo(hm, &mi);
                                rc_dsk = mi.rcWork;
                        }
                        GetWindowRect(hDlgWnd, &rc_dlg);
                        dlg_height = rc_dlg.bottom-rc_dlg.top;
                        dlg_width  = rc_dlg.right-rc_dlg.left;
                        if (p.y < rc_dsk.top) {
                                p.y = rc_dsk.top;
                        }
                        else if (p.y + dlg_height > rc_dsk.bottom) {
                                p.y = rc_dsk.bottom - dlg_height;
                        }
                        if (p.x < rc_dsk.left) {
                                p.x = rc_dsk.left;
                        }
                        else if (p.x + dlg_width > rc_dsk.right) {
                                p.x = rc_dsk.right - dlg_width;
                        }

                        SetWindowPos(hDlgWnd, NULL, p.x, p.y,
                                     0, 0, SWP_NOSIZE | SWP_NOZORDER);

                        // �_�C�A���O�������T�C�Y������
                        GetWindowRect(hDlgWnd, &rc_dlg);
                        init_width = rc_dlg.right - rc_dlg.left;
                        init_height = rc_dlg.bottom - rc_dlg.top;

                        // �����T�C�Y�����K�v���l���v�Z
                        GetClientRect(hDlgWnd,                                 &rc_dlg);
                        GetWindowRect(GetDlgItem(hDlgWnd, IDC_EDIT),           &rc_edit);
                        GetWindowRect(GetDlgItem(hDlgWnd, IDOK),               &rc_ok);

                        p.x = rc_dlg.right;
                        p.y = rc_dlg.bottom;
                        ClientToScreen(hDlgWnd, &p);
                        ok2right = p.x - rc_ok.left;
                        edit2bottom = p.y - rc_edit.bottom;
                        edit2ok = rc_ok.left - rc_edit.right;

                        // �T�C�Y������
                        SetWindowPos(hDlgWnd, NULL, 0, 0,
                                     ts.PasteDialogSize.cx, ts.PasteDialogSize.cy,
                                     SWP_NOZORDER | SWP_NOMOVE);

                        // ���T�C�Y�A�C�R�����E�����\���������������A�X�e�[�^�X�o�[���t�����B
                        InitCommonControls();
                        hStatus = CreateStatusWindow(
                                WS_CHILD | WS_VISIBLE |
                                CCS_BOTTOM | SBARS_SIZEGRIP, NULL, hDlgWnd, 1);

                        return TRUE;

                case WM_COMMAND:
                        switch (LOWORD(wp)) {
                                case IDOK:
                                {
                                        int len = SendMessage(GetDlgItem(hDlgWnd, IDC_EDIT), WM_GETTEXTLENGTH, 0, 0);
                                        HGLOBAL hMem;
                                        char *buf;

                                        if (OpenClipboard(hDlgWnd) != 0) {
                                                hMem = GlobalAlloc(GMEM_MOVEABLE, len + 1);
                                                buf = GlobalLock(hMem);
                                                SendMessage(GetDlgItem(hDlgWnd, IDC_EDIT), WM_GETTEXT, len + 1, (LPARAM)buf);
                                                GlobalUnlock(hMem);

                                                EmptyClipboard();
                                                SetClipboardData(CF_TEXT, hMem);
                                                CloseClipboard();
                                                // hMem���N���b�v�{�[�h�������������������A�j�����������������B
                                        }

                                        if (DlgClipboardFont != NULL) {
                                                DeleteObject(DlgClipboardFont);
                                        }

                                        DestroyWindow(hStatus);
                                        EndDialog(hDlgWnd, IDOK);
                                }
                                        break;

                                case IDCANCEL:
                                        PasteCanceled = 1;

                                        if (DlgClipboardFont != NULL) {
                                                DeleteObject(DlgClipboardFont);
                                        }

                                        DestroyWindow(hStatus);
                                        EndDialog(hDlgWnd, IDCANCEL);
                                        break;

                                default:
                                        return FALSE;
                        }

#if 0
                case WM_CLOSE:
                        PasteCanceled = 1;
                        EndDialog(hDlgWnd, 0);
                        return TRUE;
#endif

                case WM_SIZE:
                        {
                                // ���z�u
                                POINT p;
                                int dlg_w, dlg_h;

                                GetClientRect(hDlgWnd,                                 &rc_dlg);
                                dlg_w = rc_dlg.right;
                                dlg_h = rc_dlg.bottom;

                                GetWindowRect(GetDlgItem(hDlgWnd, IDC_EDIT),           &rc_edit);
                                GetWindowRect(GetDlgItem(hDlgWnd, IDOK),               &rc_ok);
                                GetWindowRect(GetDlgItem(hDlgWnd, IDCANCEL),           &rc_cancel);

                                // OK
                                p.x = rc_ok.left;
                                p.y = rc_ok.top;
                                ScreenToClient(hDlgWnd, &p);
                                SetWindowPos(GetDlgItem(hDlgWnd, IDOK), 0,
                                             dlg_w - ok2right, p.y, 0, 0,
                                             SWP_NOSIZE | SWP_NOZORDER);

                                // CANCEL
                                p.x = rc_cancel.left;
                                p.y = rc_cancel.top;
                                ScreenToClient(hDlgWnd, &p);
                                SetWindowPos(GetDlgItem(hDlgWnd, IDCANCEL), 0,
                                             dlg_w - ok2right, p.y, 0, 0,
                                             SWP_NOSIZE | SWP_NOZORDER);

                                // EDIT
                                p.x = rc_edit.left;
                                p.y = rc_edit.top;
                                ScreenToClient(hDlgWnd, &p);
                                SetWindowPos(GetDlgItem(hDlgWnd, IDC_EDIT), 0,
                                             0, 0, dlg_w - p.x - edit2ok - ok2right, dlg_h - p.y - edit2bottom,
                                             SWP_NOMOVE | SWP_NOZORDER);

                                // �T�C�Y������
                                GetWindowRect(hDlgWnd, &rc_dlg);
                                ts.PasteDialogSize.cx = rc_dlg.right - rc_dlg.left;
                                ts.PasteDialogSize.cy = rc_dlg.bottom - rc_dlg.top;

                                // status bar
                                SendMessage(hStatus , msg , wp , lp);
                        }
                        return TRUE;

                case WM_GETMINMAXINFO:
                        {
                                // �_�C�A���O�������T�C�Y����������������������������
                                LPMINMAXINFO lpmmi;
                                lpmmi = (LPMINMAXINFO)lp;
                                lpmmi->ptMinTrackSize.x = init_width;
                                lpmmi->ptMinTrackSize.y = init_height;
                        }
                        return FALSE;

                default:
                        return FALSE;
        }
        return TRUE;
}

// �t�@�C�������`���������������Atext���������������������B
static int search_clipboard(char *filename, char *text)
{
        int ret = 0;  // no hit
        FILE *fp = NULL;
        char buf[256];
        int len;
        
        if (filename == NULL || filename[0] == '\0')
                goto error;

        fp = fopen(filename, "r");
        if (fp == NULL)
                goto error;

        // TODO: ���s��256byte�������������������l��
        while (fgets(buf, sizeof(buf), fp) != NULL) {
                len = strlen(buf);
                if (buf[len - 1] == '\n') 
                        buf[len - 1] = '\0';
                if (buf[0] == '\0')
                        continue;
                if (strstr(text, buf)) { // hit
                        ret = 1;
                        break;
                }
        }

error:
        if (fp)
                fclose(fp);

        return (ret);
}


//
// �N���b�v�{�[�h�����s�R�[�h�����������������A�m�F�_�C�A���O���\�������B
// �N���b�v�{�[�h�����X�����\�B
//
// return 0: Cancel
//        1: Paste OK
//
// (2008.2.3 yutaka)
//
int CBStartPasteConfirmChange(HWND HWin)
{
        UINT Cf;
        HANDLE hText;
        char *pText;
        int pos;
        int ret = 0;
        int confirm = 0;

        if (ts.ConfirmChangePaste == 0)
                return 1;

        if (! cv.Ready) 
                goto error;
        if (TalkStatus!=IdTalkKeyb)
                goto error;

        if (IsClipboardFormatAvailable(CF_TEXT))
                Cf = CF_TEXT;
        else if (IsClipboardFormatAvailable(CF_OEMTEXT))
                Cf = CF_OEMTEXT;
        else 
                goto error;

        if (!OpenClipboard(HWin)) 
                goto error;

        hText = GetClipboardData(Cf);

        if (hText != NULL) {
                pText = (char *)GlobalLock(hText);
                pos = strcspn(pText, "\r\n");  // ���s����������������
                if (pText[pos] != '\0') {
                        confirm = 1;

                } else {
                        // �������T�[�`����
                        if (search_clipboard(ts.ConfirmChangePasteStringFile, pText)) {
                                confirm = 1;
                        }

                }

                if (confirm) {
                        ClipboardPtr = (char *)calloc(sizeof(char), strlen(pText)+1);
                        memcpy(ClipboardPtr, pText, strlen(pText));
                        GlobalUnlock(hText);
                        CloseClipboard();
                        PasteCanceled = 0;
                        ret = DialogBox(hInst, MAKEINTRESOURCE(IDD_CLIPBOARD_DIALOG),
                                        HVTWin, (DLGPROC)OnClipboardDlgProc);
                        free(ClipboardPtr);
                        if (ret == 0 || ret == -1) {
                                ret = GetLastError();
                        }

                        if (PasteCanceled) {
                                ret = 0;
                                goto error;
                        }

                }
                else {
                        GlobalUnlock(hText);
                        CloseClipboard();
                }

                ret = 1;

        }

error:
        return (ret);
}