/*
 * Copyright (C) 1988 by Frederic Hemmer
 * All rights reserved
 */

#include <processes.h>

static	struct	{
		int	size;
		char	*ptr;
	} cmd_dsc= {0 , ""};			
static	struct	{
		int size;
		char	*ptr;
	} input = {0, ""};
static	struct	{
		int size;
		char	*ptr;
	} output = {0, ""};

int system (string)
char * string;
{

	int	pid, status, rc;
	int	flags;
	char 	buffer[256];
	

	if (string == (char *) 0) return(-1);

	flags=0;
	cmd_dsc.ptr = buffer;
	cmd_dsc.size = strlen(string);
	strcpy(buffer, string);
	rc = lib$spawn(&cmd_dsc, &input, &output ,&flags, 0, &pid,
		 &status, 0, 0, 0, 0, 0);
	return(status);
}