1030 |
1030 |
1031 self classNamesAndAttributes:newSpec usingCompiler:compilerOrNil |
1031 self classNamesAndAttributes:newSpec usingCompiler:compilerOrNil |
1032 ! ! |
1032 ! ! |
1033 |
1033 |
1034 !ProjectDefinition class methodsFor:'accessing - svn'! |
1034 !ProjectDefinition class methodsFor:'accessing - svn'! |
1035 |
|
1036 svnRepositoryUrl |
|
1037 |
|
1038 | url | |
|
1039 |
|
1040 (self respondsTo:#svnRepositoryUrlString) ifFalse:[^nil]. |
|
1041 url := self svnRepositoryUrlString. |
|
1042 ((url startsWith: '$URL: ') and:[url endsWith:' $']) |
|
1043 ifTrue:[url := url copyFrom: 7 to: (url lastIndexOf: $/) - 1] |
|
1044 ifFalse:[nil]. |
|
1045 ^url |
|
1046 |
|
1047 |
|
1048 " |
|
1049 stx_libjava svnRepositoryUrl |
|
1050 " |
|
1051 |
|
1052 "Created: / 08-04-2011 / 16:20:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1053 ! |
|
1054 |
1035 |
1055 svnRevision |
1036 svnRevision |
1056 |
1037 |
1057 " |
1038 " |
1058 Answers SVN revision of given package. The revision is computed |
1039 Answers SVN revision of given package. The revision is computed |
1125 suite := TestSuite named:self package. |
1106 suite := TestSuite named:self package. |
1126 classes := self classes |
1107 classes := self classes |
1127 select:[:each | |
1108 select:[:each | |
1128 each isLoaded ifFalse:[each autoload]. |
1109 each isLoaded ifFalse:[each autoload]. |
1129 (each isTestCaseLike) and:[ each isAbstract not ] |
1110 (each isTestCaseLike) and:[ each isAbstract not ] |
1130 ] |
1111 ]. |
1131 thenCollect:[:each | each asTestCase]. |
|
1132 |
1112 |
1133 classes := classes asSortedCollection:[:a :b | a name <= b name ]. |
1113 classes := classes asSortedCollection:[:a :b | a name <= b name ]. |
1134 |
1114 classes do: [:eachClass | |
1135 classes do: [:each | |
|
1136 | tests | |
1115 | tests | |
1137 |
1116 |
1138 tests := each buildSuite tests. |
1117 tests := eachClass suite tests. |
1139 tests := tests reject:[:test|self shouldExcludeTest: test]. |
1118 tests := tests reject:[:test|self shouldExcludeTest: test]. |
1140 suite addTests: tests |
1119 suite addTests: tests |
1141 ]. |
1120 ]. |
1142 ^ suite |
1121 ^ suite |
1143 |
1122 |
1144 "Created: / 01-04-2011 / 15:20:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1123 "Created: / 01-04-2011 / 15:20:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1145 "Modified: / 03-06-2011 / 17:07:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1124 "Modified: / 03-06-2011 / 17:07:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1146 "Modified (comment): / 03-08-2011 / 12:41:51 / cg" |
1125 "Modified: / 08-08-2011 / 14:59:45 / cg" |
1147 ! ! |
1126 ! ! |
1148 |
1127 |
1149 !ProjectDefinition class methodsFor:'class initialization'! |
1128 !ProjectDefinition class methodsFor:'class initialization'! |
1150 |
1129 |
1151 initialize |
1130 initialize |
1572 ]. |
1551 ]. |
1573 |
1552 |
1574 "Modified: / 09-11-2010 / 18:41:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1553 "Modified: / 09-11-2010 / 18:41:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1575 ! |
1554 ! |
1576 |
1555 |
1577 forEachContentsMethodsCodeToCompileDo:aTwoArgBlock ignoreOldEntries: ignoreOldEntries ignoreOldDefinition:ignoreOldDefinition |
|
1578 aTwoArgBlock |
|
1579 value:(self classNamesAndAttributes_code_ignoreOldEntries:ignoreOldEntries ignoreOldDefinition:ignoreOldDefinition) |
|
1580 value:'description - contents'. |
|
1581 |
|
1582 aTwoArgBlock |
|
1583 value: (self extensionMethodNames_code_ignoreOldEntries:ignoreOldEntries) |
|
1584 value: 'description - contents'. |
|
1585 |
|
1586 aTwoArgBlock |
|
1587 value: self preRequisites_code |
|
1588 value: 'description'. |
|
1589 |
|
1590 aTwoArgBlock |
|
1591 value: self excludedFromPreRequisites_code |
|
1592 value: 'description'. |
|
1593 |
|
1594 "Created: / 09-07-2010 / 14:12:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1595 ! |
|
1596 |
|
1597 forEachMethodsCodeToCompileDo:aTwoArgBlock |
1556 forEachMethodsCodeToCompileDo:aTwoArgBlock |
1598 self forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:false |
1557 self forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:false |
1599 ! |
1558 ! |
1600 |
1559 |
1601 forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:ignoreOldDefinition |
1560 forEachMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:ignoreOldDefinition |
1803 self productName_code |
1762 self productName_code |
1804 stx_libbasic3 productName_code |
1763 stx_libbasic3 productName_code |
1805 " |
1764 " |
1806 |
1765 |
1807 "Created: / 18-08-2006 / 16:14:19 / cg" |
1766 "Created: / 18-08-2006 / 16:14:19 / cg" |
1808 ! |
|
1809 |
|
1810 svnRepositoryUrlString_code |
|
1811 |
|
1812 ^'svnRepositoryUrlString |
|
1813 "Return a SVN repository URL of myself. |
|
1814 (Generated since 2011-04-08) |
|
1815 " |
|
1816 |
|
1817 ^ ''$URL$''' |
|
1818 |
|
1819 " |
|
1820 self svnRepositoryUrlString_code |
|
1821 stx_libbasic3 svnRepositoryUrlString_code |
|
1822 " |
|
1823 |
|
1824 "Created: / 08-04-2011 / 16:01:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1825 ! |
1767 ! |
1826 |
1768 |
1827 svnRevisionNr_code: revisionNrOrNil |
1769 svnRevisionNr_code: revisionNrOrNil |
1828 ^ String streamContents:[:s | |
1770 ^ String streamContents:[:s | |
1829 s nextPutLine:'svnRevisionNr'. |
1771 s nextPutLine:'svnRevisionNr'. |