static int WBOpen(LIBBASETYPEPTR LIBBASE)
{
ObtainSemaphore(&(WorkbenchBase->wb_InitializationSemaphore));
if (!(WorkbenchBase->wb_Initialized))
{
struct CommandLineInterface *cli;
/* Duplicate the search path ---------------------------------------*/
if ((cli = Cli()) != NULL)
{
WorkbenchBase->wb_SearchPath = DuplicateSearchPath
(
cli->cli_CommandDir
);
}
const struct TagItem tags[]=
{
{NP_Entry , (IPTR)WorkbenchHandler },
{NP_Name , (IPTR)"Workbench Handler" },
{NP_UserData , (IPTR)WorkbenchBase },
{NP_StackSize, 8129 },
{TAG_DONE , 0 }
};
/* Start workbench handler -----------------------------------------*/
if ((CreateNewProc(tags)) != NULL)
{
/* Prevent expunging while the handler is running */
AROS_ATOMIC_INC(WorkbenchBase->LibNode.lib_OpenCnt);
}
else
{
// FIXME: free resources
return FALSE;
}
WorkbenchBase->wb_Initialized = TRUE;
}
ReleaseSemaphore(&(WorkbenchBase->wb_InitializationSemaphore));
return TRUE;
} /* L_OpenLib */
/*****i************************************************************************
NAME */
AROS_UFH3(IPTR, rootDispatcher,
/* SYNOPSIS */
AROS_UFHA(Class *, cl, A0),
AROS_UFHA(Object *, o, A2),
AROS_UFHA(Msg, msg, A1))
/* FUNCTION
Internal function!
Processes all messages sent to the RootClass. Unknown messages are
silently ignored.
INPUTS
cl - Pointer to the RootClass
o - This object was the destination for the message in the first
place
msg - This is the message.
RESULT
The meaning of the result depends on the type of the message.
NOTES
This is a good place to debug BOOPSI objects since every message
should eventually show up here.
EXAMPLE
BUGS
SEE ALSO
******************************************************************************/
{
AROS_USERFUNC_INIT
IPTR retval = 0;
Class *iclass;
switch (msg->MethodID)
{
case OM_NEW:
iclass = (Class *) o;
/*
Get memory for the instance data. The class knows how much is
needed. NOTE: The object argument is actually the class!
*/
o = (Object *) alloc
(
iclass->cl_MemoryPool, iclass->cl_ObjectSize
);
if (o)
{
_OBJ(o)->o_Class = iclass;
AROS_ATOMIC_INC(iclass->cl_ObjectCount);
retval = (IPTR) BASEOBJECT(o);
}
break;
case OM_DISPOSE:
/*
Free memory. Caller is responsible that everything else
is already cleared!
*/
iclass = OCLASS(o);
free
(
iclass->cl_MemoryPool, _OBJECT(o), iclass->cl_ObjectSize
);
AROS_ATOMIC_DEC(iclass->cl_ObjectCount);
break;
case OM_ADDTAIL:
/* Add <o> to list. */
AddTail (((struct opAddTail *)msg)->opat_List, (struct Node *) _OBJECT(o));
retval = TRUE;
break;
case OM_REMOVE:
/* Remove object from list. */
Remove ((struct Node *) _OBJECT(o));
retval = TRUE;
break;
case OM_SET:
case OM_GET:
case OM_UPDATE:
case OM_NOTIFY:
case OM_ADDMEMBER:
case OM_REMMEMBER:
default:
/* Ignore */
break;
} /* switch */
return (retval);
AROS_USERFUNC_EXIT
} /* rootDispatcher */
