You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
534 lines
24 KiB
534 lines
24 KiB
open Ctypes
|
|
|
|
module Types (F: Cstubs.Types.TYPE) =
|
|
struct
|
|
|
|
open F
|
|
|
|
type ks_struct
|
|
let ks_struct : ks_struct structure typ = structure "ks_struct"
|
|
|
|
type ks_engine
|
|
let ks_engine = typedef ks_struct "ks_engine"
|
|
|
|
type ks_t = ks_struct structure ptr
|
|
let ks_t : ks_struct structure ptr typ = ptr ks_engine
|
|
|
|
(** Architecture type *)
|
|
type ks_arch =
|
|
| KS_ARCH_ARM
|
|
| KS_ARCH_ARM64
|
|
| KS_ARCH_MIPS
|
|
| KS_ARCH_X86
|
|
| KS_ARCH_PPC
|
|
| KS_ARCH_SPARC
|
|
| KS_ARCH_SYSTEMZ
|
|
| KS_ARCH_HEXAGON
|
|
| KS_ARCH_MAX
|
|
|
|
|
|
(** Error type: please refer to keystone.h for a full description. *)
|
|
type ks_error =
|
|
| KS_ERR_OK
|
|
| KS_ERR_NOMEM
|
|
| KS_ERR_ARCH
|
|
| KS_ERR_HANDLE
|
|
| KS_ERR_MODE
|
|
| KS_ERR_VERSION
|
|
| KS_ERR_OPT_INVALID
|
|
| KS_ERR_ASM_EXPR_TOKEN
|
|
| KS_ERR_ASM_DIRECTIVE_VALUE_RANGE
|
|
| KS_ERR_ASM_DIRECTIVE_ID
|
|
| KS_ERR_ASM_DIRECTIVE_TOKEN
|
|
| KS_ERR_ASM_DIRECTIVE_STR
|
|
| KS_ERR_ASM_DIRECTIVE_COMMA
|
|
| KS_ERR_ASM_DIRECTIVE_RELOC_NAME
|
|
| KS_ERR_ASM_DIRECTIVE_RELOC_TOKEN
|
|
| KS_ERR_ASM_DIRECTIVE_FPOINT
|
|
| KS_ERR_ASM_DIRECTIVE_UNKNOWN
|
|
| KS_ERR_ASM_VARIANT_INVALID
|
|
| KS_ERR_ASM_DIRECTIVE_EQU
|
|
| KS_ERR_ASM_EXPR_BRACKET
|
|
| KS_ERR_ASM_SYMBOL_MODIFIER
|
|
| KS_ERR_ASM_SYMBOL_REDEFINED
|
|
| KS_ERR_ASM_SYMBOL_MISSING
|
|
| KS_ERR_ASM_RPAREN
|
|
| KS_ERR_ASM_STAT_TOKEN
|
|
| KS_ERR_ASM_UNSUPPORTED
|
|
| KS_ERR_ASM_MACRO_TOKEN
|
|
| KS_ERR_ASM_MACRO_PAREN
|
|
| KS_ERR_ASM_MACRO_EQU
|
|
| KS_ERR_ASM_MACRO_ARGS
|
|
| KS_ERR_ASM_MACRO_LEVELS_EXCEED
|
|
| KS_ERR_ASM_MACRO_STR
|
|
| KS_ERR_ASM_ESC_BACKSLASH
|
|
| KS_ERR_ASM_ESC_OCTAL
|
|
| KS_ERR_ASM_ESC_SEQUENCE
|
|
| KS_ERR_ASM_ESC_STR
|
|
| KS_ERR_ASM_TOKEN_INVALID
|
|
| KS_ERR_ASM_INSN_UNSUPPORTED
|
|
| KS_ERR_ASM_FIXUP_INVALID
|
|
| KS_ERR_ASM_LABEL_INVALID
|
|
| KS_ERR_ASM_FRAGMENT_INVALID
|
|
| KS_ERR_ASM_INVALIDOPERAND
|
|
| KS_ERR_ASM_MISSINGFEATURE
|
|
| KS_ERR_ASM_MNEMONICFAIL
|
|
|
|
let string_of_ks_error = function
|
|
| KS_ERR_OK -> "KS_ERR_OK"
|
|
| KS_ERR_NOMEM -> "KS_ERR_NOMEM"
|
|
| KS_ERR_ARCH -> "KS_ERR_ARCH"
|
|
| KS_ERR_HANDLE -> "KS_ERR_HANDLE"
|
|
| KS_ERR_MODE -> "KS_ERR_MODE"
|
|
| KS_ERR_VERSION -> "KS_ERR_VERSION"
|
|
| KS_ERR_OPT_INVALID -> "KS_ERR_OPT_INVALID"
|
|
| KS_ERR_ASM_EXPR_TOKEN -> "KS_ERR_ASM_EXPR_TOKEN"
|
|
| KS_ERR_ASM_DIRECTIVE_VALUE_RANGE -> "KS_ERR_ASM_DIRECTIVE_VALUE_RANGE"
|
|
| KS_ERR_ASM_DIRECTIVE_ID -> "KS_ERR_ASM_DIRECTIVE_ID"
|
|
| KS_ERR_ASM_DIRECTIVE_TOKEN -> "KS_ERR_ASM_DIRECTIVE_TOKEN"
|
|
| KS_ERR_ASM_DIRECTIVE_STR -> "KS_ERR_ASM_DIRECTIVE_STR"
|
|
| KS_ERR_ASM_DIRECTIVE_COMMA -> "KS_ERR_ASM_DIRECTIVE_COMMA"
|
|
| KS_ERR_ASM_DIRECTIVE_RELOC_NAME -> "KS_ERR_ASM_DIRECTIVE_RELOC_NAME"
|
|
| KS_ERR_ASM_DIRECTIVE_RELOC_TOKEN -> "KS_ERR_ASM_DIRECTIVE_RELOC_TOKEN"
|
|
| KS_ERR_ASM_DIRECTIVE_FPOINT -> "KS_ERR_ASM_DIRECTIVE_FPOINT"
|
|
| KS_ERR_ASM_DIRECTIVE_UNKNOWN -> "KS_ERR_ASM_DIRECTIVE_UNKNOWN"
|
|
| KS_ERR_ASM_VARIANT_INVALID -> "KS_ERR_ASM_VARIANT_INVALID"
|
|
| KS_ERR_ASM_DIRECTIVE_EQU -> "KS_ERR_ASM_DIRECTIVE_EQU"
|
|
| KS_ERR_ASM_EXPR_BRACKET -> "KS_ERR_ASM_EXPR_BRACKET"
|
|
| KS_ERR_ASM_SYMBOL_MODIFIER -> "KS_ERR_ASM_SYMBOL_MODIFIER"
|
|
| KS_ERR_ASM_SYMBOL_REDEFINED -> "KS_ERR_ASM_SYMBOL_REDEFINED"
|
|
| KS_ERR_ASM_SYMBOL_MISSING -> "KS_ERR_ASM_SYMBOL_MISSING"
|
|
| KS_ERR_ASM_RPAREN -> "KS_ERR_ASM_RPAREN"
|
|
| KS_ERR_ASM_STAT_TOKEN -> "KS_ERR_ASM_STAT_TOKEN"
|
|
| KS_ERR_ASM_UNSUPPORTED -> "KS_ERR_ASM_UNSUPPORTED"
|
|
| KS_ERR_ASM_MACRO_TOKEN -> "KS_ERR_ASM_MACRO_TOKEN"
|
|
| KS_ERR_ASM_MACRO_PAREN -> "KS_ERR_ASM_MACRO_PAREN"
|
|
| KS_ERR_ASM_MACRO_EQU -> "KS_ERR_ASM_MACRO_EQU"
|
|
| KS_ERR_ASM_MACRO_ARGS -> "KS_ERR_ASM_MACRO_ARGS"
|
|
| KS_ERR_ASM_MACRO_LEVELS_EXCEED -> "KS_ERR_ASM_MACRO_LEVELS_EXCEED"
|
|
| KS_ERR_ASM_MACRO_STR -> "KS_ERR_ASM_MACRO_STR"
|
|
| KS_ERR_ASM_ESC_BACKSLASH -> "KS_ERR_ASM_ESC_BACKSLASH"
|
|
| KS_ERR_ASM_ESC_OCTAL -> "KS_ERR_ASM_ESC_OCTAL"
|
|
| KS_ERR_ASM_ESC_SEQUENCE -> "KS_ERR_ASM_ESC_SEQUENCE"
|
|
| KS_ERR_ASM_ESC_STR -> "KS_ERR_ASM_ESC_STR "
|
|
| KS_ERR_ASM_TOKEN_INVALID -> "KS_ERR_ASM_TOKEN_INVALID"
|
|
| KS_ERR_ASM_INSN_UNSUPPORTED -> "KS_ERR_ASM_INSN_UNSUPPORTED"
|
|
| KS_ERR_ASM_FIXUP_INVALID -> "KS_ERR_ASM_FIXUP_INVALID "
|
|
| KS_ERR_ASM_LABEL_INVALID -> "KS_ERR_ASM_LABEL_INVALID "
|
|
| KS_ERR_ASM_FRAGMENT_INVALID -> "KS_ERR_ASM_FRAGMENT_INVALID"
|
|
| KS_ERR_ASM_INVALIDOPERAND -> "KS_ERR_ASM_INVALIDOPERAND"
|
|
| KS_ERR_ASM_MISSINGFEATURE -> "KS_ERR_ASM_MISSINGFEATURE"
|
|
| KS_ERR_ASM_MNEMONICFAIL -> "KS_ERR_ASM_MNEMONICFAIL "
|
|
|
|
|
|
let ks_err_ok = constant "KS_ERR_OK" int64_t
|
|
let ks_err_nomem = constant "KS_ERR_NOMEM" int64_t
|
|
let ks_err_arch = constant "KS_ERR_ARCH" int64_t
|
|
let ks_err_handle = constant "KS_ERR_HANDLE" int64_t
|
|
let ks_err_mode = constant "KS_ERR_MODE" int64_t
|
|
let ks_err_version = constant "KS_ERR_VERSION" int64_t
|
|
let ks_err_opt_invalid = constant "KS_ERR_OPT_INVALID" int64_t
|
|
let ks_err_asm_expr_token = constant "KS_ERR_ASM_EXPR_TOKEN" int64_t
|
|
let ks_err_asm_directive_value_range = constant "KS_ERR_ASM_DIRECTIVE_VALUE_RANGE" int64_t
|
|
let ks_err_asm_directive_id = constant "KS_ERR_ASM_DIRECTIVE_ID" int64_t
|
|
let ks_err_asm_directive_token = constant "KS_ERR_ASM_DIRECTIVE_TOKEN" int64_t
|
|
let ks_err_asm_directive_str = constant "KS_ERR_ASM_DIRECTIVE_STR" int64_t
|
|
let ks_err_asm_directive_comma = constant "KS_ERR_ASM_DIRECTIVE_COMMA" int64_t
|
|
let ks_err_asm_directive_reloc_name = constant "KS_ERR_ASM_DIRECTIVE_RELOC_NAME" int64_t
|
|
let ks_err_asm_directive_reloc_token = constant "KS_ERR_ASM_DIRECTIVE_RELOC_TOKEN" int64_t
|
|
let ks_err_asm_directive_fpoint = constant "KS_ERR_ASM_DIRECTIVE_FPOINT" int64_t
|
|
let ks_err_asm_directive_unknown = constant "KS_ERR_ASM_DIRECTIVE_UNKNOWN" int64_t
|
|
let ks_err_asm_variant_invalid = constant "KS_ERR_ASM_VARIANT_INVALID" int64_t
|
|
let ks_err_asm_directive_equ = constant "KS_ERR_ASM_DIRECTIVE_EQU" int64_t
|
|
let ks_err_asm_expr_bracket = constant "KS_ERR_ASM_EXPR_BRACKET" int64_t
|
|
let ks_err_asm_symbol_modifier = constant "KS_ERR_ASM_SYMBOL_MODIFIER" int64_t
|
|
let ks_err_asm_symbol_redefined = constant "KS_ERR_ASM_SYMBOL_REDEFINED" int64_t
|
|
let ks_err_asm_symbol_missing = constant "KS_ERR_ASM_SYMBOL_MISSING" int64_t
|
|
let ks_err_asm_rparen = constant "KS_ERR_ASM_RPAREN" int64_t
|
|
let ks_err_asm_stat_token = constant "KS_ERR_ASM_STAT_TOKEN" int64_t
|
|
let ks_err_asm_unsupported = constant "KS_ERR_ASM_UNSUPPORTED" int64_t
|
|
let ks_err_asm_macro_token = constant "KS_ERR_ASM_MACRO_TOKEN" int64_t
|
|
let ks_err_asm_macro_paren = constant "KS_ERR_ASM_MACRO_PAREN" int64_t
|
|
let ks_err_asm_macro_equ = constant "KS_ERR_ASM_MACRO_EQU" int64_t
|
|
let ks_err_asm_macro_args = constant "KS_ERR_ASM_MACRO_ARGS" int64_t
|
|
let ks_err_asm_macro_levels_exceed = constant "KS_ERR_ASM_MACRO_LEVELS_EXCEED" int64_t
|
|
let ks_err_asm_macro_str = constant "KS_ERR_ASM_MACRO_STR" int64_t
|
|
let ks_err_asm_esc_backslash = constant "KS_ERR_ASM_ESC_BACKSLASH" int64_t
|
|
let ks_err_asm_esc_octal = constant "KS_ERR_ASM_ESC_OCTAL" int64_t
|
|
let ks_err_asm_esc_sequence = constant "KS_ERR_ASM_ESC_SEQUENCE" int64_t
|
|
let ks_err_asm_esc_str = constant "KS_ERR_ASM_ESC_STR" int64_t
|
|
let ks_err_asm_token_invalid = constant "KS_ERR_ASM_TOKEN_INVALID" int64_t
|
|
let ks_err_asm_insn_unsupported = constant "KS_ERR_ASM_INSN_UNSUPPORTED" int64_t
|
|
let ks_err_asm_fixup_invalid = constant "KS_ERR_ASM_FIXUP_INVALID" int64_t
|
|
let ks_err_asm_label_invalid = constant "KS_ERR_ASM_LABEL_INVALID" int64_t
|
|
let ks_err_asm_fragment_invalid = constant "KS_ERR_ASM_FRAGMENT_INVALID" int64_t
|
|
let ks_err_asm_invalidoperand = constant "KS_ERR_ASM_INVALIDOPERAND" int64_t
|
|
let ks_err_asm_missingfeature = constant "KS_ERR_ASM_MISSINGFEATURE" int64_t
|
|
let ks_err_asm_mnemonicfail = constant "KS_ERR_ASM_MNEMONICFAIL" int64_t
|
|
|
|
let ks_err = enum "ks_err" [
|
|
KS_ERR_OK, ks_err_ok;
|
|
KS_ERR_NOMEM, ks_err_nomem;
|
|
KS_ERR_ARCH, ks_err_arch;
|
|
KS_ERR_HANDLE, ks_err_handle;
|
|
KS_ERR_MODE, ks_err_mode;
|
|
KS_ERR_VERSION, ks_err_version;
|
|
KS_ERR_OPT_INVALID, ks_err_opt_invalid;
|
|
KS_ERR_ASM_EXPR_TOKEN, ks_err_asm_expr_token;
|
|
KS_ERR_ASM_DIRECTIVE_VALUE_RANGE, ks_err_asm_directive_value_range;
|
|
KS_ERR_ASM_DIRECTIVE_ID, ks_err_asm_directive_id;
|
|
KS_ERR_ASM_DIRECTIVE_TOKEN, ks_err_asm_directive_token;
|
|
KS_ERR_ASM_DIRECTIVE_STR, ks_err_asm_directive_str;
|
|
KS_ERR_ASM_DIRECTIVE_COMMA, ks_err_asm_directive_comma;
|
|
KS_ERR_ASM_DIRECTIVE_RELOC_NAME, ks_err_asm_directive_reloc_name;
|
|
KS_ERR_ASM_DIRECTIVE_RELOC_TOKEN, ks_err_asm_directive_reloc_token;
|
|
KS_ERR_ASM_DIRECTIVE_FPOINT, ks_err_asm_directive_fpoint;
|
|
KS_ERR_ASM_DIRECTIVE_UNKNOWN, ks_err_asm_directive_unknown;
|
|
KS_ERR_ASM_VARIANT_INVALID, ks_err_asm_variant_invalid;
|
|
KS_ERR_ASM_DIRECTIVE_EQU, ks_err_asm_directive_equ;
|
|
KS_ERR_ASM_EXPR_BRACKET, ks_err_asm_expr_bracket;
|
|
KS_ERR_ASM_SYMBOL_MODIFIER, ks_err_asm_symbol_modifier;
|
|
KS_ERR_ASM_SYMBOL_REDEFINED, ks_err_asm_symbol_redefined;
|
|
KS_ERR_ASM_SYMBOL_MISSING, ks_err_asm_symbol_missing;
|
|
KS_ERR_ASM_RPAREN, ks_err_asm_rparen;
|
|
KS_ERR_ASM_STAT_TOKEN, ks_err_asm_stat_token;
|
|
KS_ERR_ASM_UNSUPPORTED, ks_err_asm_unsupported;
|
|
KS_ERR_ASM_MACRO_TOKEN, ks_err_asm_macro_token;
|
|
KS_ERR_ASM_MACRO_PAREN, ks_err_asm_macro_paren;
|
|
KS_ERR_ASM_MACRO_EQU, ks_err_asm_macro_equ;
|
|
KS_ERR_ASM_MACRO_ARGS, ks_err_asm_macro_args;
|
|
KS_ERR_ASM_MACRO_LEVELS_EXCEED, ks_err_asm_macro_levels_exceed;
|
|
KS_ERR_ASM_MACRO_STR, ks_err_asm_macro_str;
|
|
KS_ERR_ASM_ESC_BACKSLASH, ks_err_asm_esc_backslash;
|
|
KS_ERR_ASM_ESC_OCTAL, ks_err_asm_esc_octal;
|
|
KS_ERR_ASM_ESC_SEQUENCE, ks_err_asm_esc_sequence;
|
|
KS_ERR_ASM_ESC_STR , ks_err_asm_esc_str ;
|
|
KS_ERR_ASM_TOKEN_INVALID, ks_err_asm_token_invalid;
|
|
KS_ERR_ASM_INSN_UNSUPPORTED, ks_err_asm_insn_unsupported;
|
|
KS_ERR_ASM_FIXUP_INVALID , ks_err_asm_fixup_invalid ;
|
|
KS_ERR_ASM_LABEL_INVALID , ks_err_asm_label_invalid ;
|
|
KS_ERR_ASM_FRAGMENT_INVALID, ks_err_asm_fragment_invalid;
|
|
KS_ERR_ASM_INVALIDOPERAND, ks_err_asm_invalidoperand;
|
|
KS_ERR_ASM_MISSINGFEATURE, ks_err_asm_missingfeature;
|
|
KS_ERR_ASM_MNEMONICFAIL , ks_err_asm_mnemonicfail
|
|
]
|
|
|
|
let ks_arch_arm = constant "KS_ARCH_ARM" int64_t
|
|
let ks_arch_arm64 = constant "KS_ARCH_ARM64" int64_t
|
|
let ks_arch_mips = constant "KS_ARCH_MIPS" int64_t
|
|
let ks_arch_x86 = constant "KS_ARCH_X86" int64_t
|
|
let ks_arch_ppc = constant "KS_ARCH_PPC" int64_t
|
|
let ks_arch_sparc = constant "KS_ARCH_SPARC" int64_t
|
|
let ks_arch_systemz = constant "KS_ARCH_SYSTEMZ" int64_t
|
|
let ks_arch_hexagon = constant "KS_ARCH_HEXAGON" int64_t
|
|
let ks_arch_max = constant "KS_ARCH_MAX" int64_t
|
|
|
|
let ks_arch = enum "ks_arch" [
|
|
KS_ARCH_ARM, ks_arch_arm;
|
|
KS_ARCH_ARM64, ks_arch_arm64;
|
|
KS_ARCH_MIPS, ks_arch_mips;
|
|
KS_ARCH_X86, ks_arch_x86;
|
|
KS_ARCH_PPC, ks_arch_ppc;
|
|
KS_ARCH_SPARC, ks_arch_sparc;
|
|
KS_ARCH_SYSTEMZ, ks_arch_systemz;
|
|
KS_ARCH_HEXAGON, ks_arch_hexagon;
|
|
KS_ARCH_MAX, ks_arch_max
|
|
]
|
|
|
|
|
|
let ks_api_major = constant "KS_API_MAJOR" int
|
|
let ks_api_minor = constant "KS_API_MINOR" int
|
|
|
|
(** Mode type: refer to keystone.h for a full description *)
|
|
type ks_mode =
|
|
| KS_MODE_ARM
|
|
| KS_MODE_BIG_ENDIAN
|
|
| KS_MODE_LITTLE_ENDIAN
|
|
| KS_MODE_THUMB
|
|
| KS_MODE_V8
|
|
| KS_MODE_MICRO
|
|
| KS_MODE_MIPS3
|
|
| KS_MODE_MIPS32R6
|
|
| KS_MODE_MIPS32
|
|
| KS_MODE_MIPS64
|
|
| KS_MODE_16
|
|
| KS_MODE_32
|
|
| KS_MODE_64
|
|
| KS_MODE_PPC32
|
|
| KS_MODE_PPC64
|
|
| KS_MODE_QPX
|
|
| KS_MODE_SPARC32
|
|
| KS_MODE_SPARC64
|
|
| KS_MODE_V9
|
|
|
|
|
|
|
|
let string_of_ks_mode = function
|
|
| KS_MODE_ARM -> "KS_MODE_ARM"
|
|
| KS_MODE_BIG_ENDIAN -> "KS_MODE_BIG_ENDIAN"
|
|
| KS_MODE_LITTLE_ENDIAN -> "KS_MODE_LITTLE_ENDIAN"
|
|
| KS_MODE_THUMB -> "KS_MODE_THUMB"
|
|
| KS_MODE_V8 -> "KS_MODE_V8"
|
|
| KS_MODE_MICRO -> "KS_MODE_MICRO"
|
|
| KS_MODE_MIPS3 -> "KS_MODE_MIPS3"
|
|
| KS_MODE_MIPS32R6 -> "KS_MODE_MIPS32R6"
|
|
| KS_MODE_MIPS32 -> "KS_MODE_MIPS32"
|
|
| KS_MODE_MIPS64 -> "KS_MODE_MIPS64"
|
|
| KS_MODE_16 -> "KS_MODE_16"
|
|
| KS_MODE_32 -> "KS_MODE_32"
|
|
| KS_MODE_64 -> "KS_MODE_64"
|
|
| KS_MODE_PPC32 -> "KS_MODE_PPC32"
|
|
| KS_MODE_PPC64 -> "KS_MODE_PPC64"
|
|
| KS_MODE_QPX -> "KS_MODE_QPX"
|
|
| KS_MODE_SPARC32 -> "KS_MODE_SPARC32"
|
|
| KS_MODE_SPARC64 -> "KS_MODE_SPARC64"
|
|
| KS_MODE_V9 -> "KS_MODE_V9"
|
|
|
|
|
|
|
|
|
|
|
|
let ks_mode_little_endian = constant "KS_MODE_LITTLE_ENDIAN" int64_t
|
|
let ks_mode_big_endian = constant "KS_MODE_BIG_ENDIAN" int64_t
|
|
let ks_mode_arm = constant "KS_MODE_ARM" int64_t
|
|
|
|
let ks_mode_thumb = constant "KS_MODE_THUMB" int64_t
|
|
|
|
let ks_mode_v8 = constant "KS_MODE_V8" int64_t
|
|
let ks_mode_micro = constant "KS_MODE_MICRO" int64_t
|
|
let ks_mode_mips3 = constant "KS_MODE_MIPS3" int64_t
|
|
let ks_mode_mips32r6 = constant "KS_MODE_MIPS32R6" int64_t
|
|
let ks_mode_mips32 = constant "KS_MODE_MIPS32" int64_t
|
|
let ks_mode_mips64 = constant "KS_MODE_MIPS64" int64_t
|
|
let ks_mode_16 = constant "KS_MODE_16" int64_t
|
|
let ks_mode_32 = constant "KS_MODE_32" int64_t
|
|
let ks_mode_64 = constant "KS_MODE_64" int64_t
|
|
let ks_mode_ppc32 = constant "KS_MODE_PPC32" int64_t
|
|
let ks_mode_ppc64 = constant "KS_MODE_PPC64" int64_t
|
|
let ks_mode_qpx = constant "KS_MODE_QPX" int64_t
|
|
let ks_mode_sparc32 = constant "KS_MODE_SPARC32" int64_t
|
|
let ks_mode_sparc64 = constant "KS_MODE_SPARC64" int64_t
|
|
let ks_mode_v9 = constant "KS_MODE_V9" int64_t
|
|
|
|
let ks_mode = enum "ks_mode" [
|
|
(*KS_MODE_LITTLE_ENDIAN, ks_mode_little_endian;
|
|
KS_MODE_BIG_ENDIAN, ks_mode_big_endian;*)
|
|
KS_MODE_ARM, ks_mode_arm;
|
|
KS_MODE_THUMB, ks_mode_thumb;
|
|
KS_MODE_V8, ks_mode_v8;
|
|
KS_MODE_MICRO, ks_mode_micro;
|
|
KS_MODE_MIPS3, ks_mode_mips3;
|
|
KS_MODE_MIPS32R6,ks_mode_mips32r6;
|
|
KS_MODE_MIPS32, ks_mode_mips32;
|
|
KS_MODE_MIPS64, ks_mode_mips64;
|
|
KS_MODE_16, ks_mode_16;
|
|
KS_MODE_32, ks_mode_32;
|
|
KS_MODE_64, ks_mode_64;
|
|
KS_MODE_PPC32, ks_mode_ppc32;
|
|
KS_MODE_PPC64, ks_mode_ppc64;
|
|
KS_MODE_QPX, ks_mode_qpx;
|
|
KS_MODE_SPARC32, ks_mode_sparc32;
|
|
KS_MODE_SPARC64, ks_mode_sparc64;
|
|
KS_MODE_V9, ks_mode_v9;
|
|
]
|
|
|
|
|
|
type ks_opt_type =
|
|
| KS_OPT_SYNTAX
|
|
|
|
let ks_opt_syntax_ = constant "KS_OPT_SYNTAX" int64_t
|
|
|
|
let ks_opt_type = enum "ks_opt_type" [
|
|
KS_OPT_SYNTAX, ks_opt_syntax_;
|
|
]
|
|
|
|
(** Runtime option value: refer to keystone.h for a full description *)
|
|
type ks_opt_value =
|
|
| KS_OPT_SYNTAX_INTEL
|
|
| KS_OPT_SYNTAX_ATT
|
|
| KS_OPT_SYNTAX_NASM
|
|
| KS_OPT_SYNTAX_MASM
|
|
| KS_OPT_SYNTAX_GAS
|
|
| KS_OPT_SYNTAX_RADIX16
|
|
|
|
|
|
let ks_opt_syntax_intel = constant "KS_OPT_SYNTAX_INTEL" int64_t
|
|
let ks_opt_syntax_att = constant "KS_OPT_SYNTAX_ATT" int64_t
|
|
let ks_opt_syntax_nasm = constant "KS_OPT_SYNTAX_NASM" int64_t
|
|
let ks_opt_syntax_masm = constant "KS_OPT_SYNTAX_MASM" int64_t
|
|
let ks_opt_syntax_gas = constant "KS_OPT_SYNTAX_GAS" int64_t
|
|
let ks_opt_syntax_radix16 = constant "KS_OPT_SYNTAX_RADIX16" int64_t
|
|
|
|
let ks_opt_value = enum "ks_opt_value" [
|
|
KS_OPT_SYNTAX_INTEL, ks_opt_syntax_intel;
|
|
KS_OPT_SYNTAX_ATT, ks_opt_syntax_att;
|
|
KS_OPT_SYNTAX_NASM, ks_opt_syntax_nasm;
|
|
KS_OPT_SYNTAX_MASM, ks_opt_syntax_masm;
|
|
KS_OPT_SYNTAX_GAS, ks_opt_syntax_gas;
|
|
KS_OPT_SYNTAX_RADIX16, ks_opt_syntax_radix16
|
|
]
|
|
|
|
|
|
module X86 =
|
|
struct
|
|
type ks_err_asm_x86 =
|
|
| KS_ERR_ASM_X86_INVALIDOPERAND
|
|
| KS_ERR_ASM_X86_MISSINGFEATURE
|
|
| KS_ERR_ASM_X86_MNEMONICFAIL
|
|
|
|
let ks_err_asm_x86_invalidoperand = constant "KS_ERR_ASM_X86_INVALIDOPERAND" int64_t
|
|
let ks_err_asm_x86_missingfeature = constant "KS_ERR_ASM_X86_MISSINGFEATURE" int64_t
|
|
let ks_err_asm_x86_mnemoicfail = constant "KS_ERR_ASM_X86_MNEMONICFAIL" int64_t
|
|
|
|
let ks_err_asm_x86 = enum "ks_err_asm_x86" [
|
|
KS_ERR_ASM_X86_INVALIDOPERAND, ks_err_asm_x86_invalidoperand;
|
|
KS_ERR_ASM_X86_MISSINGFEATURE, ks_err_asm_x86_missingfeature;
|
|
KS_ERR_ASM_X86_MNEMONICFAIL, ks_err_asm_x86_mnemoicfail;
|
|
]
|
|
end
|
|
|
|
module ARM64 =
|
|
struct
|
|
type ks_err_asm_arm64 =
|
|
| KS_ERR_ASM_ARM64_INVALIDOPERAND
|
|
| KS_ERR_ASM_ARM64_MISSINGFEATURE
|
|
| KS_ERR_ASM_ARM64_MNEMONICFAIL
|
|
|
|
|
|
let ks_err_asm_arm64_invalidoperand = constant "KS_ERR_ASM_ARM64_INVALIDOPERAND" int64_t
|
|
let ks_err_asm_arm64_missingfeature = constant "KS_ERR_ASM_ARM64_MISSINGFEATURE" int64_t
|
|
let ks_err_asm_arm64_mnemonicfail = constant "KS_ERR_ASM_ARM64_MNEMONICFAIL" int64_t
|
|
|
|
let ks_err_asm_arm64 = enum "ks_err_asm_arm64" [
|
|
KS_ERR_ASM_ARM64_INVALIDOPERAND, ks_err_asm_arm64_invalidoperand;
|
|
KS_ERR_ASM_ARM64_MISSINGFEATURE, ks_err_asm_arm64_missingfeature;
|
|
KS_ERR_ASM_ARM64_MNEMONICFAIL, ks_err_asm_arm64_mnemonicfail;
|
|
]
|
|
end
|
|
|
|
module ARM =
|
|
struct
|
|
type ks_err_asm_arm =
|
|
| KS_ERR_ASM_ARM_INVALIDOPERAND
|
|
| KS_ERR_ASM_ARM_MISSINGFEATURE
|
|
| KS_ERR_ASM_ARM_MNEMONICFAIL
|
|
|
|
|
|
let ks_err_asm_arm_invalidoperand = constant "KS_ERR_ASM_ARM_INVALIDOPERAND" int64_t
|
|
let ks_err_asm_arm_missingfeature = constant "KS_ERR_ASM_ARM_MISSINGFEATURE" int64_t
|
|
let ks_err_asm_arm_mnemonicfail = constant "KS_ERR_ASM_ARM_MNEMONICFAIL" int64_t
|
|
|
|
let ks_err_asm_arm = enum "ks_err_asm_arm" [
|
|
KS_ERR_ASM_ARM_INVALIDOPERAND, ks_err_asm_arm_invalidoperand;
|
|
KS_ERR_ASM_ARM_MISSINGFEATURE, ks_err_asm_arm_missingfeature;
|
|
KS_ERR_ASM_ARM_MNEMONICFAIL, ks_err_asm_arm_mnemonicfail;
|
|
]
|
|
end
|
|
|
|
module HEXAGON =
|
|
struct
|
|
type ks_err_asm_hexagon =
|
|
| KS_ERR_ASM_HEXAGON_INVALIDOPERAND
|
|
| KS_ERR_ASM_HEXAGON_MISSINGFEATURE
|
|
| KS_ERR_ASM_HEXAGON_MNEMONICFAIL
|
|
|
|
|
|
let ks_err_asm_hexagon_invalidoperand = constant "KS_ERR_ASM_HEXAGON_INVALIDOPERAND" int64_t
|
|
let ks_err_asm_hexagon_missingfeature = constant "KS_ERR_ASM_HEXAGON_MISSINGFEATURE" int64_t
|
|
let ks_err_asm_hexagon_mnemonicfail = constant "KS_ERR_ASM_HEXAGON_MNEMONICFAIL" int64_t
|
|
|
|
let ks_err_asm_hexagon = enum "ks_err_asm_hexagon" [
|
|
KS_ERR_ASM_HEXAGON_INVALIDOPERAND, ks_err_asm_hexagon_invalidoperand;
|
|
KS_ERR_ASM_HEXAGON_MISSINGFEATURE, ks_err_asm_hexagon_missingfeature;
|
|
KS_ERR_ASM_HEXAGON_MNEMONICFAIL, ks_err_asm_hexagon_mnemonicfail;
|
|
]
|
|
end
|
|
|
|
|
|
module MIPS =
|
|
struct
|
|
type ks_err_asm_mips =
|
|
| KS_ERR_ASM_MIPS_INVALIDOPERAND
|
|
| KS_ERR_ASM_MIPS_MISSINGFEATURE
|
|
| KS_ERR_ASM_MIPS_MNEMONICFAIL
|
|
|
|
|
|
let ks_err_asm_mips_invalidoperand = constant "KS_ERR_ASM_MIPS_INVALIDOPERAND" int64_t
|
|
let ks_err_asm_mips_missingfeature = constant "KS_ERR_ASM_MIPS_MISSINGFEATURE" int64_t
|
|
let ks_err_asm_mips_mnemonicfail = constant "KS_ERR_ASM_MIPS_MNEMONICFAIL" int64_t
|
|
|
|
let ks_err_asm_mips = enum "ks_err_asm_mips" [
|
|
KS_ERR_ASM_MIPS_INVALIDOPERAND, ks_err_asm_mips_invalidoperand;
|
|
KS_ERR_ASM_MIPS_MISSINGFEATURE, ks_err_asm_mips_missingfeature;
|
|
KS_ERR_ASM_MIPS_MNEMONICFAIL, ks_err_asm_mips_mnemonicfail;
|
|
]
|
|
end
|
|
|
|
|
|
|
|
module PPC =
|
|
struct
|
|
type ks_err_asm_ppc =
|
|
| KS_ERR_ASM_PPC_INVALIDOPERAND
|
|
| KS_ERR_ASM_PPC_MISSINGFEATURE
|
|
| KS_ERR_ASM_PPC_MNEMONICFAIL
|
|
|
|
|
|
let ks_err_asm_ppc_invalidoperand = constant "KS_ERR_ASM_PPC_INVALIDOPERAND" int64_t
|
|
let ks_err_asm_ppc_missingfeature = constant "KS_ERR_ASM_PPC_MISSINGFEATURE" int64_t
|
|
let ks_err_asm_ppc_mnemonicfail = constant "KS_ERR_ASM_PPC_MNEMONICFAIL" int64_t
|
|
|
|
let ks_err_asm_ppc = enum "ks_err_asm_ppc" [
|
|
KS_ERR_ASM_PPC_INVALIDOPERAND, ks_err_asm_ppc_invalidoperand;
|
|
KS_ERR_ASM_PPC_MISSINGFEATURE, ks_err_asm_ppc_missingfeature;
|
|
KS_ERR_ASM_PPC_MNEMONICFAIL, ks_err_asm_ppc_mnemonicfail;
|
|
]
|
|
end
|
|
|
|
|
|
module SPARC =
|
|
struct
|
|
type ks_err_asm_sparc =
|
|
| KS_ERR_ASM_SPARC_INVALIDOPERAND
|
|
| KS_ERR_ASM_SPARC_MISSINGFEATURE
|
|
| KS_ERR_ASM_SPARC_MNEMONICFAIL
|
|
|
|
|
|
let ks_err_asm_sparc_invalidoperand = constant "KS_ERR_ASM_SPARC_INVALIDOPERAND" int64_t
|
|
let ks_err_asm_sparc_missingfeature = constant "KS_ERR_ASM_SPARC_MISSINGFEATURE" int64_t
|
|
let ks_err_asm_sparc_mnemonicfail = constant "KS_ERR_ASM_SPARC_MNEMONICFAIL" int64_t
|
|
|
|
let ks_err_asm_sparc = enum "ks_err_asm_sparc" [
|
|
KS_ERR_ASM_SPARC_INVALIDOPERAND, ks_err_asm_sparc_invalidoperand;
|
|
KS_ERR_ASM_SPARC_MISSINGFEATURE, ks_err_asm_sparc_missingfeature;
|
|
KS_ERR_ASM_SPARC_MNEMONICFAIL, ks_err_asm_sparc_mnemonicfail;
|
|
]
|
|
end
|
|
|
|
module SYSTEMZ =
|
|
struct
|
|
type ks_err_asm_systemz =
|
|
| KS_ERR_ASM_SYSTEMZ_INVALIDOPERAND
|
|
| KS_ERR_ASM_SYSTEMZ_MISSINGFEATURE
|
|
| KS_ERR_ASM_SYSTEMZ_MNEMONICFAIL
|
|
|
|
|
|
let ks_err_asm_systemz_invalidoperand = constant "KS_ERR_ASM_SYSTEMZ_INVALIDOPERAND" int64_t
|
|
let ks_err_asm_systemz_missingfeature = constant "KS_ERR_ASM_SYSTEMZ_MISSINGFEATURE" int64_t
|
|
let ks_err_asm_systemz_mnemonicfail = constant "KS_ERR_ASM_SYSTEMZ_MNEMONICFAIL" int64_t
|
|
|
|
let ks_err_asm_systemz = enum "ks_err_asm_systemz" [
|
|
KS_ERR_ASM_SYSTEMZ_INVALIDOPERAND, ks_err_asm_systemz_invalidoperand;
|
|
KS_ERR_ASM_SYSTEMZ_MISSINGFEATURE, ks_err_asm_systemz_missingfeature;
|
|
KS_ERR_ASM_SYSTEMZ_MNEMONICFAIL, ks_err_asm_systemz_mnemonicfail;
|
|
]
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end
|