Come copiare un pacchetto di Monticello a un altro repository con un nome diverso con Gofer

Question

Il contesto è questo:
Un pacchetto aveva sviluppato diverse filiali in diversi repository

• squeaksource
• source.squeak.org/trunk

Lo sviluppo si è interrotto in source.squeak.org e l'obiettivo è di riportare il ramo a squeaksource in modo che tutte le versioni vengano pubblicate in un unico repository.
Ma per facilitare la navigazione umana e la rapida identificazione del ramo, desidero aggiungere un identificativo di ramo standard al nome della copia di squeaksource.
C'è un modo per automatizzare questa operazione? Forse con Gofer?

Answer 1

I pacchetti Monticello sono immutabili. Puoi spostare facilmente le versioni, ma non rinominare i file. Se lo fai, rompi la cronologia e perdi la possibilità di unire le versioni all'interno dell'albero della versione e con i contributi di altre persone.

Per spostare tutte le versioni di pacchetto Un url da URL di origine-bersaglio è possibile utilizzare:

Gofer new 
    repository: 'source url'; 
    package: 'A'; 
    fetch 

" If you understand the concequences you could rename/rebranch the version files in your package-cache at this point. " 

Gofer new 
    repository: 'target url'; 
    package: 'A'; 
    push 

Answer 2

Una soluzione più arcana che evita la successiva serializzazione e deserializzazione di pacchetti Monticello. Questo è utile per molto grandi repository e accelera la copia un po ':

| sourceRepositoryUrl destinationRepositoryUrl files | 

repositoryUrl := 'http://www.squeaksource.com/PROJECT'. 
destinationRepositoryUrl := 'http://smalltalkhub.com/mc/USER/PROJECT/main'. 

files := (MCHttpRepository new 
    parseFileNamesFromStream: (ZnClient new get: repositoryUrl; entity) readStream) 
    select: [ :each | ZnMonticelloServerDelegate new isValidMczName: each ]. 

files do: [ :fileName ||entity stream| 

    Transcript show: fileName; cr. 
    "download version" 
    entity := ZnClient new 
    beOneShot; 
     url: repositoryUrl; 
     addPath: fileName; 
     get; 
     entity. 

    "upload the version to gemstone" 
    ZnClient new 
     beOneShot; 
     ifFail: [ :exception | Transcript show: fileName; show: ' '; print: exception ]; 
     username: 'USER' password: 'PASSWORD'; 
     entity: entity; 
     url: destinationRepositoryUrl; 
     addPath: fileName; 
     put ] 
displayingProgress: [ :fileName| 'Copying ', fileName]