teraterm/teraterm/clipboar.c

/*
 * Copyright (C) 1994-1998 T. Teranishi
 * (C) 2006-2020 TeraTerm Project
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

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

#include "ttwinman.h"
#include "ttcommon.h"
#include "ttlib.h"
#include "dlglib.h"
#include "codeconv.h"

#include "clipboar.h"
#include "tt_res.h"
#include "fileread.h"
#include "unicode_test.h"
#include "sendmem.h"
#include "clipboarddlg.h"

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

// for clipboard paste
static HGLOBAL CBMemHandle = NULL;
static PCHAR CBMemPtr = NULL;
static LONG CBMemPtr2 = 0;
static BYTE CBByte;
static BOOL CBRetrySend;
static BOOL CBRetryEcho;
static BOOL CBSendCR;
static BOOL CBEchoOnly;
static BOOL CBInsertDelay = FALSE;

static const wchar_t BracketStartW[] = L"\033[200~";
static const wchar_t BracketEndW[] = L"\033[201~";

static void CBEcho(void);
#if !UNICODE_INTERNAL_BUFF
static INT_PTR CALLBACK OnClipboardDlgProc(HWND hDlgWnd, UINT msg, WPARAM wp, LPARAM lp);
#endif

#if !UNICODE_INTERNAL_BUFF
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;
        int WideCharLength;

        if (CBCopyHandle==NULL) {
                return;
        }

        WideCharLength = MultiByteToWideChar(CP_ACP, 0, CBCopyPtr, -1, NULL, 0);
        CBCopyWideHandle = GlobalAlloc(GMEM_MOVEABLE, sizeof(WCHAR) * WideCharLength);
        if (CBCopyWideHandle) {
                CBCopyWidePtr = (LPWSTR)GlobalLock(CBCopyWideHandle);
                MultiByteToWideChar(CP_ACP, 0, CBCopyPtr, -1, CBCopyWidePtr, WideCharLength);
                GlobalUnlock(CBCopyWideHandle);
        }

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

        GlobalUnlock(CBCopyHandle);
        CBCopyPtr = NULL;

        if (OpenClipboard(HVTWin)) {
                EmptyClipboard();
                if (! Empty) {
                        SetClipboardData(CF_TEXT, CBCopyHandle);
                        if (CBCopyWidePtr) {
                                SetClipboardData(CF_UNICODETEXT, CBCopyWideHandle);
                                CBCopyWidePtr = NULL;
                        }
                }
                CloseClipboard();
        }
        CBCopyHandle = NULL;
        CBCopyWideHandle = NULL;
}
#endif

/**
 * ���������M
 * ���������������g�p����������
 *  - DDE(TTL)
 *      - �u���[�h�L���X�g
 */
void CBStartSend(PCHAR DataPtr, int DataSize, BOOL EchoOnly)
{
        if (! cv.Ready) {
                return;
        }
        if (TalkStatus!=IdTalkKeyb) {
                return;
        }

        CBEchoOnly = EchoOnly;

        if (CBMemHandle) {
                GlobalFree(CBMemHandle);
        }
        CBMemHandle = NULL;
        CBMemPtr = NULL;
        CBMemPtr2 = 0;

        CBInsertDelay = FALSE;

        CBRetrySend = FALSE;
        CBRetryEcho = FALSE;
        CBSendCR = FALSE;

        if ((CBMemHandle = GlobalAlloc(GHND, DataSize+1)) != NULL) {
                if ((CBMemPtr = GlobalLock(CBMemHandle)) != NULL) {
                        memcpy(CBMemPtr, DataPtr, DataSize);
                        // WM_COPYDATA ���������������f�[�^�� NUL Terminate ���������������� NUL ���t������
                        CBMemPtr[DataSize] = 0;
                        GlobalUnlock(CBMemHandle);
                        CBMemPtr=NULL;
                        TalkStatus=IdTalkCB;
                }
        }
        if (TalkStatus != IdTalkCB) {
                CBEndPaste();
        }
}

#if !UNICODE_INTERNAL_BUFF
// �N���b�v�{�[�h�o�b�t�@������������ CR / LF ����������������
static BOOL TrimTrailingNL(BOOL AddCR, BOOL Bracketed)
{
        PCHAR tail;
        if (ts.PasteFlag & CPF_TRIM_TRAILING_NL) {
                for (tail = CBMemPtr+strlen(CBMemPtr)-1; tail >= CBMemPtr; tail--) {
                        if (*tail != '\r' && *tail != '\n') {
                                break;
                        }
                        *tail = '\0';
                }
        }

        return TRUE;
}
#endif

static void TrimTrailingNLW(wchar_t *src)
{
        wchar_t *tail = src + wcslen(src) - 1;
        while(tail >= src) {
                if (*tail != L'\r' && *tail != L'\n') {
                        break;
                }
                *tail = L'\0';
                tail--;
        }
}

// ���s�� CR+LF �����K������
static BOOL NormalizeLineBreak(BOOL AddCR, BOOL Bracketed) {
        char *p, *p2;
        unsigned int len, need_len, alloc_len;
        HGLOBAL TmpHandle;

        p = CBMemPtr;

        // �\���t���f�[�^������(len)�A���������K�������f�[�^������(need_len)���J�E���g
        for (len=0, need_len=0, p=CBMemPtr; *p != '\0'; p++, len++, need_len++) {
                if (*p == CR) {
                        need_len++;
                        if (*(p+1) == LF) {
                                len++;
                                p++;
                        }
                }
                else if (*p == LF) {
                        need_len++;
                }
        }

        // ���K�������f�[�^�������������� => ���K�����K�v����
        if (need_len == len) {
                return TRUE;
        }

        // AddCR / Bracketed ���������������o�b�t�@���v�Z��������
        // ������������������������������������
        alloc_len = need_len + 1;
        if (AddCR) {
                alloc_len++;
        }
        if (Bracketed) {
                // ������
                alloc_len += 12;
        }

        // �o�b�t�@�T�C�Y�����K�������K�v�������l�����������������o�b�t�@���m��������
        if (GlobalSize(CBMemHandle) < alloc_len) {
                GlobalUnlock(CBMemHandle);
                CBMemPtr = NULL;
                if ((TmpHandle = GlobalReAlloc(CBMemHandle, alloc_len, 0)) == NULL) {
                        // �������������������s
                        CBMemPtr = GlobalLock(CBMemHandle);

                        // �������������K���������\���t������������
                        return TRUE;
                }
                CBMemHandle = TmpHandle;
                CBMemPtr = GlobalLock(CBMemHandle);
        }

        p = CBMemPtr + len - 1;
        p2 = CBMemPtr + need_len;
        *p2-- = '\0';

        while (len > 0 && p < p2) {
                if (*p == LF) {
                        *p2-- = *p--;
                        if (--len == 0) {
                                *p2 = CR;
                                break;
                        }
                        if (*p != CR) {
                                *p2-- = CR;
                                if (p2 <= p) {
                                        break;
                                }
                                else {
                                        continue;
                                }
                        }
                }
                else if (*p == CR) {
                        *p2-- = LF;
                        if (p == p2)
                                break;
                }
                *p2-- = *p--;
                len--;
        }

        return TRUE;
}

static wchar_t *NormalizeLineBreakW(const wchar_t *src_)
{
        const wchar_t *src = src_;
        wchar_t *dest_top;
        wchar_t *dest;
        size_t len, need_len, alloc_len;

        // �\���t���f�[�^������(len)�A���������K�������f�[�^������(need_len)���J�E���g
        for (len=0, need_len=0, src=src_; *src != '\0'; src++, len++, need_len++) {
                if (*src == CR) {
                        need_len++;
                        if (*(src+1) == LF) {
                                len++;
                                src++;
                        }
                }
                else if (*src == LF) {
                        need_len++;
                }
        }

        // ���K�������f�[�^�������������� => ���K�����K�v����
        if (need_len == len) {
                dest = _wcsdup(src_);
                return dest;
        }
        alloc_len = need_len + 1;

        dest_top = (wchar_t *)malloc(sizeof(wchar_t) * alloc_len);

        src = src_ + len - 1;
        dest = dest_top + need_len;
        *dest-- = '\0';
        len = need_len;

        while (len > 0 && dest_top <= dest) {
                if (*src == LF) {
                        *dest-- = *src--;
                        if (--len == 0) {
                                *dest = CR;
                                break;
                        }
                        if (*src != CR) {
                                *dest-- = CR;
                                if (dest <= dest_top) {
                                        break;
                                }
                                else {
                                        continue;
                                }
                        }
                }
                else if (*src == CR) {
                        *dest-- = LF;
                        if (src == dest)
                                break;
                }
                *dest-- = *src--;
                len--;
        }

        return dest_top;
}

// �t�@�C�������`���������������Atext���������������������B
static BOOL search_dict(char *filename, char *text)
{
        BOOL ret = FALSE;
        FILE *fp = NULL;
        char buf[256];
        size_t len;

        if (filename == NULL || filename[0] == '\0')
                return FALSE;

        if ((fp = fopen(filename, "r")) == NULL)
                return FALSE;

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

        fclose(fp);

        return (ret);
}

/**
 * �t�@�C�������`���������������Atext���������������������B
 * ���������� TRUE������
 */
static BOOL search_dictW(char *filename, const wchar_t *text)
{
        BOOL result = FALSE;
        const wchar_t *buf_top = LoadFileWA(filename, NULL);
        const wchar_t *buf = buf_top;
        if (buf == NULL) {
                return FALSE;
        }

        for(;;) {
                const wchar_t *line_end;
                size_t len;
                wchar_t *search_str;
                if (*buf == 0) {
                        break;
                }
                if (*buf == '\r' || *buf == '\n') {
                        buf++;
                        continue;
                }
                line_end = wcspbrk(buf, L"\r\n");
                if (line_end == NULL) {
                        // ���s������
                        len = wcslen(buf);
                        if (len == 0) {
                                // �I��
                                break;
                        }
                } else {
                        len = line_end - buf;
                }
                search_str = (wchar_t *)malloc(sizeof(wchar_t) * (len+1));
                if (search_str == NULL)
                        continue;
                memcpy(search_str, buf, sizeof(wchar_t) * len);
                search_str[len] = 0;
                buf += len;
                result = (wcsstr(text, search_str) != NULL);
                free(search_str);
                if (result) {
                        result = TRUE;
                        break;
                }
        }
        free((void *)buf_top);
        return result;
}

/*
 * �N���b�v�{�[�h�����e���m�F���A�\���t�����s�����m�F�_�C�A���O���o���B
 *
 * �����l:
 *   TRUE  -> ���������A�\���t�������{
 *   FALSE -> �\���t�����~
 */
#if !UNICODE_INTERNAL_BUFF
static BOOL CheckClipboardContent(HWND HWin, BOOL AddCR, BOOL Bracketed)
{
        INT_PTR ret = IDOK;
        BOOL confirm = FALSE;

        if ((ts.PasteFlag & CPF_CONFIRM_CHANGEPASTE) == 0) {
                return TRUE;
        }

/*
 * ConfirmChangePasteCR ����������
 * �����������������������B
 *
 *              ChangePasteCR   !ChangePasteCR
 *              AddCR   !AddCR  AddCR   !AddCR
 * ���s����     o       o       x(2)    o
 * ���s����     o(1)    x       x       x
 *
 * ChangePasteCR �� AddCR �������m�F���s����(1���m�F����)���������������A
 * !ChangePasteCR �������l�������AAddCR ���������� CR ����������������
 * �m�F���s������������ 2 �����������m�F���s�p���������v�\�������������B
 * 2 ����������������������?
 */

        if (AddCR) {
                if (ts.PasteFlag & CPF_CONFIRM_CHANGEPASTE_CR) {
                        confirm = TRUE;
                }
        }
        else {
                size_t pos = strcspn(CBMemPtr, "\r\n");  // ���s����������������
                if (CBMemPtr[pos] != '\0') {
                        confirm = TRUE;
                }
        }

        // �������T�[�`����
        if (!confirm && search_dict(ts.ConfirmChangePasteStringFile, CBMemPtr)) {
                confirm = TRUE;
        }

        if (confirm) {
                ret = TTDialogBox(hInst, MAKEINTRESOURCE(IDD_CLIPBOARD_DIALOG),
                                                  HWin, OnClipboardDlgProc);
                /*
                 * ���O���_�C�A���O�����e���N���b�v�{�[�h�����������������������A�K�v?
                 */
        }

        if (ret == IDOK) {
                return TRUE;
        }
        else {
                return FALSE;
        }
}
#endif

/*
 * �N���b�v�{�[�h�����e���m�F���A�\���t�����s�����m�F�_�C�A���O���o���B
 *
 * �����l:
 *   TRUE  -> ���������A�\���t�������{
 *   FALSE -> �\���t�����~
 */
static BOOL CheckClipboardContentW(HWND HWin, const wchar_t *str_w, BOOL AddCR, wchar_t **out_str_w)
{
        INT_PTR ret;
        BOOL confirm = FALSE;

        *out_str_w = NULL;
        if ((ts.PasteFlag & CPF_CONFIRM_CHANGEPASTE) == 0) {
                return TRUE;
        }

        if (AddCR) {
                if (ts.PasteFlag & CPF_CONFIRM_CHANGEPASTE_CR) {
                        confirm = TRUE;
                }
        }
        else {
                size_t pos = wcscspn(str_w, L"\r\n");  // ���s����������������
                if (str_w[pos] != '\0') {
                        confirm = TRUE;
                }
        }

        // �������T�[�`����
        if (!confirm && search_dictW(ts.ConfirmChangePasteStringFile, str_w)) {
                confirm = TRUE;
        }

        ret = IDOK;
        if (confirm) {
                clipboarddlgdata dlg_data;
                dlg_data.strW_ptr = str_w;
                dlg_data.UILanguageFile = ts.UILanguageFile;
                ret = clipboarddlg(hInst, HWin, &dlg_data);
                *out_str_w = dlg_data.strW_edited_ptr;
        }

        if (ret == IDOK) {
                return TRUE;
        }
        else {
                return FALSE;
        }
}

#if !UNICODE_INTERNAL_BUFF
void CBStartPaste(HWND HWin, BOOL AddCR, BOOL Bracketed)
{
        UINT Cf;
        PCHAR TmpPtr;
        LPWSTR TmpPtrW;
        HGLOBAL TmpHandle;
        size_t StrLen = 0, BuffLen = 0;

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

        if (IsClipboardFormatAvailable(CF_UNICODETEXT)) {
                Cf = CF_UNICODETEXT;
        }
        else if (IsClipboardFormatAvailable(CF_TEXT)) {
                Cf = CF_TEXT;
        }
        else if (IsClipboardFormatAvailable(CF_OEMTEXT)) {
                Cf = CF_OEMTEXT;
        }
        else {
                return;
        }

        CBEchoOnly = FALSE;

        if (CBMemHandle) {
                GlobalFree(CBMemHandle);
        }
        CBMemHandle = NULL;
        CBMemPtr = NULL;
        CBMemPtr2 = 0;

        if (ts.PasteDelayPerLine > 0) {
                CBInsertDelay = TRUE;
        }
        else {
                CBInsertDelay = FALSE;
        }

        CBRetrySend = FALSE;
        CBRetryEcho = FALSE;
        CBSendCR = FALSE;

        if (OpenClipboard(HWin)) {
                if ((TmpHandle = GetClipboardData(Cf)) != NULL) {
                        if (Cf == CF_UNICODETEXT) {
                                TmpPtrW = (LPWSTR)GlobalLock(TmpHandle);
                                BuffLen = WideCharToMultiByte(CP_ACP, 0, TmpPtrW, -1, 0, 0, NULL, NULL);
                        }
                        else {
                                TmpPtr = (PCHAR)GlobalLock(TmpHandle);
                                BuffLen = strlen(TmpPtr) + 1;
                        }

                        if (Bracketed) {
                                BuffLen += BracketStartLen + BracketEndLen;
                        }

                        if (AddCR) {
                                BuffLen++;
                        }

                        if ((CBMemHandle = GlobalAlloc(GHND, BuffLen)) != NULL) {
                                if ((CBMemPtr = GlobalLock(CBMemHandle)) != NULL) {
                                        if (Cf == CF_UNICODETEXT) {
                                                WideCharToMultiByte(CP_ACP, 0, TmpPtrW, -1, CBMemPtr, (int)BuffLen, NULL, NULL);
                                        }
                                        else {
                                                strncpy_s(CBMemPtr, BuffLen, TmpPtr, _TRUNCATE);
                                        }

                                        TalkStatus = IdTalkCB;
                                }
                        }
                        GlobalUnlock(TmpHandle);
                }
                CloseClipboard();
        }

        // �\���t�����������������o���������� IdTalkCB ������

        if (TalkStatus != IdTalkCB) {
                // �������s�����������������\���t�������f����
                CBEndPaste();
                return;
        }

        // �\���t���O���N���b�v�{�[�h�����e���m�F/���H�������������������s��

        if (!TrimTrailingNL(AddCR, Bracketed)) {
                CBEndPaste();
                return;
        }

        if (!NormalizeLineBreak(AddCR, Bracketed)) {
                CBEndPaste();
                return;
        }

        if (!CheckClipboardContent(HWin, AddCR, Bracketed)) {
                CBEndPaste();
                return;
        }

        // AddCR / Bracket �p�����������������m�F�A�������������m��
        StrLen = strlen(CBMemPtr);
        BuffLen = StrLen + 1; // strlen + NUL
        if (AddCR) {
                BuffLen++;
        }
        if (Bracketed) {
                BuffLen += BracketStartLen + BracketEndLen;
        }

        if (GlobalSize(CBMemHandle) < BuffLen) {
                GlobalUnlock(CBMemHandle);
                CBMemPtr = NULL;
                if ((TmpHandle = GlobalReAlloc(CBMemHandle, BuffLen, 0)) == NULL) {
                        /*
                         * �s�������m�����s�������� CR/Bracket �������\���t�����s���������A
                         * ���������\���t�����������~����(CBEndPaste()������)�������B
                         */
                        // CBEndPaste();
                        return;
                }
                CBMemHandle = TmpHandle;
                CBMemPtr = GlobalLock(CBMemHandle);
        }

        if (AddCR) {
                CBMemPtr[StrLen++] = '\r';
                CBMemPtr[StrLen++] = 0;
        }

        if (Bracketed) {
                BuffLen = GlobalSize(CBMemHandle);
                memmove_s(CBMemPtr+BracketStartLen, BuffLen-BracketStartLen, CBMemPtr, StrLen);
                memcpy_s(CBMemPtr, BuffLen, BracketStart, BracketStartLen);
                strncat_s(CBMemPtr, BuffLen, BracketEnd, _TRUNCATE);
        }

        GlobalUnlock(CBMemHandle);
        CBMemPtr = NULL;
}
#endif

#if UNICODE_INTERNAL_BUFF
/**
 *      �N���b�v�{�[�h�p�e�L�X�g���M����
 *
 *      @param  str_w   �����������|�C���^
 *                                      malloc()�������o�b�t�@�A���M��������������free()������
 *      @param  str_len ������(wchar_t�P��)
 *                                      0 �������� L'\0' ����
 */
static void CBSendStart(wchar_t *str_w, size_t str_len)
{
        SendMem *sm;
        if (str_len == 0) {
                str_len = wcslen(str_w);
        }
        sm = SendMemTextW(str_w, str_len);
        if (sm == NULL)
                return;
        if (ts.PasteDelayPerLine == 0) {
                SendMemInitDelay(sm, SENDMEM_DELAYTYPE_NO_DELAY, 0, 0);
        }
        else {
                SendMemInitDelay(sm, SENDMEM_DELAYTYPE_PER_LINE, ts.PasteDelayPerLine, 0);
        }
#if 0
        SendMemInitDialog(sm, hInst, HVTWin, ts.UILanguageFile);
        SendMemInitDialogCaption(sm, L"from clipboard");
        SendMemInitDialogFilename(sm, L"Clipboard");
#endif
        SendMemStart(sm);
}
#endif

#if UNICODE_INTERNAL_BUFF
void CBStartPaste(HWND HWin, BOOL AddCR, BOOL Bracketed)
{
//      unsigned int StrLen = 0;
        wchar_t *str_w;
        wchar_t *str_w_edited;

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

        CBEchoOnly = FALSE;

        str_w = GetClipboardTextW(HWin, FALSE);
        if (str_w == NULL) {
                // �N���b�v�{�[�h����������������������������
                CBEndPaste();
                return;
        }

        if (ts.PasteFlag & CPF_TRIM_TRAILING_NL) {
                // �o�b�t�@���������s������
                TrimTrailingNLW(str_w);
        }

        {
                // ���s�����K��
                wchar_t *dest = NormalizeLineBreakW(str_w);
                free(str_w);
                str_w = dest;
        }

        if (!CheckClipboardContentW(HWin, str_w, AddCR, &str_w_edited)) {
                CBEndPaste();
                return;
        }
        if (str_w_edited != NULL) {
                // �_�C�A���O�����W������
                free(str_w);
                str_w = str_w_edited;
        }

        if (AddCR) {
                size_t str_len = wcslen(str_w) + 2;
                str_w = realloc(str_w, sizeof(wchar_t) * str_len);
                str_w[str_len-2] = L'\r';
                str_w[str_len-1] = 0;
        }

        if (Bracketed) {
                const size_t BracketStartLenW = _countof(BracketStartW) - 1;
                const size_t BracketEndLenW = _countof(BracketEndW) - 1;
                size_t str_len = wcslen(str_w);
                size_t dest_len = str_len + BracketStartLenW + BracketEndLenW;
                wchar_t *dest = malloc(sizeof(wchar_t) * (dest_len+1));
                size_t i = 0;
                wmemcpy(&dest[i], BracketStartW, BracketStartLenW);
                i += BracketStartLenW;
                wmemcpy(&dest[i], str_w, str_len);
                i += str_len;
                wmemcpy(&dest[i], BracketEndW, BracketEndLenW);
                i += BracketEndLenW;
                dest[i] = 0;
                free(str_w);
                str_w = dest;
        }

        CBSendStart(str_w, 0);
}
#endif

#if !UNICODE_INTERNAL_BUFF
void CBStartPasteB64(HWND HWin, PCHAR header, PCHAR footer)
{
        HANDLE tmpHandle = NULL;
        char *tmpPtr = NULL;
        size_t len, header_len, footer_len, b64_len;
        UINT Cf;
        LPWSTR tmpPtrWide = NULL;

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

        CBEchoOnly = FALSE;

        if (CBMemHandle) {
                GlobalFree(CBMemHandle);
        }
        CBMemHandle = NULL;
        CBMemPtr = NULL;
        CBMemPtr2 = 0;

        if (ts.PasteDelayPerLine > 0) {
                CBInsertDelay = TRUE;
        }
        else {
                CBInsertDelay = FALSE;
        }

        CBRetrySend = FALSE;
        CBRetryEcho = FALSE;
        CBSendCR = FALSE;

        if (IsClipboardFormatAvailable(CF_UNICODETEXT) && OpenClipboard(HWin)) {
                Cf = CF_UNICODETEXT;
                if ((tmpHandle = GetClipboardData(CF_UNICODETEXT)) == NULL) {
                        CloseClipboard();
                }
        }
        else if (IsClipboardFormatAvailable(CF_TEXT) && OpenClipboard(HWin)) {
                Cf = CF_TEXT;
                if ((tmpHandle = GetClipboardData(CF_TEXT)) == NULL) {
                        CloseClipboard();
                }
        }
        else if (IsClipboardFormatAvailable(CF_OEMTEXT) && OpenClipboard(HWin)) {
                Cf = CF_OEMTEXT;
                if ((tmpHandle = GetClipboardData(CF_OEMTEXT)) == NULL) {
                        CloseClipboard();
                }
        }

        if (tmpHandle) {
                if (Cf == CF_UNICODETEXT) {
                        if ((tmpPtrWide = GlobalLock(tmpHandle)) != NULL) {
                                len = WideCharToMultiByte(CP_ACP, 0, tmpPtrWide, -1, 0, 0, NULL, NULL);
                                if ((tmpPtr = (char *)calloc(sizeof(char), len)) != NULL) {
                                        WideCharToMultiByte(CP_ACP, 0, tmpPtrWide, -1, tmpPtr, len, NULL, NULL);
                                }
                                // WideCharToMultiByte �������������������� \0 ����������
                                // \0 ���G���R�[�h������������������ 1 ������
                                len--;
                                GlobalUnlock(tmpHandle);
                        }
                }
                else {
                        if ((tmpPtr = GlobalLock(tmpHandle)) != NULL) {
                                len = strlen(tmpPtr);
                        }
                }

                if (tmpPtr) {
                        header_len = strlen(header);
                        footer_len = strlen(footer);

                        b64_len = (len + 2) / 3 * 4 + header_len + footer_len + 1;

                        if ((CBMemHandle = GlobalAlloc(GHND, b64_len)) != NULL) {
                                if ((CBMemPtr = GlobalLock(CBMemHandle)) != NULL) {
                                        if (header_len > 0) {
                                                strncpy_s(CBMemPtr, b64_len, header, _TRUNCATE);
                                        }
                                        b64encode(CBMemPtr + header_len, b64_len - header_len, tmpPtr, len);
                                        if (footer_len > 0) {
                                                strncat_s(CBMemPtr, b64_len, footer, _TRUNCATE);
                                        }
                                        TalkStatus=IdTalkCB;
                                        GlobalUnlock(CBMemPtr);
                                        CBMemPtr = NULL;
                                }
                        }

                        if (Cf == CF_UNICODETEXT) {
                                free(tmpPtr);
                        }
                        else {
                                GlobalUnlock(tmpHandle);
                        }
                }
                CloseClipboard();
        }

        if (TalkStatus != IdTalkCB) {
                CBEndPaste();
        }
}
#endif

#if UNICODE_INTERNAL_BUFF
void CBStartPasteB64(HWND HWin, PCHAR header, PCHAR footer)
{
        size_t mb_len, b64_len, header_len = 0, footer_len = 0;
        wchar_t *str_w = NULL;
        char *str_mb = NULL;
        char *str_b64 = NULL;

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

        CBEchoOnly = FALSE;

        str_w = GetClipboardTextW(HWin, FALSE);
        if (str_w == NULL) {
                // �N���b�v�{�[�h����������������������������
                goto error;
        }

        if (ts.Language == IdUtf8 || ts.KanjiCodeSend == IdUTF8) {
                str_mb = ToU8W(str_w);
        }
        else {
                str_mb = ToCharW(str_w);
        }

        if (str_mb == NULL) {
                goto error;
        }

        if (header != NULL) {
                header_len = strlen(header);
        }
        if (footer != NULL) {
                footer_len = strlen(footer);
        }

        mb_len = strlen(str_mb);
        b64_len = (mb_len + 2) / 3 * 4 + header_len + footer_len + 1;

        if ((str_b64 = malloc(b64_len)) == NULL) {;
                goto error;
        }

        if (header_len > 0) {
                strncpy_s(str_b64, b64_len, header, _TRUNCATE);
        }

        b64encode(str_b64 + header_len, b64_len - header_len, str_mb, mb_len);

        if (footer_len > 0) {
                strncat_s(str_b64, b64_len, footer, _TRUNCATE);
        }

        free(str_w);
        if ((str_w = ToWcharA(str_b64)) == NULL) {
                goto error;
        }

        free(str_mb);
        free(str_b64);

        // �\���t�����������������o����
        CBSendStart(str_w, 0);

        return;

error:
        free(str_w);
        free(str_mb);
        free(str_b64);
        CBEndPaste();
        return;
}
#endif

// �����������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;
        DWORD now;

        if (CBMemHandle==NULL) {
                return;
        }

        if (CBEchoOnly) {
                CBEcho();
                return;
        }

        if (CBInsertDelay) {
                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 (CBInsertDelay) {
                                lastcr = now;
                                CBSendCR = FALSE;
                                SetTimer(HVTWin, IdPasteDelayTimer, ts.PasteDelayPerLine, NULL);
                                break;
                        }
                }

                EndFlag = (CBMemPtr[CBMemPtr2]==0);
                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 {
                        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;
        }
}

static void CBEcho()
{
        if (CBMemHandle==NULL) {
                return;
        }

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

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

        do {
                if (CBSendCR && (CBMemPtr[CBMemPtr2]==0x0a)) {
                        CBMemPtr2++;
                }

                if (CBMemPtr[CBMemPtr2] == 0) {
                        CBRetryEcho = FALSE;
                        CBEndPaste();
                        return;
                }

                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
                }

                CBSendCR = (CBByte==0x0D);

        } while (CommTextEcho(&cv,(PCHAR)&CBByte,1) > 0);

        CBRetryEcho = TRUE;

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

void CBEndPaste()
{
        TalkStatus = IdTalkKeyb;

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

        CBMemHandle = NULL;
        CBMemPtr = NULL;
        CBMemPtr2 = 0;
        CBEchoOnly = FALSE;
        CBInsertDelay = FALSE;
        _CrtCheckMemory();
}

#if 0
BOOL CBSetClipboard(HWND owner, HGLOBAL hMem)
{
        char *buf;
        int wide_len;
        HGLOBAL wide_hMem;
        LPWSTR wide_buf = 0;

        if (OpenClipboard(owner) == 0)
                return FALSE;

        buf = GlobalLock(hMem);

        wide_len = MultiByteToWideChar(CP_ACP, 0, buf, -1, NULL, 0);
        wide_hMem = GlobalAlloc(GMEM_MOVEABLE, sizeof(WCHAR) * wide_len);
        if (wide_hMem) {
                wide_buf = (LPWSTR)GlobalLock(wide_hMem);
                MultiByteToWideChar(CP_ACP, 0, buf, -1, wide_buf, wide_len);
                GlobalUnlock(wide_hMem);
        }

        GlobalUnlock(hMem);

        EmptyClipboard();
        SetClipboardData(CF_TEXT, hMem);
        if (wide_buf) {
                SetClipboardData(CF_UNICODETEXT, wide_hMem);
        }
        CloseClipboard();

        return TRUE;
}
#endif

#if 0
HGLOBAL CBAllocClipboardMem(char *text)
{
        HGLOBAL hMem;
        char *buf;
        int len;

        len = strlen(text);

        hMem = GlobalAlloc(GMEM_MOVEABLE, len+1);
        if (hMem) {
                buf = GlobalLock(hMem);
                strncpy_s(buf, len+1, text, _TRUNCATE);
                GlobalUnlock(hMem);
        }

        return hMem;
}
#endif

#if !UNICODE_INTERNAL_BUFF
static INT_PTR CALLBACK OnClipboardDlgProc(HWND hDlgWnd, UINT msg, WPARAM wp, LPARAM lp)
{
        static const DlgTextInfo TextInfos[] = {
                { 0, "DLG_CLIPBOARD_TITLE" },
                { IDCANCEL, "BTN_CANCEL" },
                { IDOK, "BTN_OK" },
        };
        POINT p;
        RECT rc_dlg;
        static int ok2right, edit2ok, edit2bottom;
        RECT rc_edit, rc_ok, rc_cancel;
        // for status bar
        static HWND hStatus = NULL;
        static int init_width, init_height;

        switch (msg) {
                case WM_INITDIALOG:
                        SetDlgTexts(hDlgWnd, TextInfos, _countof(TextInfos), ts.UILanguageFile);

                        SetDlgItemTextA(hDlgWnd, IDC_EDIT, CBMemPtr);

                        if (ActiveWin == IdVT) { // VT Window
                                /*
                                 * Caret off ���� GetCaretPos() �����m���������������������A
                                 * vtdisp.c �������������������l�����v�Z����
                                 */
                                DispConvScreenToWin(CursorX, CursorY, &p.x, &p.y);
                        }
                        else if (!GetCaretPos(&p)) { // Tek Window
                                /*
                                 * Tek Window �������������l�������������|������ GetCaretPos() ���g��
                                 * GetCaretPos() ���G���[���������������O������ 0, 0 ������������
                                 */
                                p.x = 0;
                                p.y = 0;
                        }

                        // x, y �������� 0 �������e�E�B���h�E���������������������������A
                        // �������h������ x �� 1 ������
                        if (p.x == 0 && p.y == 0) {
                                p.x = 1;
                        }

                        ClientToScreen(GetParent(hDlgWnd), &p);
                        SetWindowPos(hDlgWnd, NULL, p.x, p.y,
                                     0, 0, SWP_NOSIZE | SWP_NOZORDER);
                        MoveWindowToDisplay(hDlgWnd);

                        // �_�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:
                                {
                                        unsigned len = SendMessageA(GetDlgItem(hDlgWnd, IDC_EDIT), WM_GETTEXTLENGTH, 0, 0);
                                        HGLOBAL hMem;
                                        INT_PTR result = IDCANCEL;

                                        if (CBMemHandle == NULL) {
                                                CBMemHandle = GlobalAlloc(GHND, len+1);
                                        }
                                        else if (GlobalSize(CBMemHandle) <= len) {
                                                if (CBMemPtr) {
                                                        GlobalUnlock(CBMemHandle);
                                                        CBMemPtr = NULL;
                                                }
                                                hMem = GlobalReAlloc(CBMemHandle, len+1, 0);
                                                if (hMem) {
                                                        CBMemHandle = hMem;
                                                        CBMemPtr = GlobalLock(CBMemHandle);
                                                }
                                                else {
                                                        /*
                                                         * ���������m�����������������������������������B
                                                         *
                                                         * �_�C�A���O�������������s�������������l������
                                                         * �L�����Z�������������������������A����������������
                                                         * �s���������v�����������A���������������������e��
                                                         * �\���t���������e���B
                                                         *
                                                         * ���������������S�����|���A���������J�������\���t����
                                                         * �s�������������������B
                                                         */
                                                        GlobalFree(CBMemHandle);
                                                        CBMemHandle = NULL;
                                                }
                                        }

                                        if (CBMemHandle) {
                                                if (CBMemPtr == NULL) {
                                                        CBMemPtr = GlobalLock(CBMemHandle);
                                                }
                                                GetDlgItemTextA(hDlgWnd, IDC_EDIT, CBMemPtr, GlobalSize(CBMemHandle));
                                                result = IDOK;
                                        }

                                        DestroyWindow(hStatus);
                                        TTEndDialog(hDlgWnd, result);
                                }
                                        break;

                                case IDCANCEL:
                                        DestroyWindow(hStatus);
                                        TTEndDialog(hDlgWnd, IDCANCEL);
                                        break;

                                default:
                                        return FALSE;
                        }

                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;
}
#endif