workbench/libs/mesa/emul_arosc.c

   1 /*
   2     Copyright © 2009-2019, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <aros/debug.h>
   7
   8 #include <proto/dos.h>
   9 #include <proto/timer.h>
  10
  11 #include <stdlib.h>
  12 #include <unistd.h>
  13
  14 #define IMPLEMENT()  bug("------IMPLEMENT(%s)\n", __func__)
  15
  16 /*
  17     The purpose of this file is to provide implementation for C functions part
  18     of arosnixc.library in code where one does not want to use this library.
  19 */
  20
  21 struct timezone;
  22
  23 int gettimeofday (struct timeval * tv,struct timezone * tz)
  24 {
  25     struct MsgPort * timerport = CreateMsgPort();
  26     struct timerequest * timereq = (struct timerequest *)CreateIORequest(timerport, sizeof(*timereq));
  27
  28
  29     if (timereq)
  30     {
  31         if (OpenDevice("timer.device", UNIT_VBLANK, (struct IORequest *)timereq, 0) == 0)
  32         {
  33             #define TimerBase ((struct Device *)timereq->tr_node.io_Device)
  34
  35             GetSysTime(tv);
  36
  37             #undef TimerBase
  38
  39             CloseDevice((struct IORequest *)timereq);
  40         }
  41     }
  42
  43     DeleteIORequest((struct IORequest *)timereq);
  44     DeleteMsgPort(timerport);
  45
  46     return 0;
  47 }
  48
  49 int usleep (useconds_t usec)
  50 {
  51     IMPLEMENT();
  52     return 0;
  53 }
  54
  55 /*
  56     This implementation of atexit is different than the definition of atexit
  57     function due to how libraries work in AROS.
  58
  59     Under Linux, when an .so file is used by an application, the library's code
  60     is being shared but the library's data (global, static variables) are COPIED for
  61     each process. Then, an atexit call inside .so will only operate on COPY of data
  62     and thus can for example free memory allocated by one process without
  63     influencing other processes.
  64
  65     Under AROS, when a .library file is used by an application, library code AND
  66     library data is shared. This means, an atexit call inside .library which was
  67     initially coded under Linux cannot be executed when process is finishing
  68     (for example at CloseLibrary) because such call will most likely free shared
  69     data which will make other processes crash. The best approximation of atexit
  70     in case of .library is to call the atexit functions at library expunge/exit.
  71
  72     TODO: Check atexit() usage and determine best time to call atexit registered
  73     functions.
  74 */
  75
  76 static struct exit_list {
  77     struct exit_list *next;
  78     void (*func)(void);
  79 } *exit_list = NULL;
  80
  81 int atexit(void (*function)(void))
  82 {
  83     struct exit_list *el;
  84
  85     el = malloc(sizeof(*el));
  86     if (el == NULL)
  87         return -1;
  88
  89     el->next = exit_list;
  90     el->func = function;
  91     exit_list = el;
  92
  93     return 0;
  94 }
  95
  96 void __exit_emul(void)
  97 {
  98     while (exit_list) {
  99         struct exit_list *el = exit_list->next;
 100
 101         exit_list->func();
 102         free(exit_list);
 103         exit_list = el;
 104     }
 105 }
 106
 107 ADD2EXIT(__exit_emul, 0);