// =====================================================================
//  $Id: TSetRunInformationModuleCommand.cc,v 1.5 2004/03/07 10:30:28 goiwai Exp $
//  $Name: CLDAQ-1-14-03 $
//  $Log: TSetRunInformationModuleCommand.cc,v $
//  Revision 1.5  2004/03/07 10:30:28  goiwai
//  ROOTに組みこむためのおまじないマクロを埋めこみました。
//  全てにおいて完全に動作するわけではありません。
//
//  Revision 1.4  2003/10/06 17:02:37  goiwai
//  *** empty log message ***
//
//  Revision 1.3  2003/08/20 21:51:44  goiwai
//  少しだけ修正しました.
//
//    /run/setinfo foo
//
//  などと,間違って入力した場合なんかに, foo というエントリーがインフォメー
//  ションテーブルに出来てしまう上に,それを削除できないので,無視することに
//  しました.あとでちゃんと実装します.
//  したがって,
//
//    /run/setinfo
//    /run/setinfo foo bar
//
//  は同じ動作をします.
//
//  Revision 1.2  2003/07/30 16:17:32  goiwai
//  ファイルにコミットログをつけることにしました.
//
// =====================================================================
#include "TSetRunInformationModuleCommand.hh"
#include "TRunManager.hh"
#include "TSoftwareRunInformationModule.hh"
#include "TRunInformationTable.hh"
#include "TUserInterface.hh"

static const Tstring _name = "/run/setinfo";
static const Tstring _desc = "set run information into the table.";

TSetRunInformationModuleCommand::TSetRunInformationModuleCommand( TRunManager* manager, TSoftwareRunInformationModule* module )
  : TCommand( manager, _name, _desc ), TRunInformationModuleCommand( module )
{;}

TSetRunInformationModuleCommand::~TSetRunInformationModuleCommand()
{;}

Tvoid TSetRunInformationModuleCommand::Execute( const TstringList& arguments )
{
  if ( theRunInformationModule == 0 ) {
    return;
  }

  TRunInformationTable& table =
    theRunInformationModule -> GetRunInformationTable();
  table.SetRunInformation();

//   if ( arguments.empty() ) {
//     table.SetRunInformation();
//   } else if ( arguments.size() == 1 ) {
//     table.SetRunInformation( arguments[ 0 ] );
//   } else if ( arguments.size() == 2 ) {
//     table.SetRunInformation( arguments[ 0 ], arguments[ 1 ] );
//   } else {
//     ShowCommandDetail();
//   }

  return;
}

#ifdef __CLDAQ_ROOT_DLL
    ClassImp(TSetRunInformationModuleCommand)
#endif
