/*
    (C) 1995-96 AROS - The Amiga Replacement OS
    $Id: run.c,v 1.3 1996/08/01 17:40:45 digulla Exp $
    $Log: run.c,v $
    Revision 1.3  1996/08/01 17:40:45  digulla
    Added standard header for all files

    Desc:
    Lang:
*/
#include <exec/memory.h>
#include <clib/exec_protos.h>
#include <dos/dosextens.h>
#include <dos/dostags.h>
#include <clib/dos_protos.h>
#include <utility/tagitem.h>

CALLENTRY /* Before the first symbol */

struct ExecBase *SysBase;
struct DosLibrary *DOSBase;

static LONG tinymain(void);

LONG entry(struct ExecBase *sysbase)
{
    LONG error=RETURN_FAIL;
    SysBase=sysbase;
    DOSBase=(struct DosLibrary *)OpenLibrary("dos.library",39);
    if(DOSBase!=NULL)
    {
	error=tinymain();
	CloseLibrary((struct Library *)DOSBase);
    }
    return error;
}

static LONG tinymain(void)
{
    STRPTR args[1]={ 0 };
    struct RDArgs *rda;
    BPTR in, out, shell;
    STRPTR s1, s2, buf;
    struct Process *process;
    ULONG num;
    LONG error=0;

    rda=ReadArgs("COMMAND/A/F",(ULONG *)args,NULL);
    if(rda!=NULL)
    {
	error=RETURN_ERROR;
	s1=s2=(STRPTR)args[0];
	while(*s2++)
	    ;
	buf=(STRPTR)AllocVec(8+s2-s1,MEMF_ANY);
	if(buf!=NULL)
	{
	    CopyMem("COMMAND ",buf,8);
	    CopyMem(s1,buf+8,s2-s1);
	    shell=LoadSeg("c:shell");
	    if(shell)
	    {
		in=Open("CONSOLE:",MODE_OLDFILE);
		if(in)
		{
		    out=Open("CONSOLE:",MODE_NEWFILE);
		    if(out)
		    {
			struct TagItem tags[]=
			{
			    { NP_Name, (LONG)"Background task" },
			    { NP_Arguments, 0 },
			    { NP_Input, 0 },
			    { NP_Output, 0 },
			    { NP_Error, 0 },
			    { NP_Seglist, 0 },
			    { NP_Cli, 1 },
			    { TAG_END, 0 }
			};
			tags[1].ti_Data=(LONG)buf;
			tags[2].ti_Data=in;
			tags[3].ti_Data=out;
			tags[5].ti_Data=shell;
			Forbid();
			process=CreateNewProc(tags);
			if(process!=NULL)
			{
			    num=process->pr_TaskNum;
			    out=in=shell=0;
			    error=0;
			}
			Permit();
			Close(out);
			if(process&&VPrintf("[CLI %ld]\n",&num)<0)
			   error=RETURN_ERROR;
		    }
		    Close(in);
		}
		UnLoadSeg(shell);
	    }
	    FreeVec(buf);
	}
	FreeArgs(rda);
    }else
	error=RETURN_FAIL;
    if(error)
	PrintFault(IoErr(),"Run");
    return error;
}