diffast-langs-fortran-parsing 0.1.1

module Xstring = Diffast_misc.Xstring

module Xhash = Diffast_misc.Xhash

module Fname = Langs_common.Fname

module Env_base = Langs_common.Env_base

module Parserlib_base = Langs_common.Parserlib_base

module L = Label

module I = Pinfo

module N = I.Name

module PB = Parserlib_base

module C = Context

module B = Fortran_parsing.Ast.Binding

module BID = Fortran_parsing.Ast.Binding.ID

type char_context =

| CH_NONE
| CH_SINGLE
| CH_DOUBLE

val char_context_to_string : char_context -> string

type state = {

s_at_bopu : bool;
s_symbol_tbl : (Ast.name, N.frame) Hashtbl.t;
s_stack : N.frame Stack.t;
s_in_format_context : bool;
s_in_open_context : bool;
s_in_close_context : bool;
s_in_position_context : bool;
s_in_io_control_context : bool;
s_in_wait_context : bool;
s_in_flush_context : bool;
s_in_if_context : bool;
s_in_inquire_context : bool;
s_in_implicit_context : bool;
s_in_letter_context : bool;
s_in_intent_context : bool;
s_in_result_context : bool;
s_in_character_context : bool;
s_in_typeof_context : bool;
s_in_do_context : bool;
s_in_slash_name_context : bool;
s_in_allocate_context : bool;
s_in_type_spec_context : bool;
s_in_bind_context : bool;
s_in_contains_context : bool;
s_in_access_context : bool;
s_in_data_context : bool;
s_in_type_guard_context : bool;
s_in_procedure_context : bool;
s_in_type_context : bool;
s_in_only_context : bool;
s_in_pu_head_context : bool;
s_name_context : int;
s_paren_context : int;
s_array_ctor_context : int;
s_interface_context : int;
s_structure_context : int;
s_select_type_context : int;
s_char_context : char_context;

}

val mkstate : 
  bool ->
  (Ast.name, N.frame) Hashtbl.t ->
  N.frame Stack.t ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  bool ->
  int ->
  int ->
  int ->
  int ->
  int ->
  int ->
  char_context ->
  state

val stack_to_string : < scope : N.ScopingUnit.t.. > Stack.t -> string

val stat_to_string : state -> string

module LineStat : sig ... end

type lexer_mode =

| LEX_NORMAL
| LEX_QUEUE
| LEX_QUEUE_THEN_DO of unit -> Obj.t

type line_format =

| LF_FIXED
| LF_TAB
| LF_FREE
| LF_UNKNOWN

val strip_loc : Fortran_parsing.Ast.Astloc.t -> unit

class env : object ... end

module type STATE_T = sig ... end

module F (Stat : STATE_T) : sig ... end

package diffast-langs-fortran-parsing