Module Text.TYPES

type text = text_word Cobol_common.Srcloc.with_loc list
and t = text
and text_word =
  1. | TextWord of string
  2. | CDirWord of string
  3. | Separator of char
  4. | Alphanum of alphanum
  5. | AlphanumPrefix of alphanum
  6. | Pseudo of pseudotext
  7. | ExecBlock of text
  8. | Eof
and alphanum = {
  1. knd : literal_kind;
  2. qte : quotation;
  3. str : string;
}
and quotation =
  1. | Quote
  2. | Apostrophe
and literal_kind =
  1. | Basic
  2. | Bool
  3. | BoolX
  4. | Hex
  5. | HexH
  6. | NullTerm
  7. | National
  8. | NationalX
and pseudotext = pseudoword list
and pseudotok =
  1. | PseudoWord of pseudoword_item Cobol_common.Srcloc.with_loc list
  2. | PseudoAlphanum of alphanum
and pseudoword_item =
  1. | PwText of string
  2. | PwDelim of pseudotext_delimiter
and pseudotext_delimiter = string * Str.regexp
type comment = {
  1. comment_loc : Cobol_common.Srcloc.lexloc;
  2. comment_kind : [ `Line | `Floating ];
  3. comment_contents : string;
}
and comments = comment list