SVN__Configuration.st
changeset 1080 b52886dfa918
parent 1060 9e5422c98c45
child 1129 01c6e3546546
equal deleted inserted replaced
1079:31f839be7998 1080:b52886dfa918
   294     self name = anotherConfig name ifFalse:[^false].        
   294     self name = anotherConfig name ifFalse:[^false].        
   295     self repositories asArray = anotherConfig repositories asArray ifFalse:[^false].
   295     self repositories asArray = anotherConfig repositories asArray ifFalse:[^false].
   296     ^true
   296     ^true
   297 
   297 
   298     "Created: / 10-03-2010 / 13:35:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   298     "Created: / 10-03-2010 / 13:35:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   299     "Modified: / 14-03-2011 / 11:26:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   299     "Modified: / 29-03-2012 / 14:24:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   300 !
   300 !
   301 
   301 
   302 hash
   302 hash
   303 
   303 
   304     ^name hash
   304     ^name hash bitXor: repositories hash
   305 
   305 
   306     "Created: / 10-03-2010 / 13:34:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   306     "Created: / 10-03-2010 / 13:34:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   307 ! !
   307 ! !
   308 
   308 
   309 !Configuration methodsFor:'displaying'!
   309 !Configuration methodsFor:'displaying'!
   433     "Modified: / 06-05-2011 / 21:13:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   433     "Modified: / 06-05-2011 / 21:13:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   434 !
   434 !
   435 
   435 
   436 hash
   436 hash
   437 
   437 
   438     ^package hash bitXor: url hash
   438     ^package hash bitXor: (url hash bitXor: branch hash)
   439 
   439 
   440     "Created: / 09-01-2010 / 11:21:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   440     "Created: / 09-01-2010 / 11:21:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   441 ! !
   441 ! !
   442 
   442 
   443 !Configuration::Repository methodsFor:'encoding & decoding'!
   443 !Configuration::Repository methodsFor:'encoding & decoding'!
   448     ^ #(pattern)
   448     ^ #(pattern)
   449 
   449 
   450     "Created: / 14-03-2011 / 09:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   450     "Created: / 14-03-2011 / 09:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   451 ! !
   451 ! !
   452 
   452 
       
   453 !Configuration::Repository methodsFor:'printing & storing'!
       
   454 
       
   455 printOn:aStream
       
   456     "append a printed representation if the receiver to the argument, aStream"
       
   457 
       
   458     super printOn:aStream.
       
   459     aStream nextPutAll:'package: '.
       
   460     package printOn:aStream.
       
   461     aStream nextPutAll:'pattern: '.
       
   462     pattern printOn:aStream.
       
   463     aStream nextPutAll:'url: '.
       
   464     url printOn:aStream.
       
   465     aStream nextPutAll:'branch: '.
       
   466     branch printOn:aStream.
       
   467 ! !
       
   468 
   453 !Configuration::Repository methodsFor:'queries'!
   469 !Configuration::Repository methodsFor:'queries'!
   454 
   470 
   455 matches: packageId
   471 matches: packageId
   456 
   472 
   457     packageId ifNil:[^false].
   473     packageId ifNil:[^false].