1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
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
|
