Text (cobol_preproc.Cobol

module TYPES : sig ... end

type text =
  Cobol_preproc__.Text_types.text_word Cobol_common.Srcloc.with_loc list

and t = Cobol_preproc__.Text_types.text_word Cobol_common.Srcloc.with_loc list

and text_word =

| TextWord of string
| CDirWord of string
| Separator of char
| Alphanum of alphanum
| AlphanumPrefix of alphanum
| Pseudo of pseudotext
| ExecBlock of text
| Eof

and alphanum = {

knd : literal_kind;
qte : quotation;
str : string;

}

and quotation =

| Quote
| Apostrophe

and literal_kind =

| Basic
| Bool
| BoolX
| Hex
| NullTerm
| National
| NationalX

and pseudotext =
  Cobol_preproc__.Text_types.pseudotok Cobol_common.Srcloc.with_loc list

and pseudoword = pseudotok Cobol_common.Srcloc.with_loc

and pseudotok =

| PseudoWord of pseudoword_item Cobol_common.Srcloc.with_loc list
| PseudoAlphanum of alphanum

and pseudoword_item =

| PwText of string
| PwDelim of pseudotext_delimiter

and pseudotext_delimiter = string * Str.regexp

type comment = {

comment_loc : Cobol_common.Srcloc.lexloc;
comment_kind : [ `Line | `Floating ];
comment_contents : string;

}

and comments = Cobol_preproc__.Text_types.comment list

*_eqp functions below perform (ASCII) case-insensitive comparisons.

val textwordp : text_word Cobol_common.Srcloc.with_loc -> bool

val textword_eqp : eq:string -> text_word Cobol_common.Srcloc.with_loc -> bool

val cdirp : text_word Cobol_common.Srcloc.with_loc -> bool

val cdir_eqp : eq:string -> text_word Cobol_common.Srcloc.with_loc -> bool

val join_pseudo_string : 
  string:(string Cobol_common.Srcloc.with_loc as 'a -> 'a) ->
  pseudoword_item Cobol_common.Srcloc.with_loc list ->
  'a option

val pseudo_string : string Cobol_common.Srcloc.with_loc -> pseudoword

val pseudoword_of_string : string Cobol_common.Srcloc.with_loc -> pseudoword

val pseudoword_of_alphanum : 
  (string * quotation) Cobol_common.Srcloc.with_loc ->
  pseudoword

val pseudoword_of_integer : int64 Cobol_common.Srcloc.with_loc -> pseudoword

val alphanum_as_pseudoword : 
  (string * 'a) Cobol_common.Srcloc.with_loc ->
  pseudoword

val pseudotext_of_string : 
  string Cobol_common.Srcloc.with_loc ->
  pseudotext Cobol_common.Srcloc.with_loc

val pseudotext_of_alphanum : 
  (string * quotation) Cobol_common.Srcloc.with_loc ->
  pseudotext Cobol_common.Srcloc.with_loc

val pseudotext_of_integer : 
  int64 Cobol_common.Srcloc.with_loc ->
  pseudotext Cobol_common.Srcloc.with_loc

val alphanum_as_pseudotext : 
  (string * 'a) Cobol_common.Srcloc.with_loc ->
  pseudotext Cobol_common.Srcloc.with_loc

val pp_text : text Pretty.printer

val pp_text' : ?fsep:Pretty.simple -> text Pretty.printer

val pp_quote : quotation Pretty.printer

val pp_word : text_word Pretty.printer

val pp_pseudotext : pseudotext Pretty.printer

val pp_literal_kind : literal_kind Pretty.printer

val pp_alphanum : alphanum Pretty.printer

val prefix_of_literal_kind : literal_kind -> string

val char_of_quotation : quotation -> char

val strip_eof : text -> text

val map_pseudowords : f:(string -> string) -> pseudotext -> pseudotext