Module Fortran_parsing.MacroSource

module Macro_base = Langs_common.Macro_base
Sourcetype kind =
  1. | K_GENERAL
  2. | K_TYPE_SPEC
  3. | K_WRITE
  4. | K_READ_WRITE
Sourceval kind_to_string : kind -> string
include module type of struct include Macro_base end
module Loc = Macro_base.Loc
type stat = Langs_common.Macro_base.stat =
  1. | Unresolved
  2. | Resolved of Obj.t
val stat_to_string : stat -> string
val stat_resolved : stat -> bool
val tok_of_stat : stat -> 'a
type line = Langs_common.Macro_base.line = {
  1. ln_raw : string;
  2. mutable ln_stat : stat;
  3. mutable ln_conditional : bool;
  4. ln_loc : Loc.t;
}
val mk_line : ?loc:Loc.t -> ?raw:string -> ?conditional:bool -> ('a -> 'b) -> 'a -> line
val line_to_string : line -> string
val tok_of_line : line -> 'a
val _resolve_line : line -> Obj.t -> unit
val resolve_line : line -> 'a -> unit
val line_resolved : line -> bool
type body = Langs_common.Macro_base.body =
  1. | Object of line
  2. | Function of string list * line
val mk_obj_body : ?loc:Loc.t -> ?stat:stat -> ?conditional:bool -> string -> body
val mk_fun_body : ?loc:Loc.t -> ?stat:stat -> ?conditional:bool -> string list -> string -> body
val line_of_body : body -> line
val body_to_string : body -> string
val body_to_rep : body -> string
val body_length : body -> int
val _resolve_body : Obj.t -> body -> unit
val resolve_body : 'a -> body -> unit
val body_is_conditional : body -> bool
val body_set_conditional : body -> unit
val body_clear_conditional : body -> unit
class table : string -> object ... end