sig
module L :
sig
type position =
Lexing.position = {
pos_fname : string;
pos_lnum : int;
pos_bol : int;
pos_cnum : int;
}
val dummy_pos : Stog_filter_lexer.L.position
type lexbuf =
Lexing.lexbuf = {
refill_buff : Stog_filter_lexer.L.lexbuf -> unit;
mutable lex_buffer : string;
mutable lex_buffer_len : int;
mutable lex_abs_pos : int;
mutable lex_start_pos : int;
mutable lex_curr_pos : int;
mutable lex_last_pos : int;
mutable lex_last_action : int;
mutable lex_eof_reached : bool;
mutable lex_mem : int array;
mutable lex_start_p : Stog_filter_lexer.L.position;
mutable lex_curr_p : Stog_filter_lexer.L.position;
}
val from_channel : Pervasives.in_channel -> Stog_filter_lexer.L.lexbuf
val from_string : string -> Stog_filter_lexer.L.lexbuf
val from_function :
(string -> int -> int) -> Stog_filter_lexer.L.lexbuf
val lexeme : Stog_filter_lexer.L.lexbuf -> string
val lexeme_char : Stog_filter_lexer.L.lexbuf -> int -> char
val lexeme_start : Stog_filter_lexer.L.lexbuf -> int
val lexeme_end : Stog_filter_lexer.L.lexbuf -> int
val lexeme_start_p :
Stog_filter_lexer.L.lexbuf -> Stog_filter_lexer.L.position
val lexeme_end_p :
Stog_filter_lexer.L.lexbuf -> Stog_filter_lexer.L.position
val new_line : Stog_filter_lexer.L.lexbuf -> unit
val flush_input : Stog_filter_lexer.L.lexbuf -> unit
val sub_lexeme : Stog_filter_lexer.L.lexbuf -> int -> int -> string
val sub_lexeme_opt :
Stog_filter_lexer.L.lexbuf -> int -> int -> string option
val sub_lexeme_char : Stog_filter_lexer.L.lexbuf -> int -> char
val sub_lexeme_char_opt :
Stog_filter_lexer.L.lexbuf -> int -> char option
type lex_tables =
Lexing.lex_tables = {
lex_base : string;
lex_backtrk : string;
lex_default : string;
lex_trans : string;
lex_check : string;
lex_base_code : string;
lex_backtrk_code : string;
lex_default_code : string;
lex_trans_code : string;
lex_check_code : string;
lex_code : string;
}
val engine :
Stog_filter_lexer.L.lex_tables ->
int -> Stog_filter_lexer.L.lexbuf -> int
val new_engine :
Stog_filter_lexer.L.lex_tables ->
int -> Stog_filter_lexer.L.lexbuf -> int
end
val error : Lexing.lexbuf -> string -> 'a
val string_buffer : Buffer.t
val __ocaml_lex_tables : Lexing.lex_tables
val main : Lexing.lexbuf -> Stog_filter_parser.token
val __ocaml_lex_main_rec : Lexing.lexbuf -> int -> Stog_filter_parser.token
val string : Lexing.lexbuf -> Stog_filter_parser.token
val __ocaml_lex_string_rec :
Lexing.lexbuf -> int -> Stog_filter_parser.token
end