| origin destination allPackages packages |

origin := MCSmalltalkhubRepository owner: 'estebanlm' project: 'Reef'.
destination := MCFileTreeRepository new 
	directory: './repository/mc' asFileReference ensureCreateDirectory;
	yourself.

allPackages := Set new.
origin loadAllFileNames 
	do: [ :each | allPackages add: (each copyUpToLast: $-) ].
packages := (allPackages select: [ :each | | origVersion destVersion |
	origVersion := origin versionInfoFromVersionNamed: each. 
	destVersion := destination versionInfoFromVersionNamed: each. 
	destVersion isNil or: [ origVersion date < destVersion date ] ]).

'commit.txt' asFileReference
	ensureDelete; 
	writeStreamDo: [ :stream | 
		packages do: [ :each | | version |
			version := origin versionInfoFromVersionNamed: each.
			stream
				<< version name << ': ' << String crlf 
				<< version message; crlf; crlf. 
			destination storeVersion: (origin versionFromFileNamed: version name, '.mcz') ] ].