teraterm/teraterm/filesys.cpp

/*
 * Copyright (C) 1994-1998 T. Teranishi
 * (C) 2005- 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, file transfer routines */
#include <stdio.h>
#include <io.h>
#include <process.h>
#include <windows.h>
#include <htmlhelp.h>
#include <assert.h>

#include "teraterm.h"
#include "tttypes.h"
#include "ttftypes.h"
#include "ftdlg.h"
#include "ttwinman.h"
#include "commlib.h"
#include "ttcommon.h"
#include "ttdde.h"
#include "ttlib.h"
#include "dlglib.h"
#include "vtterm.h"
#include "helpid.h"
#include "layer_for_unicode.h"
#include "codeconv.h"

#include "filesys_log_res.h"

#include "filesys.h"

typedef struct {
  HWND HMainWin;
  HWND HWin;
  char DlgCaption[40];

  char FullName[MAX_PATH];
  int DirLen;

  HANDLE FileHandle;
  LONG FileSize, ByteCount;

  int ProgStat;

  DWORD StartTime;
} TFileVar;
typedef TFileVar *PFileVar;

#define FS_BRACKET_NONE  0
#define FS_BRACKET_START 1
#define FS_BRACKET_END   2

static PFileVar SendVar = NULL;

static BOOL FileRetrySend, FileRetryEcho, FileCRSend, FileReadEOF, BinaryMode;
static BYTE FileByte;

#define FILE_SEND_BUF_SIZE  8192
struct FileSendHandler {
        CHAR buf[FILE_SEND_BUF_SIZE];
        int pos;
        int end;
};
static struct FileSendHandler FileSendHandler;
static int FileDlgRefresh;

static int FileBracketMode = FS_BRACKET_NONE;
static int FileBracketPtr = 0;
static char BracketStartStr[] = "\033[200~";
static char BracketEndStr[] = "\033[201~";

BOOL FSend = FALSE;

static PFileTransDlg SendDlg = NULL;

static BOOL OpenFTDlg(PFileVar fv)
{
        PFileTransDlg FTDlg;

        FTDlg = new CFileTransDlg();

        fv->StartTime = 0;
        fv->ProgStat = 0;
        cv.FilePause &= ~(OpSendFile);

        if (FTDlg!=NULL)
        {
                CFileTransDlgInfo info;
                info.UILanguageFile = ts.UILanguageFile;
                info.OpId = OpSendFile;
                info.DlgCaption = ToWcharA(fv->DlgCaption);
                info.FileName = NULL;
                info.FullName = ToWcharA(fv->FullName);
                info.HideDialog = FALSE;
                info.HMainWin = HVTWin;
                FTDlg->Create(hInst, &info);
                FTDlg->RefreshNum(0, fv->FileSize, fv->ByteCount);
                free(info.DlgCaption);
                free(info.FullName);
        }

        SendDlg = FTDlg; /* File send */

        fv->StartTime = GetTickCount();

        return (FTDlg!=NULL);
}

#if 0
static void ShowFTDlg(WORD OpId)
{
        if (SendDlg != NULL) {
                SendDlg->ShowWindow(SW_SHOWNORMAL);
                SetForegroundWindow(SendDlg->GetSafeHwnd());
        }
}
#endif

static BOOL NewFileVar(PFileVar *fv)
{
        if ((*fv)==NULL)
        {
                *fv = (PFileVar)malloc(sizeof(TFileVar));
                if ((*fv)!=NULL)
                {
                        char FileDirExpanded[MAX_PATH];
                        ExpandEnvironmentStrings(ts.FileDir, FileDirExpanded, sizeof(FileDirExpanded));
                        memset(*fv, 0, sizeof(TFileVar));
                        strncpy_s((*fv)->FullName, sizeof((*fv)->FullName), FileDirExpanded, _TRUNCATE);
                        AppendSlash((*fv)->FullName,sizeof((*fv)->FullName));
                        (*fv)->DirLen = strlen((*fv)->FullName);
                        (*fv)->FileHandle = INVALID_HANDLE_VALUE;
                        (*fv)->HMainWin = HVTWin;
                }
        }

        return ((*fv)!=NULL);
}

static void FreeFileVar(PFileVar *fv)
{
        if ((*fv)!=NULL)
        {
                if ((*fv)->FileHandle != INVALID_HANDLE_VALUE) {
                        CloseHandle((*fv)->FileHandle);
                }
                free(*fv);
                *fv = NULL;
        }
}

/* �_�C�A���O���������������� */
static void CenterCommonDialog(HWND hDlg)
{
        /* hDlg���e���_�C�A���O���E�B���h�E�n���h�� */
        HWND hWndDlgRoot = GetParent(hDlg);
        CenterWindow(hWndDlgRoot, GetParent(hWndDlgRoot));
}

static HFONT DlgFoptFont;
static UINT_PTR CALLBACK TransFnHook(HWND Dialog, UINT Message, WPARAM wParam, LPARAM lParam)
{
        static const DlgTextInfo text_info[] = {
                { IDC_FOPT, "DLG_FOPT" },
                { IDC_FOPTBIN, "DLG_FOPT_BINARY" },
        };
        LPOPENFILENAME ofn;
        LPWORD pw;
        LPOFNOTIFY notify;
        LOGFONT logfont;
        HFONT font;
        const char *UILanguageFile = ts.UILanguageFile;

        switch (Message) {
        case WM_INITDIALOG:
                ofn = (LPOPENFILENAME)lParam;
                pw = (LPWORD)ofn->lCustData;
                SetWindowLongPtr(Dialog, DWLP_USER, (LONG_PTR)pw);

                font = (HFONT)SendMessage(Dialog, WM_GETFONT, 0, 0);
                GetObject(font, sizeof(LOGFONT), &logfont);
                if (get_lang_font("DLG_TAHOMA_FONT", Dialog, &logfont, &DlgFoptFont, UILanguageFile)) {
                        SendDlgItemMessage(Dialog, IDC_FOPT, WM_SETFONT, (WPARAM)DlgFoptFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(Dialog, IDC_FOPTBIN, WM_SETFONT, (WPARAM)DlgFoptFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(Dialog, IDC_FOPTAPPEND, WM_SETFONT, (WPARAM)DlgFoptFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(Dialog, IDC_PLAINTEXT, WM_SETFONT, (WPARAM)DlgFoptFont, MAKELPARAM(TRUE,0));
                        SendDlgItemMessage(Dialog, IDC_TIMESTAMP, WM_SETFONT, (WPARAM)DlgFoptFont, MAKELPARAM(TRUE,0));
                }
                else {
                        DlgFoptFont = NULL;
                }

                SetI18nDlgStrs("Tera Term", Dialog, text_info, _countof(text_info), UILanguageFile);

                SetRB(Dialog,*pw & 1,IDC_FOPTBIN,IDC_FOPTBIN);

                CenterCommonDialog(Dialog);

                return TRUE;
        case WM_COMMAND: // for old style dialog
                switch (LOWORD(wParam)) {
                case IDOK:
                        pw = (LPWORD)GetWindowLongPtr(Dialog,DWLP_USER);
                        if (pw!=NULL)
                                GetRB(Dialog,pw,IDC_FOPTBIN,IDC_FOPTBIN);
                        if (DlgFoptFont != NULL) {
                                DeleteObject(DlgFoptFont);
                        }
                        break;
                case IDCANCEL:
                        if (DlgFoptFont != NULL) {
                                DeleteObject(DlgFoptFont);
                        }
                        break;
                }
                break;
        case WM_NOTIFY: // for Explorer-style dialog
                notify = (LPOFNOTIFY)lParam;
                switch (notify->hdr.code) {
                case CDN_FILEOK:
                        pw = (LPWORD)GetWindowLongPtr(Dialog,DWLP_USER);
                        if (pw!=NULL)
                                GetRB(Dialog,pw,IDC_FOPTBIN,IDC_FOPTBIN);
                        if (DlgFoptFont != NULL) {
                                DeleteObject(DlgFoptFont);
                        }
                        break;
                }
                break;
        }
        return FALSE;
}

static BOOL _GetTransFname(PFileVar fv, PCHAR CurDir, LPLONG Option)
{
        char uimsg[MAX_UIMSG];
        char *FNFilter;
        OPENFILENAME ofn;
        WORD optw;
        wchar_t TempDir[MAXPATHLEN];
        BOOL Ok;
        char FileName[MAX_PATH];
        const char *UILanguageFile = ts.UILanguageFile;

        /* save current dir */
        _GetCurrentDirectoryW(_countof(TempDir), TempDir);

        memset(&ofn, 0, sizeof(OPENFILENAME));

        strncpy_s(fv->DlgCaption, sizeof(fv->DlgCaption),"Tera Term: ", _TRUNCATE);
        get_lang_msg("FILEDLG_TRANS_TITLE_SENDFILE", uimsg, sizeof(uimsg), TitSendFile, UILanguageFile);
        strncat_s(fv->DlgCaption, sizeof(fv->DlgCaption), uimsg, _TRUNCATE);

        FNFilter = GetCommonDialogFilterA(ts.FileSendFilter, UILanguageFile);

        ExtractFileName(fv->FullName, FileName ,sizeof(FileName));
        strncpy_s(fv->FullName, sizeof(fv->FullName), FileName, _TRUNCATE);
        ofn.lStructSize = get_OPENFILENAME_SIZE();
        ofn.hwndOwner   = fv->HMainWin;
        ofn.lpstrFilter = FNFilter;
        ofn.nFilterIndex = 1;
        ofn.lpstrFile = fv->FullName;
        ofn.nMaxFile = sizeof(fv->FullName);
        ofn.lpstrInitialDir = CurDir;

        ofn.Flags = OFN_FILEMUSTEXIST | OFN_HIDEREADONLY;
        ofn.Flags |= OFN_ENABLETEMPLATE | OFN_ENABLEHOOK | OFN_EXPLORER | OFN_ENABLESIZING;
        ofn.lpTemplateName = MAKEINTRESOURCE(IDD_FOPT);

        ofn.lpfnHook = (LPOFNHOOKPROC)(&TransFnHook);
        optw = (WORD)*Option;
        ofn.lCustData = (LPARAM)&optw;

        ofn.Flags |= OFN_SHOWHELP;

        ofn.lpstrTitle = fv->DlgCaption;

        ofn.hInstance = hInst;

        Ok = GetOpenFileName(&ofn);
        free(FNFilter);

        if (Ok) {
                *Option = (long)optw;

                fv->DirLen = ofn.nFileOffset;

                if (CurDir!=NULL) {
                        memcpy(CurDir,fv->FullName,fv->DirLen-1);
                        CurDir[fv->DirLen-1] = 0;
                }
        }
        /* restore dir */
        _SetCurrentDirectoryW(TempDir);
        return Ok;
}

static void _SetFileVar(PFileVar fv)
{
        int i;
        char uimsg[MAX_UIMSG];
        char c;
        const char *UILanguageFile = ts.UILanguageFile;

        GetFileNamePos(fv->FullName,&(fv->DirLen),&i);
        c = fv->FullName[fv->DirLen];
        if (c=='\\'||c=='/') fv->DirLen++;
        strncpy_s(fv->DlgCaption, sizeof(fv->DlgCaption),"Tera Term: ", _TRUNCATE);
        get_lang_msg("FILEDLG_TRANS_TITLE_SENDFILE", uimsg, sizeof(uimsg), TitSendFile, UILanguageFile);
        strncat_s(fv->DlgCaption, sizeof(fv->DlgCaption), uimsg, _TRUNCATE);
}

void FileSendStart(void)
{
        if (! cv.Ready || FSend) return;
        if (cv.ProtoFlag)
        {
                FreeFileVar(&SendVar);
                return;
        }

        if (! NewFileVar(&SendVar))
        {
                return;
        }

        FSend = TRUE;

        if (strlen(&(SendVar->FullName[SendVar->DirLen])) == 0) {
                char FileDirExpanded[MAX_PATH];
                LONG Option = 0;
                ExpandEnvironmentStrings(ts.FileDir, FileDirExpanded, sizeof(FileDirExpanded));
                if (ts.TransBin)
                        Option |= LOGDLG_BINARY;
                SendVar->FullName[0] = 0;
                if (! _GetTransFname(SendVar, FileDirExpanded, &Option)) {
                        FileSendEnd();
                        return;
                }
                ts.TransBin = CheckFlag(Option, LOGDLG_BINARY);
        }
        else
                _SetFileVar(SendVar);

        SendVar->FileHandle = CreateFile(SendVar->FullName, GENERIC_READ, FILE_SHARE_READ, NULL,
                                         OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL | FILE_FLAG_SEQUENTIAL_SCAN, NULL);
        if (SendVar->FileHandle == INVALID_HANDLE_VALUE) {
                FileSendEnd();
                return;
        }
        SendVar->ByteCount = 0;
        SendVar->FileSize = GetFSize(SendVar->FullName);

        TalkStatus = IdTalkFile;
        FileRetrySend = FALSE;
        FileRetryEcho = FALSE;
        FileCRSend = FALSE;
        FileReadEOF = FALSE;
        FileSendHandler.pos = 0;
        FileSendHandler.end = 0;
        FileDlgRefresh = 0;

        if (BracketedPasteMode()) {
                FileBracketMode = FS_BRACKET_START;
                FileBracketPtr = 0;
                BinaryMode = TRUE;
        }
        else {
                FileBracketMode = FS_BRACKET_NONE;
                BinaryMode = ts.TransBin;
        }

        if (! OpenFTDlg(SendVar))
                FileSendEnd();
}

BOOL FileSendStart2(const char *filename, int binary)
{
        if (SendVar != NULL) {
                return FALSE;
        }
        if (!NewFileVar(&SendVar)) {
                return FALSE;
        }

        SendVar->DirLen = 0;
        strncpy_s(SendVar->FullName, sizeof(SendVar->FullName), filename, _TRUNCATE);
        ts.TransBin = binary;
        FileSendStart();

        return TRUE;
}

void FileSendEnd(void)
{
        if (FSend) {
                FSend = FALSE;
                TalkStatus = IdTalkKeyb;
                if (SendDlg!=NULL)
                {
                        SendDlg->DestroyWindow();
                        SendDlg = NULL;
                }
                FreeFileVar(&SendVar);
        }

        EndDdeCmnd(0);
}

void FileTransPause(WORD OpId, BOOL Pause)
{
        if (Pause) {
                cv.FilePause |= OpId;
        }
        else {
                cv.FilePause &= ~OpId;
        }
}

static int FSOut1(BYTE b)
{
        if (BinaryMode)
                return CommBinaryOut(&cv,(PCHAR)&b,1);
        else if ((b>=0x20) || (b==0x09) || (b==0x0A) || (b==0x0D))
                return CommTextOut(&cv,(PCHAR)&b,1);
        else
                return 1;
}

static int FSEcho1(BYTE b)
{
        if (BinaryMode)
                return CommBinaryEcho(&cv,(PCHAR)&b,1);
        else
                return CommTextEcho(&cv,(PCHAR)&b,1);
}

// �������������������������g��
// - BinaryMode == true
// - FileBracketMode == false
// - cv.TelFlag == false
// - ts.LocalEcho == 0
static void FileSendBinayBoost(void)
{
        WORD c, fc;
        LONG BCOld;
        DWORD read_bytes;

        if ((SendDlg == NULL) ||
                ((cv.FilePause & OpSendFile) != 0))
                return;

        BCOld = SendVar->ByteCount;

        if (FileRetrySend)
        {
                c = CommRawOut(&cv, &(FileSendHandler.buf[FileSendHandler.pos]),
                        FileSendHandler.end - FileSendHandler.pos);
                FileSendHandler.pos += c;
                FileRetrySend = (FileSendHandler.end != FileSendHandler.pos);
                if (FileRetrySend)
                        return;
        }

        do {
                if (FileSendHandler.pos == FileSendHandler.end) {
                        ReadFile(SendVar->FileHandle, &(FileSendHandler.buf[0]), sizeof(FileSendHandler.buf), &read_bytes, NULL);
                        fc = LOWORD(read_bytes);
                        FileSendHandler.pos = 0;
                        FileSendHandler.end = fc;
                } else {
                        fc = FileSendHandler.end - FileSendHandler.end;
                }

                if (fc != 0)
                {
                        c = CommRawOut(&cv, &(FileSendHandler.buf[FileSendHandler.pos]),
                                FileSendHandler.end - FileSendHandler.pos);
                        FileSendHandler.pos += c;
                        FileRetrySend = (FileSendHandler.end != FileSendHandler.pos);
                        SendVar->ByteCount = SendVar->ByteCount + c;
                        if (FileRetrySend)
                        {
                                if (SendVar->ByteCount != BCOld) {
                                        SendDlg->RefreshNum(SendVar->StartTime, SendVar->FileSize, SendVar->ByteCount);
                                }
                                return;
                        }
                }
                FileDlgRefresh = SendVar->ByteCount;
                SendDlg->RefreshNum(SendVar->StartTime, SendVar->FileSize, SendVar->ByteCount);
                BCOld = SendVar->ByteCount;
                if (fc != 0)
                        return;
        } while (fc != 0);

        FileSendEnd();
}

void FileSend(void)
{
        WORD c, fc;
        LONG BCOld;
        DWORD read_bytes;

        if (cv.PortType == IdSerial && ts.FileSendHighSpeedMode &&
            BinaryMode && !FileBracketMode && !cv.TelFlag &&
            (ts.LocalEcho == 0) && (ts.Baud >= 115200)) {
                return FileSendBinayBoost();
        }

        if ((SendDlg==NULL) ||
            ((cv.FilePause & OpSendFile) !=0))
                return;

        BCOld = SendVar->ByteCount;

        if (FileRetrySend)
        {
                FileRetryEcho = (ts.LocalEcho>0);
                c = FSOut1(FileByte);
                FileRetrySend = (c==0);
                if (FileRetrySend)
                        return;
        }

        if (FileRetryEcho)
        {
                c = FSEcho1(FileByte);
                FileRetryEcho = (c==0);
                if (FileRetryEcho)
                        return;
        }

        do {
                if (FileBracketMode == FS_BRACKET_START) {
                        FileByte = BracketStartStr[FileBracketPtr++];
                        fc = 1;

                        if (FileBracketPtr >= sizeof(BracketStartStr) - 1) {
                                FileBracketMode = FS_BRACKET_END;
                                FileBracketPtr = 0;
                                BinaryMode = ts.TransBin;
                        }
                }
                else if (! FileReadEOF) {
                        ReadFile(SendVar->FileHandle, &FileByte, 1, &read_bytes, NULL);
                        fc = LOWORD(read_bytes);
                        SendVar->ByteCount = SendVar->ByteCount + fc;

                        if (FileCRSend && (fc==1) && (FileByte==0x0A)) {
                                ReadFile(SendVar->FileHandle, &FileByte, 1, &read_bytes, NULL);
                                fc = LOWORD(read_bytes);
                                SendVar->ByteCount = SendVar->ByteCount + fc;
                        }
                }
                else {
                        fc = 0;
                }

                if (fc == 0 && FileBracketMode == FS_BRACKET_END) {
                        FileReadEOF = TRUE;
                        FileByte = BracketEndStr[FileBracketPtr++];
                        fc = 1;
                        BinaryMode = TRUE;

                        if (FileBracketPtr >= sizeof(BracketEndStr) - 1) {
                                FileBracketMode = FS_BRACKET_NONE;
                                FileBracketPtr = 0;
                        }
                }


                if (fc!=0)
                {
                        c = FSOut1(FileByte);
                        FileCRSend = (ts.TransBin==0) && (FileByte==0x0D);
                        FileRetrySend = (c==0);
                        if (FileRetrySend)
                        {
                                if (SendVar->ByteCount != BCOld) {
                                        SendDlg->RefreshNum(SendVar->StartTime, SendVar->FileSize, SendVar->ByteCount);
                                }
                                return;
                        }
                        if (ts.LocalEcho>0)
                        {
                                c = FSEcho1(FileByte);
                                FileRetryEcho = (c==0);
                                if (FileRetryEcho)
                                        return;
                        }
                }
                if ((fc==0) || ((SendVar->ByteCount % 100 == 0) && (FileBracketPtr == 0))) {
                        SendDlg->RefreshNum(SendVar->StartTime, SendVar->FileSize, SendVar->ByteCount);
                        BCOld = SendVar->ByteCount;
                        if (fc!=0)
                                return;
                }
        } while (fc!=0);

        FileSendEnd();
}

BOOL IsSendVarNULL()
{
        return SendVar == NULL;
}