[Pkg-ocaml-maint-commits] r1947 - trunk/projects/ocaml-deblib
Mike Furr
mfurr at costa.debian.org
Wed Nov 9 04:32:23 UTC 2005
Author: mfurr
Date: 2005-11-09 04:32:22 +0000 (Wed, 09 Nov 2005)
New Revision: 1947
Added:
trunk/projects/ocaml-deblib/deblib_822Lexer.ml
trunk/projects/ocaml-deblib/deblib_822Parser.ml
trunk/projects/ocaml-deblib/deblib_822Parser.mli
Log:
add these to make bootstrapping the dependencies easier
Added: trunk/projects/ocaml-deblib/deblib_822Lexer.ml
===================================================================
--- trunk/projects/ocaml-deblib/deblib_822Lexer.ml 2005-11-09 04:25:31 UTC (rev 1946)
+++ trunk/projects/ocaml-deblib/deblib_822Lexer.ml 2005-11-09 04:32:22 UTC (rev 1947)
@@ -0,0 +1,205 @@
+# 3 "deblib_822Lexer.mll"
+
+ open Deblib_822Parser
+
+# 6 "deblib_822Lexer.ml"
+let __ocaml_lex_tables = {
+ Lexing.lex_base =
+ "\000\000\252\255\253\255\002\000\004\000\006\000\008\000\010\000\
+ \010\000\011\000\013\000";
+ Lexing.lex_backtrk =
+ "\255\255\255\255\255\255\004\000\004\000\255\255\000\000\255\255\
+ \000\000\001\000\001\000";
+ Lexing.lex_default =
+ "\004\000\000\000\000\000\009\000\005\000\005\000\008\000\255\255\
+ \008\000\009\000\009\000";
+ Lexing.lex_trans =
+ "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\003\000\002\000\010\000\002\000\255\255\255\255\007\000\
+ \255\255\006\000\255\255\007\000\255\255\255\255\010\000\002\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \003\000\000\000\010\000\000\000\000\000\000\000\000\000\000\000\
+ \006\000\000\000\007\000\000\000\000\000\010\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\255\255\000\000\
+ \006\000\000\000\000\000\000\000\006\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \001\000\000\000\255\255\000\000\255\255\000\000\255\255\000\000\
+ \255\255\000\000\255\255\255\255\000\000\255\255";
+ Lexing.lex_check =
+ "\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\000\000\000\000\003\000\003\000\004\000\004\000\005\000\
+ \005\000\006\000\006\000\007\000\008\000\009\000\010\000\010\000\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \000\000\255\255\003\000\255\255\255\255\255\255\255\255\255\255\
+ \006\000\255\255\007\000\255\255\255\255\010\000\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\004\000\255\255\
+ \005\000\255\255\255\255\255\255\007\000\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \000\000\255\255\003\000\255\255\004\000\255\255\005\000\255\255\
+ \006\000\255\255\008\000\009\000\255\255\010\000";
+ Lexing.lex_base_code =
+ "\000\000\000\000\000\000\000\000\000\000\002\000\004\000\001\000\
+ \005\000\000\000\000\000";
+ Lexing.lex_backtrk_code =
+ "\000\000\000\000\000\000\000\000\000\000\000\000\009\000\000\000\
+ \009\000\000\000\000\000";
+ Lexing.lex_default_code =
+ "\000\000\000\000\000\000\000\000\001\000\001\000\016\000\000\000\
+ \016\000\000\000\000\000";
+ Lexing.lex_trans_code =
+ "\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\004\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\004\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\004\000\004\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
+ \000\000\000\000\000\000\000\000\000\000\000\000";
+ Lexing.lex_check_code =
+ "\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\004\000\004\000\005\000\005\000\006\000\006\000\008\000\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\006\000\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\004\000\007\000\005\000\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
+ \004\000\255\255\005\000\255\255\006\000\008\000";
+ Lexing.lex_code =
+ "\255\003\255\255\005\255\004\255\255\001\005\002\004\000\003\255\
+ \004\255\255";
+}
+
+let rec next lexbuf =
+ lexbuf.Lexing.lex_mem <- Array.create 6 (-1) ; __ocaml_lex_next_rec lexbuf 0
+and __ocaml_lex_next_rec lexbuf __ocaml_lex_state =
+ match Lexing.new_engine __ocaml_lex_tables __ocaml_lex_state lexbuf with
+ | 0 ->
+
+ let rest = Lexing.sub_lexeme lexbuf lexbuf.Lexing.lex_mem.(1) lexbuf.Lexing.lex_mem.(2)
+ and field = Lexing.sub_lexeme lexbuf lexbuf.Lexing.lex_start_pos lexbuf.Lexing.lex_mem.(0) in
+# 15 "deblib_822Lexer.mll"
+ ( Field(field,rest) )
+# 179 "deblib_822Lexer.ml"
+
+ | 1 ->
+
+ let rest = Lexing.sub_lexeme lexbuf lexbuf.Lexing.lex_start_pos lexbuf.Lexing.lex_curr_pos in
+# 16 "deblib_822Lexer.mll"
+ ( Continue(rest) )
+# 186 "deblib_822Lexer.ml"
+
+ | 2 ->
+# 17 "deblib_822Lexer.mll"
+ ( EOL )
+# 191 "deblib_822Lexer.ml"
+
+ | 3 ->
+# 18 "deblib_822Lexer.mll"
+ ( EOF)
+# 196 "deblib_822Lexer.ml"
+
+ | 4 ->
+# 19 "deblib_822Lexer.mll"
+ ( raise (Failure "lexer parse error\n") )
+# 201 "deblib_822Lexer.ml"
+
+ | __ocaml_lex_state -> lexbuf.Lexing.refill_buff lexbuf; __ocaml_lex_next_rec lexbuf __ocaml_lex_state
+
+;;
+
Added: trunk/projects/ocaml-deblib/deblib_822Parser.ml
===================================================================
--- trunk/projects/ocaml-deblib/deblib_822Parser.ml 2005-11-09 04:25:31 UTC (rev 1946)
+++ trunk/projects/ocaml-deblib/deblib_822Parser.ml 2005-11-09 04:32:22 UTC (rev 1947)
@@ -0,0 +1,179 @@
+type token =
+ | Field of (string*string)
+ | Continue of (string)
+ | EOL
+ | EOF
+
+open Parsing;;
+# 4 "deblib_822Parser.mly"
+ open Printf
+ let tbl = ref (Hashtbl.create 17);;
+# 12 "deblib_822Parser.ml"
+let yytransl_const = [|
+ 259 (* EOL *);
+ 0 (* EOF *);
+ 0|]
+
+let yytransl_block = [|
+ 257 (* Field *);
+ 258 (* Continue *);
+ 0|]
+
+let yylhs = "\255\255\
+\001\000\002\000\002\000\003\000\004\000\004\000\005\000\005\000\
+\006\000\006\000\000\000"
+
+let yylen = "\002\000\
+\002\000\000\000\002\000\002\000\002\000\001\000\002\000\003\000\
+\002\000\003\000\002\000"
+
+let yydefred = "\000\000\
+\000\000\000\000\000\000\011\000\000\000\000\000\000\000\000\000\
+\000\000\001\000\003\000\004\000\005\000\000\000\008\000\000\000\
+\010\000"
+
+let yydgoto = "\002\000\
+\004\000\005\000\006\000\007\000\008\000\015\000"
+
+let yysindex = "\003\000\
+\004\255\000\000\003\255\000\000\007\000\004\255\005\255\004\255\
+\007\255\000\000\000\000\000\000\000\000\008\255\000\000\007\255\
+\000\000"
+
+let yyrindex = "\000\000\
+\010\000\000\000\000\000\000\000\000\000\010\000\000\000\009\255\
+\255\254\000\000\000\000\000\000\000\000\000\000\000\000\000\255\
+\000\000"
+
+let yygindex = "\000\000\
+\000\000\008\000\000\000\005\000\000\000\255\255"
+
+let yytablesize = 15
+let yytable = "\007\000\
+\009\000\007\000\009\000\001\000\003\000\009\000\010\000\012\000\
+\014\000\002\000\016\000\006\000\013\000\011\000\017\000"
+
+let yycheck = "\001\001\
+\001\001\003\001\003\001\001\000\001\001\003\001\000\000\003\001\
+\002\001\000\000\003\001\003\001\008\000\006\000\016\000"
+
+let yynames_const = "\
+ EOL\000\
+ EOF\000\
+ "
+
+let yynames_block = "\
+ Field\000\
+ Continue\000\
+ "
+
+let yyact = [|
+ (fun _ -> failwith "parser")
+; (fun __caml_parser_env ->
+ let _1 = (Parsing.peek_val __caml_parser_env 1 : 'Stanzas) in
+ Obj.repr(
+# 19 "deblib_822Parser.mly"
+ (_1)
+# 78 "deblib_822Parser.ml"
+ : (string,string) Hashtbl.t list))
+; (fun __caml_parser_env ->
+ Obj.repr(
+# 22 "deblib_822Parser.mly"
+ ( [] )
+# 84 "deblib_822Parser.ml"
+ : 'Stanzas))
+; (fun __caml_parser_env ->
+ let _1 = (Parsing.peek_val __caml_parser_env 1 : 'Stanza) in
+ let _2 = (Parsing.peek_val __caml_parser_env 0 : 'Stanzas) in
+ Obj.repr(
+# 23 "deblib_822Parser.mly"
+ ( _1 :: _2 )
+# 92 "deblib_822Parser.ml"
+ : 'Stanzas))
+; (fun __caml_parser_env ->
+ let _1 = (Parsing.peek_val __caml_parser_env 1 : 'Fields) in
+ Obj.repr(
+# 27 "deblib_822Parser.mly"
+ ( let old = !tbl in
+ tbl := Hashtbl.create 17;
+ old
+ )
+# 102 "deblib_822Parser.ml"
+ : 'Stanza))
+; (fun __caml_parser_env ->
+ let _1 = (Parsing.peek_val __caml_parser_env 1 : 'SingleField) in
+ let _2 = (Parsing.peek_val __caml_parser_env 0 : 'Fields) in
+ Obj.repr(
+# 33 "deblib_822Parser.mly"
+ ()
+# 110 "deblib_822Parser.ml"
+ : 'Fields))
+; (fun __caml_parser_env ->
+ let _1 = (Parsing.peek_val __caml_parser_env 0 : 'SingleField) in
+ Obj.repr(
+# 34 "deblib_822Parser.mly"
+ ()
+# 117 "deblib_822Parser.ml"
+ : 'Fields))
+; (fun __caml_parser_env ->
+ let _1 = (Parsing.peek_val __caml_parser_env 1 : string*string) in
+ Obj.repr(
+# 37 "deblib_822Parser.mly"
+ (
+ let name,value = _1 in
+ if !Deblib_ParserOpts.care_about = [] ||
+ List.mem name !Deblib_ParserOpts.care_about
+ then Hashtbl.add !tbl name (value)
+ )
+# 129 "deblib_822Parser.ml"
+ : 'SingleField))
+; (fun __caml_parser_env ->
+ let _1 = (Parsing.peek_val __caml_parser_env 2 : string*string) in
+ let _3 = (Parsing.peek_val __caml_parser_env 0 : 'Rest) in
+ Obj.repr(
+# 44 "deblib_822Parser.mly"
+ (
+ let name,value = _1 in
+ if !Deblib_ParserOpts.care_about = [] ||
+ List.mem name !Deblib_ParserOpts.care_about
+ then Hashtbl.add !tbl name (value ^ _3)
+ )
+# 142 "deblib_822Parser.ml"
+ : 'SingleField))
+; (fun __caml_parser_env ->
+ let _1 = (Parsing.peek_val __caml_parser_env 1 : string) in
+ Obj.repr(
+# 52 "deblib_822Parser.mly"
+ ( _1 )
+# 149 "deblib_822Parser.ml"
+ : 'Rest))
+; (fun __caml_parser_env ->
+ let _1 = (Parsing.peek_val __caml_parser_env 2 : string) in
+ let _3 = (Parsing.peek_val __caml_parser_env 0 : 'Rest) in
+ Obj.repr(
+# 53 "deblib_822Parser.mly"
+ ( _1 ^ _3 )
+# 157 "deblib_822Parser.ml"
+ : 'Rest))
+(* Entry main *)
+; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0)))
+|]
+let yytables =
+ { Parsing.actions=yyact;
+ Parsing.transl_const=yytransl_const;
+ Parsing.transl_block=yytransl_block;
+ Parsing.lhs=yylhs;
+ Parsing.len=yylen;
+ Parsing.defred=yydefred;
+ Parsing.dgoto=yydgoto;
+ Parsing.sindex=yysindex;
+ Parsing.rindex=yyrindex;
+ Parsing.gindex=yygindex;
+ Parsing.tablesize=yytablesize;
+ Parsing.table=yytable;
+ Parsing.check=yycheck;
+ Parsing.error_function=parse_error;
+ Parsing.names_const=yynames_const;
+ Parsing.names_block=yynames_block }
+let main (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) =
+ (Parsing.yyparse yytables 1 lexfun lexbuf : (string,string) Hashtbl.t list)
Added: trunk/projects/ocaml-deblib/deblib_822Parser.mli
===================================================================
--- trunk/projects/ocaml-deblib/deblib_822Parser.mli 2005-11-09 04:25:31 UTC (rev 1946)
+++ trunk/projects/ocaml-deblib/deblib_822Parser.mli 2005-11-09 04:32:22 UTC (rev 1947)
@@ -0,0 +1,8 @@
+type token =
+ | Field of (string*string)
+ | Continue of (string)
+ | EOL
+ | EOF
+
+val main :
+ (Lexing.lexbuf -> token) -> Lexing.lexbuf -> (string,string) Hashtbl.t list
More information about the Pkg-ocaml-maint-commits
mailing list