equal
deleted
inserted
replaced
4714 "Modified: / 28-02-2012 / 10:40:48 / cg" |
4714 "Modified: / 28-02-2012 / 10:40:48 / cg" |
4715 ! |
4715 ! |
4716 |
4716 |
4717 revisionLogOf:clsOrNil |
4717 revisionLogOf:clsOrNil |
4718 fromRevision:firstRevOrNil toRevision:lastRevOrNil numberOfRevisions:numRevisionsOrNil |
4718 fromRevision:firstRevOrNil toRevision:lastRevOrNil numberOfRevisions:numRevisionsOrNil |
4719 fileName:classFileName directory:packageDir module:moduleDir |
4719 fileName:classFileName directory:packageDirOrNil module:moduleDir |
4720 |
4720 |
4721 "return info about the repository container and |
4721 "return info about the repository container and |
4722 (part of) the revisionlog as a collection of revision entries. |
4722 (part of) the revisionlog as a collection of revision entries. |
4723 Return nil on failure. |
4723 Return nil on failure. |
4724 |
4724 |
4769 ]. |
4769 ]. |
4770 |
4770 |
4771 [ |
4771 [ |
4772 |cmd revArg| |
4772 |cmd revArg| |
4773 |
4773 |
4774 packageDir isEmptyOrNil ifTrue:[ |
4774 packageDirOrNil isEmptyOrNil ifTrue:[ |
4775 modulePath := moduleDir |
4775 modulePath := moduleDir |
4776 ] ifFalse:[ |
4776 ] ifFalse:[ |
4777 modulePath := moduleDir , '/' , packageDir. |
4777 modulePath := moduleDir , '/' , packageDirOrNil. |
4778 ]. |
4778 ]. |
4779 classFileName isNil ifTrue:[ |
4779 classFileName isNil ifTrue:[ |
4780 fullName := modulePath , '/' , (clsOrNil classFilename). |
4780 fullName := modulePath , '/' , (clsOrNil classFilename). |
4781 ] ifFalse:[ |
4781 ] ifFalse:[ |
4782 fullName := modulePath , '/' , classFileName. |
4782 fullName := modulePath , '/' , classFileName. |