diffast-langs-fortran-parsing 0.1.1

module Binding = Diffast_misc.Binding

module Layeredloc = Langs_common.Layeredloc

module Astloc = Langs_common.Astloc

module Ast_base = Langs_common.Ast_base

module Loc = Astloc

module LLoc = Layeredloc

module I = Pinfo

module B = Binding

module BID = Binding.ID

module L = Label

module C = Context

type name = Label_common.name

class node : ?lloc:LLoc.c option -> ?children:node list option -> ?info:I.t option -> 
  L.t -> object ... end

val node_opt_to_name_opt : < get_name : 'a.. > option -> 'a option

val node_list_to_name_list : < get_name_opt : 'a option.. > list -> 'a list

val dummy_node : node

val is_dummy_node : < label : L.t.. > -> bool

val empty_node : node

val lloc_of_locs : Langs_common.Astloc.t -> Langs_common.Astloc.t -> LLoc.c

val lloc_of_lexposs : Lexing.position -> Lexing.position -> LLoc.c

val mknode : 
  'a ->
  Lexing.position ->
  Lexing.position ->
  ?info:I.t ->
  L.t ->
  node list ->
  node

val mkleaf : 
  'a ->
  Lexing.position ->
  Lexing.position ->
  ?info:I.t ->
  L.t ->
  node

val reloc : 
  'a ->
  Lexing.position ->
  Lexing.position ->
  < set_lloc : LLoc.c -> 'b.. > ->
  'b

val mkstmtnode : 
  < find_label : (string * int) -> Label_common.label * 'a.. > ->
  Lexing.position ->
  Lexing.position ->
  ?info:I.t ->
  Fortran_parsing.Labels.Stmt._t ->
  node list ->
  node

val mkstmtleaf : 
  < find_label : (string * int) -> Label_common.label * 'a.. > ->
  Lexing.position ->
  Lexing.position ->
  ?info:I.t ->
  Fortran_parsing.Labels.Stmt._t ->
  node

module Partial : sig ... end

val is_stmt : < label : L.t.. > -> bool

val is_constant : < label : L.t.. > -> bool

val get_last_name : < get_name : string.. > list -> string

val position_spec_to_inquire_spec : 
  < label : L.t ; relab : L.t -> unit.. > as 'a ->
  'a

val position_spec_to_close_spec : 
  < label : L.t ; relab : L.t -> unit.. > as 'a ->
  'a

val position_spec_to_io_control_spec : 
  < label : L.t ; relab : L.t -> unit.. > as 'a ->
  'a

val position_spec_to_wait_spec : 
  < label : L.t ; relab : L.t -> unit.. > as 'a ->
  'a

val position_spec_to_flush_spec : 
  < label : L.t ; relab : L.t -> unit.. > as 'a ->
  'a

val close_spec_to_connect_spec : 
  < label : L.t ; relab : L.t -> unit.. > as 'a ->
  'a

val lloc_of_nodes : < lloc : LLoc.c.. > list -> LLoc.c

val visit : (< children : 'a list.. > as 'a -> 'b) -> 'a -> unit

val visit_post : (node -> unit) -> node -> unit

val size : < children : 'a list.. > as 'a -> int

class c : node -> object ... end

val spec_opt_exec_opt_to_list : ('a option * 'a option) -> 'a list

val spec_opt_exec_opt_to_children_pair : 
  (< children : 'a list.. > option * < children : 'b list.. > option) ->
  'a list * 'b list

package diffast-langs-fortran-parsing