gspc_arguments_tcl.gsp

This is the verbatim text of the file "gspc_arguments_tcl.gsp" part of the LLOOP package. The copyright remains with Michel MEHL. All rights reserved.

import file;

symbol TCLOutputDirOption implements option(
          "Output directory for TCL GUI files",
	  "--tcl-dir=<DIRECTORY>", 
	  "Directory in which the TCL GUI (Graphical User Interface) for option symbols shall be generated. If no output directory is specified, the current working directory is used.\nThis option is only relevant when the input grammar defines command line option symbols and that the generation of the TCL GUI is turned on with the --tcl-options-control-panel option.",
	  "--tcl-dir", 
	  existingdir) ;

symbol GenTclOptionsControlPanelOption implements option(
          "Generate TCL GUI for options",
	  "--tcl-options-control-panel", 
	  "Tells whether to generate a TCL GUI for options. \nA TCL GUI for options allows to manage option values graphically and control their persistency all in TCL language.\nOf course, this option is only relevant when the input grammar defines command line option symbols.",
	  "--tcl-options-control-panel") ;


symbol TCLOutputDirOption occurs at most once;
symbol GenTclOptionsControlPanelOption occurs at most once;

symbol ArgumentTCL extends class OptionsData()
  include 
  "OptionsData.h",
  "gspc_arguments_tcl__ExistingDirectoryToken.h";

ArgumentTCL ::= (TCLOutputDirOption |  GenTclOptionsControlPanelOption )
{{
  OptionsData& o = dynamic_cast<OptionsData&>(root());

  if ($1.getSymbolName() == "TCLOutputDirOption")
  {
    o.m_sTCLOutputDir = dynamic_cast<TCLOutputDirOption&>($1).ExistingDirectoryTokenRef().absolutePath();
  }
  else if ($1.getSymbolName() == "GenTclOptionsControlPanelOption")
  {
    o.m_bGenerateTclOptionsControlPanel = true;
  }
}}

This file is part of the LLOOP Reversible Object-Oriented Parser Generator. Copyright (c) 2005-2006 Michel MEHL, France. All rights reserved. LLOOP is distributed by the company ERSA SaRL.