val location : Hgen_types.loc -> Lexing.lexbuf -> Hgen_types.loc
val bolloc_multi_nl :
  Hgen_types.loc -> Lexing.lexbuf -> int -> int -> Hgen_types.loc
val bolloc_nl : Hgen_types.loc -> Lexing.lexbuf -> Hgen_types.loc
val count_lf : string -> int * int
val at_bol : Hgen_types.loc -> Lexing.lexbuf -> bool
val loc_of_token : Hgen_parser.token -> Hgen_types.loc
val print_meta_def :
  [< `Global_default_immutable
   | `Global_default_int
   | `Global_default_int32
   | `Global_default_mutable
   | `Global_defmapping of string * string * string * string
   | `Global_reserve_structprefix of string
   | `Local_equals of string
   | `Local_immutable
   | `Local_int
   | `Local_int32
   | `Local_mapping of string
   | `Local_mutable
   | `Local_name of string
   | `Local_structprefix of string
   | `Local_tuple
   | `Nonmutating
   | `Other of string ] ->
  string
module TS_util :
  sig
    val colon_name :
      [< `Absolute of string list | `Relative of string list ] -> string
    val mapped_name :
      [< `Const of 'a
       | `Exn of < mapped_name : 'b; .. >
       | `Module of < mapped_name : 'b; .. >
       | `Object of < mapped_name : 'b; .. >
       | `Type of < mapped_name : 'b; .. > ] ->
      'b
    val typeterm_string :
      ([< `Bool
        | `Byte
        | `Byteseq
        | `Dictionary of 'a * 'a
        | `Double
        | `Enum of string array
        | `Float
        | `Int
        | `Int32
        | `Long
        | `Named of
            < name : [< `Absolute of string list | `Relative of string list ];
              .. >
        | `Object of [< `Absolute of string list | `Relative of string list ]
        | `Proxy of [< `Absolute of string list | `Relative of string list ]
        | `Sequence of 'a
        | `Short
        | `String
        | `Struct of (string * string * 'a * bool) array * 'b
        | `Struct_tuple of (string * 'a) array
        | `User_mapping of 'a * 'c * 'd * 'e
        | `Void ]
       as 'a) ->
      string
    val print_operation :
      < in_args : (string * string *
                   ([< `Bool
                     | `Byte
                     | `Byteseq
                     | `Dictionary of 'a * 'a
                     | `Double
                     | `Enum of string array
                     | `Float
                     | `Int
                     | `Int32
                     | `Long
                     | `Named of
                         < name : [< `Absolute of string list
                                   | `Relative of string list ];
                           .. >
                     | `Object of
                         [< `Absolute of string list
                          | `Relative of string list ]
                     | `Proxy of
                         [< `Absolute of string list
                          | `Relative of string list ]
                     | `Sequence of 'a
                     | `Short
                     | `String
                     | `Struct of (string * string * 'a * bool) array * 'b
                     | `Struct_tuple of (string * 'a) array
                     | `User_mapping of 'a * 'c * 'd * 'e
                     | `Void ]
                    as 'a))
                  array;
        in_classes : bool; mapped_name : string;
        meta : [< `Global_default_immutable
                | `Global_default_int
                | `Global_default_int32
                | `Global_default_mutable
                | `Global_defmapping of string * string * string * string
                | `Global_reserve_structprefix of string
                | `Local_equals of string
                | `Local_immutable
                | `Local_int
                | `Local_int32
                | `Local_mapping of string
                | `Local_mutable
                | `Local_name of string
                | `Local_structprefix of string
                | `Local_tuple
                | `Nonmutating
                | `Other of string ]
               list;
        mode : [> `Idempotent ]; name : string;
        out_args : (string * string *
                    ([< `Bool
                      | `Byte
                      | `Byteseq
                      | `Dictionary of 'f * 'f
                      | `Double
                      | `Enum of string array
                      | `Float
                      | `Int
                      | `Int32
                      | `Long
                      | `Named of
                          < name : [< `Absolute of string list
                                    | `Relative of string list ];
                            .. >
                      | `Object of
                          [< `Absolute of string list
                           | `Relative of string list ]
                      | `Proxy of
                          [< `Absolute of string list
                           | `Relative of string list ]
                      | `Sequence of 'f
                      | `Short
                      | `String
                      | `Struct of (string * string * 'f * bool) array * 'g
                      | `Struct_tuple of (string * 'f) array
                      | `User_mapping of 'f * 'h * 'i * 'j
                      | `Void ]
                     as 'f))
                   array;
        out_classes : bool;
        result : [< `Bool
                  | `Byte
                  | `Byteseq
                  | `Dictionary of 'k * 'k
                  | `Double
                  | `Enum of string array
                  | `Float
                  | `Int
                  | `Int32
                  | `Long
                  | `Named of
                      < name : [< `Absolute of string list
                                | `Relative of string list ];
                        .. >
                  | `Object of
                      [< `Absolute of string list | `Relative of string list ]
                  | `Proxy of
                      [< `Absolute of string list | `Relative of string list ]
                  | `Sequence of 'k
                  | `Short
                  | `String
                  | `Struct of (string * string * 'k * bool) array * 'l
                  | `Struct_tuple of (string * 'k) array
                  | `User_mapping of 'k * 'm * 'n * 'o
                  | `Void ]
                 as 'k;
        throws : < name : [< `Absolute of string list
                           | `Relative of string list ];
                   .. >
                 list;
        .. > ->
      unit
    val print_symboltable :
      Hgen_types.TS.entity Hgen_types.CiHashtbl.t -> unit
  end