X-Git-Url: https://vcs.maemo.org/git/?a=blobdiff_plain;f=apps%2Fcvenv%2FEiC%2FstdClib%2Ffcntl.c;fp=apps%2Fcvenv%2FEiC%2FstdClib%2Ffcntl.c;h=0000000000000000000000000000000000000000;hb=e4c14cdbdf2fe805e79cd96ded236f57e7b89060;hp=bdbea48fc520448b47ae30ed8701ec8d18b299a0;hpb=454138ff8a20f6edb9b65a910101403d8b520643;p=opencv diff --git a/apps/cvenv/EiC/stdClib/fcntl.c b/apps/cvenv/EiC/stdClib/fcntl.c deleted file mode 100644 index bdbea48..0000000 --- a/apps/cvenv/EiC/stdClib/fcntl.c +++ /dev/null @@ -1,85 +0,0 @@ -/* fcntl.c - * - * (C) Copyright Dec 20 1998, Edmond J. Breen. - * ALL RIGHTS RESERVED. - * This code may be copied for personal, non-profit use only. - * - */ - -/* This file is broken into 2 parts - * the first part defines the interface routines - * and the 2nd part adds the interface routine - * to EiC's look up tables. - */ - - - -#include -#include - -#include "eic.h" - - -/* FCNTL.H STUFF */ -#ifndef NO_FCNTL -val_t eic_fcntl(void) -{ - val_t v; - - if(getargc() == 3) { - v.ival = fcntl(arg(0,getargs(),int), - arg(1,getargs(),int), - arg(2,getargs(),int)); - } else - v.ival = fcntl(arg(0,getargs(),int), - arg(1,getargs(),int)); - return v; -} - -val_t eic_open(void) -{ - val_t v; - if(getargc() == 3) { - v.ival = open(arg(0,getargs(),ptr_t).p, - arg(1,getargs(),int), - arg(2,getargs(),mode_t)); - } else - v.ival = open(arg(0,getargs(),ptr_t).p, - arg(1,getargs(),int)); - return v; -} - -val_t eic_creat(void) -{ - val_t v; - arg_list ap = getargs(); - v.ival = creat(arg(0,ap,ptr_t).p, - arg(1,ap,int)); - return v; -} - -#endif - -/*******************************************************************/ - -void module_fcntl() -{ - -#ifndef NO_FCNTL - - /* fcntl.h */ - EiC_add_builtinfunc("open", eic_open); - EiC_add_builtinfunc("creat", eic_creat); - EiC_add_builtinfunc("fcntl", eic_fcntl); - -#endif -} - - - - - - - - -