src/Pure/PIDE/protocol.scala
changeset 68336 09ac56914b29
parent 68323 bf7336731981
child 68381 2fd3a6d6ba2e
equal deleted inserted replaced
68335:2f080a51a10d 68336:09ac56914b29
   407   }
   407   }
   408 
   408 
   409 
   409 
   410   /* execution */
   410   /* execution */
   411 
   411 
   412   def consolidate_execution(): Unit =
       
   413     protocol_command("Document.consolidate_execution")
       
   414 
       
   415   def discontinue_execution(): Unit =
   412   def discontinue_execution(): Unit =
   416     protocol_command("Document.discontinue_execution")
   413     protocol_command("Document.discontinue_execution")
   417 
   414 
   418   def cancel_exec(id: Document_ID.Exec): Unit =
   415   def cancel_exec(id: Document_ID.Exec): Unit =
   419     protocol_command("Document.cancel_exec", Document_ID(id))
   416     protocol_command("Document.cancel_exec", Document_ID(id))
   420 
   417 
   421 
   418 
   422   /* document versions */
   419   /* document versions */
   423 
   420 
   424   def update(old_id: Document_ID.Version, new_id: Document_ID.Version,
   421   def update(old_id: Document_ID.Version, new_id: Document_ID.Version,
   425     edits: List[Document.Edit_Command])
   422     edits: List[Document.Edit_Command], consolidate: Boolean)
   426   {
   423   {
   427     val edits_yxml =
   424     val edits_yxml =
   428     {
   425     {
   429       import XML.Encode._
   426       import XML.Encode._
   430       def id: T[Command] = (cmd => long(cmd.id))
   427       def id: T[Command] = (cmd => long(cmd.id))
   448       {
   445       {
   449         val (name, edit) = node_edit
   446         val (name, edit) = node_edit
   450         pair(string, encode_edit(name))(name.node, edit)
   447         pair(string, encode_edit(name))(name.node, edit)
   451       })
   448       })
   452       Symbol.encode_yxml(encode_edits(edits)) }
   449       Symbol.encode_yxml(encode_edits(edits)) }
   453     protocol_command("Document.update", Document_ID(old_id), Document_ID(new_id), edits_yxml)
   450     protocol_command(
       
   451       "Document.update", Document_ID(old_id), Document_ID(new_id), edits_yxml, consolidate.toString)
   454   }
   452   }
   455 
   453 
   456   def remove_versions(versions: List[Document.Version])
   454   def remove_versions(versions: List[Document.Version])
   457   {
   455   {
   458     val versions_yxml =
   456     val versions_yxml =