git.maemo.org Git - opencv/blob - apps/Hawk/CVEiCL/EiC/module/stdClib/src/stat.c

   1 /* stat.c
   2  *
   3  *      (C) Copyright Dec 20 1998, Edmond J. Breen.
   4  *                 ALL RIGHTS RESERVED.
   5  * This code may be copied for personal, non-profit use only.
   6  *
   7  */
   8
   9 #ifndef NO_STAT
  10
  11 #include <sys/types.h>
  12 #include <sys/stat.h>
  13 #include <unistd.h>
  14
  15 #include <stdlib.h>
  16 #include "eic.h"
  17 #include "stdliblocal.h"
  18
  19 /* STAT.H STUFF */
  20 val_t eic_chmod(void)
  21 {
  22     val_t v;
  23
  24     v.ival = chmod(arg(0,getargs(),ptr_t).p,
  25                     arg(1,getargs(),mode_t ));
  26     return v;
  27 }
  28
  29 val_t eic_fstat(void)
  30 {
  31     val_t v;
  32
  33     v.ival = fstat(arg(0,getargs(),int ),
  34                    arg(1,getargs(),ptr_t).p);
  35
  36     return v;
  37 }
  38
  39 val_t eic_mkdir(void)
  40 {
  41     val_t v;
  42
  43     v.ival = mkdir(arg(0,getargs(),ptr_t).p,
  44                     arg(1,getargs(),mode_t));
  45     return v;
  46 }
  47 val_t eic_mkfifo(void)
  48 {
  49     val_t v;
  50
  51     v.ival = mkfifo(arg(0,getargs(),ptr_t).p,
  52                     arg(1,getargs(),mode_t));
  53     return v;
  54 }
  55
  56 val_t eic_stat(void)
  57 {
  58     val_t v;
  59
  60     v.ival = stat(arg(0,getargs(),ptr_t).p,
  61                   arg(1,getargs(),ptr_t).p);
  62
  63     return v;
  64 }
  65
  66 val_t eic_umask(void)
  67 {
  68     val_t v;
  69     v.mval = umask(arg(0,getargs(),mode_t));
  70     return v;
  71 }
  72
  73
  74 #endif
  75
  76 /*************************************************************/
  77
  78
  79 void module_stat()
  80 {
  81 #ifndef NO_STAT
  82
  83     EiC_add_builtinfunc("chmod",eic_chmod);
  84     EiC_add_builtinfunc("fstat",eic_fstat);
  85     EiC_add_builtinfunc("mkdir",eic_mkdir);
  86     EiC_add_builtinfunc("mkfifo",eic_mkfifo);
  87     EiC_add_builtinfunc("stat",eic_stat);
  88     EiC_add_builtinfunc("umask",eic_umask);
  89
  90 #endif
  91 }
  92
  93
  94
  95
  96