src/Pure/System/build.scala
changeset 48718 73e6c22e2d94
parent 48713 de26cf3191a3
child 48724 e6e1b436caf0
equal deleted inserted replaced
48717:622251b2b0f1 48718:73e6c22e2d94
   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("")) ~