3 * (C) Copyright Dec 20 1998, Edmond J. Breen.
5 * This code may be copied for personal, non-profit use only.
9 /* This file is broken into 2 parts
10 * the first part defines the interface routines
11 * and the 2nd part adds the interface routine
12 * to EiC's look up tables.
30 v.ival = fcntl(arg(0,getargs(),int),
32 arg(2,getargs(),int));
34 v.ival = fcntl(arg(0,getargs(),int),
35 arg(1,getargs(),int));
43 v.ival = open(arg(0,getargs(),ptr_t).p,
45 arg(2,getargs(),mode_t));
47 v.ival = open(arg(0,getargs(),ptr_t).p,
48 arg(1,getargs(),int));
55 arg_list ap = getargs();
56 v.ival = creat(arg(0,ap,ptr_t).p,
63 /*******************************************************************/
71 EiC_add_builtinfunc("open", eic_open);
72 EiC_add_builtinfunc("creat", eic_creat);
73 EiC_add_builtinfunc("fcntl", eic_fcntl);