/*
 * CDE - Common Desktop Environment
 *
 * Copyright (c) 1993-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these libraries and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
 */
/* $XConsortium: eltdef.h /main/3 1995/11/08 09:27:36 rswiston $ */
/*
              Copyright 1986 Tandem Computers Incorporated.
This product and information is proprietary of Tandem Computers Incorporated.
                   Copyright (c) 1986, 1987, 1988, 1989 Hewlett-Packard Co.
*/

/* Eltdef.h is the include file for allocating global variables in ELTDEF */

#if defined(ELTDEF)
#define ELTEXTERN
#define ELTINIT(a) = a
#else
#define ELTEXTERN extern
#define ELTINIT(a)
#endif

#include "common.h"

/* Error recovery status */
#define RENTITY 0
#define RSIGNON 1
#define RGLOBDEC 2
#define RGLOBDEF 3
#define RELEMENT 4

/* State transition network generated by CONTEXT */
#include "sparse.h"

/* Indicates whether, and if so where, each character can appear in
   a name */
#if defined(ELTDEF)
#include "chartype.h"
#else
extern M_CHARTYPE m_ctarray[M_CHARSETLEN] ;
#endif

/* Scanned name or literal */
ELTEXTERN M_WCHAR name[M_NAMELEN + 1] ;
ELTEXTERN M_WCHAR literal[M_LITLEN + 1] ;

/* Associates a C variable with a particular parameter */
typedef struct cvarstruct CVARSTRUCT ;
struct cvarstruct {
  int param ;
  M_WCHAR *cvarptr ;
  CVARSTRUCT *next ;
  } ;
ELTEXTERN CVARSTRUCT *cvarlist ;
/* Current and previous context (state) of transition system 
   controlling ELTDEF */
ELTEXTERN int curcon ELTINIT(START) ;
ELTEXTERN int m_prevcon ;

/* Character read-ahead buffer */
ELTEXTERN int toundo ELTINIT(0) ;
ELTEXTERN int maxundo ELTINIT(0) ;
#define SAVECHAR 50
ELTEXTERN int savechar[SAVECHAR] ;

/* Chain of elements named in pseudo-tag */
typedef struct chain CHAIN ;
struct chain {
  M_ELEMENT elt ;
  CHAIN *next ;
  } ;
ELTEXTERN CHAIN *firstchain ELTINIT(NULL) ;
ELTEXTERN CHAIN **nextchain ELTINIT(&firstchain) ;

/* Text character returned from scanner */
ELTEXTERN M_WCHAR textchar ;

/* Identifying index of element currently being processed */
ELTEXTERN M_ELEMENT openelt ELTINIT(M_NULLVAL) ;

/* Output files */
ELTEXTERN FILE *globdec, *globdef, *string,
  *pfile, *tfile, *sfile, *efile, *entfile, *ifile, *stfile, *ifh, *pvalh ;

/* Flags indicating whether currently in the middle of processing 
   an action */
ELTEXTERN LOGICAL intext ELTINIT(FALSE),
                  inent ELTINIT(FALSE),
                  inpc ELTINIT(FALSE),
                  insc ELTINIT(FALSE),
                  inec ELTINIT(FALSE),
                  instc ELTINIT(FALSE),
                  instring ELTINIT(FALSE) ;

/* Location of global start-string and end-string, if any */
ELTEXTERN int gss ELTINIT(0), 
              ges ELTINIT(0) ;

/* Flags indicating whether default code setments are to be used */
ELTEXTERN LOGICAL finitext ELTINIT(TRUE), 
                  finipi ELTINIT(TRUE),
                  finistc ELTINIT(TRUE) ;

/* Whether have finished the sign-on message */
ELTEXTERN LOGICAL signonend ELTINIT(FALSE) ;
        
/* Whether errors have occurred */
ELTEXTERN LOGICAL errexit ELTINIT(FALSE) ;

/* Number of characters currently written to stext.h and etext.h */
ELTEXTERN int stringcnt ELTINIT(1) ;

/* Number of actions so far written to code files */
ELTEXTERN int sactions ELTINIT(1), 
              eactions ELTINIT(1), 
              tactions ELTINIT(1), 
              pactions ELTINIT(1),
              stactions ELTINIT(1) ;

/* Pool of ponters for associating a chain of elements with an action string
   or code */
typedef struct action ACTION ;
struct action {
  int data ;
  M_ELEMENT element ;
  int count ;
  ACTION *son ;
  ACTION *next ;
  ACTION *nextact ;
  } ;
ELTEXTERN int actlen ELTINIT(0) ;
ELTEXTERN ACTION *firstact ELTINIT(NULL) ;
ELTEXTERN ACTION **nextact ELTINIT(&firstact) ;

/* Number of elements defined in the document type */
#if defined(M_DTDDEF)
#define ELCOUNT sizeof(m_element)/sizeof(m_element[0])
#else
#define ELCOUNT
#endif

/* Action arrays, indexed by the element in which they occur.  Each element
   is a linked list for actions qualified by the context in which they
   occur. */
ELTEXTERN ACTION *starray[ELCOUNT], 
                 *etarray[ELCOUNT], 
                 *scarray[ELCOUNT],
                 *ecarray[ELCOUNT], 
                 *tcarray[ELCOUNT], 
                 *pcarray[ELCOUNT],
                 *stcarray[ELCOUNT] ;

/* Store the sign-on message */
#define SOCHAR 512
ELTEXTERN char signonmsg[SOCHAR] ;
ELTEXTERN int sochar ELTINIT(0) ;

/* Indicates which elements have been processed at a particular time */
ELTEXTERN LOGICAL processed[ELCOUNT] ;

/* Flags to indicate whether data has yet been written to various files */
ELTEXTERN LOGICAL stringstart ELTINIT(TRUE) ;

/* Flag indicating whether a carriage return was the last character of
   the signon message */
ELTEXTERN LOGICAL socr ELTINIT(FALSE) ;

/* Number of current input line */
ELTEXTERN int m_line ELTINIT(1) ;

/* Pointer to file error for error messages */
ELTEXTERN FILE *m_errfile ;

/* Name of interface file */
#define IFLEN 512
ELTEXTERN char iffile[IFLEN] ; 

/* Pointer to current entity */
ELTEXTERN M_ENTITY *entity ;

/* Count of code entities defined */
ELTEXTERN int codeent ELTINIT(0) ;

/* Content of entity being defined */
ELTEXTERN int entclen ;
ELTEXTERN M_WCHAR entcontent[M_LITLEN + 1] ;

/* Error recovery status */
ELTEXTERN int restart ELTINIT(RENTITY) ;

/* Strings to write to generated files */
#define pproto "M_WCHAR *m_pi, M_WCHAR *m_entname, int m_enttype"
#define pformal "m_pi, m_entname, m_enttype"
#define pftype "  M_WCHAR *m_pi ;\n  M_WCHAR *m_entname ;\n  int m_enttype ;"
#define tproto "M_WCHAR m_textchar"
#define tformal "m_textchar"
#define tftype "  M_WCHAR m_textchar ;\n"
#define stproto "M_WCHAR *m_string, LOGICAL M_START, LOGICAL M_END"
#define stformal "m_string, M_START, M_END"
#define stft "  M_WCHAR *m_string ;\n  LOGICAL M_START ;\n  LOGICAL M_END ;\n"

/* Structures for generating defines for parameter values */
ELTEXTERN M_TRIE parval ;
typedef struct {
  M_WCHAR *cname ;
  M_WCHAR *value ;
  int line ;
  } PARVAL ;
ELTEXTERN PARVAL *pval ;

/* Function prototypes */
#include "proto.h"

/* Flag to open fewer files for convenience of debugging with
   CodeView */
ELTEXTERN LOGICAL debug ELTINIT(FALSE) ;
/* Scanner trace for debugging */
ELTEXTERN LOGICAL scantrace ELTINIT(FALSE) ;
/* Test validity of heap in calls to malloc/free */
ELTEXTERN LOGICAL m_heapchk ELTINIT(FALSE) ;
/* Trace calls to malloc/free */
ELTEXTERN LOGICAL m_malftrace ELTINIT(FALSE) ;