Statement.ImportDeclarationand ('M, 'T) specifier = | ImportNamedSpecifiers of ('M, 'T) named_specifier list| ImportNamespaceSpecifier of 'M * ('M, 'T) Identifier.tand ('M, 'T) named_specifier = {kind : import_kind option;local : ('M, 'T) Identifier.t option;remote : ('M, 'T) Identifier.t;remote_name_def_loc : 'M option;}and ('M, 'T) default_identifier = {identifier : ('M, 'T) Identifier.t;remote_default_name_def_loc : 'M option;}and ('M, 'T) t = {import_kind : import_kind;source : 'T * 'M StringLiteral.t;default : ('M, 'T) default_identifier option;specifiers : ('M, 'T) specifier option;comments : ('M, unit) Syntax.t option;}val pp_import_kind : Format.formatter -> import_kind -> unitval show_import_kind : import_kind -> stringval pp_specifier :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
Format.formatter ->
('M, 'T) specifier ->
unitval show_specifier :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
('M, 'T) specifier ->
stringval pp_named_specifier :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
Format.formatter ->
('M, 'T) named_specifier ->
unitval show_named_specifier :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
('M, 'T) named_specifier ->
stringval pp_default_identifier :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
Format.formatter ->
('M, 'T) default_identifier ->
unitval show_default_identifier :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
('M, 'T) default_identifier ->
stringval pp :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
Format.formatter ->
('M, 'T) t ->
unitval show :
(Format.formatter -> 'M -> unit) ->
(Format.formatter -> 'T -> unit) ->
('M, 'T) t ->
string