rom/oop/unused/findserver.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Add a class to the list of puvlic classes
   6     Lang: english
   7 */
   8 #include <exec/lists.h>
   9 #include <proto/exec.h>
  10 #include "intern.h"
  11
  12 #include <aros/debug.h>
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/oop.h>
  18
  19         AROS_LH1(OOP_Object *, OOP_FindServer,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(STRPTR , serverID, A0),
  23
  24 /*  LOCATION */
  25         struct Library *, OOPBase, 14, OOP)
  26
  27 /*  FUNCTION
  28         Find a public server object previously installed with
  29         AddServer(). You can use the obtained object to
  30         access objects that server is responsible for.
  31
  32     INPUTS
  33         serverID        - The servers public identifier.
  34
  35     RESULT
  36         Pointer to the server object.
  37
  38     NOTES
  39         Probably not a good API. Implemented
  40         just to show how one can call methods
  41         across process-borders.
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48         OOP_AddServer(), OOP_RemoveServer()
  49
  50     INTERNALS
  51
  52     HISTORY
  53         29-10-95    digulla automatically created from
  54                             intuition_lib.fd and clib/intuition_protos.h
  55
  56 *****************************************************************************/
  57 {
  58     AROS_LIBFUNC_INIT
  59
  60     OOP_Object *server = NULL;
  61
  62     EnterFunc(bug("OOP_FindServer(serverID=%s)\n", serverID));
  63
  64     if (serverID)
  65     {
  66         struct ServerNode *sn;
  67
  68         D(bug("Obtaining semahore\n"));
  69
  70         ObtainSemaphoreShared( &GetOBase(OOPBase)->ob_ServerListLock );
  71
  72         D(bug("Finding ID\n"));
  73
  74         sn = (struct ServerNode *)FindName(
  75                 (struct List *)&GetOBase(OOPBase)->ob_ServerList,
  76                 serverID);
  77
  78         if (sn)
  79         {
  80             D(bug("Found node: %p\n", sn));
  81             server = sn->sn_Server;
  82         }
  83
  84         D(bug("Releasing semaphore\n"));
  85
  86
  87         ReleaseSemaphore( &GetOBase(OOPBase)->ob_ServerListLock );
  88     }
  89
  90     ReturnPtr ("OOP_FindServer", Object *, server);
  91
  92     AROS_LIBFUNC_EXIT
  93 } /* OOP_FindServer */