src/Pure/Admin/afp.scala
author wenzelm
Mon, 16 Jun 2025 12:19:23 +0200
changeset 82729 d8986d88295e
parent 80057 87f90735e6dd
permissions -rw-r--r--
support for explicit ML platform identifier;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
66820
fc516da7ee4f some administrative support for AFP;
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/Admin/afp.scala
fc516da7ee4f some administrative support for AFP;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
fc516da7ee4f some administrative support for AFP;
wenzelm
parents:
diff changeset
     3
fc516da7ee4f some administrative support for AFP;
wenzelm
parents:
diff changeset
     4
Administrative support for the Archive of Formal Proofs.
fc516da7ee4f some administrative support for AFP;
wenzelm
parents:
diff changeset
     5
*/
fc516da7ee4f some administrative support for AFP;
wenzelm
parents:
diff changeset
     6
fc516da7ee4f some administrative support for AFP;
wenzelm
parents:
diff changeset
     7
package isabelle
fc516da7ee4f some administrative support for AFP;
wenzelm
parents:
diff changeset
     8
fc516da7ee4f some administrative support for AFP;
wenzelm
parents:
diff changeset
     9
75393
87ebf5a50283 clarified formatting, for the sake of scala3;
wenzelm
parents: 73608
diff changeset
    10
object AFP {
70855
8a43ce639d85 tuned signature;
wenzelm
parents: 70854
diff changeset
    11
  val chapter: String = "AFP"
69693
06153e2e0cdb more official AFP.groups;
wenzelm
parents: 67817
diff changeset
    12
75497
0a5f7b5da16f clarified options;
wenzelm
parents: 75393
diff changeset
    13
  val BASE: Path = Path.explode("$AFP_BASE")
0a5f7b5da16f clarified options;
wenzelm
parents: 75393
diff changeset
    14
78417
01f61cf796e0 clarified signature: more operations;
wenzelm
parents: 76883
diff changeset
    15
  def main_dir(base_dir: Path = BASE): Path = base_dir + Path.explode("thys")
01f61cf796e0 clarified signature: more operations;
wenzelm
parents: 76883
diff changeset
    16
80056
9279e96eb34e clarified signature;
wenzelm
parents: 80055
diff changeset
    17
  def main_dirs(afp_root: Option[Path]): List[Path] =
78420
c157af5f346e more pro-forma support for afp_root;
wenzelm
parents: 78417
diff changeset
    18
    afp_root match {
c157af5f346e more pro-forma support for afp_root;
wenzelm
parents: 78417
diff changeset
    19
      case None => Nil
c157af5f346e more pro-forma support for afp_root;
wenzelm
parents: 78417
diff changeset
    20
      case Some(base_dir) => List(main_dir(base_dir = base_dir))
c157af5f346e more pro-forma support for afp_root;
wenzelm
parents: 78417
diff changeset
    21
    }
66820
fc516da7ee4f some administrative support for AFP;
wenzelm
parents:
diff changeset
    22
}