SLR realisation

src/Citezen-Tools.package/CZDuplicateIdentifier.class/instance/listOfDuplicatesKey..st

@@ -0,0 +1,13 @@
+as yet unclassified
+listOfDuplicatesKey: aBibSet
+	"Returns a set with duplicated keys entries based on keys"
+	| listDoublon |
+	listDoublon := CZSet new.
+	prioritaryBibSet := aBibSet.
+	withoutDuplications := CZSet new.
+	prioritaryBibSet do: [:each | 
+                (withoutDuplications includesKey:  each key)
+                    ifFalse: [ withoutDuplications addEntry: each ]
+                    ifTrue: [ listDoublon entryAt: #Dupplication put: (each)]].
+	^ listDoublon
+

src/Citezen-Tools.package/CZDuplicateIdentifier.class/instance/listOfDuplicatesKey.st

@@ -0,0 +1,3 @@
+as yet unclassified
+listOfDuplicatesKey
+

src/Citezen-Tools.package/CZFileFilter.class/README.md

@@ -0,0 +1 @@
+** TODO **

src/Citezen-Tools.package/CZFileFilter.class/instance/filter.in..st

@@ -0,0 +1,4 @@
+accessing
+filter: fileName in: file
+
+    ^self subclassResponsibility

src/Citezen-Tools.package/CZFileFilter.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "sortFile 12/7/2022 13:09",
+	"super" : "CZTool",
+	"category" : "Citezen-Tools",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "CZFileFilter",
+	"type" : "normal"
+}

src/Citezen-Tools.package/CZFileFilterByAuthor.class/README.md

@@ -0,0 +1 @@
+** TODO **

src/Citezen-Tools.package/CZFileFilterByAuthor.class/instance/filter.in..st

@@ -0,0 +1,36 @@
+accessing
+filter: author in: aString
+      |fileRef filterSet|
+	fileRef := (FileLocator workingDirectory / aString) asFileReference.
+	fileRef exists ifFalse: [ 
+		Stdio stdout
+			nextPutAll: 'The file ';
+			nextPutAll: aString;
+			nextPutAll: ' is not found.'.
+		^ self ].
+	bibset := [ CZBibParser bibFromFileReference: fileRef ]
+		      on: SmaCCParserError
+		      do: [ :ex | 
+			      | context |
+			      context := ex signalerContext.
+			      [ 
+			      context sender isNil or: [ 
+				      context sender selector = #buildEntry: ] ] whileFalse: [ 
+				      context := context sender ].
+			      "super ugly isn't!"
+			      context sender isNil
+				      ifTrue: [ 
+					      Stdio stdout nextPutAll: 'Citezen cannot parse the file.'.
+					      ^ self ]
+				      ifFalse: [ 
+					      context := context sender.
+					      Stdio stdout
+						      nextPutAll: 'Citezen cannot parse:  ';
+						      nextPutAll:
+							      ((context at: 1) at: 3) value allButFirst allButLast.
+					      ^ self ] ].
+	  filterSet := CZSet new.
+     (bibset entries) do: [:each |  author = ((each at: #author value) rawValue)
+					ifTrue: [ filterSet addEntry: each ]].
+
+    ^ CZFileSaver new bibset: filterSet ; saveTo: aString

src/Citezen-Tools.package/CZFileFilterByAuthor.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "sortFile 12/7/2022 13:58",
+	"super" : "CZFileFilter",
+	"category" : "Citezen-Tools",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "CZFileFilterByAuthor",
+	"type" : "normal"
+}

src/Citezen-Tools.package/CZFileFilterByKey.class/README.md

@@ -0,0 +1 @@
+** TODO ** 

src/Citezen-Tools.package/CZFileFilterByKey.class/instance/filter.in..st

@@ -0,0 +1,36 @@
+accessing
+filter: key in: aString
+      |fileRef filterSet|
+	fileRef := (FileLocator workingDirectory / aString) asFileReference.
+	fileRef exists ifFalse: [ 
+		Stdio stdout
+			nextPutAll: 'The file ';
+			nextPutAll: aString;
+			nextPutAll: ' is not found.'.
+		^ self ].
+	bibset := [ CZBibParser bibFromFileReference: fileRef ]
+		      on: SmaCCParserError
+		      do: [ :ex | 
+			      | context |
+			      context := ex signalerContext.
+			      [ 
+			      context sender isNil or: [ 
+				      context sender selector = #buildEntry: ] ] whileFalse: [ 
+				      context := context sender ].
+			      "super ugly isn't!"
+			      context sender isNil
+				      ifTrue: [ 
+					      Stdio stdout nextPutAll: 'Citezen cannot parse the file.'.
+					      ^ self ]
+				      ifFalse: [ 
+					      context := context sender.
+					      Stdio stdout
+						      nextPutAll: 'Citezen cannot parse:  ';
+						      nextPutAll:
+							      ((context at: 1) at: 3) value allButFirst allButLast.
+					      ^ self ] ].
+     filterSet := CZSet new.
+     (bibset entries) do: [:each | (key = each key value)
+					ifTrue: [ filterSet addEntry: each ]].
+
+    ^ CZFileSaver new bibset: filterSet ; saveTo: aString

src/Citezen-Tools.package/CZFileFilterByKey.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "sortFile 12/7/2022 14:01",
+	"super" : "CZFileFilter",
+	"category" : "Citezen-Tools",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "CZFileFilterByKey",
+	"type" : "normal"
+}

src/Citezen-Tools.package/CZFileFilterByTitle.class/README.md

@@ -0,0 +1 @@
+** TODO ** 

src/Citezen-Tools.package/CZFileFilterByTitle.class/instance/filter.in..st

@@ -0,0 +1,36 @@
+accessing
+filter: title in: aString
+      |fileRef filterSet|
+	fileRef := (FileLocator workingDirectory / aString) asFileReference.
+	fileRef exists ifFalse: [ 
+		Stdio stdout
+			nextPutAll: 'The file ';
+			nextPutAll: aString;
+			nextPutAll: ' is not found.'.
+		^ self ].
+		bibset := [ CZBibParser bibFromFileReference: fileRef ]
+		      on: SmaCCParserError
+		      do: [ :ex | 
+			      | context |
+			      context := ex signalerContext.
+			      [ 
+			      context sender isNil or: [ 
+				      context sender selector = #buildEntry: ] ] whileFalse: [ 
+				      context := context sender ].
+			      "super ugly isn't!"
+			      context sender isNil
+				      ifTrue: [ 
+					      Stdio stdout nextPutAll: 'Citezen cannot parse the file.'.
+					      ^ self ]
+				      ifFalse: [ 
+					      context := context sender.
+					      Stdio stdout
+						      nextPutAll: 'Citezen cannot parse:  ';
+						      nextPutAll:
+							      ((context at: 1) at: 3) value allButFirst allButLast.
+					      ^ self ] ].
+	  filterSet := CZSet new.
+     (bibset entries) do: [:each |  title = ((each at: #title value) rawValue)
+					ifTrue: [ filterSet addEntry: each ]].
+
+    ^ CZFileSaver new bibset: filterSet ; saveTo: aString

src/Citezen-Tools.package/CZFileFilterByTitle.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "sortFile 12/7/2022 14:02",
+	"super" : "CZFileFilter",
+	"category" : "Citezen-Tools",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "CZFileFilterByTitle",
+	"type" : "normal"
+}

src/Citezen-Tools.package/CZFileMerger.class/instance/merge..st

@@ -0,0 +1,4 @@
+action
+merge: fileName
+
+    ^self subclassResponsibility

src/Citezen-Tools.package/CZFileMergerWithDuplicate.class/README.md

@@ -0,0 +1,5 @@
+A CZFileMergerWithDuplicate takes a list of bib files and generate one single bibset without check of duplication.
+
+CZFileMergerWithDuplicate new 
+	inputFiles: #('lse.bib' 'scg.bib');
+	merge

src/Citezen-Tools.package/CZFileMergerWithDuplicate.class/instance/merge..st

@@ -0,0 +1,6 @@
+action
+merge: fileName
+    |fileSaver|
+    inputFiles do: [:each | self load: each].
+    fileSaver := CZFileSaver new. 
+    fileSaver bibset: bibset ; saveTo: fileName

src/Citezen-Tools.package/CZFileMergerWithDuplicate.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "LouisDeloffre 12/5/2022 15:44",
+	"super" : "CZFileMerger",
+	"category" : "Citezen-Tools",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "CZFileMergerWithDuplicate",
+	"type" : "normal"
+}

src/Citezen-Tools.package/CZFileMergerWithDuplicateWarning.class/README.md

@@ -0,0 +1,6 @@
+A CZFileMergerWithDuplicateWarning takes a list of bib files and generate one single bibset with check on duplication elements.
+Return in the bibset a comment type. He say how many duplication are there and who.
+
+CZFileMergerWithDuplicateWarning new 
+	inputFiles: #('lse.bib' 'scg.bib');
+	merge

src/Citezen-Tools.package/CZFileMergerWithDuplicateWarning.class/instance/merge..st

@@ -0,0 +1,19 @@
+actions
+merge: fileName
+   |duplicateIdentifier stream listDoublon|
+   inputFiles do: [:each | self load: each].
+   listDoublon := CZSet new.
+	stream := WriteStream on: ByteString new.
+	duplicateIdentifier := CZDuplicateIdentifier new.
+   listDoublon := duplicateIdentifier listOfDuplicatesKey: bibset.
+	(listDoublon entries) printElementsOn: stream.
+
+	('Vous avez ', (listDoublon size asString), ' doublon(s) qui ont comme clef : ', (stream contents)) asMorph openInWindow.
+
+	bibset addEntry: ((CZEntry type:'COMMENT')
+                key: #Comment;
+                at: #comment put: 'Dupplication';
+                at: #number_Of_Dupplication put: listDoublon size;
+                at: #Key_Of_Dupplication_Item put: stream contents).
+
+	 CZFileSaver new bibset: bibset ; saveTo: fileName

src/Citezen-Tools.package/CZFileMergerWithDuplicateWarning.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "LouisDeloffre 12/5/2022 15:46",
+	"super" : "CZFileMerger",
+	"category" : "Citezen-Tools",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "CZFileMergerWithDuplicateWarning",
+	"type" : "normal"
+}

src/Citezen-Tools.package/CZFileMergerWithoutDuplicate.class/README.md

@@ -0,0 +1,6 @@
+A CZFileMergerWithoutDuplicate takes a list of bib files and generate one single bibset with check on duplication elements.
+Return in the bibset a single reference of duplicate items.
+
+CZFileMergerWithoutDuplicate new 
+	inputFiles: #('lse.bib' 'scg.bib');
+	merge

src/Citezen-Tools.package/CZFileMergerWithoutDuplicate.class/instance/merge..st

@@ -0,0 +1,8 @@
+action
+merge: fileName
+    | duplicateIdentifier fileSaver |
+    inputFiles do: [:each | self load: each].
+    duplicateIdentifier := CZDuplicateIdentifier new.
+    fileSaver := CZFileSaver new. 
+    bibset := duplicateIdentifier withoutInternalKeyDuplicates: bibset.
+    fileSaver bibset: bibset ; saveTo: fileName

src/Citezen-Tools.package/CZFileMergerWithoutDuplicate.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "LouisDeloffre 12/5/2022 15:48",
+	"super" : "CZFileMerger",
+	"category" : "Citezen-Tools",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "CZFileMergerWithoutDuplicate",
+	"type" : "normal"
+}

src/Citezen-Tools.package/CZFileSorter.class/class/isAbstract.st

@@ -0,0 +1,4 @@
+testing
+isAbstract
+
+	^ self == CZFileSorter

src/Citezen-Tools.package/CZFileSorter.class/instance/sortFile..st

@@ -1,55 +1,4 @@
 actions
-sortFile: aString
+sortFile: fileName
 
-	| bs oldSize fileRef |
-	fileRef := (FileLocator workingDirectory / aString) asFileReference.
-	fileRef exists 
-		ifFalse: [  
-					Stdio stdout 
-						nextPutAll: 'The file ';
-						nextPutAll: aString;
-						nextPutAll: ' is not found.'.
-					^ self ].
-	bs := [ CZBibParser bibFromFileReference: fileRef ] 
-				on: SmaCCParserError do: [ :ex |  
-					| context |
-					context := ex signalerContext.
-					[ context sender isNil or: [ context sender selector = #buildEntry: ] ]
-						whileFalse: [ context := context sender ].
-					"super ugly isn't!"
-					(context sender isNil)
-						ifTrue: [ 
-								Stdio stdout nextPutAll: 'Citezen cannot parse the file.'.
-								^ self ]
-						ifFalse: [ 
-							context := context sender.
-								Stdio stdout nextPutAll: 'Citezen cannot parse:  ', ((context at: 1) at: 3) value allButFirst allButLast.
-								^ self ]
-				]
-
-
-			.
-	oldSize := bs size.
-	bs sortByKey.
-	bs size. 
-	oldSize = bs size 
-		ifFalse: [ 
-			Stdio stdout 
-				nextPutAll: 'Problem identified! The original file: ';
-				nextPutAll: aString ;
-				nextPutAll: ' contained ';
-				print: oldSize printString ;
-				nextPutAll: ' entries and the sorted version contains ';
-				print:  bs size printString ;
-				nextPutAll: ' entries. So we saved the file to a new name:'.
-			CZFileSaver new bibset: bs ; saveTo: aString, 'Sorted.bib', '.'
-			].
-	Stdio stdout 
-		nextPutAll:	'Sorted file: ';
-		nextPutAll: aString;
-		nextPutAll: ' .';
-		nextPutAll: ' It contains ';
-		print: bs size;
-		nextPutAll: ' entries.'.
-	CZFileSaver new bibset: bs ; saveTo: aString
-
+    ^ CZFileSorterByKey sortFile: fileName 

src/Citezen-Tools.package/CZFileSorterByAuthor.class/README.md

@@ -0,0 +1 @@
+Sort by **author**