For some reason I can no longer open Zinc's old school MC repository in Pharo-7.0+alpha.build.690.sha.ffd58dcc88a0698be21b52b565a863 16799cb25d (32 Bit)
MCHttpRepository
��location: 'http://mc.stfx.eu/ZincHTTPComponents '
��user: ''
��password: ''.
> Open repository (browser UI)
gives me a DNU see [1]
I just don't see what is wrong, maybe it has to do with the latest commit in the repo, (it took a git version number from the image as ancestor), but this code is hard to look at.
Now I am stuck trying to fix a problem with Zinc.
Any help would be appreciated,
Sven
[1]
UndefinedObject(Object)>>doesNotUnderstand: #<
[ :ancestor |
(ancestor versionNumber < aVersionArray third
�� �� �� �� or: [ ancestor versionNumber = aVersionArray third
�� �� �� �� �� �� �� �� �� �� �� �� and: [ ancestor author ~= aVersionArray second ] ])
�� �� �� �� ifTrue: [ newer add: ancestor name ] ] in [ :aVersionArray |
workingCopy ancestors
�� �� �� �� do: [ :ancestor |
�� �� �� �� �� �� �� �� (ancestor versionNumber < aVersionArray third
�� �� �� �� �� �� �� �� �� �� �� �� or: [ ancestor versionNumber = aVersionArray third
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� and: [ ancestor author ~= aVersionArray second ] ])
�� �� �� �� �� �� �� �� �� �� �� �� ifTrue: [ newer add: ancestor name ] ] ] in [ :workingCopy |
| versionsForPackage |
workingCopy ancestors do: [ :ancestor | loaded add: ancestor name ].
versionsForPackage := versions
�� �� �� �� select: [ :v | v first = workingCopy package name ].
versionsForPackage
�� �� �� �� do: [ :aVersionArray |
�� �� �� �� �� �� �� �� workingCopy ancestors
�� �� �� �� �� �� �� �� �� �� �� �� do: [ :ancestor |
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� (ancestor versionNumber < aVersionArray third
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� or: [ ancestor versionNumber = aVersionArray third
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� and: [ ancestor author ~= aVersionArray second ] ])
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� ifTrue: [ newer add: ancestor name ] ] ] ] in MCFileRepositoryInspector>>refresh in Block: [ :ancestor | ...
Array(SequenceableCollection)>>do:
[ :aVersionArray |
workingCopy ancestors
�� �� �� �� do: [ :ancestor |
�� �� �� �� �� �� �� �� (ancestor versionNumber < aVersionArray third
�� �� �� �� �� �� �� �� �� �� �� �� or: [ ancestor versionNumber = aVersionArray third
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� and: [ ancestor author ~= aVersionArray second ] ])
�� �� �� �� �� �� �� �� �� �� �� �� ifTrue: [ newer add: ancestor name ] ] ] in [ :workingCopy |
| versionsForPackage |
workingCopy ancestors do: [ :ancestor | loaded add: ancestor name ].
versionsForPackage := versions
�� �� �� �� select: [ :v | v first = workingCopy package name ].
versionsForPackage
�� �� �� �� do: [ :aVersionArray |
�� �� �� �� �� �� �� �� workingCopy ancestors
�� �� �� �� �� �� �� �� �� �� �� �� do: [ :ancestor |
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� (ancestor versionNumber < aVersionArray third
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� or: [ ancestor versionNumber = aVersionArray third
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� and: [ ancestor author ~= aVersionArray second ] ])
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� ifTrue: [ newer add: ancestor name ] ] ] ] in MCFileRepositoryInspector>>refresh in Block: [ :aVersionArray | ...
Array(SequenceableCollection)>>do:
[ :workingCopy |
| versionsForPackage |
workingCopy ancestors do: [ :ancestor | loaded add: ancestor name ].
versionsForPackage := versions
�� �� �� �� select: [ :v | v first = workingCopy package name ].
versionsForPackage
�� �� �� �� do: [ :aVersionArray |
�� �� �� �� �� �� �� �� workingCopy ancestors
�� �� �� �� �� �� �� �� �� �� �� �� do: [ :ancestor |
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� (ancestor versionNumber < aVersionArray third
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� or: [ ancestor versionNumber = aVersionArray third
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� and: [ ancestor author ~= aVersionArray second ] ])
�� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� ifTrue: [ newer add: ancestor name ] ] ] ] in MCFileRepositoryInspector>>refresh in Block: [ :workingCopy | ...
Array(SequenceableCollection)>>do:
MCFileRepositoryInspector>>refresh
[ self refresh.
MCWorkingCopy addDependent: self ] in MCFileRepositoryInspector>>setRepository:workingCopy: in Block: [ self refresh....
[ self value.
Processor terminateActive ] in BlockClosure>>newProcess in Block: [ self value....
|
������ | Guille Polito Research Engineer Centre de Recherche en Informatique, Signal et Automatique de Lille CRIStAL - UMR 9189 French National Center for Scientific Research - http://www.cnrs.fr Phone: +33 06 52 70 66 13 |