One Level Up Top Level

runtime/lib_ffi.c - ktap

Global variables defined

Functions defined

Source code

  1. /*
  2. * lib_ffi.c - FFI 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 "../include/ktap_types.h"
  23. #include "../include/ktap_ffi.h"
  24. #include "ktap.h"
  25. #include "kp_vm.h"


  28. ‌static int kplib_ffi_new(ktap_state_t *ks)
  29. {
  30.     int n = kp_arg_nr(ks);
  31.     csymbol_id cs_id = kp_arg_checknumber(ks, 1);
  32.     int array_size = kp_arg_checknumber(ks, 2);
  33.     int is_array = kp_arg_checknumber(ks, 3);
  34.     ktap_cdata_t *cd;

  36.     if (unlikely(n != 3)) {
  37.         /* this is not likely to happen since ffi.new arguments are
  38.          * generated by compiler */
  39.         set_nil(ks->top++);
  40.         kp_error(ks, "wrong number of arguments\n");
  41.         return 1;
  42.     }

  44.     if (unlikely(cs_id > max_csym_id(ks)))
  45.         kp_error(ks, "invalid csymbol id\n");

  47.     kp_verbose_printf(ks, "ffi.new symbol %s with length %d\n",
  48.             id_to_csym(ks, cs_id)->name, array_size);

  50.     if (is_array)
  51.         cd = kp_cdata_new_ptr(ks, NULL, array_size, cs_id, 1);
  52.     else
  53.         cd = kp_cdata_new_by_id(ks, NULL, cs_id);
  54.     set_cdata(ks->top, cd);
  55.     incr_top(ks);

  57.     return 1;
  58. }

  60. ‌static int kplib_ffi_cast(ktap_state_t *ks)
  61. {
  62.     int n = kp_arg_nr(ks);
  63.     csymbol_id cs_id = kp_arg_checknumber(ks, 1);
  64.     unsigned long addr = kp_arg_checknumber(ks, 2);
  65.     ktap_cdata_t *cd;

  67.     if (unlikely(n != 2)) {
  68.         /* this is not likely to happen since ffi.cast arguments are
  69.          * generated by compiler */
  70.         set_nil(ks->top++);
  71.         kp_error(ks, "wrong number of arguments\n");
  72.         return 1;
  73.     }

  75.     if (unlikely(cs_id > max_csym_id(ks)))
  76.         kp_error(ks, "invalid csymbol id\n");

  78.     cd = kp_cdata_new_record(ks, (void *)addr, cs_id);
  79.     set_cdata(ks->top, cd);
  80.     incr_top(ks);
  81.     return 1;
  82. }

  84. ‌static int kplib_ffi_sizeof(ktap_state_t *ks)
  85. {
  86.     /*@TODO finish this  08.11 2013 (houqp)*/
  87.     return 0;
  88. }

  90. ‌static const ktap_libfunc_t ffi_lib_funcs[] = {
  91.     {"sizeof", kplib_ffi_sizeof},
  92.     {"new", kplib_ffi_new},
  93.     {"cast", kplib_ffi_cast},
  94.     {NULL}
  95. };

  97. ‌int kp_lib_init_ffi(ktap_state_t *ks)
  98. {
  99.     return kp_vm_register_lib(ks, "ffi", ffi_lib_funcs);
  100. }

One Level Up Top Level