equal
deleted
inserted
replaced
133 |
133 |
134 "return a dictionary filled with revision info. |
134 "return a dictionary filled with revision info. |
135 This extracts the relevant info from aString, asking |
135 This extracts the relevant info from aString, asking |
136 the sourceCode manager (if there is one)" |
136 the sourceCode manager (if there is one)" |
137 |
137 |
138 |info mgr| |
138 |mgr| |
139 |
139 |
140 "/ |
140 "/ |
141 "/ mhmh - ask the default manager |
141 "/ mhmh - ask the default manager |
142 "/ |
142 "/ |
143 (mgr := Smalltalk at:#SourceCodeManager) isNil ifTrue:[ |
143 (mgr := Smalltalk at:#SourceCodeManager) isNil ifTrue:[ |
144 "/ |
144 "/ |
145 "/ fallBack - assume CVS header |
145 "/ fallBack - assume CVS header |
146 "/ |
146 "/ |
147 mgr := CVSSourceCodeManager |
147 mgr := Smalltalk at:#CVSSourceCodeManager |
148 ]. |
148 ]. |
149 |
149 "/ |
150 info := mgr revisionInfoFromString:aString. |
150 "/ care for standAlone apps which have no CVS manager included |
151 ^ info |
151 "/ |
|
152 mgr isNil ifTrue:[ |
|
153 mgr := Smalltalk at:#AbstractSourceCodeManager |
|
154 ]. |
|
155 mgr isNil ifTrue:[ |
|
156 ^ nil |
|
157 ]. |
|
158 ^ mgr revisionInfoFromString:aString. |
152 ! |
159 ! |
153 |
160 |
154 revisionStringFromSource:aMethodSourceString |
161 revisionStringFromSource:aMethodSourceString |
155 "{ Pragma: +optSpace }" |
162 "{ Pragma: +optSpace }" |
156 |
163 |
4801 ! ! |
4808 ! ! |
4802 |
4809 |
4803 !Class class methodsFor:'documentation'! |
4810 !Class class methodsFor:'documentation'! |
4804 |
4811 |
4805 version |
4812 version |
4806 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.449 2003-11-13 11:29:50 cg Exp $' |
4813 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.450 2003-11-18 09:04:11 cg Exp $' |
4807 ! ! |
4814 ! ! |