clarified signature;
authorwenzelm
Fri, 27 Nov 2020 14:25:39 +0100
changeset 72981 bc82fc605424
parent 72980 bda424c5819f
child 72982 0017eb17ac1c
clarified signature;
src/Pure/PIDE/command_span.scala
--- a/src/Pure/PIDE/command_span.scala	Fri Nov 27 14:00:54 2020 +0100
+++ b/src/Pure/PIDE/command_span.scala	Fri Nov 27 14:25:39 2020 +0100
@@ -12,6 +12,23 @@
 
 object Command_Span
 {
+  /* loaded files */
+
+  type Loaded_Files = (List[String], Int)
+
+  val no_loaded_files: Loaded_Files = (Nil, -1)
+
+  def loaded_files(exts: List[String], tokens: List[(Token, Int)]): Loaded_Files =
+    tokens.collectFirst({ case (t, i) if t.is_embedded => (t.content, i) }) match {
+      case Some((file, i)) =>
+        if (exts.isEmpty) (List(file), i)
+        else (exts.map(ext => file + "." + ext), i)
+      case None => no_loaded_files
+    }
+
+
+  /* span kind */
+
   sealed abstract class Kind {
     override def toString: String =
       this match {
@@ -26,6 +43,9 @@
   case object Malformed_Span extends Kind
   case object Theory_Span extends Kind
 
+
+  /* span */
+
   sealed case class Span(kind: Kind, content: List[Token])
   {
     def is_theory: Boolean = kind == Theory_Span
@@ -68,16 +88,27 @@
       (source, Span(kind, content1.toList))
     }
 
-    def loaded_files(syntax: Outer_Syntax): (List[String], Int) =
+    def clean_arguments: List[(Token, Int)] =
+    {
+      if (name.nonEmpty) {
+        def clean(toks: List[(Token, Int)]): List[(Token, Int)] =
+          toks match {
+            case (t1, i1) :: (t2, i2) :: rest =>
+              if (t1.is_keyword && t1.source == "%" && t2.is_name) clean(rest)
+              else (t1, i1) :: clean((t2, i2) :: rest)
+            case _ => toks
+          }
+        clean(content.zipWithIndex.filter({ case (t, _) => t.is_proper }))
+          .dropWhile({ case (t, _) => !t.is_command })
+          .dropWhile({ case (t, _) => t.is_command })
+      }
+      else Nil
+    }
+
+    def loaded_files(syntax: Outer_Syntax): Loaded_Files =
       syntax.load_command(name) match {
-        case Some(exts) =>
-          find_file(clean_tokens(content)) match {
-            case Some((file, i)) =>
-              if (exts.isEmpty) (List(file), i)
-              else (exts.map(ext => file + "." + ext), i)
-            case None => (Nil, -1)
-          }
-        case None => (Nil, -1)
+        case Some(exts) => isabelle.Command_Span.loaded_files(exts, clean_arguments)
+        case None => no_loaded_files
       }
   }
 
@@ -90,28 +121,6 @@
   }
 
 
-  /* loaded files */
-
-  def clean_tokens(tokens: List[Token]): List[(Token, Int)] =
-  {
-    def clean(toks: List[(Token, Int)]): List[(Token, Int)] =
-      toks match {
-        case (t1, i1) :: (t2, i2) :: rest =>
-          if (t1.is_keyword && t1.source == "%" && t2.is_name) clean(rest)
-          else (t1, i1) :: clean((t2, i2) :: rest)
-        case _ => toks
-      }
-    clean(tokens.zipWithIndex.filter({ case (t, _) => t.is_proper }))
-  }
-
-  def find_file(tokens: List[(Token, Int)]): Option[(String, Int)] =
-    if (tokens.exists({ case (t, _) => t.is_command })) {
-      tokens.dropWhile({ case (t, _) => !t.is_command }).
-        collectFirst({ case (t, i) if t.is_embedded => (t.content, i) })
-    }
-    else None
-
-
   /* XML data representation */
 
   def encode: XML.Encode.T[Span] = (span: Span) =>