equal
deleted
inserted
replaced
170 private val THEORIES = "theories" |
170 private val THEORIES = "theories" |
171 private val FILES = "files" |
171 private val FILES = "files" |
172 |
172 |
173 lazy val root_syntax = |
173 lazy val root_syntax = |
174 Outer_Syntax.init() + "!" + "(" + ")" + "+" + "," + "=" + "[" + "]" + |
174 Outer_Syntax.init() + "!" + "(" + ")" + "+" + "," + "=" + "[" + "]" + |
175 SESSION + IN + DESCRIPTION + OPTIONS + THEORIES + FILES |
175 (SESSION, Keyword.THY_DECL) + IN + DESCRIPTION + OPTIONS + THEORIES + FILES |
176 |
176 |
177 private object Parser extends Parse.Parser |
177 private object Parser extends Parse.Parser |
178 { |
178 { |
179 def session_entry(pos: Position.T): Parser[Session_Entry] = |
179 def session_entry(pos: Position.T): Parser[Session_Entry] = |
180 { |
180 { |
186 |
186 |
187 val theories = |
187 val theories = |
188 keyword(THEORIES) ~! ((options | success(Nil)) ~ rep1(theory_name)) ^^ |
188 keyword(THEORIES) ~! ((options | success(Nil)) ~ rep1(theory_name)) ^^ |
189 { case _ ~ (x ~ y) => (x, y) } |
189 { case _ ~ (x ~ y) => (x, y) } |
190 |
190 |
191 ((keyword(SESSION) ~! session_name) ^^ { case _ ~ x => x }) ~ |
191 ((command(SESSION) ~! session_name) ^^ { case _ ~ x => x }) ~ |
192 (keyword("!") ^^^ true | success(false)) ~ |
192 (keyword("!") ^^^ true | success(false)) ~ |
193 (keyword("(") ~! (rep1(name) <~ keyword(")")) ^^ { case _ ~ x => x } | success(Nil)) ~ |
193 (keyword("(") ~! (rep1(name) <~ keyword(")")) ^^ { case _ ~ x => x } | success(Nil)) ~ |
194 (opt(keyword(IN) ~! path ^^ { case _ ~ x => x })) ~ |
194 (opt(keyword(IN) ~! path ^^ { case _ ~ x => x })) ~ |
195 (keyword("=") ~> opt(session_name <~ keyword("+"))) ~ |
195 (keyword("=") ~> opt(session_name <~ keyword("+"))) ~ |
196 (keyword(DESCRIPTION) ~! text ^^ { case _ ~ x => x } | success("")) ~ |
196 (keyword(DESCRIPTION) ~! text ^^ { case _ ~ x => x } | success("")) ~ |