globle int BatchCommand(
void *theEnv)
{
char *fileName;
if (EnvArgCountCheck(theEnv,"batch",EXACTLY,1) == -1) return(FALSE);
if ((fileName = GetFileName(theEnv,"batch",1)) == NULL) return(FALSE);
return(OpenBatch(theEnv,fileName,FALSE));
}
void RerouteStdin(
void *theEnv,
int argc,
char *argv[])
{
int i;
int theSwitch = NO_SWITCH;
/*======================================*/
/* If there aren't enough arguments for */
/* the -f argument, then return. */
/*======================================*/
if (argc < 3)
{ return; }
/*=====================================*/
/* If argv was not passed then return. */
/*=====================================*/
if (argv == NULL) return;
/*=============================================*/
/* Process each of the command line arguments. */
/*=============================================*/
for (i = 1 ; i < argc ; i++)
{
if (strcmp(argv[i],"-f") == 0) theSwitch = BATCH_SWITCH;
#if ! RUN_TIME
else if (strcmp(argv[i],"-f2") == 0) theSwitch = BATCH_STAR_SWITCH;
else if (strcmp(argv[i],"-l") == 0) theSwitch = LOAD_SWITCH;
#endif
else if (theSwitch == NO_SWITCH)
{
PrintErrorID(theEnv,"SYSDEP",2,false);
EnvPrintRouter(theEnv,WERROR,"Invalid option\n");
}
if (i > (argc-1))
{
PrintErrorID(theEnv,"SYSDEP",1,false);
EnvPrintRouter(theEnv,WERROR,"No file found for ");
switch(theSwitch)
{
case BATCH_SWITCH:
EnvPrintRouter(theEnv,WERROR,"-f");
break;
case BATCH_STAR_SWITCH:
EnvPrintRouter(theEnv,WERROR,"-f2");
break;
case LOAD_SWITCH:
EnvPrintRouter(theEnv,WERROR,"-l");
}
EnvPrintRouter(theEnv,WERROR," option\n");
return;
}
switch(theSwitch)
{
case BATCH_SWITCH:
OpenBatch(theEnv,argv[++i],true);
break;
#if (! RUN_TIME) && (! BLOAD_ONLY)
case BATCH_STAR_SWITCH:
EnvBatchStar(theEnv,argv[++i]);
break;
case LOAD_SWITCH:
EnvLoad(theEnv,argv[++i]);
break;
#endif
}
}
}
bool Batch(
Environment *theEnv,
const char *fileName)
{ return(OpenBatch(theEnv,fileName,false)); }
globle int Batch(
void *theEnv,
char *fileName)
{ return(OpenBatch(theEnv,fileName,FALSE)); }
