From 8a8669c06a98927eadbddb7c49cf38ab01259c71 Mon Sep 17 00:00:00 2001
From: Sven Van Caekenberghe <sven@beta9.be>
Date: Tue, 3 Sep 2024 18:18:56 +0200
Subject: [PATCH] Added PureGitTreeEntry>>#modeDescription

---
 src/Iceberg-Git-CLI/PureGitTreeEntry.class.st | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/Iceberg-Git-CLI/PureGitTreeEntry.class.st b/src/Iceberg-Git-CLI/PureGitTreeEntry.class.st
index 6733598..4bd711f 100644
--- a/src/Iceberg-Git-CLI/PureGitTreeEntry.class.st
+++ b/src/Iceberg-Git-CLI/PureGitTreeEntry.class.st
@@ -30,6 +30,19 @@ PureGitTreeEntry >> mode: anObject [
 	mode := anObject
 ]
 
+{ #category : #accessing }
+PureGitTreeEntry >> modeDescription [
+	| map |
+	map := {
+		0 -> #new.
+		16384 -> #tree.
+		33188 -> #blob.
+		33261 -> #executable.
+		40960 -> #link.
+		57344 -> #commit } asDictionary.
+	^ map at: self mode ifAbsent: [ #unknown ]
+]
+
 { #category : #accessing }
 PureGitTreeEntry >> name [
 	^ name