home *** CD-ROM | disk | FTP | other *** search
- /*
- * XSPAWN
- * Version 1.33
- * (C) Copyright 1990 Whitney Software, Inc.
- * All Rights Reserved
- */
-
- #include <stdio.h>
- #include <stdlib.h>
- #ifndef LATTICE
- #include <io.h>
- #endif
- #include <errno.h>
- #include "xspawnp.h"
-
- int xsystem( command )
- char *command; /* command to be passed to COMMAND.COM */
- {
- char *argv[ 4 ];
- int rc;
-
- *argv = getenv( "COMSPEC" );
-
- if ( command == NULL )
- {
- if ( *argv != NULL && !access( *argv, 0 ))
- return( 1 );
- else
- {
- errno = ENOENT;
- return( 0 );
- }
- }
-
- argv[ 1 ] = "/c";
- argv[ 2 ] = command;
- argv[ 3 ] = NULL;
-
- if ( *argv != NULL )
- {
- if (( rc = xspawnve( P_WAIT, *argv, argv, NULL )) != -1 ||
- errno != ENOENT )
- {
- return( rc );
- }
- }
-
- *argv = "command.com";
-
- return( xspawnvpe( P_WAIT, *argv, argv, NULL ));
- }