(**************************************************************************)
(*  This file is part of BINSEC.                                          *)
(*                                                                        *)
(*  Copyright (C) 2016-2021                                               *)
(*    CEA (Commissariat à l'énergie atomique et aux énergies              *)
(*         alternatives)                                                  *)
(*                                                                        *)
(*  you can redistribute it and/or modify it under the terms of the GNU   *)
(*  Lesser General Public License as published by the Free Software       *)
(*  Foundation, version 2.1.                                              *)
(*                                                                        *)
(*  It is distributed in the hope that it will be useful,                 *)
(*  but WITHOUT ANY WARRANTY; without even the implied warranty of        *)
(*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *)
(*  GNU Lesser General Public License for more details.                   *)
(*                                                                        *)
(*  See the GNU Lesser General Public License version 2.1                 *)
(*  for more details (enclosed in the file licenses/LGPLv2.1).            *)
(*                                                                        *)
(**************************************************************************)

open Loader_types

module E_class : sig
  type t = [ `x32 | `x64 ]

  include Sigs.PRINTABLE with type t := t
end

module E_ident : sig
  type t = private {
    kind : E_class.t;
    data : Machine.endianness;
    version : u8;
    osabi : u8;
    abiversion : u8;
  }
end

module Ehdr : sig
  module ET : sig
    type t = NONE | REL | EXEC | DYN | CORE | OS of int | PROC of int

    include Sigs.PRINTABLE with type t := t
  end

  (* Main header. *)
  type t = private {
    ident : E_ident.t;
    kind : ET.t;
    machine : Machine.t;
    version : u32;
    entry : u64;
    phoff : u64;
    shoff : u64;
    flags : u32;
    ehsize : u16;
    phentsize : u16;
    phnum : u16;
    shentsize : u16;
    shnum : u16;
    shstrndx : u16;
  }

  include Sigs.PRINTABLE with type t := t
end

module Shdr : sig
  module SHT : sig
    type t =
      | NULL
      | PROGBITS
      | SYMTAB
      | STRTAB
      | RELA
      | HASH
      | DYNAMIC
      | NOTE
      | NOBITS
      | REL
      | SHLIB
      | DYNSYM
      | INIT_ARRAY
      | FINI_ARRAY
      | PREINIT_ARRAY
      | GROUP
      | SYMTAB_SHNDX
      | OS of int
      | PROC of int
      | USER of int

    include Sigs.PRINTABLE with type t := t
  end

  module SHF : sig
    type t =
      | WRITE
      | ALLOC
      | EXECINSTR
      | MERGE
      | STRINGS
      | INFO_LINK
      | LINK_ORDER
      | OS_NONCONFORMING
      | GROUP
      | TLS
      | OS
      | PROC

    val is : u16 -> t -> bool

    include Sigs.PRINTABLE with type t := u16
  end

  (* ELF section header. *)
  type t = private {
    idx : int;
    name : string;
    kind : SHT.t;
    flags : u64;
    addr : u64;
    offset : u64;
    size : u64;
    link : u32;
    info : u32;
    addralign : u64;
    entsize : u64;
  }

  module SHN : sig
    type section = t

    type t = UNDEF | SEC of section | PROC of int | OS of int | ABS | COMMON

    include Sigs.PRINTABLE with type t := t
  end
end

module Sym : sig
  module STT : sig
    type t =
      | NOTYPE
      | OBJECT
      | FUNC
      | SECTION
      | FILE
      | COMMON
      | TLS
      | OS of int
      | PROC of int

    include Sigs.PRINTABLE with type t := t
  end

  module STB : sig
    type t = LOCAL | GLOBAL | WEAK | OS of int | PROC of int

    include Sigs.PRINTABLE with type t := t
  end

  type t = private {
    name : string;
    kind : STT.t;
    bind : STB.t;
    other : u8;
    sh : Shdr.SHN.t;
    value : u64;
    size : u64;
  }
end

module Phdr : sig
  (* ELF program header *)
  type t = private {
    kind : u32;
    flags : u32;
    offset : u64;
    vaddr : u64;
    paddr : u64;
    filesz : u64;
    memsz : u64;
    align : u64;
  }
end

include
  Loader_sigs.S
    with type Section.header = Shdr.t
     and type Symbol.header = Sym.t
     and type Img.header = Ehdr.t

val program_headers : Img.t -> Phdr.t array