/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* formato APL2 V1.0.0 *************************************************
* Called by formats to process the next format character.              *
***********************************************************************/
#define INCLUDES STRING+FORM
#include "includes.h"
void formato(cc,ch,bca,bia,four_switch,seven_switch,fcc_local)
char	*cc;			/* Pointer to current format character. */
char	ch;			/* Copy of current format character. */
char **bca;		/* Array of character pointers. */
int	*bia;		/* Array of integers */
int	*four_switch;	/* 1 if '4' format character was seen. */
int	*seven_switch;	/* 1 if '7' format character was seen. */
int	*fcc_local;	/* Format Control work area. */
{
	Formota; Formotb;

	if (ch >= '0' && ch <= '9') {
		Last_Digit = cc; /* Last digit. */
		if (First_Digit == NULL) First_Digit = cc; /* First digit. */
		if (Decimal_Point == NULL) 
			DIgits++; /* Left of decimal point. */
		else PLAces++; /* We're right of the decimal point. */
		formota(cc,ch,bca,bia,four_switch,seven_switch,fcc_local);
	}
	else formotb(cc,ch,bca,bia,four_switch,seven_switch,fcc_local);
}