/*
 * PCN System
 * Author:      Steve Tuecke
 *              Argonne National Laboratory
 *
 * Please see the DISCLAIMER file in the top level directory of the
 * distribution regarding the provisions under which this software
 * is distributed.
 *
 * stdio_fgets.c
 */

#include "stdio_internal.h"

void _p_stdio_fgets(s, n, fp, status)
char_t *s;
int_t *n;
FILE **fp;
int_t *status;
{
    if (fgets(s, *n, *fp) == (char *) NULL)
    {
	*s = '\0';
	*status = -1;
    }
    else
    {
	*status = strlen(s);
    }
}