ckf_netabs.c

操作系统SunOS 4.1.3版本的源码

#ifndef lint
static	char	sccsid[] = "@(#)ckf_netabs.c 1.1 92/07/30";
#endif

/*
 *	Name:		ckf_netabs.c
 *
 *	Description:	Determine if a field is an absolute network path.
 *		If the field is not an absolute network path, then zero
 *		is returned.  Otherwise, one is returned.
 *
 *	Call syntax:	ret_code = ckf_netabs(arg_p, field_p);
 *
 *	Parameters:	pointer		arg_p;
 *			char *		field_p;
 *
 *	Return value:	int		ret_code;
 */

#include <string.h>
#include "menu.h"


int
ckf_netabs(arg_p, field_p)
	pointer		arg_p;
	char *		field_p;
{
	char *		cp;			/* scratch char pointer */


#ifdef lint
	arg_p = arg_p;
#endif

	if (field_p[0] == '/')
		return(1);

	cp = strchr(field_p, ':');
	if (cp && cp > field_p && cp[1] == '/')
		return(1);

	menu_mesg(
    "Field must be an absolute network path (begin with a '/' or '<sys>:/').");

	return(0);
} /* end ckf_netabs() */