5355 |
5355 |
5356 resources := self owningClass classResources. |
5356 resources := self owningClass classResources. |
5357 |
5357 |
5358 OperatingSystem getDomainName = 'exept' ifFalse:[ |
5358 OperatingSystem getDomainName = 'exept' ifFalse:[ |
5359 defaultsList := #( |
5359 defaultsList := #( |
5360 'host:/files/CVS' |
5360 'host:/cvs/stx' |
5361 'host:/CVS' |
5361 ':pserver:user@host:/cvs/stx' |
5362 ':pserver:user@host:/files/CVS' |
|
5363 ). |
5362 ). |
|
5363 defaultsList := defaultsList copyWith:(':pserver:' , OperatingSystem getLoginName , '@host:/cvs/stx') |
5364 ] ifTrue:[ |
5364 ] ifTrue:[ |
5365 defaultsList := #( |
5365 defaultsList := #( |
5366 '/archiv/stx' |
5366 '/cvs/stx' |
5367 'exept:/archiv/stx' |
5367 'exept:/cvs/stx' |
5368 ':pserver:' , OperatingSystem getLoginName , '@exept:/archiv/stx' |
|
5369 ). |
5368 ). |
|
5369 defaultsList := defaultsList copyWith:(':pserver:' , OperatingSystem getLoginName , '@exept:/cvs/stx') |
5370 ]. |
5370 ]. |
5371 |
5371 |
5372 OperatingSystem isUNIXlike ifTrue:[ |
5372 OperatingSystem isUNIXlike ifTrue:[ |
5373 defaultsList := defaultsList , #( |
5373 defaultsList := defaultsList , #( |
5374 '/files/CVS' |
5374 '/cvs/stx' |
5375 '/CVS' |
|
5376 ). |
5375 ). |
5377 ] ifFalse:[ |
5376 ] ifFalse:[ |
5378 OperatingSystem isMSDOSlike ifTrue:[ |
5377 OperatingSystem isMSDOSlike ifTrue:[ |
5379 defaultsList := defaultsList , #( |
5378 defaultsList := defaultsList , #( |
5380 ':local:c:\files\CVS' |
5379 ':local:c:\cvs\stx' |
5381 ':local:c:\CVS' |
|
5382 ). |
5380 ). |
5383 ] ifFalse:[ |
5381 ] ifFalse:[ |
5384 "there might be more here in the future" |
5382 "there might be more here in the future" |
5385 ] |
5383 ] |
5386 ]. |
5384 ]. |
5387 |
5385 |
5388 cvsRootHolder := CVSSourceCodeManager repositoryName ? '/files/CVS'. |
5386 cvsRootHolder := CVSSourceCodeManager repositoryName ? '/cvs/stx'. |
5389 cvsRootHolder := cvsRootHolder asValue. |
5387 cvsRootHolder := cvsRootHolder asValue. |
5390 rootsPerModule := Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule). |
5388 rootsPerModule := Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule). |
5391 cvsBinDirectoryHolder := CVSSourceCodeManager cvsBinDirectory asValue. |
5389 cvsBinDirectoryHolder := CVSSourceCodeManager cvsBinDirectory asValue. |
5392 |
5390 |
5393 bindings := IdentityDictionary new. |
5391 bindings := IdentityDictionary new. |