1 files changed, 129 insertions, 0 deletions
diff --git a/lib/efl/native/embryo.rb b/lib/efl/native/embryo.rb
new file mode 100644
index 0000000..b20dead
--- /dev/null
+++ b/lib/efl/native/embryo.rb
@@ -0,0 +1,129 @@
+#! /usr/bin/env ruby
+# -*- coding: UTF-8 -*-
+#
+require 'efl/native'
+#
+module Efl
+    #
+    module Embryo
+        #
+        FCT_PREFIX = 'embryo_' unless const_defined? :FCT_PREFIX
+        #
+        def self.method_missing meth, *args, &block
+            sym = Efl::MethodResolver.resolve self, meth, FCT_PREFIX
+            self.send sym, *args, &block
+        end
+        #
+    end
+    #
+    module Native
+        #
+        ffi_lib 'embryo'
+        #
+        # ENUMS
+        # typedef enum _Embryo_Error {...} Embryo_Error;
+        enum :embryo_error, [ :embryo_error_none, 0, :embryo_error_exit, 1, :embryo_error_assert, 2, :embryo_error_stackerr, 3, :embryo_error_bounds,
+            4, :embryo_error_memaccess, 5, :embryo_error_invinstr, 6, :embryo_error_stacklow, 7, :embryo_error_heaplow, 8, :embryo_error_callback, 9,
+            :embryo_error_native, 10, :embryo_error_divide, 11, :embryo_error_sleep, 12, :embryo_error_memory, 16, :embryo_error_format, 17,
+            :embryo_error_version, 18, :embryo_error_notfound, 19, :embryo_error_index, 20, :embryo_error_debug, 21, :embryo_error_init, 22,
+            :embryo_error_userdata, 23, :embryo_error_init_jit, 24, :embryo_error_params, 25, :embryo_error_domain, 26 ]
+        # typedef enum _Embryo_Status {...} Embryo_Status;
+        enum :embryo_status, [ :embryo_program_fail, 0, :embryo_program_ok, 1, :embryo_program_sleep, 2, :embryo_program_busy, 3,
+            :embryo_program_toolong, 4 ]
+        #
+        # TYPEDEFS
+        # typedef struct _Embryo_Version Embryo_Version;
+        typedef :pointer, :embryo_version
+        # typedef unsigned int Embryo_UCell;
+        typedef :uint, :embryo_ucell
+        # typedef int Embryo_Cell;
+        typedef :int, :embryo_cell
+        # typedef struct _Embryo_Program Embryo_Program;
+        typedef :pointer, :embryo_program
+        # typedef int Embryo_Function;
+        typedef :int, :embryo_function
+        #
+        # VARIABLES
+        # EAPI extern Embryo_Version *embryo_version;
+        attach_variable :embryo_version, :embryo_version
+        #
+        # FUNCTIONS
+        fcts = [
+        # EAPI int embryo_init(void);
+        [ :embryo_init, [  ], :int ],
+        # EAPI int embryo_shutdown(void);
+        [ :embryo_shutdown, [  ], :int ],
+        # EAPI Embryo_Program *embryo_program_new(void *data, int size);
+        [ :embryo_program_new, [ :pointer, :int ], :embryo_program ],
+        # EAPI Embryo_Program *embryo_program_const_new(void *data, int size);
+        [ :embryo_program_const_new, [ :pointer, :int ], :embryo_program ],
+        # EAPI Embryo_Program *embryo_program_load(const char *file);
+        [ :embryo_program_load, [ :string ], :embryo_program ],
+        # EAPI void embryo_program_free(Embryo_Program *ep);
+        [ :embryo_program_free, [ :embryo_program ], :void ],
+        # EAPI void embryo_program_native_call_add(Embryo_Program *ep, const char *name, Embryo_Cell (*func) (Embryo_Program *ep, Embryo_Cell *params));
+        [ :embryo_program_native_call_add, [ :embryo_program, :string,(callback [:embryo_program,:embryo_cell], :embryo_cell)], :void ],
+        # EAPI void embryo_program_vm_reset(Embryo_Program *ep);
+        [ :embryo_program_vm_reset, [ :embryo_program ], :void ],
+        # EAPI void embryo_program_vm_push(Embryo_Program *ep);
+        [ :embryo_program_vm_push, [ :embryo_program ], :void ],
+        # EAPI void embryo_program_vm_pop(Embryo_Program *ep);
+        [ :embryo_program_vm_pop, [ :embryo_program ], :void ],
+        # EAPI void embryo_swap_16(unsigned short *v);
+        [ :embryo_swap_16, [ :pointer ], :void ],
+        # EAPI void embryo_swap_32(unsigned int *v);
+        [ :embryo_swap_32, [ :pointer ], :void ],
+        # EAPI Embryo_Function embryo_program_function_find(Embryo_Program *ep, const char *name);
+        [ :embryo_program_function_find, [ :embryo_program, :string ], :int ],
+        # EAPI Embryo_Cell embryo_program_variable_find(Embryo_Program *ep, const char *name);
+        [ :embryo_program_variable_find, [ :embryo_program, :string ], :int ],
+        # EAPI int embryo_program_variable_count_get(Embryo_Program *ep);
+        [ :embryo_program_variable_count_get, [ :embryo_program ], :int ],
+        # EAPI Embryo_Cell embryo_program_variable_get(Embryo_Program *ep, int num);
+        [ :embryo_program_variable_get, [ :embryo_program, :int ], :int ],
+        # EAPI void embryo_program_error_set(Embryo_Program *ep, Embryo_Error error);
+        [ :embryo_program_error_set, [ :embryo_program, :embryo_error ], :void ],
+        # EAPI Embryo_Error embryo_program_error_get(Embryo_Program *ep);
+        [ :embryo_program_error_get, [ :embryo_program ], :embryo_error ],
+        # EAPI void embryo_program_data_set(Embryo_Program *ep, void *data);
+        [ :embryo_program_data_set, [ :embryo_program, :pointer ], :void ],
+        # EAPI void *embryo_program_data_get(Embryo_Program *ep);
+        [ :embryo_program_data_get, [ :embryo_program ], :pointer ],
+        # EAPI const char *embryo_error_string_get(Embryo_Error error);
+        [ :embryo_error_string_get, [ :embryo_error ], :string ],
+        # EAPI int embryo_data_string_length_get(Embryo_Program *ep, Embryo_Cell *str_cell);
+        [ :embryo_data_string_length_get, [ :embryo_program, :pointer ], :int ],
+        # EAPI void embryo_data_string_get(Embryo_Program *ep, Embryo_Cell *str_cell, char *dst);
+        [ :embryo_data_string_get, [ :embryo_program, :pointer, :string ], :void ],
+        # EAPI void embryo_data_string_set(Embryo_Program *ep, const char *src, Embryo_Cell *str_cell);
+        [ :embryo_data_string_set, [ :embryo_program, :string, :pointer ], :void ],
+        # EAPI Embryo_Cell *embryo_data_address_get(Embryo_Program *ep, Embryo_Cell addr);
+        [ :embryo_data_address_get, [ :embryo_program, :int ], :pointer ],
+        # EAPI Embryo_Cell embryo_data_heap_push(Embryo_Program *ep, int cells);
+        [ :embryo_data_heap_push, [ :embryo_program, :int ], :int ],
+        # EAPI void embryo_data_heap_pop(Embryo_Program *ep, Embryo_Cell down_to);
+        [ :embryo_data_heap_pop, [ :embryo_program, :int ], :void ],
+        # EAPI int embryo_program_recursion_get(Embryo_Program *ep);
+        [ :embryo_program_recursion_get, [ :embryo_program ], :int ],
+        # EAPI Embryo_Status embryo_program_run(Embryo_Program *ep, Embryo_Function func);
+        [ :embryo_program_run, [ :embryo_program, :int ], :embryo_status ],
+        # EAPI Embryo_Cell embryo_program_return_value_get(Embryo_Program *ep);
+        [ :embryo_program_return_value_get, [ :embryo_program ], :int ],
+        # EAPI void embryo_program_max_cycle_run_set(Embryo_Program *ep, int max);
+        [ :embryo_program_max_cycle_run_set, [ :embryo_program, :int ], :void ],
+        # EAPI int embryo_program_max_cycle_run_get(Embryo_Program *ep);
+        [ :embryo_program_max_cycle_run_get, [ :embryo_program ], :int ],
+        # EAPI int embryo_parameter_cell_push(Embryo_Program *ep, Embryo_Cell cell);
+        [ :embryo_parameter_cell_push, [ :embryo_program, :int ], :int ],
+        # EAPI int embryo_parameter_string_push(Embryo_Program *ep, const char *str);
+        [ :embryo_parameter_string_push, [ :embryo_program, :string ], :int ],
+        # EAPI int embryo_parameter_cell_array_push(Embryo_Program *ep, Embryo_Cell *cells, int num);
+        [ :embryo_parameter_cell_array_push, [ :embryo_program, :pointer, :int ], :int ],
+        ]
+        #
+        attach_fcts fcts
+        #
+    end
+end
+#
+# EOF