compiler/clib/umask.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include "__arosc_privdata.h"
   7
   8 #include <aros/symbolsets.h>
   9 #include <sys/types.h>
  10 #include <sys/stat.h>
  11
  12 #include LC_LIBDEFS_FILE
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17
  18         mode_t umask(
  19
  20 /*  SYNOPSIS */
  21         mode_t numask)
  22
  23 /*  FUNCTION
  24
  25     INPUTS
  26
  27     RESULT
  28
  29     NOTES
  30
  31     EXAMPLE
  32
  33     BUGS
  34
  35     SEE ALSO
  36
  37     INTERNALS
  38
  39 ******************************************************************************/
  40 {
  41     struct aroscbase *aroscbase = __GM_GetBase();
  42     mode_t oumask = aroscbase->acb_umask;
  43
  44     aroscbase->acb_umask = numask;
  45
  46     return oumask;
  47 }
  48
  49 static int __umask_init(struct aroscbase *aroscbase)
  50 {
  51     struct aroscbase *paroscbase;
  52
  53     paroscbase = __GM_GetBaseParent(aroscbase);
  54
  55     /* FIXME: Implement umask() properly */
  56
  57     if (paroscbase && (paroscbase->acb_flags & (VFORK_PARENT | EXEC_PARENT)))
  58         aroscbase->acb_umask = paroscbase->acb_umask;
  59     else
  60         aroscbase->acb_umask = S_IWGRP|S_IWOTH;
  61
  62     return 1;
  63 }
  64
  65 ADD2OPENLIB(__umask_init, 0);