OpenSolaris_b135/cmd/sgs/lex/common/yyless.c

/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*	Copyright (c) 1988 AT&T	*/
/*	  All Rights Reserved  	*/


/*
 * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#pragma ident	"%Z%%M%	%I%	%E% SMI"

#include <sys/euc.h>
#include <stdlib.h>
#include <widec.h>
#include <limits.h>
#include <inttypes.h>
#include <unistd.h>

#pragma weak yyprevious
extern int yyprevious;

#ifndef JLSLEX
#define	CHR    char

#pragma weak yyinput
#pragma weak yyleng
#pragma weak yyunput
#pragma weak yytext
extern CHR yytext[];

#define	YYTEXT yytext
#define	YYLENG yyleng
#define	YYINPUT yyinput
#define	YYUNPUT yyunput
#define	YYOUTPUT yyoutput
#endif

#ifdef WOPTION
#define	CHR    wchar_t

#pragma weak yyinput
#pragma weak yyleng
#pragma weak yyunput
#pragma weak yytext
extern CHR yytext[];

#define	YYTEXT yytext
#define	YYLENG yyleng
#define	YYINPUT yyinput
#define	YYUNPUT yyunput
#define	YYOUTPUT yyoutput
#endif

#ifdef EOPTION
#define	CHR    wchar_t

#pragma weak yyleng
extern int yyleng;
#pragma weak yytext
extern CHR yytext[];
#pragma weak yywinput
#pragma weak yywleng
#pragma weak yywunput
#pragma weak yywtext
extern CHR yywtext[];

#define	YYTEXT yywtext
#define	YYLENG yywleng
#define	YYINPUT yywinput
#define	YYUNPUT yywunput
#define	YYOUTPUT yywoutput
#endif

extern int YYLENG;
#if defined(__STDC__)
    extern void YYUNPUT(int);
#endif

#if defined(__cplusplus) || defined(__STDC__)
/* XCU4: type of yyless() changes to int */
int
yyless(int x)
#else
yyless(x)
int x;
#endif
{
	register CHR *lastch, *ptr;

	lastch = YYTEXT+YYLENG;
	if (x >= 0 && x <= YYLENG)
		ptr = x + YYTEXT;
	else {
#ifdef	_LP64
		static int seen = 0;

		if (!seen) {
			(void) write(2,
				    "warning: yyless pointer arg truncated\n",
				    39);
			seen = 1;
		}
#endif	/* _LP64 */
	/*
	 * The cast on the next line papers over an unconscionable nonportable
	 * glitch to allow the caller to hand the function a pointer instead of
	 * an integer and hope that it gets figured out properly.  But it's
	 * that way on all systems.
	 */
		ptr = (CHR *)(intptr_t)x;
	}
	while (lastch > ptr)
		YYUNPUT(*--lastch);
	*lastch = 0;
	if (ptr > YYTEXT)
		yyprevious = *--lastch;
	YYLENG = ptr-YYTEXT;
#ifdef EOPTION
	yyleng = wcstombs((char *)yytext, YYTEXT, YYLENG*MB_LEN_MAX);
#endif
	return (0);
}