compiler/clib/__arosc_set_environptr.c

   1 /*
   2     Copyright © 2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: AROS specific function for environ emulation handling
   6 */
   7
   8 #include <proto/exec.h>
   9 #include <proto/dos.h>
  10 #include <dos/dos.h>
  11
  12 #include "__arosc_privdata.h"
  13 #include "__env.h"
  14
  15 #include <stdio.h>
  16
  17 #define DEBUG 0
  18 #include <aros/debug.h>
  19
  20 /*****************************************************************************
  21
  22     NAME */
  23 #include <stdlib.h>
  24
  25         void __arosc_set_environptr (
  26
  27 /*  SYNOPSIS */
  28         char ***environptr)
  29
  30 /*  FUNCTION
  31         This function is called to enable environ emulation mode.
  32
  33     INPUTS
  34         environptr - ptr to the child environ variable (== &environ).
  35
  36     RESULT
  37         -
  38
  39     NOTES
  40         This function will enable environ emulation. This means that
  41         all current DOS local variables are converted to the 'var=value'
  42         format and be accessible through char **environ.
  43
  44     EXAMPLE
  45
  46     BUGS
  47         At the moment only a static list is supported. getenv() and setenv()
  48         don't use this yet so changes done with these functions are not
  49         reflected in environ.
  50         This is still TODO.
  51
  52     SEE ALSO
  53         getenv(), setenv()
  54
  55     INTERNALS
  56
  57 ******************************************************************************/
  58 {
  59     struct aroscbase *aroscbase = __aros_getbase();
  60     int len;
  61
  62     D(bug("Initializing POSIX environ emulation\n"));
  63
  64     aroscbase->acb_environptr = environptr;
  65
  66     len = __env_get_environ(NULL, 0);
  67     *environptr = malloc(len);
  68     if (__env_get_environ(*environptr, len) < 0)
  69     {
  70         fputs("Internal error with environ initialization\n", stderr);
  71         abort();
  72     }
  73 }