Subversion Repositories openrisc

// ####ECOSHOSTGPLCOPYRIGHTBEGIN####                                        

// -------------------------------------------                              

// This file is part of the eCos host tools.                                

// Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.            

//

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

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

// the Free Software Foundation; either version 2 or (at your option) any   

// later version.                                                           

//

// This program is distributed in the hope that it will be useful, but      

// WITHOUT ANY WARRANTY; without even the implied warranty of               

// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU        

// General Public License for more details.                                 

//

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

// along with this program; if not, write to the                            

// Free Software Foundation, Inc., 51 Franklin Street,                      

// Fifth Floor, Boston, MA  02110-1301, USA.                                

// -------------------------------------------                              

// ####ECOSHOSTGPLCOPYRIGHTEND####                                          

// PkgAdminTclWaitDlg.cpp : implementation file

//

#include "stdafx.h"

#include "PkgAdmin.h"

#include "PkgAdminTclWaitDlg.h"

#include "tcl.h"

#ifdef _DEBUG

#define new DEBUG_NEW

#undef THIS_FILE

static char THIS_FILE[] = __FILE__;

#endif

/////////////////////////////////////////////////////////////////////////////

// CPkgAdminTclWaitDlg dialog

CPkgAdminTclWaitDlg::CPkgAdminTclWaitDlg(CWnd* pParent /*=NULL*/)

        : CDialog(CPkgAdminTclWaitDlg::IDD, pParent)

{

        //{{AFX_DATA_INIT(CPkgAdminTclWaitDlg)

                // NOTE: the ClassWizard will add member initialization here

        //}}AFX_DATA_INIT

}

void CPkgAdminTclWaitDlg::DoDataExchange(CDataExchange* pDX)

{

        CDialog::DoDataExchange(pDX);

        //{{AFX_DATA_MAP(CPkgAdminTclWaitDlg)

                // NOTE: the ClassWizard will add DDX and DDV calls here

        //}}AFX_DATA_MAP

}

BEGIN_MESSAGE_MAP(CPkgAdminTclWaitDlg, CDialog)

        //{{AFX_MSG_MAP(CPkgAdminTclWaitDlg)

        ON_WM_CREATE()

        //}}AFX_MSG_MAP

END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////

// CPkgAdminTclWaitDlg message handlers

// The thread function for executing ecosadmin.tcl

UINT CPkgAdminTclWaitDlg::EvalTclThread (LPVOID pvParam)

{

        // invoke the Tcl command specified in the data structure

        EvalTclStruct * pParam = (EvalTclStruct *) pvParam;

        Tcl_Interp * interp = Tcl_CreateInterp ();

        Tcl_Channel outchan = Tcl_OpenFileChannel (interp, "nul", "a+", 777);

        Tcl_SetStdChannel (outchan, TCL_STDOUT); // direct standard output to NUL:

        char * pszStatus = Tcl_SetVar (interp, "argv0", pParam->argv0, NULL);

        pszStatus = Tcl_SetVar (interp, "argv", pParam->argv, NULL);

        pszStatus = Tcl_SetVar (interp, "argc", pParam->argc, NULL);

        pszStatus = Tcl_SetVar (interp, "gui_mode", "1", NULL); // return errors in result string

        pParam->status = Tcl_EvalFile (interp, pParam->argv0);

        pParam->result = Tcl_GetStringResult (interp);

        Tcl_SetStdChannel (NULL, TCL_STDOUT);

        Tcl_UnregisterChannel (interp, outchan);

        Tcl_DeleteInterp (interp);

         // close the wait dialog to signal completion

        ::PostMessage (pParam->hwnd, WM_CLOSE, 0, 0);

        return 0;

}

int CPkgAdminTclWaitDlg::OnCreate(LPCREATESTRUCT lpCreateStruct)

{

        if (CDialog::OnCreate(lpCreateStruct) == -1)

                return -1;

        etsInfo.hwnd = m_hWnd; // pass the window handle of the wait dialog into the thread

        AfxBeginThread (EvalTclThread, &etsInfo, 0, 0, 0, NULL);

        return 0;

}