F_tree (p.diffast-langs-fortran.0.2.doc.diffast-langs-fortran.base.Fortran_base.F

module Xoption = Diffast_misc.Xoption

module Xhash = Diffast_misc.Xhash

module Xfile = Diffast_misc.Xfile

module Loc = Diffast_misc.Loc

module Binding = Diffast_misc.Binding

module Sourcecode = Diffast_core.Sourcecode

module Triple = Diffast_core.Triple

module Entity = Diffast_core.Entity

module Fname = Langs_common.Fname

Sourcemodule Labels = Fortran_parsing.Labels

Sourcemodule Common = Fortran_parsing.Common

Sourcemodule Pinfo = Fortran_parsing.Pinfo

Sourcemodule Printer = Fortran_parsing.Printer

Sourcemodule L = F_label

module B = Binding

Sourcemodule P = Printer

Sourcemodule I = Pinfo

Sourcemodule H = Labels.HeaderFile

module UID = Diffast_misc.UID

Sourceval sprintf : ('a, unit, string) format -> 'a

Sourceval conv_loc : L.Ast.Loc.t -> L.Loc.t

Sourceval set_loc : < data : < set_loc : L.Loc.t -> 'a.. >.. > -> L.Ast.Loc.t -> 'a

module Tree : sig ... end

Sourceval make_local_name : string -> string -> string

Source

val make_include_node : 
  < ignore_identifiers_flag : bool
    ; uid_generator : Diffast_misc.UID.generator
    ; weak_eq_flag : bool.. > ->
  < lloc : < get_loc_of_level : int -> Common.Loc.t.. >.. > ->
  Tree.node_data Diffast_misc.Otree.node2

Sourceval has_subprogram : (< children : 'a list ; label : L.t.. > as 'a) -> bool

Source

class visitor : (Diffast_misc.UID.t ->
  Diffast_misc.UID.t) -> < root : Diffast_core.Spec.node_t.. > -> object ... end

Source

val of_ast : 
  Diffast_core.Parser_options.c ->
  < comment_regions : (int * int) list
    ; ignored_regions : (int * int) list
    ; lines_read : int
    ; missed_regions : (int * int) list
    ; root : 
      < binding : B.t
      ; bindings : B.t list
      ; children : 'a list
      ; info : I.t
      ; label : L.t
      ; lloc : < get_level : int ; get_loc_of_level : int -> Common.Loc.t.. >
      ; loc : L.Ast.Loc.t
      ; orig_loc : L.Ast.Loc.t
      ; to_string : string.. > as 'a.. > ->
  Tree.c