SVNSourceCodeManager.st
changeset 921 6c3ba44ed3a5
parent 851 32edde5d1f19
child 924 a9f83be0daee
equal deleted inserted replaced
920:26b894d9cc79 921:6c3ba44ed3a5
    24  OTHER DEALINGS IN THE SOFTWARE.
    24  OTHER DEALINGS IN THE SOFTWARE.
    25 "
    25 "
    26 "{ Package: 'stx:libsvn' }"
    26 "{ Package: 'stx:libsvn' }"
    27 
    27 
    28 AbstractSourceCodeManager subclass:#SVNSourceCodeManager
    28 AbstractSourceCodeManager subclass:#SVNSourceCodeManager
    29 	instanceVariableNames:''
    29         instanceVariableNames:''
    30 	classVariableNames:'LoadInProgressQuery'
    30         classVariableNames:'LoadInProgressQuery'
    31 	poolDictionaries:''
    31         poolDictionaries:''
    32 	category:'System-SourceCodeManagement'
    32         category:'System-SourceCodeManagement'
    33 !
    33 !
    34 
    34 
    35 !SVNSourceCodeManager class methodsFor:'documentation'!
    35 !SVNSourceCodeManager class methodsFor:'documentation'!
    36 
    36 
    37 copyright
    37 copyright
    72     Might get more in the future.
    72     Might get more in the future.
    73 "
    73 "
    74 ! !
    74 ! !
    75 
    75 
    76 !SVNSourceCodeManager class methodsFor:'* As yet uncategorized *'!
    76 !SVNSourceCodeManager class methodsFor:'* As yet uncategorized *'!
    77 
       
    78 revisionInfoFromString:aString inClass:aClass
       
    79 
       
    80     ^ CVSSourceCodeManager revisionInfoFromString:aString inClass:aClass
       
    81 
       
    82     "Created: / 05-07-2011 / 18:48:42 / jv"
       
    83 !
       
    84 
    77 
    85 savePreferencesOn:aFileStream
    78 savePreferencesOn:aFileStream
    86 
    79 
    87     "Nothing to do, since my preferences are stored in 
    80     "Nothing to do, since my preferences are stored in 
    88     UserPreferences dictionary"
    81     UserPreferences dictionary"
   200      This must be implemented by a concrete source-code manager"
   193      This must be implemented by a concrete source-code manager"
   201 
   194 
   202     ^ self shouldImplement
   195     ^ self shouldImplement
   203 ! !
   196 ! !
   204 
   197 
   205 !SVNSourceCodeManager class methodsFor:'others'!
       
   206 
       
   207 version_CVS
       
   208     ^ '$Header$'
       
   209 ! !
       
   210 
       
   211 !SVNSourceCodeManager class methodsFor:'queries'!
   198 !SVNSourceCodeManager class methodsFor:'queries'!
   212 
   199 
   213 isExperimental
   200 isExperimental
   214     ^ false
   201     ^ false
   215     "/^ OperatingSystem getLoginName ~= 'cg'.
   202     "/^ OperatingSystem getLoginName ~= 'cg'.
   230 
   217 
   231 managerTypeName
   218 managerTypeName
   232     ^ 'SubVersion'
   219     ^ 'SubVersion'
   233 
   220 
   234     "Modified: / 07-07-2011 / 23:11:41 / jv"
   221     "Modified: / 07-07-2011 / 23:11:41 / jv"
       
   222 !
       
   223 
       
   224 managerTypeNameShort
       
   225 
       
   226     "Answers short version manager name suitable for UI,
       
   227      i,e., CVS, SVN, P4. Used in cases where sorter strings
       
   228      are preferred. Defaults to #managerTypeName"
       
   229 
       
   230     ^'SVN'
       
   231 
       
   232     "Created: / 03-10-2011 / 13:28:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   235 !
   233 !
   236 
   234 
   237 nameOfVersionMethodForExtensions
   235 nameOfVersionMethodForExtensions
   238     ^ #'extensionsVersion_SVN'
   236     ^ #'extensionsVersion_SVN'
   239 !
   237 !
   339     "{ Pragma: +optSpace }"
   337     "{ Pragma: +optSpace }"
   340 
   338 
   341     "return a dictionary filled with revision info.
   339     "return a dictionary filled with revision info.
   342      This extracts the relevant info from aString."
   340      This extracts the relevant info from aString."
   343 
   341 
       
   342 
   344     ^ SVNVersionInfo fromSVNString:aString
   343     ^ SVNVersionInfo fromSVNString:aString
       
   344 
   345 
   345 
   346     "
   346     "
   347      self revisionInfoFromString:(Array version_SVN)   
   347      self revisionInfoFromString:(Array version_SVN)   
   348      self revisionInfoFromString:(stx_libbasic2 extensionsVersion_SVN)   
   348 
       
   349      self revisionInfoFromString:(stx_libbasic2 extensionsVersion_CVS)   
   349     "
   350     "
   350 
   351 
       
   352 
       
   353     "Modified: / 29-01-1997 / 19:00:35 / cg"
       
   354     "Modified: / 03-10-2011 / 13:02:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   351     "Modified (comment): / 29-09-2011 / 21:54:26 / cg"
   355     "Modified (comment): / 29-09-2011 / 21:54:26 / cg"
       
   356 
   352 ! !
   357 ! !
   353 
   358 
   354 !SVNSourceCodeManager class methodsFor:'subclass responsibility'!
   359 !SVNSourceCodeManager class methodsFor:'subclass responsibility'!
   355 
   360 
   356 reportHistoryLogSince:timeGoal filterSTSources:filter filterUser:userFilter filterRepository:repositoryFilter filterModules:moduleFilter inTo:aBlock
   361 reportHistoryLogSince:timeGoal filterSTSources:filter filterUser:userFilter filterRepository:repositoryFilter filterModules:moduleFilter inTo:aBlock
   366 ! !
   371 ! !
   367 
   372 
   368 !SVNSourceCodeManager class methodsFor:'documentation'!
   373 !SVNSourceCodeManager class methodsFor:'documentation'!
   369 
   374 
   370 version
   375 version
       
   376 
       
   377     ^ '$Header$'
       
   378 !
       
   379 
       
   380 version_CVS
   371     ^ '$Header$'
   381     ^ '$Header$'
   372 !
   382 !
   373 
   383 
   374 version_SVN
   384 version_SVN
   375     ^ '§Id§'
   385     ^ '§Id§'