From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 4 Dec 2015 18:03:10 +0000 (-0400)
Subject: smudge filter working
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~320^2~184^2~101
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=d3496932698f54e0553c3ef9cfdb11c12fe6a3af;p=git-annex.git

smudge filter working
---

diff --git a/Command/Smudge.hs b/Command/Smudge.hs
index 22f9efd696..dc618d36e0 100644
--- a/Command/Smudge.hs
+++ b/Command/Smudge.hs
@@ -9,9 +9,9 @@ module Command.Smudge where
 
 import Common.Annex
 import Command
-import Annex.Content
-import Annex.Link
-import Git.Types
+import Types.Key
+
+import qualified Data.ByteString.Lazy as B
 
 cmd :: Command
 cmd = dontCheck repoExists $
@@ -23,7 +23,25 @@ seek :: CmdParams -> CommandSeek
 seek = withWords start
 
 start :: [String] -> CommandStart
-start [file] = do
-	error ("smudge " ++ file)
+start [_file] = do
+	liftIO $ fileEncoding stdin
+	s <- liftIO $ hGetContents stdin
+	case parsePointer s of
+		Nothing -> liftIO $ putStr s
+		Just k -> do
+			content <- calcRepo (gitAnnexLocation k)
+			liftIO $ maybe
+				(putStr s)
+				(B.hPut stdout)
+				=<< catchMaybeIO (B.readFile content)
+	stop
 start [] = error "smudge filter run without filename; upgrade git"
 start _ = error "smudge filter passed multiple filenames"
+
+parsePointer :: String -> Maybe Key
+parsePointer s
+	| length s' >= maxsz = Nothing -- too long to be a key pointer
+	| otherwise = headMaybe (lines s') >>= file2key
+  where
+	s' = take maxsz s
+	maxsz = 81920