ProjectDefinition.st
changeset 16540 12807abd853b
parent 16328 cbe0d174d3b5
child 16541 d258a79cee6e
equal deleted inserted replaced
16539:3d95a92c99f7 16540:12807abd853b
  1005                             inCategory:category.
  1005                             inCategory:category.
  1006                     ]
  1006                     ]
  1007                 ignoreOldDefinition:doRegenerate
  1007                 ignoreOldDefinition:doRegenerate
  1008         ].
  1008         ].
  1009 ! !
  1009 ! !
       
  1010 
  1010 
  1011 
  1011 !ProjectDefinition class methodsFor:'accessing - tests'!
  1012 !ProjectDefinition class methodsFor:'accessing - tests'!
  1012 
  1013 
  1013 excludedFromTestSuite
  1014 excludedFromTestSuite
  1014     "List of testcases and/or tests excluded from testsuite.
  1015     "List of testcases and/or tests excluded from testsuite.
  6553 
  6554 
  6554     |allPreRequisites orderedTuples sortedPackages|
  6555     |allPreRequisites orderedTuples sortedPackages|
  6555 
  6556 
  6556     orderedTuples := OrderedCollection new.
  6557     orderedTuples := OrderedCollection new.
  6557     allPreRequisites := self allPreRequisites:aSelector.
  6558     allPreRequisites := self allPreRequisites:aSelector.
       
  6559     allPreRequisites := allPreRequisites collect:[ :e | e asString ].
  6558 
  6560 
  6559     "/JV@2013-03-13: Added asSortedCollection to make the order of packages
  6561     "/JV@2013-03-13: Added asSortedCollection to make the order of packages
  6560     "/as stable as possible. Makes merging of makefiles a lot easier.
  6562     "/as stable as possible. Makes merging of makefiles a lot easier.
  6561     allPreRequisites asSortedCollection do:[:eachPackageID |
  6563     allPreRequisites asSortedCollection do:[:eachPackageID |
  6562         |def preRequisites|
  6564         |def preRequisites|
  6580     ].
  6582     ].
  6581 
  6583 
  6582     (orderedTuples includes:[:el | el first = el second]) ifTrue:[
  6584     (orderedTuples includes:[:el | el first = el second]) ifTrue:[
  6583         self halt:'oops - something seems to depend upon itself'
  6585         self halt:'oops - something seems to depend upon itself'
  6584     ].
  6586     ].
  6585     sortedPackages := orderedTuples topologicalSort.
  6587     sortedPackages := orderedTuples topologicalSortStable: true.
  6586 
  6588 
  6587     "packages which only result from extension methods are used for computing the sort order,
  6589     "packages which only result from extension methods are used for computing the sort order,
  6588      but they are not added, if not present in the first place"
  6590      but they are not added, if not present in the first place"
  6589     ^ sortedPackages select:[:eachProject| allPreRequisites includes:eachProject]
  6591     ^ sortedPackages select:[:eachProject| allPreRequisites includes:eachProject]
  6590 
  6592 
  6596      alspa_batch_application allPreRequisitesSorted
  6598      alspa_batch_application allPreRequisitesSorted
  6597      ubs_application allPreRequisitesSorted
  6599      ubs_application allPreRequisitesSorted
  6598     "
  6600     "
  6599 
  6601 
  6600     "Modified: / 13-04-2011 / 15:19:13 / sr"
  6602     "Modified: / 13-04-2011 / 15:19:13 / sr"
  6601     "Modified (comment): / 13-03-2013 / 00:40:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  6603     "Modified: / 05-06-2014 / 12:22:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  6602 !
  6604 !
  6603 
  6605 
  6604 allReferences
  6606 allReferences
  6605     "answer all (recursive) projects to which I refer - in random order."
  6607     "answer all (recursive) projects to which I refer - in random order."
  6606 
  6608 
  7454 ! !
  7456 ! !
  7455 
  7457 
  7456 !ProjectDefinition class methodsFor:'documentation'!
  7458 !ProjectDefinition class methodsFor:'documentation'!
  7457 
  7459 
  7458 version
  7460 version
  7459     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.502 2014-04-14 08:55:56 stefan Exp $'
  7461     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.503 2014-06-05 11:26:41 vrany Exp $'
  7460 !
  7462 !
  7461 
  7463 
  7462 version_CVS
  7464 version_CVS
  7463     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.502 2014-04-14 08:55:56 stefan Exp $'
  7465     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.503 2014-06-05 11:26:41 vrany Exp $'
  7464 !
  7466 !
  7465 
  7467 
  7466 version_SVN
  7468 version_SVN
  7467     ^ '$ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1  $'
  7469     ^ '$ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1  $'
  7468 ! !
  7470 ! !