(*
 * Copyright (c) 2017 - present Facebook, Inc.
 * All rights reserved.
 *
 * This source code is licensed under the BSD style license found in the
 * LICENSE file in the root directory of this source tree. An additional grant
 * of patent rights can be found in the PATENTS file in the same directory.
 *)
open! IStd
open Ctypes

type winsize
(* as found in asm-generic/termios.h *)
let winsize : winsize structure typ = structure "winsize"
let ws_row = field winsize "ws_row" ushort
let ws_col = field winsize "ws_col" ushort
let ws_xpixel = field winsize "ws_xpixel" ushort
let ws_ypixel = field winsize "ws_ypixel" ushort
let () = seal winsize

module Types (F: Cstubs.Types.TYPE) = struct
  module Request = struct
    let request_TIOCGWINSZ = F.constant "TIOCGWINSZ" F.ulong
  end
end

module Bindings (F : Cstubs.FOREIGN) = struct
  let (@->) = F.(@->) (* shadow Ctypes' operator *)

  (* ioctl(2) is a variadic function, so cross our fingers that the calling convention works the
     same as non-variadic functions and define different ioctl_* functions for each need *)

  let ioctl_winsize = F.foreign "ioctl" (int @-> ulong @-> ptr winsize @-> F.returning int)
end