chore: remove global state

Author: yosefAlsuhaibani

lib/Parse.ml

@@ -20,12 +20,12 @@ type mt = Run.matcher_token
 external create_parser :
   unit -> Tree_sitter_API.ts_parser = "octs_create_parser_bash"
 
-let ts_parser = create_parser ()
-
 let parse_source_string ?src_file contents =
+  let ts_parser = create_parser () in
   Tree_sitter_parsing.parse_source_string ?src_file ts_parser contents
 
 let parse_source_file src_file =
+  let ts_parser = create_parser () in
   Tree_sitter_parsing.parse_source_file ts_parser src_file
 
 let extras = [

lib/Parse.mli

@@ -23,9 +23,6 @@ val file :
 (** Whether to print debugging information. Default: false. *)
 val debug : bool ref
 
-(** The original tree-sitter parser. *)
-val ts_parser : Tree_sitter_bindings.Tree_sitter_API.ts_parser
-
 (** Parse a program into a tree-sitter CST. *)
 val parse_source_string :
    ?src_file:string -> string -> Tree_sitter_run.Tree_sitter_parsing.t