unikernel/duniverse/ocaml-dns/zone/dns_zone_state.ml

@@ -0,0 +1,49 @@
+(*
+ * Copyright (c) 2005-2006 Tim Deegan <tjd@phlegethon.org>
+ * Copyright (c) 2017 Hannes Mehnert <hannes@mehnert.org>
+ *
+ * Permission to use, copy, modify, and distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ *
+ * dnsloader.ml -- how to build up a DNS trie from separate RRs
+ *
+ *)
+
+(* State variables for the parser & lexer *)
+type parserstate = {
+  mutable paren : int ;
+  mutable lineno : int ;
+  mutable origin : [ `raw ] Domain_name.t ;
+  mutable ttl : int32 ;
+  mutable owner : [ `raw ] Domain_name.t ;
+  mutable zone : Dns.Name_rr_map.t ;
+}
+
+let state = {
+  paren = 0 ;
+  lineno = 1 ;
+  ttl = Int32.of_int 3600 ;
+  origin = Domain_name.root ;
+  owner = Domain_name.root ;
+  zone = Domain_name.Map.empty ;
+}
+
+let reset () =
+  state.paren <- 0 ;
+  state.lineno <- 1 ;
+  state.ttl <- Int32.of_int 3600 ;
+  state.origin <- Domain_name.root ;
+  state.owner <- Domain_name.root ;
+  state.zone <- Dns.Name_rr_map.empty
+
+exception Zone_parse_problem of string
+