1/*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License (the "License").
6 * You may not use this file except in compliance with the License.
7 *
8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21
22/*
23 * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
24 * Use is subject to license terms.
25 */
26
27#pragma ident	"%Z%%M%	%I%	%E% SMI"
28
29#include "lint.h"
30#include <sys/types.h>
31#include <ctype.h>
32#include <stdio.h>
33#include "base_conversion.h"
34#include <locale.h>
35
36void
37func_to_decimal(char **ppc, int nmax, int fortran_conventions,
38		decimal_record *pd, enum decimal_string_form *pform,
39		char **pechar, int (*pget)(void), int *pnread,
40		int (*punget)(int))
41{
42	char	*cp = *ppc - 1;	/* last character seen */
43	char	*good = cp;	/* last character accepted */
44	int	current;	/* *cp or EOF */
45	int	nread = 0;	/* number of characters read so far */
46
47#define	NEXT \
48	if (nread < nmax) { \
49		current = (*pget)(); \
50		if (current != EOF) { \
51			*++cp = (char)current; \
52			nread++; \
53		} \
54	} else { \
55		current = EOF; \
56	}
57
58	NEXT;
59
60#include "char_to_decimal.h"
61
62	if (punget != NULL) {
63		/*
64		 * If we read any characters beyond the end of the accepted
65		 * token, try to push them back.
66		 */
67		while (cp >= *ppc) {
68			if ((*punget)((int)(unsigned char)*cp) == EOF)
69				break;
70			cp--;
71			nread--;
72		}
73	}
74
75	*++cp = '\0';
76	*pnread = nread;
77}
78