Class: CVSSourceCodeManager

• Inheritance
• Description
• Related information
• Class protocol
  • accessing
  • basic administration
  • initialization
  • misc operations
  • private
  • queries
  • saving
  • source code access
  • source code administration
  • source code utilities
  • testing
• Private classes
• Examples

Inheritance:

   Object
   |
   +--AbstractSourceCodeManager
      |
      +--CVSSourceCodeManager

Package:

stx:libbasic3

Category:

System-SourceCodeManagement

Version:

rev: 1.576 date: 2019/07/31 15:09:37

user: cg

file: CVSSourceCodeManager.st directory: libbasic3

module: stx stc-classLibrary: libbasic3

Author:

Claus Gittinger

Description:

SourceCodeManager which accesses the sourcecode through cvs.
It requires the shell environment variable CVSROOT to be set
to the top of the repository tree. (or alternatively, the CVSRoot
variable being set by a private.rc file).
Under that top, for each module (especially the stx module itself),
a subdirectory containing that modules directories must exist.

If not specified otherwise, the module defaults to 'stx'.
If a class has its home in another module, it has to be compiled
with a corresponding entry in the package string (see below).
Within a module, classes are organized in classlibraries, and the corresponding
source code is found in various subdirectories of CVSROOT. The directories
name can also be provided by the package string - if not, it defaults to the
libraries name.
The package string controls all this, and is REQUIRED in order for the sourceCodeManager
to be able to retrieve a classes source.
The package strings format is:
    '...any infotext....(sourceCodeInfo)'
the sourceCOdeInfo consists of multiple entries, separated by colons.
The following formats are allowed:
    (libraryName)                   - module defaults to 'stx'; directory to the name of the library
    (foo/bar/x)                     - module defaults to 'stx'; dir is 'foo/bar/x'; library name defaults to x
    (module:directory:libname)      - specifies all components
The first formats are intermediate, for backward compatibility. We urge everyone
to use the last format (by changing the Make.proto files and add a -P flag to
the stc compiler flags (see libbasic/Make.proto as an example).

Notice, that the sourceCodeManager is (currently) only consulted, if no
source subdirectory exists, or no source file is found there. If it does exist,
that one is supposed to contain an up-to-date version of the classes source
(this is temporary - in the future the probe order will be reversed, trying
 the source repository first).
The source directory is required for systems which do NO source code control.

Setup:
    - make certain, that the commands 'cvs' and 'co' are available on your system.
    - add setup for the CVSROOT environment variable to your .bashrc / .login / .profile
    - Make certain that either no local source directory exists, or it is empty or it contains
      only source code for files NOT found in the repository (this will not be required in future versions).

Caveat:
    currently, the rcs container is accessed directly, since cvs mangles the file's ident-string and
    thus does not correctly recreate the original file (all source is offset by some characters w.r.t. the
    compiled file).
    Therefore, server-mode CVS is not supported.

Comment:
    The code here is a copy-paste mess; it definitely needs some cleanup...

[class variables:]
    CVSTempDir      <String | nil>  where a directory tree is
                                    generated temporarily for checkin/checkout
                                    (default is nil -> systems tmp-dir)

    CVSRoot         <String>        the CVS root. Imported from the
                                    CVSROOT shell variable.

    RemoteCVS       <Boolean>       if true, remote CVS access is used
                                    (i.e. via a socket to a CVS server).
                                    if false, disk access is used;
                                    files in CVSRoot must be accessible.

    CVSWorkDirectory                not yet supported/implemented.
                                    PLANNED: name of a directory hierarchy,
                                    which is kept in sync with the current
                                    version.

    CVSBinDir                       where the CVS commands are found

    CVSModuleRoots  <Directory>     per-module roots.
                                    If empty, or no entry is found for a
                                    module is found, CVSRoot is used.
                                    Otherwise, specifies a per-module CVSRoot.
                                    (allows multiple CVS hierarchies)

Related information:

    [cvs manual page]
    [Coding style used in Smalltalk/X classes]

Class protocol:

 CVSBranchPerPackage

 CVSCommitOptions

 CVSCommitOptions: aString

 CVSUpdateOptions

 CVSUpdateOptions: aString

 cvsBinDirectory: ignoredString

ignored - for backward compatibility (to read old settings files)

 cvsCommandTimeout

360

 cvsCommandTimeout: aTimeDuration

 cvsExecutable

return the name of the cvs executable.

 cvsExecutable: aString

set the name of the cvs executable.

 cvsTmpDirectory

return the name of the tmp repository.
That's the directory, where temporary files are created for checkin/checkout.
If nil, a directory under the system's default tempDirectory is used.

 cvsTmpDirectory: aPathNameString

set the name of the tmp repository.
That's the directory, where temporary files are created for checkin/checkout.
If nil, the system's default tempDirectory is used.

 knownModules

return the modules, we currently know

 knownRepositories

return the modules, we currently know

 recentTag

a place to remember recently set tags (to share between File and SystemBrowser)

usage example(s):

self recentTag

 recentTag: aString

a place to remember recently set tags (to share between File and SystemBrowser)

 recentTags

a place to remember recently set tags (to share between File and SystemBrowser)

 repositoryForPackage: packageId

superclass AbstractSourceCodeManager class says that I am responsible to implement this method

 repositoryInfoPerModule

return the dictionary, which associates CVSRoots to module names.
If no entry is contained in this dictionary for some module,
the default cvsRoot (CVSRoot) will be used.

 repositoryInfoPerModule: aDictionary

set the dictionary, which associates CVSRoots to module names.
If no entry is contained in this dictionary for some module,
the default cvsRoot (CVSRoot) will be used.

 repositoryName

return the name of the global repository.
This is used, if no per-module repository is defined.

 repositoryName: aDirectoryName

set the name of the repository;
that's the name of the global CVSROOT directory, which is used
if no specific repository was defined for a module.
Can be used from an rc-script, to override the CVSROOT shell
variable setting.

 repositoryName: aRepositoryName forModule: aModuleName

set the CVSROOT directory which provides the sources for all
classes in a particular module.
This can be used from an rc-script, to specify a repository
for a particular module.
If left unspecified, the global (i.e. fallBack) repository is used.

 repositoryNameForModule: aModuleName

return the CVSROOT directory which provides the sources for all
classes in a particular module.
Nil is returned for unspecified moduleRoots; in this case,
the global (i.e. fallBack) repository will be used for source access.

 repositoryNameForPackage: packageId

superclass AbstractSourceCodeManager class says that I am responsible to implement this method

 repositoryNamesPerModule

return the dictionary, which associates CVSRoots to module names.
If no entry is contained in this dictionary for some module,
the default cvsRoot (CVSRoot) will be used.

** This is an obsolete interface - do not use it (it may vanish in future versions) **

 repositoryNamesPerModule: aDictionary

set the dictionary, which associates CVSRoots to module names.
If no entry is contained in this dictionary for some module,
the default cvsRoot (CVSRoot) will be used.

** This is an obsolete interface - do not use it (it may vanish in future versions) **

 createContainerFor: aClass inModule: moduleName directory: dirName container: fileName

create a new container & check into it an initial version of aClass

 addExeptsPrivateRepositoryToModuleRoots

 addExeptsPublicRepositoryToModuleRoots

 disabledModules: aCollectionOfModuleNames

self disabledModules:#('stx' 'exept')
CVSSourceCodeManager classVarAt:#DisabledModules put:#('stx' 'exept')
CVSSourceCodeManager classVarAt:#DisabledModules put:nil

 exeptsPrivateSTXRepositoryModuleRoot

the actual stx repository as used within exept.
Only valid within exept

 exeptsPublicSTXRepositoryModuleRoot

the public repository, which is a read-only copy of the exept-internal repository.
Updated every night.

 forgetDisabledModules

 initCommands

 initialize

check if $CVSROOT (the shell variable) or CVSRoot (the smalltalk global)
is set, check if cvs commands can be executed and install myself as the
SourceCodeManager if this works out ok

usage example(s):

AbstractSourceCodeManager initialize CVSSourceCodeManager initialize

usage example(s):

CVSRoot := '/files/CVS'. AbstractSourceCodeManager initialize. CVSSourceCodeManager initialize.

usage example(s):

CVSRoot := ':pserver:cg@cvs.bh.exept.de:/cvs/stx'. AbstractSourceCodeManager initialize. CVSSourceCodeManager initialize. SourceCodeManager := CVSSourceCodeManager.

 initializeForRepository: aDirectoryName

set the global CVSROOT directory (i.e. the repositories name).
And reinitialize.
Can be used from the launcher to change/configure the repository.

usage example(s):

CVSSourceCodeManager initializeForRepository:'/files/CVS' CVSSourceCodeManager initializeForRepository:'ibm:/files/CVS'

 possiblyAddExeptsPrivateRepositoryToModuleRoots

for exept's convenience: if this is a host in our domain,

 authorMappingFor: authorName

allows for author names to be mapped on the fly
when retrieving a revisionLog or other statistics.
Useful when a login name is changed, and you still want to
create reasonable logs

 changeCVSRoot: newRootString inDirectoryTree: aDirectoryFilename

WARNING: read and understand before executing !
Change the CVS root to newRootString (something like:':pserver:user@cvs.bh.exept.de:/cvs/stx').
This is done by rewriting all files named CVS/Root below the given path.
aDirectoryFilename is recursively descended

usage example(s):

OperatingSystem getLoginName self changeCVSRoot:':pserver:',OperatingSystem getLoginName,'@cvs.bh.exept.de:/cvs/stx' inDirectoryTree:'../../../stx' self changeCVSRoot:':pserver:',OperatingSystem getLoginName,'@cvs.bh.exept.de:/cvs/stx' inDirectoryTree:'..\..\..\exept' self changeCVSRoot:':pserver:',OperatingSystem getLoginName,'@cvs.bh.exept.de:/cvs/stx' inDirectoryTree:'..\..\..\cg'

 checkOut: relativeFilename module: moduleDir in: tempdir

checkout realtiveFilename in tempdir

usage example(s):

self checkOut:'libbasic/Integer.st' module:'stx' in:'/tmp' asFilename

 checkinTroubleDialog: title message: message log: log abortable: abortable option: optionTitle

trouble checking in - open a dialog

 checkinTroubleDialog: title message: message log: log abortable: abortable option: optionTitle option2: optionTitle2

 checkinTroubleDialog: title message: message log: log abortable: abortable option: optionTitle option2: optionTitle2 option3: optionTitle3

trouble checking in - open a dialog

 createEntryFor: pathInRepository module: aModule in: aDirectory revision: rev date: date special: special overwrite: overwrite

create an CVS/Repository and CVS/Entries entry for filename.
If the path does not exist, it will be created
If overwrite is true, an existing entry will be overwritten.

usage example(s):

self createEntryFor:'foo/xxx/yyy' in:'foo/xxx' revision:'1.22' date:'dummy' special:'' self createEntryFor:'foo/xxx/yyy' in:'foo/xxx' revision:'3.44' date:'new dummy' special:'special'

 createLocalDirectory: packageDir inModule: moduleDir

create a local working directory for module/package.
To speed up things, we checkout the file '.cvsignore', to create
the whole tree. If the file is not present, we will create it as empty file.
Return the name of a temporary directory containing the package

usage example(s):

self createLocalDirectory:'libbasic' inModule:'stx'

 createLocalDirectory: packageDir inModule: moduleDir with: fileToCheckout

create a local working directory for module/package, and checkout the
given file there.
Return the name of a temporary directory containing the package, or nil

usage example(s):

self createLocalDirectory:'libbasic' inModule:'stx'

 createLocalDirectory: packageDir inModule: moduleDir with: fileToCheckout andDefaultContents: defaultContents

create a local working directory for module/package, and checkout the
given file there.
Return the name of a temporary directory containing the package, or nil

usage example(s):

self createLocalDirectory:'libbasic' inModule:'stx'

 createTempDirectory: packageDir forModule: moduleDir

create a temp directory for checking out

 cvsTimeString: timestamp

convert a Timestamp to a string suitable for the CVS/Entries file:

123456789012345678901234
Tue Dec 19 20:56:26 1995

usage example(s):

CVSSourceCodeManager cvsTimeString:(UtcTimestamp now)

 executeCVSCommand: cvsCommand module: moduleName inDirectory: dir

execute command and prepend cvs command name and global options.
if dir ~= nil, execute command in that directory.
This also leads to a log-entry to be added to cvs's logfile.

 executeCVSCommand: cvsCommand module: moduleName inDirectory: dir log: doLog

execute command and prepend cvs command name and global options.
if dir ~= nil, execute command in that directory.
The doLog argument, if false suppresses a logEntry to be added
in the cvs log file (used when reading / extracting history)

 executeCVSCommand: cvsCommand module: moduleName inDirectory: dirArg log: doLog errorTo: errorStream

 executeCVSCommand: cvsCommand module: moduleName inDirectory: dirArg log: doLog outputTo: outStream errorTo: errorStream

execute command and prepend cvs command name and global options.
execute command in the dirArg directory.
The doLog argument, if false suppresses a logEntry to be added
in the cvs log file (used when reading / extracting history)

 executeCVSCommand: cvsCommand module: moduleName inDirectory: dirArg log: doLog pipe: doPipe

execute command and prepend cvs command name and global options.
execute command in the dirArg directory.
The doLog argument, if false suppresses a logEntry to be added
in the cvs log file (used when reading / extracting history).
sigh: returns either a stream (if doPipe == true) or a boolean otherwise.

 executeCVSCommand: cvsCommand module: moduleName inDirectory: dirArg log: doLog pipe: doPipe orElseOutputTo: outStreamOrNil errorTo: errorStreamOrNil

execute command and prepend cvs command name and global options.
execute command in the dirArg directory (or the current directory if dirArg is nil).
The doLog argument, if false suppresses a logEntry to be added
in the cvs log file (used when reading / extracting history).
sigh: returns either a stream (if doPipe == true) or a boolean otherwise.

 fetchRevisionsFromRLogStream: inStream searchForKeyword: searchFor

helper for revisionsInModule*

 fetchRevisionsFromRLogStream: inStream searchForKeyword: searchFor ignoreDeleted: ignoreDeleted

helper for revisionsInModule*

 getCVSROOTForModule: aModuleName

internal: used when accessing a source repository.
Return the CVSROOT which provides the sources for a particular module.
If no specific root was defined for that module, return the value of
the global (fallBack) CVSRoot.
Nil is returned if no repository is available.

 getCVSROOTsPerModule

return a dictionary, which associates CVSRoots to modules

 import: moduleDir in: tempdir

import the existing tree in tempdir as repository

 readRevisionLogEntryFromStream: inStream

read and parse a single revision info-entry from the cvs log output.
Return nil on end.

The returned information is a CVSVersionInfo object (used to be an IdentityDictionary)
filled with:
#revision -> the revision string
#author -> who checked that revision into the repository
#date -> when was it checked in
#state -> the RCS state
#numberOfChangedLines -> the number of changed line w.r.t the previous
#logMessage -> the checkIn log message

 releaseAndRemove: tempdir module: moduleDir outputTo: outputFilename

cleanup; release tree towards cvs and remove the temporary tree

 repositoryTopDirectoryFromCVSRoot: aString

return the top of the repository (without remote prefix)

usage example(s):

CVSSourceCodeManager repositoryTopDirectoryFromCVSRoot:':pserver:stefan@ibm.exept.de:/archiv/cvs' CVSSourceCodeManager repositoryTopDirectoryFromCVSRoot:'exept:/files/CVS' CVSSourceCodeManager repositoryTopDirectoryFromCVSRoot:'/archiv/cvs'

 repositoryTopDirectoryFromSCMRoot

return the top of the repository. This handles remote CVS connections
as well

 revisionStringFromLog: log entry: entry forClass: aClass

given a log entry, extract a revision string

 updatedRevisionStringOf: aClass forRevision: newRevision andUser: userName with: originalVersionString

update a revision string: take the original versionString,
and return a new version string with changed revisionNr, dateAndTime and author.
Used to synthetically generate a new version method without a need to consult the
cvs for an revision string after an update (which is slow, when done remote)

 updatedRevisionStringOf: aClass forRevision: newRevision with: originalVersionString

update a revision string: take the original versionString,
and return a new version string with changed revisionNr.

 use_rlog

OperatingSystem isMSWINDOWSlike not

 isResponsibleForPackage: aString

JV@2011-07-09: The real check is too slow. Cache needed here

 managerTypeName

(comment from inherited method)
Answers version manager name suitable for UI,
i,e., CVS, SubVersion, Perforce

 nameOfVersionMethodForExtensions

 nameOfVersionMethodInClasses

 settingsApplicationClass

link to my settings application (needed for the settings dialog

 versionInfoClass

 savePreferencesOn: aStream

 checkin: containerFilename text: someText directory: packageDir module: moduleDir logMessage: logMessage force: force onBranch: branchNameOrNil

enter some (source) code (which is someText)
into the source repository. If the force argument is true, no merge is done;
instead, the code is checked in as given (Dangerous).
Return true if ok, false if not.

 checkinClass: cls fileName: classFileName directory: packageDir module: moduleDir source: sourceFileName logMessage: logMessage force: forceArg

(comment from inherited method)
checkin of a class into the source repository.
Return true if ok, false if not.

 checkinClass: cls fileName: classFileName directory: packageDir module: moduleDir source: sourceFileName logMessage: logMessage force: forceArg asBranch: branchTag

enter a classes source code (which has been already filed out into sourceFileName)
into the source repository. If the force argument is true, no merge is done;
instead, the code is checked in as given (Dangerous).
Return true if ok, false if not.

If branchTag is notNil, the class is checked in on the branch if it already exists, or a branch for this tag is created.
(branch support does not work yet!)

usage example(s):

^ self checkinClass:cls fileName:classFileName directory:packageDir module:moduleDir source:sourceFileName logMessage:logMsg force:force.

usage example(s):

SourceCodeManager checkinClass:Array logMessage:'testing only'

 checkoutModule: aModule directory: aPackage andDo: aBlock

check out everything from a package into a temporary directory.
Then evaluate aBlock, passing the name of that temp-directory.
Afterwards, the tempDir is removed.
Return true, if OK, false if any error occurred.

 checkoutModule: aModule directory: aPackage withTag: tagOrNil orTimestamp: timestampOrNil andDo: aBlock

check out everything from a package into a temporary directory.
If tagOrNil isNonNil, get the versions with that tag;
if timestampOrNil isNOnNil, get the version at that date;
otherwise, checkout the head.
Then evaluate aBlock, passing the name of that temp-directory.
Afterwards, the tempDir is removed.
Return true, if OK, false if any error occurred.

 getSourceStreamFor: aClass revision: aRevisionStringOrNil

extract a classes source code and return an open readStream on it.
A revision of nil selects the current (in image) revision.
The classes source code is extracted using the revision and the sourceCodeInfo,
which itself is extracted from the classes packageString.

 streamForClass: cls fileName: fileName revision: revision directory: packageDir module: moduleDir cache: cacheItArg

extract a source file and return an open readStream on it,
or nil if the extract failed. If revision is nil or (#newest), take
the latest; otherwise, a specific revisions source is extracted.
The cls argument is currently ignored, but may be used in future versions,
to validate the correct container against the class.
To check out a file (i.e. not a classes file), leave cls as nil and provide only a fileName.

 checkForExistingContainer: fileName inModule: moduleName directory: packageDirName

check for a container to exist. Return a boolean result.

usage example(s):

CVSSourceCodeManager checkForExistingContainer:'Integer.st' inModule:'stx' directory:'libbasic' CVSSourceCodeManager checkForExistingContainer:'AboutBox.st' inModule:'stx' directory:'libtool'

 checkForExistingModule: moduleDir

check for a module to exist

usage example(s):

CVSSourceCodeManager checkForExistingModule:'stx' CVSSourceCodeManager checkForExistingModule:'DPU' CVSSourceCodeManager checkForExistingModule:'cg' CVSSourceCodeManager checkForExistingModule:'aeg' CVSSourceCodeManager checkForExistingModule:'foo'

 checkForExistingModule: moduleDir directory: directory

check for a package to exist

usage example(s):

CVSSourceCodeManager checkForExistingModule:'stx' package:'libbasic' CVSSourceCodeManager checkForExistingModule:'aeg' package:'libProgram' CVSSourceCodeManager checkForExistingModule:'foo' package:'libbasic' CVSSourceCodeManager checkForExistingModule:'foo' package:'bar' CVSSourceCodeManager checkForExistingModule:'cg' package:'private'

 createBranch: branchName forClasses: aCollectionOfClasses

create a branch

 createBranch: branchName pathes: aCollectionOfPathNames

create a branch

 createContainerFor: aClass inModule: moduleDir package: packageDir container: fileName

create a container - this does an initial checkin
(i.e. cvs add & cvs commit)

 createContainerForText: someText inModule: moduleDir package: packageDir container: fileName

create a container - this does an initial checkin
(i.e. cvs add & cvs commit)

 createModule: moduleName

create a module directory

 createModule: moduleDirName directory: packageDirName

create a package directory

usage example(s):

self createModule:'stefan' package:'dummy1'

 deleteSymbolicName: symbolicName path: pathInRepository

remove symbolicName from classFileName

usage example(s):

self deleteSymbolicName:'stable' path:'stx/libbasic/Array.st' self deleteSymbolicName:'testBLAbla' path:'stx/libbasic/Array.st'

 getExistingContainersInModule: aModule directory: aPackage

return a list of existing containers.

usage example(s):

CVSSourceCodeManager getExistingContainersInModule:'stx' package:'libhtml' CVSSourceCodeManager getExistingContainersInModule:'cg' package:'java' CVSSourceCodeManager getExistingContainersInModule:'exept' package:'osi'

 getExistingDirectoriesInModule: aModule

return a list of existing directories.

usage example(s):

CVSSourceCodeManager getExistingDirectoriesInModule:'stx' CVSSourceCodeManager getExistingDirectoriesInModule:'cg' CVSSourceCodeManager getExistingDirectoriesInModule:'exept'

 getExistingModules

return a list of existing modules

usage example(s):

CVSSourceCodeManager getExistingModules

 listDirectories: cvsPath

return a list of all directories in cvsPath.
cvsPath is the path relative to the cvs root

usage example(s):

CVSSourceCodeManager listDirectories:nil CVSSourceCodeManager listDirectories:'stx' CVSSourceCodeManager listDirectories:'stx/libbasic'

 listDirectoriesIn: cvsPath into: dirBlock nonDirectoriesInto: nonDirBlock

enumerate all directories and non-directories in cvsPath.
cvsPath is the path relative to the cvs root

 listNonDirectories: cvsPath

return a list of all containers in cvsPath.
cvsPath is the path relative to the cvs root

usage example(s):

CVSSourceCodeManager listNonDirectories:nil CVSSourceCodeManager listNonDirectories:'stx' CVSSourceCodeManager listNonDirectories:'stx/libbasic'

 newestRevisionInFile: classFileName directory: packageDirOrNil module: moduleDir

return the newest revision found in a container.
Return nil on failure.

usage example(s):

SourceCodeManager newestRevisionInFile:'Array.st' directory:'libbasic' module:'stx'

 newestRevisionsInModule: module directory: packageDir

return a list of filename-module associations for the containers in
a package directory.
Return nil on failure.

usage example(s):

SourceCodeManager newestRevisionsInModule:'bosch' directory:'dapasx' SourceCodeManager newestRevisionsInModule:'stx' directory:'goodies/net/ssl' SourceCodeManager newestRevisionsInModule:'stx' directory:'goodies/net'

 pathesForClasses: aCollectionOfClasses

helper - collect the pathnames for a collection of classes

 readRevisionLogFromStream: aCVSLogPipeStream headerOnly: headerOnly numRevisions: numRevisionsOrNil

 removeContainer: fileName inModule: moduleDir directory: packageDir

remove a container

usage example(s):

SourceCodeManager checkForExistingContainer:'foo.st' inModule:'stx' directory:'private'. SourceCodeManager removeContainer:'foo.st' inModule:'stx' package:'private'

 removeContainer: fileName inModule: moduleDir package: packageDir

remove a container

** This is an obsolete interface - do not use it (it may vanish in future versions) **

 removeContainerInModule: moduleDir package: packageDir container: fileName

remove a container

** This is an obsolete interface - do not use it (it may vanish in future versions) **

 reportHistoryLogSince: timeGoal filterSTSources: filterSTSourcesBool filterUser: userFilter filterRepository: filterRep filterModules: filterModules inTo: aBlock

process a full historyLog, evaluate aBlock for each entry, passing
each logs' info in a dictionary.
This walks over all possible repositories.
filterRep may be a collection of repository names (eg. 'stx', 'exept', 'phx' etc.) to only report changes made to one
of those repositories.
userFilter, if a non-nil string or stringCollection,
will filter only changes made by that user(s) (eg. 'sv' or #('sv' 'cg')).
filterModules, if non-empty, will only present changes in that module (eg. 'stx:libbasic')

 reportHistoryLogSince: timeGoal filterSTSources: filter filterUser: userFilter filterRepository: filterRep inTo: aBlock

process a full historyLog, evaluate aBlock for each entry, passing
the logs info in a dictionary.
This walks over all possible repositories.
filterRep may be a collection of repository names
(i.e. 'stc', 'exept', 'phx' etc.) to only report changes made to one
of those repositories.
filterUser, if non-nil, will filter only changes made by that user.

 revisionInfoFromString: aString

return a dictionary filled with revision info.
This extracts the relevant info from aString.

usage example(s):

self revisionInfoFromString:(Array version_CVS) self revisionInfoFromString:(stx_libbasic2 extensionsVersion_CVS)

 revisionInfoFromString: aString inClass: aClass

return a dictionary filled with revision info.
This extracts the relevant info from aString.

usage example(s):

self revisionInfoFromString:(Array version_CVS) self revisionInfoFromString:(stx_libbasic2 extensionsVersion_CVS)

 revisionLogOf: clsOrNil fromRevision: firstRevOrNil toRevision: lastRevOrNil numberOfRevisions: numRevisionsOrNil fileName: classFileName directory: packageDirOrNil module: moduleDirOrNil

return info about the repository container and
(part of) the revisionlog as a collection of revision entries.
Return nil on failure.

If numRevisionsOrNil is notNil, it limits the number of revision records returned -
only numRevions of the newest revision infos will be collected.

The returned information is a structure (IdentityDictionary)
filled with:
#container -> the CVS container file name
#cvsRoot -> the CVS root (repository)
#filename -> the actual source file name
#newestRevision -> the revisionString of the newest revision
#numberOfRevisions -> the number of revisions in the container (nil for all)
#revisions -> collection of per-revision info (see below)

firstRevOrNil / lastRevOrNil specify from which revisions a logEntry is wanted:
-If firstRevOrNil is nil, the first revision is the initial revision
otherwise, the log starts with that revision.
-If lastRevOrNil is nil, the last revision is the newest revision
otherwise, the log ends with that revision.

-If both are nil, all logEntries are extracted.
-If both are 0 (not nil), no logEntries are extracted (i.e. only the header).

per revision info consists of one record per revision:

#revision -> the revision string
#author -> who checked that revision into the repository
#date -> when was it checked in
#state -> the RCS state
#numberOfChangedLines -> the number of changed lines w.r.t the previous (as string with +n -n)
#logMessage -> the checkIn log message

revisions are ordered newest first
(i.e. the last entry is for the initial revision; the first for the most recent one)
Attention: if state = 'dead' that revision is no longer valid.

usage example(s):

SourceCodeManager revisionLogOf:Array SourceCodeManager revisionLogOf:Array fromRevision:'1.40' toRevision:'1.43' SourceCodeManager revisionLogOf:Array fromRevision:'1.40' toRevision:nil SourceCodeManager revisionLogOf:Array fromRevision:nil toRevision:'1.3' SourceCodeManager revisionLogOf:Array fromRevision:nil toRevision:nil SourceCodeManager revisionLogOf:Array fromRevision:0 toRevision:0 SourceCodeManager revisionLogOfFile:'../../libbasic/Array.st' fromRevision:0 toRevision:0

 revisionLogOfPackageInDirectory: packageDir module: moduleDir

The returned information is a list of structures (IdentityDictionary)
each filled with:
#container -> the CVS container file name
#cvsRoot -> the CVS root (repository)
#filename -> the actual source file name
#newestRevision -> the revisionString of the newest revision
#numberOfRevisions -> the number of revisions in the container (nil for all)
#revisions -> collection of per-revision info (see below)

firstRev / lastRef specify from which revisions a logEntry is wanted:
-If firstRev is nil, the first revision is the initial revision
otherwise, the log starts with that revision.
-If lastRef is nil, the last revision is the newest revision
otherwise, the log ends with that revision.

-If both are nil, all logEntries are extracted.
-If both are 0 (not nil), no logEntries are extracted (i.e. only the header).

per revision info consists of one record per revision:

#revision -> the revision string
#author -> who checked that revision into the repository
#date -> when was it checked in
#state -> the RCS state
#numberOfChangedLines -> the number of changed lines w.r.t the previous (as string with +n -n)
#logMessage -> the checkIn log message

revisions are ordered newest first
(i.e. the last entry is for the initial revision; the first for the most recent one)
Attention: if state = 'dead' that revision is no longer valid.

usage example(s):

CVSSourceCodeManager revisionLogOfPackageInDirectory:'libbasic3' module:'stx'

 revisionsInModule: module directory: packageDir fromDate: aDateOrNilForNewest

return a list of filename-module associations for the containers in
a package directory. Return nil on failure.

usage example(s):

SourceCodeManager revisionsInModule:'exept' directory:'osi/asn1' fromDate:(Date today subtractDays:7) SourceCodeManager revisionsInModule:'exept' directory:'osi/asn1' fromDate:nil

 revisionsInModule: module directory: packageDir taggedAs: symbolicName

return a list of filename-module associations for the containers in
a package directory. Return nil on failure.

usage example(s):

SourceCodeManager revisionsInModule:'stx' directory:'libbasic2' taggedAs:'stable'

 setSymbolicName: symbolicName asBranch: asBranch revision: rev overWrite: overWriteBool classes: aCollectionOfClasses

set a symbolicName for revision rev.
If rev is nil, set it for the head (most recent) revision.
If rev is 0, delete the symbolic name.
If overWriteBool is true, the symbolicName will be changed, even if it has already been set.
If overWriteBool is false, an error will be raised if symbolicName has already been set.

If filename is nil, the symbolicName for a whole package is set

usage example(s):

self setSymbolicName:'foo' revision:nil overWrite:false classes:(Array with:True with:False) self setSymbolicName:'foo' revision:nil overWrite:true classes:(Array with:True with:False) self setSymbolicName:'foo' revision:nil overWrite:true classes:(Array with:True with:False) self setSymbolicName:'foo' revision:'1.1' overWrite:true classes:(Array with:True with:False) self setSymbolicName:'foo' revision:0 overWrite:true classes:(Array with:True with:False)

 setSymbolicName: symbolicNameArg asBranch: asBranch revision: rev overWrite: overWriteBool pathes: pathsInRepository

set a symbolicName for revision rev.
If rev is nil, set it for the head (most recent) revision.
If rev is 0, delete the symbolic name.
If overWriteBool is true, the symbolicName will be changed, even if it has already been set.
If overWriteBool is false, an error will be raised if symbolicName has already been set.
If multiple paths are given, the revision MUST be nil.

usage example(s):

self setSymbolicName:'stable' revision:nil overWrite:false path:'stx/libbasic/Array.st' self setSymbolicName:'stable' revision:nil overWrite:true path:'stx/libbasic/Array.st' self setSymbolicName:'test1' revision:nil overWrite:true path:'bosch/dapasx/datenbasis/DAPASX__HierarchicalList.st' self setSymbolicName:'test2' revision:nil overWrite:true pathes:#( 'bosch/dapasx/datenbasis/DAPASX__HierarchicalList.st' 'bosch/dapasx/datenbasis/DAPASX__ProjectSearch.st' ) self setSymbolicName:'test2' revision:0 overWrite:true pathes:#( 'bosch/dapasx/datenbasis/DAPASX__HierarchicalList.st' 'bosch/dapasx/datenbasis/DAPASX__ProjectSearch.st' )

 setSymbolicName: symbolicName revision: rev overWrite: overWriteBool class: aClass

set a symbolicName for revision rev.
If rev is nil, set it for the head (most recent) revision.
If rev is 0, delete the symbolic name.
If overWriteBool is true, the symbolicName will be changed, even if it has already been set.
If overWriteBool is false, an error will be raised if symbolicName has already been set.

If filename is nil, the symbolicName for a whole package is set

usage example(s):

self setSymbolicName:'foo' revision:nil overWrite:false class:Array self setSymbolicName:'foo' revision:nil overWrite:true class:Array self setSymbolicName:'foo' revision:nil overWrite:true class:Array self setSymbolicName:'foo' revision:'1.1' overWrite:true class:Array self setSymbolicName:'foo' revision:0 overWrite:true class:Array

 setSymbolicName: symbolicName revision: rev overWrite: overWriteBool classes: aCollectionOfClasses

set a symbolicName for revision rev.
If rev is nil, set it for the head (most recent) revision.
If rev is 0, delete the symbolic name.
If overWriteBool is true, the symbolicName will be changed, even if it has already been set.
If overWriteBool is false, an error will be raised if symbolicName has already been set.

If filename is nil, the symbolicName for a whole package is set

usage example(s):

self setSymbolicName:'foo' revision:nil overWrite:false classes:(Array with:True with:False) self setSymbolicName:'foo' revision:nil overWrite:true classes:(Array with:True with:False) self setSymbolicName:'foo' revision:nil overWrite:true classes:(Array with:True with:False) self setSymbolicName:'foo' revision:'1.1' overWrite:true classes:(Array with:True with:False) self setSymbolicName:'foo' revision:0 overWrite:true classes:(Array with:True with:False)

 setSymbolicName: symbolicName revision: rev overWrite: overWriteBool path: pathInRepository

set a symbolicName for revision rev.
If rev is nil, set it for the head (most recent) revision.
If rev is 0, delete the symbolic name.
If overWriteBool is true, the symbolicName will be changed, even if it has already been set.
If overWriteBool is false, an error will be raised if symbolicName has already been set.

If filename is nil, the symbolicName for a whole package is set

usage example(s):

self setSymbolicName:'stable' revision:nil overWrite:false path:'stx/libbasic/Array.st' self setSymbolicName:'stable' revision:nil overWrite:true path:'stx/libbasic/Array.st' self setSymbolicName:'stable' revision:nil overWrite:true path:'stx/libbasic/Array.st' self setSymbolicName:'stable' revision:'1.1' overWrite:true path:'stx/libbasic/Array.st'

 setSymbolicName: symbolicNameArg revision: rev overWrite: overWriteBool pathes: pathsInRepository

set a symbolicName for revision rev.
If rev is nil, set it for the head (most recent) revision.
If rev is 0, delete the symbolic name.
If overWriteBool is true, the symbolicName will be changed, even if it has already been set.
If overWriteBool is false, an error will be raised if symbolicName has already been set.

If filename is nil, the symbolicName for a whole package is set.
If multiple paths are given, the revision MUST be nil.

usage example(s):

self setSymbolicName:'stable' revision:nil overWrite:false path:'stx/libbasic/Array.st' self setSymbolicName:'stable' revision:nil overWrite:true path:'stx/libbasic/Array.st' self setSymbolicName:'test1' revision:nil overWrite:true path:'bosch/dapasx/datenbasis/DAPASX__HierarchicalList.st' self setSymbolicName:'test2' revision:nil overWrite:true pathes:#( 'bosch/dapasx/datenbasis/DAPASX__HierarchicalList.st' 'bosch/dapasx/datenbasis/DAPASX__ProjectSearch.st' ) self setSymbolicName:'test2' revision:0 overWrite:true pathes:#( 'bosch/dapasx/datenbasis/DAPASX__HierarchicalList.st' 'bosch/dapasx/datenbasis/DAPASX__ProjectSearch.st' )

 standardRevisionStringFor: aClass inModule: moduleDir directory: packageDir container: fileName revision: revisionString

utility function: return a string usable as initial revision string

 statusOf: clsOrNil fileName: classFileName directory: packageDirOrNil module: moduleDir

return info about the status of a repository container.
Return nil on failure.

The returned information is a structure (IdentityDictionary)
filled with:
#newestRevision -> the revisionString of the newest revision

This is much faster than revisionLog info (especially, if there are many revisions),
and all we need is a class's newest version number.

usage example(s):

SourceCodeManager statusOf:Array fileName:'Array.st' directory:'libbasic' module:'stx' SourceCodeManager statusOf:Filename fileName:'Filename.st' directory:'libbasic' module:'stx' SourceCodeManager statusOf:Tools::NewSystemBrowser fileName:'Tools__NewSystemBrowser.st' directory:'libtool' module:'stx'

 annotationsFor: clsOrNil fileName: classFileName directory: packageDir module: moduleDir

return info about who changed what and when.
Return nil on failure.

The returned information is a structure entry for each line
#revision -> version of last change
#author -> author
#date -> change date

usage example(s):

SourceCodeManager annotationsFor:Array fileName:'Array.st' directory:'libbasic' module:'stx'

usage example(s):

SourceCodeManager annotationsFor:MenuPanel fileName:'MenuPanel.st' directory:'libwidg2' module:'stx'

 diffListFor: clsOrNil fileName: classFileNameArg directory: packageDir module: moduleDir revision1: rev1 revision2: rev2 cache: cacheIt

return diff info. This is supposed to return a standard diff-like
list of lines, representing the diffs between two revisions.
experimental (for ownershipGraph).
Here we ask cvs to give us the diff list

 initialRCSRevisionStringFor: aClass in: dir container: fileName

return a string usable as initial revision string

 initialRevisionStringFor: aClass inModule: moduleDir directory: packageDir container: fileName

return a string usable as initial revision string

 isCVS

Private classes:

    CVSVersionInfo

Examples: