WIP

src/caselawclient/Client.py

@@ -1217,3 +1217,7 @@ def resolve_from_identifier(self, identifier_uri: str, published_only: bool = Tr
             ),
         )
         return IdentifierResolutions.from_marklogic_output(raw_results)
+
+    def get_next_document_sequence_number(self) -> int:
+        """Increment the MarkLogic sequence number by one and return the value."""
+        return int(self._eval_and_decode({}, "get_next_document_sequence_number.xqy"))

src/caselawclient/models/identifiers/fclid.py

@@ -0,0 +1,48 @@
+import re
+from typing import TYPE_CHECKING
+
+from sqids import Sqids
+
+from . import Identifier, IdentifierSchema
+
+if TYPE_CHECKING:
+    from caselawclient.Client import MarklogicApiClient
+
+
+VALID_FCLID_PATTERN = re.compile(r"^[bcdfghjkmnpqrstvwxyz23456789]{4,}$")
+
+FCLID_MINIMUM_LENGTH = 8
+FCLID_ALPHABET = "bcdfghjkmnpqrstvwxyz23456789"
+
+sqids = Sqids(
+    min_length=FCLID_MINIMUM_LENGTH,
+    alphabet=FCLID_ALPHABET,
+)
+
+
+class FindCaseLawIdentifierSchema(IdentifierSchema):
+    """
+    Identifier schema describing a Find Case Law Identifier.
+    """
+
+    name = "Find Case Law Identifier"
+    namespace = "fclid"
+
+    @classmethod
+    def validate_identifier(cls, value: str) -> bool:
+        return bool(VALID_FCLID_PATTERN.match(value))
+
+    @classmethod
+    def compile_identifier_url_slug(cls, value: str) -> str:
+        return "tna." + value
+
+    @classmethod
+    def mint(cls, api_client: "MarklogicApiClient") -> "FindCaseLawIdentifier":
+        """Generate a totally new Find Case Law identifier."""
+        next_sequence_number = api_client.get_next_document_sequence_number()
+        new_identifier = sqids.encode([next_sequence_number])
+        return FindCaseLawIdentifier(value=new_identifier)
+
+
+class FindCaseLawIdentifier(Identifier):
+    schema = FindCaseLawIdentifierSchema

src/caselawclient/models/identifiers/unpacker.py

@@ -3,9 +3,11 @@
 from lxml import etree
 
 from . import IDENTIFIER_UNPACKABLE_ATTRIBUTES, Identifier, Identifiers, InvalidIdentifierXMLRepresentationException
+from .fclid import FindCaseLawIdentifier
 from .neutral_citation import NeutralCitationNumber
 
 IDENTIFIER_NAMESPACE_MAP: dict[str, type[Identifier]] = {
+    "fclid": FindCaseLawIdentifier,
     "ukncn": NeutralCitationNumber,
 }
 

src/caselawclient/xquery/get_next_document_sequence_number.xqy

@@ -0,0 +1,14 @@
+xquery version "1.0-ml";
+declare option xdmp:transaction-mode "update";
+
+let $_ := xdmp:set-transaction-mode("update")
+let $state_doc := fn:doc("state.xml")
+let $counter_node := $state_doc/state/document_counter
+
+let $current_counter := $counter_node/text()
+let $new_counter := fn:sum(($current_counter, 1))
+
+let $_ := xdmp:node-replace($counter_node, <document_counter>{$new_counter}</document_counter>)
+let $_ := xdmp:commit()
+
+return $new_counter