/*************************************************************************
 *                  
 *       (c) Copyright 1992,1993,1994 by G & A Technical Software, Inc.,
 *             28 Research Drive, Hampton, Virginia, 23666.
 *
 *   All Rights Reserved. No part of this software or publication may be
 *   reproduced, stored in a retrieval system, or transmitted, in any form
 *   or by any means, electronic, mechanical, photocopying, recording, or
 *   otherwise without the prior written permission of G & A Technical
 *   Software, Inc.
 *  
 *************************************************************************
 *
 * Filename:
 *
 * Purpose:
 *
 * Author:   John Burton
 *
 * Date:     5/31/94
 *
 *************************************************************************
 *
 * Modification History:
 *
 * $Log: s3_globals.c,v $
 * Revision 2.1  1994/07/08  17:52:20  jcburt
 * Updated typedefs, defines and function protypes to allow recursive
 * parsing of pct files. Enabled use of sub-PDT files and scoping of
 * datasets. Datasets used in a pct must be defined either in the
 * associated pdt file or the pdt file associated with the direct
 * ancestors of the current pct file.
 *
 * DataSet functions and subroutines now have an additional parameter
 * passed to them, indicating the number of parameters passed in the
 * dataset list, i.e. was: function(DataSet **dl)
 *                    now: function(int nargs, DataSet **dl)
 * Parameters passed to the dataset routines from the PCT level are all
 * still contained in the dataset list, nargs is during the function or
 * subroutine call from s3_exec_enode
 *
 * Revision 2.0.0.1  1994/06/28  18:48:28  jcburt
 * S3 Version 2.0 Initial Source
 *
 *
 *************************************************************************
 *
 * Revision Control Information:
 */
   static char rcsid[]  = "$Id: s3_globals.c,v 2.1 1994/07/08 17:52:20 jcburt Exp $";
   static char rcsrev[] = "$Revision: 2.1 $";

/*************************************************************************
 * 
 * Include Files
 *
 *************************************************************************/

#include "s3_defines.h"
#include "s3_typedefs.h"
#include "s3_machdep.h"
#include "s3_globals.h"

/*************************************************************************
 * 
 * Defines and Macros
 *
 *************************************************************************/
 
/*************************************************************************
 * 
 * Global Variables
 *
 *************************************************************************/
 


/*************************************************************************
 *
 * Module:
 *
 * Description:    
 *
 * Syntax:
 *
 * Inputs:
 * 
 * Outputs:
 *
 * Returns:
 *
 * Modules Called:
 *
 *************************************************************************/




//  FILE      *fpout_inc           = stdout;
//  FILE      *fpout_main          = stdout;
//  FILE      *fpout_blk_data      = stdout;
//  FILE      *fpout               = stdout;
//  FILE      *fpin                = stdin;
//  FILE      *fperr               = stderr;
  FILE      *fpout_inc           = NULL;
  FILE      *fpout_main          = NULL;
  FILE      *fpout_blk_data      = NULL;
  FILE      *fpout               = NULL;
  FILE      *fpin                = NULL;
  FILE      *fperr               = NULL;

  char      *DBG_flags           = "-g";
  char      *OPT_flags           = "-O";
  char      *PROF_flags          = "-pg";
  char      *BOUNDS_flags        = "-C";
  char      *Cflags              = NULL;
  char      *Fflags              = NULL;
  char      *Compile_Flags       = NULL;
  char      *shlibdir            = "./shlibs";
  char      *S3_Dir              = "./.s3";
  char      *progname            = NULL;
  char      *pdtfilename         = NULL;
  char      *pctfilename         = NULL;
  char      *emtfilename         = NULL;
  char      *logfile             = NULL;
  char      *pctname             = NULL;
  char      *blk_data            = NULL;
  char      *blk_data_file       = NULL;

  Pnode     *current_pnode       = NULL;
  Pnode     *main_pnode          = NULL;

  int        Compile_Method      = OPTIMIZE;
  int        Link_Method         = DYNAMIC;
  int        Static_Link         = FALSE;

  int        Global_Control_File = FALSE;
  int        Check_Modules       = TRUE;
  int        CaseSensitive       = TRUE;
  int        MAIN_PCT            = 0;
  int        which_pct_exec      = 0;
  int        debug               = FALSE;
  int        verbose             = FALSE;
  int        bounds              = FALSE;
  int        profile             = FALSE;
  int        xfree_count         = 0;
  int        xcalloc_count       = 0;
  int        xmalloc_count       = 0;
  int        xrealloc_count      = 0;


  ST_entry **EO_list             = NULL;
  PCT_struct *pct_info           = NULL;
  PDT_struct *pdt_info           = NULL;
  EMT_struct *emt_info           = NULL;
  File_list *PCT_files           = NULL;

  void      *vptr                = NULL;