equal
deleted
inserted
replaced
60 keyword("(") ~! (file_name ~ keyword(")")) ^^ { case _ ~ (x ~ _) => (x, false) } | |
60 keyword("(") ~! (file_name ~ keyword(")")) ^^ { case _ ~ (x ~ _) => (x, false) } | |
61 file_name ^^ (x => (x, true)) |
61 file_name ^^ (x => (x, true)) |
62 |
62 |
63 val args = |
63 val args = |
64 theory_name ~ |
64 theory_name ~ |
65 (keyword(IMPORTS) ~! (rep1(theory_name)) ^^ { case _ ~ xs => xs }) ~ |
65 (opt(keyword(IMPORTS) ~! (rep1(theory_name))) ^^ { case None => Nil case Some(_ ~ xs) => xs }) ~ |
66 (opt(keyword(KEYWORDS) ~! keyword_decls) ^^ { case None => Nil case Some(_ ~ xs) => xs }) ~ |
66 (opt(keyword(KEYWORDS) ~! keyword_decls) ^^ { case None => Nil case Some(_ ~ xs) => xs }) ~ |
67 (opt(keyword(USES) ~! (rep1(file))) ^^ { case None => Nil case Some(_ ~ xs) => xs }) ~ |
67 (opt(keyword(USES) ~! (rep1(file))) ^^ { case None => Nil case Some(_ ~ xs) => xs }) ~ |
68 keyword(BEGIN) ^^ |
68 keyword(BEGIN) ^^ |
69 { case x ~ ys ~ zs ~ ws ~ _ => Thy_Header(x, ys, zs, ws) } |
69 { case x ~ ys ~ zs ~ ws ~ _ => Thy_Header(x, ys, zs, ws) } |
70 |
70 |