workbench/libs/mesa/src/aros/emul_arosc.c

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