#define __NOLIBBASE__
#define __USE_SYSBASE
#include <proto/exec.h>
#include <proto/dos.h>
#include <workbench/startup.h>
 
struct PathNode {
	BPTR pn_Next;
	BPTR pn_Lock;
	};
 
BPTR cloneWorkbenchPath (struct Library *SysBase, struct Library *DOSBase, struct WBStartup *sm)
 
{
BPTR newpath = (BPTR)0;
struct MsgPort *port;
struct Process *pr;
 
Forbid();
 
if (port = sm->sm_Message.mn_ReplyPort)
if ((port->mp_Flags & PF_ACTION) == PA_SIGNAL)
if ((pr = (struct Process *)port->mp_SigTask)->pr_Task.tc_Node.ln_Type == NT_PROCESS)
	{
	struct CommandLineInterface *cli = BADDR(pr->pr_CLI);
	BPTR pathnode = cli->cli_CommandDir;
	BPTR *last = &newpath;
 
	while (pathnode)
		{
		BPTR checkpn = cli->cli_CommandDir;
 
		while (checkpn)
			{
			if (checkpn == pathnode)
				break;
 
			checkpn = ((struct PathNode *)BADDR(checkpn))->pn_Next;
			}
 
		if (checkpn)
			{
			struct PathNode *pn = BADDR(pathnode);
			BPTR lock;
			ULONG *mem;
 
			pathnode = pn->pn_Next;
 
			if (!(lock = DupLock (pn->pn_Lock)))
				break;
 
			if (mem = AllocMem (sizeof(ULONG)+sizeof(struct PathNode),MEMF_PUBLIC))
				{
				*mem = sizeof(ULONG)+sizeof(struct PathNode);
				pn = (struct PathNode *)(mem + 1);
				pn->pn_Next = NULL;
				pn->pn_Lock = lock;
				*last = MKBADDR(pn);
				last = &pn->pn_Next;
				}
			else
				{
				UnLock (lock);
				break;
				}
			}
		}
	}
 
Permit();
 
return (newpath);
}
 
void freeWorkbenchPath (struct Library *SysBase, struct Library *DOSBase, BPTR PathNode)
 
{
while (PathNode)
	{
	struct PathNode *pn = BADDR(PathNode);
	ULONG *mem = ((ULONG *)pn)-1;
	PathNode = pn->pn_Next;
	UnLock (pn->pn_Lock);
	FreeMem (mem,*mem);
	}
}