4.3BSD - /usr/src/new/icon/functions/table.c

   1: #include "../h/rt.h"
   2: 
   3: /*
   4:  * table(x) - create a table with default value x.
   5:  */
   6: Xtable(nargs, arg1, arg0)
   7: int nargs;
   8: struct descrip arg1, arg0;
   9:    {
  10:    extern struct b_table *alctable();
  11: 
  12:    hneed(sizeof(struct b_table));
  13:    DeRef(arg1)
  14:    arg0.type = D_TABLE;
  15:    BLKLOC(arg0) = (union block *) alctable(&arg1);
  16:    }
  17: 
  18: Procblock(table,1)

Defined functions