lex/common/yyless.c

	yyless.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/*
 * 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);
}