Subversion Repositories Vertical

/* $Id: cmdexec1.c,v 1.1.1.1 2003/11/04 23:34:56 mjames Exp $

 *

 * $Log: cmdexec1.c,v $

 * Revision 1.1.1.1  2003/11/04 23:34:56  mjames

 * Imported into local repositrory

 *

 * Revision 1.31  2002/09/09 10:17:41  mjames

 * Altered search path description for HPUX

 *

 * Revision 1.30  2002/08/23 14:20:44  mjames

 * Updated comments on regular expressions.

 *

 * Revision 1.29  2002/08/19 14:30:04  mjames

 * Added the 'write UCF' command for

 * listing pin assignments in Xilinx UCF file format

 *

 * Revision 1.28  2002/08/06 12:52:07  mjames

 * Merge in from latest version

 *

 * Revision 1.31  2002/04/04 14:53:05  mjames

 * Added mentor board station reader to the portfolio

 *

 * Revision 1.30  2002/03/21 17:14:22  mjames

 * Added search path to vertical file opening for read

 *

 * Revision 1.29  2002/03/08 14:56:14  mjames

 * Edited all of the commands in the cmdexec1.c and cmdexec2.c files

 * so that they can be read by doc2.pl

 *

 * Revision 1.28  2002/03/08 11:54:38  mjames

 * Tagging for perl script to list commands out

 *

 * Revision 1.27  2002/01/15 12:37:47  mjames

 * now uses a function to set the debug level rather than global variable

 *

 * Revision 1.26  2001/12/24 21:14:00  mjames

 * Added header includes to get correct declarations for all functions

 * called from command handlers

 *

 * Revision 1.25  2001/12/24 20:08:38  mjames

 * Added more information about ensure template command to help message

 *

 * Revision 1.24  2001/12/20 13:54:19  mjames

 * Update version number to 15.1

 *

 * Revision 1.23  2001/12/13 22:13:22  mjames

 * Vertical now supports nested include database files

 * This allows wrappers around 'pure' VHDL or Verilog files

 *

 * Read command now initialises include stack correctly

 *

 * Revision 1.22  2001/11/19 10:41:05  mjames

 * Merge conflict resolution

 *

 * Revision 1.21  2001/11/09 22:14:45  mjames

 * Added in delete chip node connection command

 * In order to remove small number of chip pins in a large board

 * which have been damaged.

 *

 * Revision 1.20.2.1  2001/11/16 15:13:23  mjames

 * Included some more needed header files

 * Added extra documentation in auto generate -> HTML

 *

 * Revision 1.20  2001/10/31 22:20:00  mjames

 * Tidying up problematical comments caused by CVS

 * 'intelligent' comment guessing

 *

 * Revision 1.19  2001/10/23 21:28:51  mjames

 * Produce a list of diagnostic printouts enabled via the debug <n> command

 *

 * Revision 1.18  2001/10/11 16:10:18  mjames

 * Corrections to the SWAP command, and printout so that

 * WRITE net now outputs all chips in the design so that their generics

 * can be passed forward to the next phase.

 *

 * Revision 1.17  2001/10/02 20:55:18  mjames

 * Edited help files to try and get them more up to date.

 *

 * Revision 1.16  2001/09/21 14:13:52  mjames

 * Implemented Write Pin command

 *

 * Revision 1.15  2001/08/23 20:44:14  mjames

 * Corrected mistake in file name on write fit command.

 *

 * Revision 1.14  2001/07/09 15:09:36  mjames

 * Lists external sockets as components before using them

 *

 * Revision 1.13  2001/06/20 13:09:45  mjames

 * Took out 'from from' message.

 *

 * Revision 1.12  2001/06/19 05:24:34  mjames

 * Created a trap_fopen to overcome trying to write to read only files.

 * If this attempted in NT the file can be opened but not written to.

 *

 * Revision 1.11  2001/06/06 12:10:25  mjames

 * Move from HPUX

 *

 * Revision 1.10  2001/04/09 14:58:28  mjames

 * Added capability to delete generics from specific sockets.

 *

 * Revision 1.9  2001/04/04 22:12:31  mjames

 * Added some online documentation to the C program command handler

 * THis is scanned by a utility called 'doc' that currently creates

 * simple HTML from part formatted C comments

 *

 * Also working well on printing VERILOG

 *

 * still have problems with C comments and VERTICAL pragmas.

 *

 * Revision 1.8  2001/03/19 19:13:21  mjames

 * Tidied up a few commands

 *

 * Revision 1.7  2001/02/06 22:41:14  mjames

 * Added correct argument passing for 'read file comp_suffix arg0 arg1 arg2 ...

 *

 * Revision 1.6  2001/02/01 21:41:43  mjames

 * Made the code begin to compile without TCL/TK

 *

 * Revision 1.5  2001/01/26 21:50:09  mjames

 * Managed to get vertical non TCL to compile again

 *

 * Conversion to argv, argc[] mode of operation continues

 *

 * Revision 1.4  2001/01/04 21:26:54  mjames

 * Modifications to add in the TCL style

 * argument list to all of the functions

 * .

 *

 * Revision 1.3  2001/01/02 07:53:51  mjames

 * Made changes to allow for interface with TCL/Tk

 *

 * Revision 1.2  2000/10/21 20:41:29  mjames

 * Added the 'write flatten' command that only lists the wires

 * created by making jumpered connections rather than listing

 * the jumpers themselves

 *

 * Revision 1.1.1.1  2000/10/19 21:58:35  mjames

 * Mike put it here

 *

 *

 Removed RCS log information to reduce clutter

*****************************************************************************/

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include "vertcl_main.h"

#include "expression.h"

#include "generic.h"

#include "database.h"

#include "printout.h"

#include "routing.h"

#include "jumpering.h"

#include "ext_nets.h"

#include "statistics.h"

#include "partition.h"

#include "cmdparse.h"

#include "cmdexec.h"

#include "cmdutil.h"

#include "cmdlog.h"

#include "rename.h"

#include "template.h"

#include "chck_names.h"

#include "unrouted.h"

#include "bundle.h"

#include "print_vlog.h"

#include "print_vhdl.h"

#include "print_quartus.h"

#include "print_ucf.h"

#include "print_ports.h"

tcl_mode_t  Tcl_Mode;

/* make this a global */  

Tcl_Interp * Tcl_interp;

#ident "@(#)$Header: c:\\cygwin\\cvsroot/Vert03/vertlib/cmdexec1.c,v 1.1.1.1 2003/11/04 23:34:56 mjames Exp $"

/* Additional information for the user is provided in this section for inclusion in the

   HTML file

@title

Vertical application areas

@text

The following indices represent the commands that are likely to be useful for each

of the 'modes' of Vertical and its PCB translator family

@list_index

@end

*/

/*

@title

Vertical External PCB netlist translators

@index external

@end

*/

/*

@title

Vertical Pin assignment mode commands

@index vertical_pin

@end

*/

/*

@title

Vertical PCB merging commands

@index vertical_pcb

@end

*/

/*

@title

Vertical HDL handling commands

@index vertical_hdl

@end

*/

/*

@title

Vertical Regular expressions and commands that use them

@index regular_exp

@end

*/

/*

@title

Vertical search paths

@application vertical_pin

@application vertical_pcb

@application vertical_hdl

@text

As of version 15.5a, Vertical can now use search paths when opening scripts or database

files for reading. All file writes are in the current directory.

@break

For the PC the search path is :

@listing

.;c:/cygwin/usr/local/vert_files

@text

Or in english : look in the current directory '.' and then look in 'c:/cygwin/usr/local/vert_files'.

@break

For PC; filenames containing ':' or starting with either '/' or '.' are not searched down the path,

@break

The path is in the environment variable called 'VERTICAL_PATH', which can either be

set in the shell (MSDOS or cygwin) which invokes vertical, or as a command from within

a Vertical script. e.g.

@listing

setenv VERTICAL_PATH "$(VERTICAL_PATH);/home/project/reference_data"

@text

This will make Vertical search in the usual places and then in the additional directory.

@break

For the HPUX port of Vertical the search path is

.;.caddata/vert_files

@text

For HPUX; filenames starting in '/' and '.' are not searched for down the path. These two characters are normally used to

specify a definite path, either relative to the current working directory or absolute relative to the file system root.

@end

=======

   HTML file

@title

Vertical application areas

@text

The following indices represent the commands that are likely to be useful for each

of the 'modes' of Vertical and its PCB translator family

@listing

vertical_pin

vertical_pcb

vertical_hdl

@end

*/

/*

@title

Vertical Pin assignment mode commands

@index vertical_pin

@end

*/

/*

@title

Vertical PCB merging commands

@index vertical_pcb

@end

*/

/*

@title

Vertical HDL partitioning commands

@index vertical_hdl

@end

*/

/*

@title

Vertical script command notation: Command line and script files

@application vertical_pin

@application vertical_pcb

@application vertical_hdl

@text

Vertical uses its own 'shell' like command language. In this language, quoting a string

simply means that spaces appearing inside strings can be passed into Vertical as a single argument.

Normally spaces are used to delimit parameters in a command.

@break

When the command is listed out the following notation is used.

@text

If an item is given without angle ( '<' '>' ) brackets then the word is typed as is. e.g.

@listing

command

@break

If '<' '>' angle brackets are given then this an item such as a filename which is user defined. e.g. Command followed

@listing

command <filename>

@break

If followed by an asterisk '*' it means in this context that more than one of these items

may be entered. It is not the same as a regular expression used within one of these items. e.g. command followed by several items

@listing

command <item> *

@break

If '[' ']' square brackets are given then the item is optional. e.g. command with an optional parameter

@listing

command [ <optional> ]

@text

More than one of these may appear at a time on the same item. e.g. Optional list of letters.

@end

@title

Vertical database file notation: Database files

@application vertical_pin

@application vertical_hdl

@application vertical_pcb

@text

Vertical handles several different database file formats. These are :

@listing

Altera .acf      : tagged as AHDL

Verilog          : tagged as VERILOG

VHDL             : tagged as VHDL

Vertical Native  : initial state and outside other tagged blocks

@text

They are all read in by a single database handler which can switch between different

languages on the fly.

@break

In all cases the Vertical parser begins expecting Vertical Native file format, and then

it is switched into other modes by the presence of tag  keywords

@break

These bracket the code. e.g.

@listing

VHDL -- this indicates following syntax.

  entity nine is

    (

    );

  end entity nine;

  architecture seven of nine is

-- vertical read_off

 this code will not be seen by vertical, as it has

 tags in the comments.

 DONT start comments with the word 'VERTICAL' as it is seen an

 an escape into vertical database language.

-- vertical read_on

  begin

  end;

END; -- this belongs to Vertical

@text

Because Vertical recognises the comments that are found in

all of the HDL's that it understands, it is possible to feed

a native HDL file in with Vertical tags in comments.

e.g.

@end

@title

regular expression: Information on wildcards in Vertical

@application vertical_pin

@application vertical_hdl

@application vertical_pcb

@text

The wildcards now used in several commands conform to standard regular expressions.

If no 'special' characters are given then patterns must match exactly, except that

the case of alphabetic characters is ignored.

@break

For instance: to select :

@listing

pattern   meaning

-------   -------

X2[1-7]   'X' or 'x', '2' and then digit '1' to '7'      

.*        any char zero or more times (anything)

X[0-9]+   'X' or 'x', followed by one or more digits

(expr)    A pattern to be matched that can be used in a string replace.

          Each bracketed expression can be used in a replacement string

          &1 is the first pattern. &0 is the whole of the matched string.

@text

On cygwin and Unix 'man regex' will work to tell you more.

@break

The edit_pin ident command and edit_pin type

command documentation has more on regular expressions.

@break

Use '\' characters to escape special characters.

@end

*/

/************************************************************************/

/* Command handling code                                                */

/************************************************************************/

/*********************** Simple command calls ***************************/

/* BYE : Exit program

@title

bye, quit, exit

@application vertical_pcb

@application vertical_pin

@application vertical_hdl

@text

Leave program, closing files tidily.

@end

*/

int BYEHandler (ET_TCLARGS)

   {

   CloseLog();                     /* append summary and close the log file */

   Log (LOG_GENERAL, "#Goodbye for now\n");

   return (QUITCMD);   /* try to leave cleanly */

   }

/****************************************************************************/

/* external parser variables                                                */

extern int yydebug;

extern FILE * yyin;

extern int lineno;

extern int yy_nArgs;

extern char ** yy_Args;

extern int inside_block;

/* debug level */

long level;

/******************** Setup YYDEBUG flag ***********************/

/*

@title

debug <debug_flags>

@application vertical_pcb

@application vertical_pin

@application vertical_hdl

@text

Internal debugging flags. Bit fields can be combined. In general issue debug

flag setting commands before issuing commands:

@break

Followed by the 'read' command:

@listing

For read command:

Bit 0    : The yydebug flag (see man yacc/lex for more info)

For template command

Bit 0    : Prints basic actions

Bit 1    : More detailed info

Bit 2    : Extremely detailed info.

For partition command

Bit 0    : Prints basic actions.

For route command

Bit 2    : Prints basic actions

Bit 3    : More detailed info

For jumper command

Bit 0    : Basic information

For set/del ext and set/del fpga commands

Bit 2    : Trace operations in detail

For equivalent pin operations (normally via netlist)

Bit 0    : Trace operations

For print vlog

Bit 0    : In Verilog file : indicate status for wires, list unused sigs as comments

For all file opening

Bit 4    : List files that Vertical attempts to open using its search path.

@end

*/

int DEBUGHandler(ET_TCLARGS) {

   if (argc == 1) {

     level = atoi(argv[0]);

     set_debug_level(level); /* send info into DLL */

     yydebug = level&1 ;

     Log (LOG_GENERAL, "# setting debug level to %d\n",level);

     return (TCL_OK);

     }

   else

     return (TCL_ERROR);

   }

/******************** Read a data file ***********************/

/*

@title

read <filename> [<identifier_suffix> | "" ] [ <arg>* ]

@application vertical_pcb

@application vertical_pin

@application vertical_hdl

@text

Read a data file in to the internal database. If <suffix> is

given, the newly read socket and net identifiers are suffixed

with the suffix given. This is the means by which a single PCB

netlist file is given a unique identity. In this way the same

netlist may be repeated many times, but every object is given

an unique identifier.

In other words if the netlist is read in twice, once with the

suffix 'a' and once with the suffix 'b' then a socket 'U1' in

the netlist will become two sockets : 'U1a' and U1b' in the

combined netlist.

@break

String concatenation WARNING:

@break

If you have a set of sockets in the PCB netlist file  with

identifiers U1 to U 20 and you decide to suffix a new ACF file

being read with "0" then U1 in the new file will match U10 in

the old file and will 'vanish' or be confused with U10 in the

old file. The best way to avoid this problem is to

It is normal to use an underscore character as in "_" to

prefix the suffix to avoid this.

@break

In addition any arguments after the suffix field (which can be omitted if a "" null string is

given) can be used as macro variables $0, $1 and so on inside the database file.

e.g.

@listing

read conn.txt ""  x1_a x1_b

@text

Will, if the file conn.txt contains the following

@listing

JOINED_NETS

BEGIN

 JUMPER J_$0$1_3A  = ($0(3A );$1(16A); );

 JUMPER J_$0$1_4A  = ($0(4A );$1(15A); );

 JUMPER J_$0$1_5A  = ($0(5A );$1(14A); );

 JUMPER J_$0$1_6A  = ($0(6A );$1(13A); );

END;

@text

Be translated into

@listing

JOINED_NETS

BEGIN

 JUMPER J_x1_ax1_b_3A  = (x1_a(3A );x2_a(16A); );

 JUMPER J_x1_ax1_b_4A  = (x1_a(4A );x2_a(15A); );

 JUMPER J_x1_ax1_b_5A  = (x1_a(5A );x2_a(14A); );

 JUMPER J_x1_ax1_b_6A  = (x1_a(6A );x2_a(13A); );

END;

@text

If no arguments are given, then the argument list of the currently

executing script are used as $0, $1 and so on.

@end

*/

extern void tidy_lex(void);

extern int yyparse(void);

int READHandler (ET_TCLARGS)

   {

   int rc =0;

   int     old_yy_nArgs;

   char ** old_yy_Args;

#if defined DIAGNOSE

   {

   int i;

   printf("local args\n");

   for(i=0;i<argc;i++)

     printf("[%d]=%s\n",i,argv[i]?(argv[i][0]?argv[i]:"\"\""):"<null>");

   printf("global args\n");

   for(i=0;i<yy_nArgs;i++)

     printf("[%d]=%s\n",i,yy_Args[i]?(yy_Args[i][0]?yy_Args[i]:"\"\""):"<null>");

   }

#endif

   if (argc < 1)

     return(TCL_ERROR);

   Log(LOG_GENERAL, "# reading information from <%s>\n", argv[0]);

   mark_board_objects(); /* record some pointers - last object before rename */

   inside_block  = 0;

   tidy_lex();

   yyin = trap_fopen(argv[0], "r");             /* open text file for reading */

   if (!yyin)

      {

      Log(LOG_ERROR, "# Error opening file: <%s>\n", argv[0]);

      return(TCL_ERROR);

      }

   else

      {

      /* setup the argument lists for expansion :

         either inherit from calling script (no args) or

         copy from rest of command line. No need to make duplicates of

         values as they cannot be changed within a 'read' operation

         unlike 'do' which may call other command files with different arg.

         lists.

       */

      old_yy_nArgs = yy_nArgs;

      old_yy_Args  = yy_Args;

      if(argc>=3) {

        yy_Args = argv+2;

        yy_nArgs= argc-2;

        }

#if defined DIAGNOSE

   {

   int i;

   printf("new global args\n");

   for(i=0;i<yy_nArgs;i++)

     printf("[%d]=%s\n",i,yy_Args[i]?(yy_Args[i][0]?yy_Args[i]:"\"\""):"<null>");

   }

#endif

      lineno = 1;

      while(!feof(yyin) && !rc) {

        if(yydebug)

          Log(LOG_GENERAL,"Processing line %d\n",lineno);

        rc = yyparse();

        }

#if defined DIAGNOSE

   {

   int i;

   printf("new2 global args\n");

   for(i=0;i<yy_nArgs;i++)

     printf("[%d]=%s\n",i,yy_Args[i]?(yy_Args[i][0]?yy_Args[i]:"\"\""):"<null>");

   }

#endif

      fclose (yyin);

      yy_nArgs = old_yy_nArgs;

      yy_Args  = old_yy_Args;

/* added the concatenation of suffixes

 * to the Names and Identifiers of objects *

 * if there was a suffix and it is not null apply it */

      if (argc>=2 && !ISNULLSTR(argv[1])) {

        set_board_suffix(argv[1]);

        Log(LOG_GENERAL, "# Object name/identifier suffix = '%s'\n", argv[1]);

        }      

      need_validate_names=1;/* tell validate_names there is some work to do */

      if(rc == 0)

        return (TCL_OK);

      else

        return(TCL_ERROR);

      }

   }

/******************** Output an ACF file all pins connected to nets  ***********************/

/*

@title

write connected <filename>

@application vertical_pcb

@application vertical_pin

@text

Write out an 'Extended ACF' file for the entire netlist and

device and net assignments. If there are any sockets with

names assigned to the socket identifier (implying the socket

contains something important) then their entire pinout (without pin reservations) will be

written as part of the netlist. All connections made to external sockets will be listed.

@end

*/

int WriteConnectedHandler (ET_TCLARGS)

   {

   FILE * ACFfile;

   if (argc < 1)

     return(TCL_ERROR);  

   Log(LOG_GENERAL, "# producing an ACF file <%s>\n", argv[0]);

   ACFfile = trap_fopen(argv[0], "w");             /* open text file for reading */

   if (!ACFfile) {

     Log(LOG_ERROR, "# Error opening ACF output file: <%s>\n", argv[0]);

     return(TCL_ERROR);

     }

   else {

     create_unrouted_list();

     print_header(ACFfile,TOOL_NAME": WRITE CONNECTED");

     list_database(ACFfile,PRESERVE_JUMPERS);

     list_jumper(ACFfile);

     list_generic_values(ACFfile,&global_generics,0);

     list_devices(ACFfile,

         PRINT_TYPE|PRINT_EXPAND_BUS| PRINT_NET_NAMES|

         PRINT_GENERIC|PRINT_GROUP|

         PRINT_ROUTE_FLAGS | PRINT_EQUIVALENT_PINS);

     list_alias(ACFfile);

     print_pin_renames(ACFfile);

     fclose(ACFfile);

     return (TCL_OK);

     }

   }

/******************** Output an ACF file ***********************/

/*

@title

write acf <filename>

@application vertical_pcb

@application vertical_pin

@text

Write out an 'Extended ACF' file for the entire netlist and

device and net assignments. If there are any sockets with

names assigned to the socket identifier (implying the socket

contains something important) then their pinout will be

written as part of the netlist. Connections to sockets without

names assigned are still written out.

@end

*/

int WriteAcfHandler (ET_TCLARGS)

   {

   FILE * ACFfile;

   if (argc < 1)

     return(TCL_ERROR);  

   Log(LOG_GENERAL, "# producing an ACF file <%s>\n", argv[0]);

   ACFfile = trap_fopen(argv[0], "w");             /* open text file for reading */

   if (!ACFfile) {

     Log(LOG_ERROR, "# Error opening ACF output file: <%s>\n", argv[0]);

     return(TCL_ERROR);

     }

   else {

     create_unrouted_list();

     print_header(ACFfile,TOOL_NAME": WRITE ACF");

     list_database(ACFfile,PRESERVE_JUMPERS);

     list_jumper(ACFfile);

     list_generic_values(ACFfile,&global_generics,0);

     list_devices(ACFfile,

         PRINT_TYPE|PRINT_EXPAND_BUS|

         PRINT_GENERIC|PRINT_GROUP|

         PRINT_ROUTE_FLAGS | PRINT_EQUIVALENT_PINS);

     list_alias(ACFfile);

     print_pin_renames(ACFfile);

     fclose(ACFfile);

     return (TCL_OK);

     }

   }

/******************** Output an ACF, just net part file ***********************/

/*

@title

write net <filename>

@application vertical_pcb

@application vertical_pin

@text

Write out an 'Extended ACF' file for the entire netlist. In this case no socket

information is printed.

@end

*/

int WriteNetHandler (ET_TCLARGS)

   {

   FILE * ACFfile;

   if (argc < 1)

     return(TCL_ERROR);

   Log(LOG_GENERAL, "# producing an ACF (net only) file <%s>\n", argv[0]);

   ACFfile = trap_fopen(argv[0], "w");             /* open text file for reading */

   if (!ACFfile) {

     Log(LOG_ERROR, "# Error opening ACF output file: <%s>\n", argv[0]);

     return(TCL_ERROR);

     }

   else {

     create_unrouted_list();

     print_header(ACFfile,TOOL_NAME": WRITE NET");

     list_database(ACFfile,PRESERVE_JUMPERS);

     list_jumper(ACFfile);

     list_devices(ACFfile,

         PRINT_TYPE |

         PRINT_GENERIC|PRINT_GROUP|

         PRINT_ROUTE_FLAGS | PRINT_EQUIVALENT_PINS|

         NO_PRINT_PINS);

     fclose(ACFfile);

     return (TCL_OK);

     }

   }

/******************** Write Flatten command ***********************/

/*

@title

write flatten <filename>

@application vertical_pcb

@application vertical_hdl

@text

Write out an 'Extended ACF' file for the entire netlist and

device and net assignments. If there are any sockets with

names assigned to the socket identifier (implying the socket

contains something important) then their pinout will be

written as part of the netlist. Connections to sockets without

names assigned are still written out.

@break

In addition, all jumpers are flattened, and the joined together

nets created by jumpers are written out as a single wire. This is used with the

equivalent pin connections on socket templates.

@end

*/

int WriteFlattenHandler (ET_TCLARGS)

   {

   FILE * ACFfile;

   if (argc < 1)

     return(TCL_ERROR);

   Log(LOG_GENERAL, "# producing a flattened ACF file <%s>\n", argv[0]);

   ACFfile = trap_fopen(argv[0], "w");             /* open text file for reading */

   if (!ACFfile) {

     Log(LOG_ERROR, "# Error opening ACF output file: <%s>\n", argv[0]);

     return(TCL_ERROR);

     }

   else {

     create_unrouted_list();

     print_header(ACFfile,TOOL_NAME": WRITE FLATTEN");

     list_database(ACFfile,FLATTEN_JUMPERS);

     fclose(ACFfile);

     return (TCL_OK);

     }

   }

/******************** Output an FRB file ***********************/

/*

@title

write pcb <filename>

@application vertical_pcb

@text

Write out a "neutral architecture file" PCB netlist file for

CadStar. This is hard to use properly, as Southampton Cadstar

users always seem to be coming up with different netlist

formats, and there are problems with library portability and

the unique and 'useful' way this has been setup at

Southampton.

@end

*/

int WriteFrbHandler (ET_TCLARGS)

   {

   FILE * FRBfile;

   if (argc < 1)

     return(TCL_ERROR);

   Log(LOG_GENERAL, "# producing an FRB file <%s>\n", argv[0]);

   FRBfile = trap_fopen(argv[0], "w");             /* open text file for reading */

   if (!FRBfile) {

     Log(LOG_ERROR, "# Error opening FRB output file: <%s>\n",argv[0]);