hg/stx-libbasic3: AbstractSourceCodeManager.st@f6cfa2afc00a (annotated)

56 6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	2	COPYRIGHT (c) 1995 by Claus Gittinger
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	3	All Rights Reserved
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	4
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	12
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	13	Object subclass:#AbstractSourceCodeManager
147 f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	14	instanceVariableNames:''
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	15	classVariableNames:'CacheDirectoryName DefaultManager'
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	16	poolDictionaries:''
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	17	category:'System-Support'
56 6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	18	!
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	19
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	20	!AbstractSourceCodeManager class methodsFor:'documentation'!
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	21
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	22	copyright
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	23	"
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	24	COPYRIGHT (c) 1995 by Claus Gittinger
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	25	All Rights Reserved
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	26
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	27	This software is furnished under a license and may be used
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	28	only in accordance with the terms of that license and with the
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	29	inclusion of the above copyright notice. This software may not
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	30	be provided or otherwise made available to, or used by, any
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	31	other person. No title to or ownership of the software is
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	32	hereby transferred.
6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	33	"
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	34	!
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	35
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	36	documentation
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	37	"
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	38	Abstract superclass for sourceCodeManagers.
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	39	Concrete subclasses provide access to a source repository.
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	40	All protocol here traps into subclassResponsbility errors.
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	41	Please read more documentation in concrete subclasses
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	42	(especially: CVSSourceCodeManager) for how to use this manager.
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	43	"
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	44	! !
56 6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	45
63 abf51a9ae873 cachedir in tempdir Claus Gittinger <cg@exept.de> parents: 61 diff changeset	46	!AbstractSourceCodeManager class methodsFor:'initialization'!
abf51a9ae873 cachedir in tempdir Claus Gittinger <cg@exept.de> parents: 61 diff changeset	47
abf51a9ae873 cachedir in tempdir Claus Gittinger <cg@exept.de> parents: 61 diff changeset	48	initCacheDirPath
abf51a9ae873 cachedir in tempdir Claus Gittinger <cg@exept.de> parents: 61 diff changeset	49	\|path\|
abf51a9ae873 cachedir in tempdir Claus Gittinger <cg@exept.de> parents: 61 diff changeset	50
65 098be8484211 dont cache classes of which the newest rev. has been checked out Claus Gittinger <cg@exept.de> parents: 64 diff changeset	51	path := OperatingSystem getEnvironment:'STX_TMPPATH'.
63 abf51a9ae873 cachedir in tempdir Claus Gittinger <cg@exept.de> parents: 61 diff changeset	52	path isNil ifTrue:[
abf51a9ae873 cachedir in tempdir Claus Gittinger <cg@exept.de> parents: 61 diff changeset	53	path := OperatingSystem getEnvironment:'TMPPATH'.
abf51a9ae873 cachedir in tempdir Claus Gittinger <cg@exept.de> parents: 61 diff changeset	54	path isNil ifTrue:[
abf51a9ae873 cachedir in tempdir Claus Gittinger <cg@exept.de> parents: 61 diff changeset	55	path := '/tmp'
abf51a9ae873 cachedir in tempdir Claus Gittinger <cg@exept.de> parents: 61 diff changeset	56	]
abf51a9ae873 cachedir in tempdir Claus Gittinger <cg@exept.de> parents: 61 diff changeset	57	].
64 d8d43638d803 oops Claus Gittinger <cg@exept.de> parents: 63 diff changeset	58	CacheDirectoryName := path , '/stx_sourceCache'.
63 abf51a9ae873 cachedir in tempdir Claus Gittinger <cg@exept.de> parents: 61 diff changeset	59	! !
abf51a9ae873 cachedir in tempdir Claus Gittinger <cg@exept.de> parents: 61 diff changeset	60
112 e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	61	!AbstractSourceCodeManager class methodsFor:'accessing'!
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	62
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	63	defaultManager
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	64	^ DefaultManager
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	65
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	66	"Created: 7.12.1995 / 17:14:22 / cg"
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	67	! !
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	68
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	69	!AbstractSourceCodeManager class methodsFor:'private'!
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	70
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	71	cacheDirectoryName
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	72	^ CacheDirectoryName
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	73	!
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	74
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	75	directoryFromContainerPath:containerPath
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	76	\|path idx\|
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	77
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	78	path := self pathInRepositoryFrom:containerPath.
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	79	path notNil ifTrue:[
109 51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	80	idx := path indexOf:(Filename separator).
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	81	idx ~~ 0 ifTrue:[
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	82	path := path copyFrom:(idx + 1)
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	83	].
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	84	^ path asFilename directoryName
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	85	].
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	86	^ nil
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	87
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	88	"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	89	SourceCodeManager directoryFromContainerPath:'/files/CVS/stx/libbasic/Array.st'
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	90	"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	91
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	92	"Created: 25.11.1995 / 18:42:20 / cg"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	93	"Modified: 25.11.1995 / 18:48:46 / cg"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	94	!
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	95
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	96	filenameFromContainerPath:containerPath
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	97	\|top rest\|
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	98
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	99	containerPath notNil ifTrue:[
109 51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	100	top := self repositoryTopDirectory.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	101	top notNil ifTrue:[
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	102	(containerPath startsWith:(top , '/')) ifTrue:[
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	103	rest := containerPath copyFrom:(top size + 2).
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	104	^ rest asFilename baseName
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	105	]
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	106	]
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	107	].
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	108
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	109	"Created: 25.11.1995 / 18:42:34 / cg"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	110	!
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	111
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	112	moduleFromContainerPath:containerPath
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	113	\|path idx\|
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	114
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	115	path := self pathInRepositoryFrom:containerPath.
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	116	path notNil ifTrue:[
109 51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	117	idx := path indexOf:(Filename separator).
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	118	idx == 0 ifTrue:[^ path].
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	119	^ path copyTo:(idx - 1)
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	120	].
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	121	^ nil
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	122
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	123	"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	124	SourceCodeManager moduleFromContainerPath:'/files/CVS/stx/libbasic/Array.st'
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	125	"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	126
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	127	"Created: 25.11.1995 / 18:42:20 / cg"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	128	"Modified: 25.11.1995 / 18:47:27 / cg"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	129	!
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	130
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	131	pathInRepositoryFrom:containerPath
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	132	\|top rest lastTop idx\|
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	133
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	134	containerPath notNil ifTrue:[
109 51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	135	top := self repositoryTopDirectory.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	136	top notNil ifTrue:[
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	137	(containerPath startsWith:(top , '/')) ifTrue:[
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	138	^ containerPath copyFrom:(top size + 2).
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	139	].
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	140	"/ hardcase - the repository-filename in the versionInfo
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	141	"/ does no match my repository top.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	142	"/ check for mangled prefix (happens with symbolic links)
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	143	lastTop := '/' , top asFilename baseName, '/'.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	144	idx := containerPath indexOfSubCollection:lastTop.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	145	idx ~~ 0 ifTrue:[
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	146	('SOURCEMGR: warning: repository path mismatch: ' , (containerPath copyTo:idx-1) , lastTop , ' vs. ' , top , '/') infoPrintNL.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	147	'SOURCEMGR: warning: assuming that mismatch is ok.' infoPrintNL.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	148	^ containerPath copyFrom:(idx + lastTop size).
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	149	]
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	150	]
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	151	].
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	152	^ rest
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	153
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	154	"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	155	SourceCodeManager pathInRepositoryFrom:'/files/CVS/stx/libbasic/Array.st'
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	156	SourceCodeManager pathInRepositoryFrom:'/phys/ibm/CVS/stx/libbasic/Array.st'
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	157	"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	158
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	159	"Created: 25.11.1995 / 18:42:20 / cg"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	160	"Modified: 25.11.1995 / 18:59:26 / cg"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	161	!
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	162
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	163	repositoryTopDirectory
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	164	^ nil
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	165
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	166	"Created: 25.11.1995 / 18:38:59 / cg"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	167	!
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	168
87 e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	169	revisionAfter:aRevisionString
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	170	\|idx s\|
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	171
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	172	idx := aRevisionString lastIndexOf:$..
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	173	idx == 0 ifTrue:[
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	174	^ ((Integer readFrom:aRevisionString) + 1) printString
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	175	].
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	176
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	177	^ (aRevisionString copyTo:idx) , ((Integer readFrom:(aRevisionString copyFrom:(idx+1)))+1) printString
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	178
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	179	"
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	180	SourceCodeManager revisionAfter:'1.2.3.4'
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	181	SourceCodeManager revisionAfter:'123'
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	182	SourceCodeManager revisionAfter:'1.24'
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	183	"
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	184
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	185	"Created: 20.11.1995 / 12:54:05 / cg"
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	186	!
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	187
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	188	sourceCacheDirectory
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	189	\|dir nm\|
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	190
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	191	(nm := self cacheDirectoryName) isNil ifTrue:[^ nil].
69 874833ad880c revision log stub method Claus Gittinger <cg@exept.de> parents: 68 diff changeset	192
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	193	(dir := nm asFilename) exists ifFalse:[
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	194	dir makeDirectory.
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	195	dir asFilename exists ifFalse:[
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	196	'SOURCEMGR: could not create cache dir ''' , CacheDirectoryName , '''' infoPrintNL.
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	197	^ nil
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	198	].
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	199	].
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	200	^ dir
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	201	!
69 874833ad880c revision log stub method Claus Gittinger <cg@exept.de> parents: 68 diff changeset	202
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	203	sourceInfoOfClass:aClass
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	204	"helper: return a classes sourceCodeInfo"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	205
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	206	\|cls sourceInfo revInfo actualSourceFileName classFileName
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	207	newInfo revisionInfo container\|
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	208
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	209	cls := aClass.
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	210	cls isMeta ifTrue:[
109 51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	211	cls := cls soleInstance
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	212	].
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	213
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	214	"/
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	215	"/ the info given by the classes source ...
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	216	"/
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	217	revInfo := aClass revisionInfo.
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	218
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	219	"/
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	220	"/ the info given by the classes binary ...
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	221	"/ if present, we better trust that one.
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	222	"/
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	223	sourceInfo := cls packageSourceCodeInfo.
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	224	sourceInfo isNil ifTrue:[
109 51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	225	revInfo isNil ifTrue:[
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	226	'SOURCEMGR: class has neither source nor compiled-in info' infoPrintNL.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	227	^ nil
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	228	].
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	229
109 51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	230	container := revInfo at:#repositoryPathName ifAbsent:nil.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	231	container notNil ifTrue:[
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	232	sourceInfo := revInfo.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	233	sourceInfo at:#directory put:(self directoryFromContainerPath:container).
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	234	sourceInfo at:#module put:(self moduleFromContainerPath:container).
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	235	]
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	236	].
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	237
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	238
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	239	"/
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	240	"/ the filename I would expect from its name ...
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	241	"/
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	242	classFileName := Smalltalk fileNameForClass:aClass.
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	243
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	244	newInfo := IdentityDictionary new.
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	245	sourceInfo keysAndValuesDo:[:key :value \|
109 51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	246	newInfo at:key put:value
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	247	].
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	248
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	249	"/ check ..
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	250	revInfo notNil ifTrue:[
109 51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	251	actualSourceFileName := revInfo at:#fileName ifAbsent:nil.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	252	actualSourceFileName notNil ifTrue:[
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	253	actualSourceFileName ~= (classFileName , '.st') ifTrue:[
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	254	('SOURCEMGR: source of class ' , aClass name , ' found in ' , actualSourceFileName , ' (expected: ' , classFileName , '.st); renamed ?') printNL.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	255	newInfo at:#expectedFileName put:(classFileName).
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	256	newInfo at:#renamed put:true.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	257	classFileName := actualSourceFileName copyWithoutLast:3
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	258	]
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	259	]
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	260	].
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	261
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	262	newInfo at:#classFileName put:classFileName.
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	263	^ newInfo
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	264
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	265	"Created: 25.11.1995 / 12:40:19 / cg"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	266	"Modified: 25.11.1995 / 18:51:16 / cg"
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	267	!
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	268
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	269	streamForClass:cls fileName:classFileName revision:revision directory:packageDir module:moduleDir cache:cacheIt
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	270	self subclassResponsibility.
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	271	^ nil
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	272
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	273	"Created: 4.11.1995 / 19:09:12 / cg"
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	274	"Modified: 4.11.1995 / 19:15:43 / cg"
95 aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	275	! !
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	276
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	277	!AbstractSourceCodeManager class methodsFor:'source code access'!
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	278
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	279	checkinClass:aClass fileName:classFileName directory:packageDir module:moduleDir logMessage:logMessage
95 aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	280	"checkin of a class into the source repository.
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	281	Return true if ok, false if not."
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	282
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	283	\|tempDir tempFile ok\|
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	284
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	285	tempDir := (Filename newTemporaryIn:nil) makeDirectory.
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	286	[
114 bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	287	\|aStream\|
75 ea3dcbdb0401 * empty log message * Claus Gittinger <cg@exept.de> parents: 73 diff changeset	288
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	289	tempFile := tempDir construct:classFileName.
114 bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	290	aStream := tempFile writeStream.
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	291	aStream isNil ifTrue:[
121 a23bb38554ee trace messages only if Verbose is true Claus Gittinger <cg@exept.de> parents: 114 diff changeset	292	'SOURCEMGR: temporary fileout failed' errorPrintNL.
114 bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	293	^ false
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	294	].
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	295
114 bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	296	Class fileOutErrorSignal handle:[:ex \|
121 a23bb38554ee trace messages only if Verbose is true Claus Gittinger <cg@exept.de> parents: 114 diff changeset	297	'SOURCEMGR: fileout failed' errorPrintNL.
114 bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	298	aStream close.
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	299	^ false
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	300	] do:[
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	301	aClass fileOutOn:aStream withTimeStamp:false.
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	302	].
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	303	aStream close.
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	304
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	305	tempFile exists ifFalse:[
121 a23bb38554ee trace messages only if Verbose is true Claus Gittinger <cg@exept.de> parents: 114 diff changeset	306	'SOURCEMGR: temporary fileout failed' errorPrintNL.
114 bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	307	^ false
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	308	].
75 ea3dcbdb0401 * empty log message * Claus Gittinger <cg@exept.de> parents: 73 diff changeset	309
114 bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	310	ok := self
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	311	checkinClass:aClass
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	312	fileName:classFileName
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	313	directory:packageDir
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	314	module:moduleDir
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	315	source:(tempFile name)
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	316	logMessage:logMessage.
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	317
bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	318	^ ok
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	319	] valueNowOrOnUnwindDo:[
114 bb18f2290ec6 dont write a changeLog if nothing changed (i.e. no checkin was done) Claus Gittinger <cg@exept.de> parents: 112 diff changeset	320	tempDir recursiveRemove
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	321	].
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	322	^ false
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	323
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	324	"
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	325	SourceCodeManager checkinClass:Array
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	326	"
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	327
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	328	"Created: 6.11.1995 / 18:56:00 / cg"
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	329	"Modified: 9.12.1995 / 21:43:35 / cg"
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	330	!
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	331
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	332	checkinClass:aClass logMessage:logMessage
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	333	"checkin of a class into the source repository.
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	334	Return true if ok, false if not."
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	335
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	336	\|sourceInfo packageDir moduleDir classFileName\|
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	337
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	338	sourceInfo := self sourceInfoOfClass:aClass.
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	339	sourceInfo isNil ifTrue:[
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	340	('SOURCEMGR: no sourceInfo for class: ' , aClass name) errorPrintNL.
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	341	^ false
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	342	].
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	343
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	344	packageDir := sourceInfo at:#directory.
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	345	moduleDir := sourceInfo at:#module. "/ use the modules name as CVS module
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	346	classFileName := sourceInfo at:#classFileName.
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	347	"/ classFileName := Smalltalk fileNameForClass:aClass.
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	348
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	349	^ self checkinClass:aClass fileName:(classFileName , '.st') directory:packageDir module:moduleDir logMessage:logMessage
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	350
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	351
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	352	"
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	353	SourceCodeManager checkinClass:Array
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	354	"
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	355
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	356	"Created: 6.11.1995 / 18:56:00 / cg"
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	357	"Modified: 9.12.1995 / 21:40:44 / cg"
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	358	!
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	359
133 888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	360	mostRecentSourceStreamForClassNamed:aClassName
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	361	\|cls sourceInfo classFileName packageDir moduleDir\|
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	362
133 888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	363	cls := Smalltalk classNamed:aClassName.
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	364	cls notNil ifTrue:[
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	365	sourceInfo := self sourceInfoOfClass:cls.
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	366	].
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	367	sourceInfo notNil ifTrue:[
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	368	packageDir := sourceInfo at:#directory.
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	369	moduleDir := sourceInfo at:#module. "/ use the modules name as CVS module
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	370	classFileName := sourceInfo at:#classFileName.
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	371	] ifFalse:[
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	372	classFileName := Smalltalk fileNameForClass:aClassName.
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	373	packageDir := Smalltalk sourceDirectoryNameOfClass:aClassName.
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	374	moduleDir := 'stx'.
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	375	].
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	376
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	377	packageDir isNil ifTrue:[
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	378	'SRCMGR: could not extract packageDir' errorPrintNL.
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	379	^ nil
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	380	].
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	381
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	382	^ self
133 888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	383	streamForClass:nil
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	384	fileName:classFileName
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	385	revision:#newest
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	386	directory:packageDir
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	387	module:moduleDir
888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	388	cache:false
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	389
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	390	"Created: 6.11.1995 / 16:09:06 / cg"
133 888aa2dac89b checkin from browser Claus Gittinger <cg@exept.de> parents: 127 diff changeset	391	"Modified: 10.12.1995 / 01:09:06 / cg"
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	392	!
a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	393
56 6705671acee8 source code managers (optional) These are involved, if no Claus Gittinger <cg@exept.de> parents: diff changeset	394	sourceStreamFor:aClass
58 9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	395	"extract a classes source code and return an open readStream on it.
9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	396	The classes source code is extracted using the revision and the sourceCodeInfo,
9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	397	which itself is extracted from the classes packageString."
9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	398
83 250202dc956e added sourceStreamFor:revision: - to access a specific (older) revision Claus Gittinger <cg@exept.de> parents: 77 diff changeset	399	^ self sourceStreamFor:aClass revision:nil
250202dc956e added sourceStreamFor:revision: - to access a specific (older) revision Claus Gittinger <cg@exept.de> parents: 77 diff changeset	400	!
250202dc956e added sourceStreamFor:revision: - to access a specific (older) revision Claus Gittinger <cg@exept.de> parents: 77 diff changeset	401
250202dc956e added sourceStreamFor:revision: - to access a specific (older) revision Claus Gittinger <cg@exept.de> parents: 77 diff changeset	402	sourceStreamFor:aClass revision:aRevisionStringOrNil
250202dc956e added sourceStreamFor:revision: - to access a specific (older) revision Claus Gittinger <cg@exept.de> parents: 77 diff changeset	403	"extract a classes source code and return an open readStream on it.
250202dc956e added sourceStreamFor:revision: - to access a specific (older) revision Claus Gittinger <cg@exept.de> parents: 77 diff changeset	404	A revision of nil selects the current (in image) revision.
250202dc956e added sourceStreamFor:revision: - to access a specific (older) revision Claus Gittinger <cg@exept.de> parents: 77 diff changeset	405	The classes source code is extracted using the revision and the sourceCodeInfo,
250202dc956e added sourceStreamFor:revision: - to access a specific (older) revision Claus Gittinger <cg@exept.de> parents: 77 diff changeset	406	which itself is extracted from the classes packageString."
250202dc956e added sourceStreamFor:revision: - to access a specific (older) revision Claus Gittinger <cg@exept.de> parents: 77 diff changeset	407
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	408	\|classFileName revision
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	409	packageDir moduleDir sourceInfo revInfo\|
58 9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	410
83 250202dc956e added sourceStreamFor:revision: - to access a specific (older) revision Claus Gittinger <cg@exept.de> parents: 77 diff changeset	411	aRevisionStringOrNil isNil ifTrue:[
109 51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	412	revision := aClass binaryRevision.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	413	revision isNil ifTrue:[
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	414	'SOURCEMGR: class ' , aClass name , ' has no revision string' infoPrintNL.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	415	^ nil.
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	416	]
83 250202dc956e added sourceStreamFor:revision: - to access a specific (older) revision Claus Gittinger <cg@exept.de> parents: 77 diff changeset	417	] ifFalse:[
109 51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	418	revision := aRevisionStringOrNil
58 9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	419	].
9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	420
95 aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	421	sourceInfo := self sourceInfoOfClass:aClass.
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	422	sourceInfo isNil ifTrue:[^ nil].
58 9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	423
9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	424	packageDir := sourceInfo at:#directory.
9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	425	moduleDir := sourceInfo at:#module. "/ use the modules name as CVS module
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	426	classFileName := sourceInfo at:#classFileName.
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	427
58 9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	428
9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	429	^ self
109 51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	430	streamForClass:aClass
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	431	fileName:classFileName
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	432	revision:revision
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	433	directory:packageDir
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	434	module:moduleDir
51cf60ce547e * empty log message * Claus Gittinger <cg@exept.de> parents: 96 diff changeset	435	cache:true
65 098be8484211 dont cache classes of which the newest rev. has been checked out Claus Gittinger <cg@exept.de> parents: 64 diff changeset	436
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	437	"Modified: 25.11.1995 / 17:04:38 / cg"
58 9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	438	! !
9b919d0bfec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 57 diff changeset	439
71 a8c7364b9bb6 checkin from browser Claus Gittinger <cg@exept.de> parents: 70 diff changeset	440	!AbstractSourceCodeManager class methodsFor:'source code administration'!
59 3bb0b97dffa2 reorganized; shared methods into AbstractSCMMgr Claus Gittinger <cg@exept.de> parents: 58 diff changeset	441
122 4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	442	checkForExistingContainerInModule:moduleName package:dirName container:fileName
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	443	self subclassResponsibility.
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	444	^ false
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	445
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	446	"Created: 9.12.1995 / 19:02:23 / cg"
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	447	"Modified: 9.12.1995 / 19:43:39 / cg"
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	448	!
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	449
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	450	checkForExistingModule:moduleName
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	451	self subclassResponsibility.
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	452	^ false
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	453
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	454	"Created: 9.12.1995 / 19:02:23 / cg"
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	455	"Modified: 9.12.1995 / 19:43:54 / cg"
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	456	!
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	457
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	458	checkForExistingModule:moduleDir package:packageDir
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	459	self subclassResponsibility.
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	460	^ false
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	461
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	462	"Created: 9.12.1995 / 19:02:23 / cg"
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	463	"Modified: 9.12.1995 / 19:44:04 / cg"
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	464	!
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	465
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	466	createContainerFor:aClass inModule:moduleName directory:dirName container:fileName
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	467	self subclassResponsibility.
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	468	^ false
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	469
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	470	"Created: 9.12.1995 / 19:02:47 / cg"
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	471	"Modified: 9.12.1995 / 19:28:15 / cg"
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	472	!
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	473
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	474	createModule:moduleName
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	475	self subclassResponsibility.
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	476	^ false
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	477
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	478	"Created: 9.12.1995 / 19:02:23 / cg"
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	479	"Modified: 9.12.1995 / 19:53:23 / cg"
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	480	!
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	481
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	482	createModule:module package:package
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	483	self subclassResponsibility.
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	484	^ false
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	485
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	486	"Created: 9.12.1995 / 19:02:23 / cg"
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	487	"Modified: 9.12.1995 / 19:54:26 / cg"
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	488	!
4dd60cb14bc6 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 121 diff changeset	489
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	490	revisionLogOf:aClass
95 aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	491	"return info about the repository container and
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	492	the revisionlog as a collection of revision entries.
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	493	Return nil on failure.
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	494	The returned information is a structure (IdentityDictionary)
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	495	filled with:
95 aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	496	#container -> the RCS container file name
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	497	#filename -> the actual source file name
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	498	#newestRevision -> the revisionString of the newest revision
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	499	#numberOfRevisions -> the number of revisions in the container
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	500	#revisions -> collection of per-revision info
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	501
95 aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	502	per revision info consists of one record per revision:
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	503
95 aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	504	#revision -> the revision string
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	505	#author -> who checked that revision into the repository
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	506	#date -> when was it checked in
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	507	#state -> the RCS state
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	508	#numberOfChangedLines -> the number of changed line w.r.t the previous
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	509
95 aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	510	revisions are ordered newest first
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	511	(i.e. the last entry is for the initial revision; the first for the most recent one)
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	512	"
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	513
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	514	^ self
95 aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	515	revisionLogOf:aClass fromRevision:nil toRevision:nil
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	516
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	517	"
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	518	SourceCodeManager revisionLogOf:Array
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	519	"
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	520
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	521	"Created: 25.11.1995 / 11:25:02 / cg"
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	522	"Modified: 25.11.1995 / 11:56:16 / cg"
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	523	!
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	524
110 05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	525	revisionLogOf:aClass fromRevision:rev1
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	526	"return info about the repository container and
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	527	(part of) the revisionlog as a collection of revision entries.
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	528	Return nil on failure.
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	529
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	530	The returned information is a structure (IdentityDictionary)
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	531	filled with:
112 e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	532	#container -> the RCS container file name
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	533	#filename -> the actual source file name
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	534	#newestRevision -> the revisionString of the newest revision
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	535	#numberOfRevisions -> the number of revisions in the container
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	536	#revisions -> collection of per-revision info (see below)
110 05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	537
112 e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	538	for some classes, additional info is returned:
110 05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	539
112 e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	540	#renamed -> true if the class has been renamed or copied
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	541	and the sourceInfo is from the previous one
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	542	#expectedFileName -> the filename we would expect (i.e. for the new class)
110 05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	543
112 e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	544	rev1 / rev2 specify from which revisions a logEntry is wanted:
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	545	If rev1 is nil, the first revision is the initial revision
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	546	otherwise, the log starts with that revision.
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	547	If rev2 is nil, the last revision is the newest revision
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	548	otherwise, the log ends with that revision.
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	549	If both are nil, no logEntries are extracted (i.e. only the header).
110 05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	550
112 e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	551	per revision info consists of one record per revision:
110 05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	552
112 e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	553	#revision -> the revision string
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	554	#author -> who checked that revision into the repository
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	555	#date -> when was it checked in
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	556	#state -> the RCS state
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	557	#numberOfChangedLines -> the number of changed line w.r.t the previous
110 05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	558
112 e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	559	revisions are ordered newest first
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	560	(i.e. the last entry is for the initial revision; the first for the most recent one)
e035bf8c3e00 * empty log message * Claus Gittinger <cg@exept.de> parents: 110 diff changeset	561	"
110 05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	562
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	563	^ self revisionLogOf:aClass fromRevision:rev1 toRevision:nil
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	564
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	565	"
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	566	SourceCodeManager revisionLogOf:Array fromRevision:'1.40'
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	567	"
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	568
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	569	"Created: 6.11.1995 / 18:56:00 / cg"
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	570	"Modified: 7.12.1995 / 11:51:15 / cg"
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	571	!
05097d7fd93c another revisionLog method Claus Gittinger <cg@exept.de> parents: 109 diff changeset	572
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	573	revisionLogOf:aClass fromRevision:rev1 toRevision:rev2
95 aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	574	"return info about the repository container and
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	575	(part of) the revisionlog as a collection of revision entries.
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	576	Return nil on failure.
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	577
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	578	The returned information is a structure (IdentityDictionary)
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	579	filled with:
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	580	#container -> the RCS container file name
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	581	#filename -> the actual source file name
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	582	#newestRevision -> the revisionString of the newest revision
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	583	#numberOfRevisions -> the number of revisions in the container
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	584	#revisions -> collection of per-revision info (see below)
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	585
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	586	for some classes, additional info is returned:
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	587
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	588	#renamed -> true if the class has been renamed or copied
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	589	and the sourceInfo is from the previous one
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	590	#expectedFileName -> the filename we would expect (i.e. for the new class)
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	591
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	592	rev1 / rev2 specify from which revisions a logEntry is wanted:
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	593	If rev1 is nil, the first revision is the initial revision
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	594	otherwise, the log starts with that revision.
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	595	If rev2 is nil, the last revision is the newest revision
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	596	otherwise, the log ends with that revision.
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	597	If both are nil, no logEntries are extracted (i.e. only the header).
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	598
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	599	per revision info consists of one record per revision:
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	600
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	601	#revision -> the revision string
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	602	#author -> who checked that revision into the repository
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	603	#date -> when was it checked in
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	604	#state -> the RCS state
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	605	#numberOfChangedLines -> the number of changed line w.r.t the previous
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	606
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	607	revisions are ordered newest first
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	608	(i.e. the last entry is for the initial revision; the first for the most recent one)
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	609	"
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	610
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	611	\|cls sourceInfo packageDir moduleDir classFileName info\|
95 aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	612
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	613	sourceInfo := self sourceInfoOfClass:aClass.
aeda58a2343c * empty log message * Claus Gittinger <cg@exept.de> parents: 93 diff changeset	614	sourceInfo isNil ifTrue:[^ nil].
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	615
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	616	packageDir := sourceInfo at:#directory.
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	617	moduleDir := sourceInfo at:#module. "/ use the modules name as CVS module
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	618	"/ classFileName := Smalltalk fileNameForClass:aClass.
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	619	classFileName := sourceInfo at:#classFileName.
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	620
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	621	info := self
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	622	revisionLogOf:aClass
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	623	fromRevision:rev1
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	624	toRevision:rev2
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	625	fileName:(classFileName , '.st')
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	626	directory:packageDir
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	627	module:moduleDir.
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	628
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	629	info notNil ifTrue:[
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	630	(sourceInfo includesKey:#renamed) ifTrue:[
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	631	info at:#renamed put:(sourceInfo at:#renamed)
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	632	].
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	633	(sourceInfo includesKey:#expectedFileName) ifTrue:[
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	634	info at:#expectedFileName put:(sourceInfo at:#expectedFileName)
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	635	]
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	636	].
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	637	^ info
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	638
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	639	"
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	640	SourceCodeManager revisionLogOf:Array fromRevision:'1.40' toRevision:'1.43'
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	641	SourceCodeManager revisionLogOf:XtBoxNew
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	642	"
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	643
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	644	"Created: 6.11.1995 / 18:56:00 / cg"
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	645	"Modified: 9.12.1995 / 22:04:08 / cg"
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	646	!
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	647
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	648	revisionLogOf:cls fromRevision:rev1 toRevision:rev2 fileName:classFileName directory:packageDir module:moduleDir
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	649	"this must be implemented by a concrete source-code manager"
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	650
87 e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	651	self subclassResponsibility.
73 90ab44bd6bff checkin from browser Claus Gittinger <cg@exept.de> parents: 72 diff changeset	652
87 e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	653	"Created: 15.11.1995 / 18:12:51 / cg"
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	654	"Modified: 25.11.1995 / 11:56:38 / cg"
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	655	!
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	656
147 f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	657	writeHistoryLogSince:timeGoal filterSTSources:filter to:aStream
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	658	self writeHistoryLogSince:timeGoal filterSTSources:filter filterUser:nil to:aStream
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	659
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	660	"Modified: 13.12.1995 / 11:03:01 / cg"
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	661	!
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	662
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	663	writeHistoryLogSince:timeGoal to:aStream
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	664	self writeHistoryLogSince:timeGoal filterSTSources:true filterUser:nil to:aStream
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	665
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	666	"Created: 13.12.1995 / 10:28:27 / cg"
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	667	"Modified: 13.12.1995 / 11:00:49 / cg"
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	668	!
f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	669
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	670	writeRevisionLogMessagesFrom:log to:aStream
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	671	"helper; send the revisionlog to aStream"
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	672
138 386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	673	self writeRevisionLogMessagesFrom:log withHeader:true to:aStream
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	674
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	675	"Created: 10.12.1995 / 16:51:30 / cg"
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	676	!
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	677
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	678	writeRevisionLogMessagesFrom:log withHeader:header to:aStream
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	679	"helper; send the revisionlog to aStream"
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	680
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	681	header ifTrue:[
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	682	(log at:#renamed ifAbsent:false) ifTrue:[
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	683	aStream nextPutAll:' Class was probably renamed; revision info is from original class.'.
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	684	aStream cr; nextPutAll:' You may have to create a new container for it.'.
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	685	aStream cr; cr.
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	686	].
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	687
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	688	aStream nextPutAll:' Total revisions: '; nextPutAll:(log at:#numberOfRevisions) printString; cr.
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	689	aStream nextPutAll:' Newest revision: '; nextPutAll:(log at:#newestRevision) printString; cr.
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	690	].
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	691
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	692	(log at:#revisions) do:[:entry \|
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	693	\|logMsg\|
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	694
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	695	aStream cr.
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	696	aStream nextPutAll:' revision '; nextPutAll:(entry at:#revision); tab.
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	697	aStream nextPutAll:' date: '; nextPutAll:(entry at:#date); tab.
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	698	aStream nextPutAll:' author: '; nextPutAll:(entry at:#author); tab.
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	699	aStream cr.
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	700
127 7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	701	logMsg := entry at:#logMessage.
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	702	(logMsg isEmpty or:[logMsg isBlank or:[logMsg withoutSeparators = '.']]) ifTrue:[
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	703	logMsg := '* empty log message *'
7686a4413407 more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 123 diff changeset	704	].
138 386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	705	aStream tab; nextPutAll:logMsg.
386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	706	aStream cr.
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	707	].
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	708
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	709	"Created: 16.11.1995 / 13:25:30 / cg"
138 386f2d831989 optional include header info in revision list Claus Gittinger <cg@exept.de> parents: 135 diff changeset	710	"Modified: 10.12.1995 / 16:51:15 / cg"
73 90ab44bd6bff checkin from browser Claus Gittinger <cg@exept.de> parents: 72 diff changeset	711	!
90ab44bd6bff checkin from browser Claus Gittinger <cg@exept.de> parents: 72 diff changeset	712
77 4cc959f6b639 * empty log message * Claus Gittinger <cg@exept.de> parents: 75 diff changeset	713	writeRevisionLogOf:aClass fromRevision:rev1 toRevision:rev2 to:aStream
73 90ab44bd6bff checkin from browser Claus Gittinger <cg@exept.de> parents: 72 diff changeset	714	"extract a classes log and append it to aStream."
90ab44bd6bff checkin from browser Claus Gittinger <cg@exept.de> parents: 72 diff changeset	715
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	716	\|log \|
73 90ab44bd6bff checkin from browser Claus Gittinger <cg@exept.de> parents: 72 diff changeset	717
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	718	log := self revisionLogOf:aClass fromRevision:rev1 toRevision:rev2.
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	719	log isNil ifTrue:[^ false].
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	720
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	721	self writeRevisionLogMessagesFrom:log to:aStream.
326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	722	^ true
73 90ab44bd6bff checkin from browser Claus Gittinger <cg@exept.de> parents: 72 diff changeset	723
90ab44bd6bff checkin from browser Claus Gittinger <cg@exept.de> parents: 72 diff changeset	724	"
77 4cc959f6b639 * empty log message * Claus Gittinger <cg@exept.de> parents: 75 diff changeset	725	SourceCodeManager writeRevisionLogOf:Array fromRevision:'1.40' toRevision:'1.43' to:Transcript
73 90ab44bd6bff checkin from browser Claus Gittinger <cg@exept.de> parents: 72 diff changeset	726	"
90ab44bd6bff checkin from browser Claus Gittinger <cg@exept.de> parents: 72 diff changeset	727
90ab44bd6bff checkin from browser Claus Gittinger <cg@exept.de> parents: 72 diff changeset	728	"Created: 6.11.1995 / 18:56:00 / cg"
96 326cccce2fe7 now also look at revisionInfo Claus Gittinger <cg@exept.de> parents: 95 diff changeset	729	"Modified: 25.11.1995 / 17:24:55 / cg"
77 4cc959f6b639 * empty log message * Claus Gittinger <cg@exept.de> parents: 75 diff changeset	730	!
4cc959f6b639 * empty log message * Claus Gittinger <cg@exept.de> parents: 75 diff changeset	731
87 e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	732	writeRevisionLogOf:aClass to:aStream
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	733	"extract a classes log and append it to aStream."
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	734
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	735	^ self
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	736	writeRevisionLogOf:aClass fromRevision:nil toRevision:nil to:aStream
77 4cc959f6b639 * empty log message * Claus Gittinger <cg@exept.de> parents: 75 diff changeset	737
87 e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	738	"
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	739	SourceCodeManager writeRevisionLogOf:Array to:Transcript
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	740	"
e0f5b58481a6 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	741	! !
77 4cc959f6b639 * empty log message * Claus Gittinger <cg@exept.de> parents: 75 diff changeset	742
93 83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	743	!AbstractSourceCodeManager class methodsFor:'documentation'!
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	744
83042eccb8d1 revisionLogOf... extracts the log manager dependent; writeRevisionLog is now here Claus Gittinger <cg@exept.de> parents: 87 diff changeset	745	version
147 f6cfa2afc00a history list added Claus Gittinger <cg@exept.de> parents: 138 diff changeset	746	^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.36 1995-12-13 10:26:02 cg Exp $'
123 9a1dff152656 dummy entries to check-for & create modules & directories Claus Gittinger <cg@exept.de> parents: 122 diff changeset	747	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 13 Dec 1995 11:26:02 +0100
changeset 147	f6cfa2afc00a
parent 138	386f2d831989
child 148	dd40327e00b7
permissions	-rw-r--r--