/* Copyright (C) 1995 by Thomas Glen Smith.  All Rights Reserved. */
/* formincl.h APL2 V1.0.0 **********************************************
* Generates the specified includes.                                    *
***********************************************************************/
#if !defined(FORM_INCL)
#define FORM_INCL
/***********************************************************************
* bca is an array of character pointers passed as an argument to       *
* formats.                                                             *
***********************************************************************/
#define BCALEN 8 /* number of pointers in array bca */
#define SOF 0
#define START_OF_FIELD(A)   (*(A + SOF)) /* Start of string. */
#define Start_Of_Field      (*(bca + SOF))
#define ENF 1
#define END_OF_FIELD(A)     (*(A + ENF)) /* End of string. */
#define End_Of_Field        (*(bca + ENF))
#define FDI 2
#define FIRST_DIGIT(A)      (*(A + FDI)) /* First digit. */
#define First_Digit         (*(bca + FDI))
#define DPA 3
#define DECIMAL_POINT(A)    (*(A + DPA)) /* Decimal point. */
#define Decimal_Point       (*(bca + DPA))
#define EFS 4
#define E_FORMAT_SYMBOL(A)  (*(A + EFS)) /* E-format symbol. */
#define E_Format_Symbol     (*(bca + EFS))
#define LPZ 5
#define LEFT_PAD_ZEROS(A)   (*(A + LPZ)) /* Leftmost 9, 0 left of DP */
#define Left_Pad_Zeros      (*(bca + LPZ))
#define RPZ 6
#define RIGHT_PAD_ZEROS(A)  (*(A + RPZ)) /* Rightmost 9, 0 right of DP */
#define Right_Pad_Zeros     (*(bca + RPZ))
#define LDI 7
#define LAST_DIGIT(A)       (*(A + LDI)) /* Last digit. */
#define Last_Digit          (*(bca + LDI))
/***********************************************************************
* bia is an array of integers passed as an argument to formats.        *
***********************************************************************/
#define BIALEN 4 /* number of integers in array bia */
#define FLE 0
#define FIELD_LENGTH(A)     (*(A + FLE)) /* Length of string. */
#define Field_Length        *(bia + FLE)
#define DIG 1
#define DIGITS(A)           (*(A + DIG)) /* Digits left of decimal point. */
#define DIgits              (*(bia + DIG))
#define PLA 2
#define PLACES(A)           (*(A + PLA)) /* Digits right of decimal point. */
#define PLAces              (*(bia + PLA))
#define FCF 3
#define FCCFLAGS(A)         (*(A + FCF)) /* Format Control Character flags.*/
#define Fccflags            (*(bia + FCF))
/***********************************************************************
* Format Control Character (FCC) flags definitions.                    *
***********************************************************************/
#define FC0           1
     /* Pad with 0's to the position of the outermost 0. If the value
        is zero, the position is filled with 0's.
     */
#define FC1L          2
     /* Format Control Character '1' applies to the left side of the
        decimal point: Float the decorator against the number only if
        the value is negative.
     */
#define FC1R          4
     /* Format Control Character '1' applies to the right side of the
        decimal point: Float the decorator against the number only if
        the value is negative.
     */
#define FC2L          8
     /* Format Control Character '2' applies to the left side of the
        decimal point: Float the decorator against the number only if
        the value is positive.
     */
#define FC2R         16
     /* Format Control Character '2' applies to the right side of the
        decimal point: Float the decorator against the number only if
        the value is positive.
     */
#define FC3L         32
     /* Format Control Character '3' applies to the left side of the
        decimal point: Float the decorator against the number.
     */
#define FC3R         64
#define FC4L        128
     /* Any decorator on the same side as the '4' displays as is.
     */
#define FC4R        256
     /* Format Control Character '3' applies to the right side of the
        decimal point: Float the decorator against the number.
     */
#define FC8         512
     /* Format Control Character '8' applies:  Fill empty portions of
        the field with the character defined by Lfc[3].  The default
        is *.
     */
#define FC9        1024
     /* Pad with 0's to the position of the outermost 0. If the value
        is zero, the position is filled with blanks.
     */
/***********************************************************************
* cba is an array of Aplcb pointers for various integer vectors        *
* describing the input.                                                *
***********************************************************************/
#define CBALEN 9 /* number of pointers in array bca */
#define SIGNCB 0 /* 1 if input column contains a minus sign. */
#define Signcb (cba->aplptr.aplint + SIGNCB*(*(cba->apldim + 1)))
#define DIGICB 1 /* Maximum digits left of decimal point. */
#define Digicb (cba->aplptr.aplint + DIGICB*(*(cba->apldim + 1)))
#define FRACCB 2 /* Maximum places right of decimal point. */
#define Fraccb (cba->aplptr.aplint + FRACCB*(*(cba->apldim + 1)))
#define PRECB  3 /* Maximum places right of decimal point. */ 
#define Precb  (cba->aplptr.aplint + PRECB*(*(cba->apldim + 1)))
			/* ---------------------------------------------------- *
			* Formatj sets both fraccb and precb to the same value. *
			* Fraccb is referenced only in formatj and formatc.     *
			* Formatc, which is called from format when the left    *
			*	argument is NULL, i.e. no widths or precisions     *
			*	were specified by the caller, sets precb to -6 for *
			*	each column it determines should be formatted in   *
			*    e-notation.                                        *
			* Formate, which is called by formatm to fill in default*
			*	e-notation widths, tests precb for negative value  *
			*	to see if a column is e- or f-notation.            *
			* Formatf, which is called by formatm to fill in default*
			*	f-notation widths, tests precb for negative value  *
			*	to see if a column is e- or f-notation.            *
			* Formatg, which is called from form after widths and   *
			*	and precisions have been determined, passes a ptr  *
			*	to a precb column value to either formath or       *
			*	formatz, depending on whether the next value to be *
			*	formatted is respectively either a simple double,  *
			*	or a nested variable.                              *
			* Formatm, which is called by formatd to fill in any    *
			*	missing widths or precisions, fills in the precb   *
			*	column value from the left argument to format      *
			*	before calling formate and formatf to fill in      *
			*	missing values.                                    *
			* ---------------------------------------------------- */
#define WIDCB  4 /* Width of each output column. */
#define Widcb  (cba->aplptr.aplint + WIDCB*(*(cba->apldim + 1)))
#define CHRCB  5 /* Maximum character vector length in column. */
#define Chrcb  (cba->aplptr.aplint + CHRCB*(*(cba->apldim + 1)))
#define BIXCB  6 /* Index vector = 1, 2, 3,... Set in formatm. */
#define Bixcb  (cba->aplptr.aplint + BIXCB*(*(cba->apldim + 1)))
#define ZIXCB  7 /* Which formats have widths of 0. Set in formatm.*/
#define Zixcb  (cba->aplptr.aplint + ZIXCB*(*(cba->apldim + 1)))
#define CHRCOL 8 /* 1 if entire column is char, 0 otherwise. */
#define Chrcol (cba->aplptr.aplint + CHRCOL*(*(cba->apldim + 1)))
#endif