One Level Up Top Level

runtime/lib_table.c - ktap

Global variables defined

Functions defined

Source code

  1. /*
  2. * lib_table.c - Table library
  3. *
  4. * This file is part of ktap by Jovi Zhangwei.
  5. *
  6. * Copyright (C) 2012-2013 Jovi Zhangwei <jovi.zhangwei@gmail.com>.
  7. *
  8. * ktap is free software; you can redistribute it and/or modify it
  9. * under the terms and conditions of the GNU General Public License,
  10. * version 2, as published by the Free Software Foundation.
  11. *
  12. * ktap is distributed in the hope it will be useful, but WITHOUT
  13. * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  14. * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
  15. * more details.
  16. *
  17. * You should have received a copy of the GNU General Public License along with
  18. * this program; if not, write to the Free Software Foundation, Inc.,
  19. * 51 Franklin St - Fifth Floor, Boston, MA 02110-1301 USA.
  20. */

  22. #include <linux/ctype.h>
  23. #include <linux/slab.h>
  24. #include <linux/delay.h>
  25. #include <linux/sched.h>
  26. #include "../include/ktap_types.h"
  27. #include "ktap.h"
  28. #include "kp_obj.h"
  29. #include "kp_vm.h"
  30. #include "kp_tab.h"

  32. ‌static int kplib_table_new(ktap_state_t *ks)
  33. {
  34.     int narr = kp_arg_checkoptnumber(ks, 1, 0);
  35.     int nrec = kp_arg_checkoptnumber(ks, 2, 0);
  36.     ktap_tab_t *h;

  38.     h = kp_tab_new_ah(ks, narr, nrec);
  39.     if (!h) {
  40.         set_nil(ks->top);
  41.     } else {
  42.         set_table(ks->top, h);
  43.     }

  45.     incr_top(ks);
  46.     return 1;
  47. }

  49. ‌static const ktap_libfunc_t table_lib_funcs[] = {
  50.     {"new",    kplib_table_new},
  51.     {NULL}
  52. };

  54. ‌int kp_lib_init_table(ktap_state_t *ks)
  55. {
  56.     return kp_vm_register_lib(ks, "table", table_lib_funcs);
  57. }

One Level Up Top Level