From 7ad5e1cd504b1d57ff3660f9eb81d2e7072ea4bf Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 23 Sep 2021 00:23:03 +0200
Subject: very naïve handling of directories

---
 lib/Paths.hs | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

(limited to 'lib/Paths.hs')

diff --git a/lib/Paths.hs b/lib/Paths.hs
index 7750723..4dcaa53 100644
--- a/lib/Paths.hs
+++ b/lib/Paths.hs
@@ -11,21 +11,30 @@ import           Util            (PrettyPrint (prettyprint))
 
 -- | a normalised path: a number of "upwards" steps, and
 -- a path without any . or .. in it
-data RelPath = Path Int Text
-  deriving (Show, Eq)
+data RelPath = Path Int Text (Maybe Text)
+  deriving (Show, Eq, Ord)
 
 -- | horrible regex parsing for filepaths that is hopefully kinda safe
 parsePath :: Text -> Maybe RelPath
 parsePath text =
   if rest =~ ("^([^/]*[^\\./]/)*[^/]*[^\\./]$" :: Text) :: Bool
-  then Just $ Path up rest
+  then Just $ Path up path fragment
   else Nothing
   where
     (_, prefix, rest, _) =
       text =~ ("^((\\.|\\.\\.)/)*" :: Text) :: (Text, Text, Text, [Text])
     -- how many steps upwards in the tree?
     up = length . filter (".." ==) . T.splitOn  "/" $ prefix
+    parts = T.splitOn "#" rest
+    path = head parts
+    fragment = if length parts >= 2
+      then Just $ T.concat $ tail parts -- TODO!
+      else Nothing
 
 instance PrettyPrint RelPath where
-  prettyprint (Path up rest) = ups <> rest
+  prettyprint (Path up rest _) = ups <> rest
     where ups = T.concat $ replicate up "../"
+
+normalise :: RelPath -> FilePath
+normalise (Path 0 path _) = T.unpack path
+normalize _ = error "not implemented yet"
-- 
cgit v1.2.3