/*
 * 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 1994 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
/*	  All Rights Reserved  	*/


#pragma ident	"%Z%%M%	%I%	%E% SMI"	/* SVr4.0 1.6	*/

# include	<unistd.h>
# include	<errno.h>
# include	<stdlib.h>

#if	defined(__STDC__)
# include	<stdarg.h>
#else
# include	<varargs.h>
#endif

# include	"lp.h"
# include	"msgs.h"


/*
**	Size and pointer for mgetm()
*/
static int	MBGSize = 0;
static char *	MBG = NULL;

/*
**	Size and pointer for mputm()
*/
static int	MBPSize = 0;
static char *	MBP = NULL;

int		peek3_2();

#if	defined(__STDC__)
int mgetm ( MESG * md, int type, ... )
#else
int mgetm (md, type, va_alist)
    MESG	*md;
    int		type;
    va_dcl
#endif
{
    va_list	vp;
    int		ret;
    int		needsize;

#if	defined(__STDC__)
    va_start(vp, type);
#else
    va_start(vp);
#endif

    needsize = mpeek(md);
    if (needsize <=0 || needsize > MSGMAX)
	needsize = MSGMAX;
    if (needsize > MBGSize)
    {
	if (MBG)
	    Free(MBG);
	if ((MBG = (char *)Malloc(needsize)) == NULL)
	{
	    MBGSize = 0;
	    MBG = NULL;
	    errno = ENOMEM;
	    return(-1);
	}
	MBGSize = needsize;
    }
    if (mread(md, MBG, MBGSize) < 0)
	return(-1);

    ret = _getmessage(MBG, type, vp);

    va_end(vp);

    return(ret);
}

#if	defined(__STDC__)
int mputm ( MESG * md, int type, ... )
#else
int mputm (md, type, va_alist)
    MESG	*md;
    int		type;
    va_dcl
#endif
{
    va_list	vp;
    int		needsize;

#if	defined(__STDC__)
    va_start(vp, type);
#else
    va_start(vp);
#endif
    needsize = _putmessage(NULL, type, vp);
    va_end(vp);
    if (needsize <= 0)
	return(-1);
    
    if (needsize > MBPSize)
    {
	if (MBP)
	    Free(MBP);
	if ((MBP = (char *)Malloc(needsize)) == NULL)
	{
	    MBPSize = 0;
	    MBP = NULL;
	    errno = ENOMEM;
	    return(-1);
	}
	MBPSize = needsize;
    }

#if	defined(__STDC__)
    va_start(vp, type);
#else
    va_start(vp);
#endif
    needsize = _putmessage(MBP, type, vp);
    va_end(vp);
    if (needsize <= 0)
	return(-1);
    

    return(mwrite(md, MBP));
}

#if	defined(__STDC__)
void __mbfree ( void )
#else
void __mbfree ()
#endif
{
    MBGSize = MBPSize = 0;
    if (MBG)
	Free (MBG);
    if (MBP)
	Free (MBP);
    MBG = MBP = NULL;
}

#if	defined(__STDC__)
short mpeek ( MESG * md )
#else
short mpeek (md)
    MESG	*md;
#endif
{
    int size;

    if (md->type == MD_USR_FIFO || md->type == MD_SYS_FIFO)
	return(peek3_2(md->readfd) - EXCESS_3_2_LEN);

    if (ioctl(md->readfd, I_NREAD, &size))
	return((short)size);

    return(-1);
}