Added PureGitTreeEntry>>#modeDescription

feenkcom · Sep 3, 2024 · 8a8669c · 8a8669c
1 parent b2f2a31
commit 8a8669c
Showing 1 changed file with 13 additions and 0 deletions.
diff --git 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