hg/stx-projects-smalltalk: patches@43a67655f4f2 (annotated)

12 d8d2f32ca7a2 * empty log message * claus parents: 11 diff changeset	1	"/
d8d2f32ca7a2 * empty log message * claus parents: 11 diff changeset	2	"/ $Header$
d8d2f32ca7a2 * empty log message * claus parents: 11 diff changeset	3	"/
656 33c547d1a706 * empty log message * penk parents: 488 diff changeset	4	"/ This file is processed very early at initial startup (before any rc script)
12 d8d2f32ca7a2 * empty log message * claus parents: 11 diff changeset	5	"/ - not when resuming an image.
d8d2f32ca7a2 * empty log message * claus parents: 11 diff changeset	6	"/
0 0cb137a77319 Initial revision claus parents: diff changeset	7
656 33c547d1a706 * empty log message * penk parents: 488 diff changeset	8	"/
446 e740c00fb271 * empty log message * Claus Gittinger <cg@exept.de> parents: 397 diff changeset	9	"/ set the package for changes done below
656 33c547d1a706 * empty log message * penk parents: 488 diff changeset	10	"/
24 1b6ff7a7839e . claus parents: 21 diff changeset	11	Project notNil ifTrue:[
446 e740c00fb271 * empty log message * Claus Gittinger <cg@exept.de> parents: 397 diff changeset	12	\|p\|
e740c00fb271 * empty log message * Claus Gittinger <cg@exept.de> parents: 397 diff changeset	13
e740c00fb271 * empty log message * Claus Gittinger <cg@exept.de> parents: 397 diff changeset	14	p := Project new.
656 33c547d1a706 * empty log message * penk parents: 488 diff changeset	15	p package:#'patches'.
446 e740c00fb271 * empty log message * Claus Gittinger <cg@exept.de> parents: 397 diff changeset	16	p comment:'only for patches'.
e740c00fb271 * empty log message * Claus Gittinger <cg@exept.de> parents: 397 diff changeset	17	Project current:p.
24 1b6ff7a7839e . claus parents: 21 diff changeset	18	].
1b6ff7a7839e . claus parents: 21 diff changeset	19
656 33c547d1a706 * empty log message * penk parents: 488 diff changeset	20	'patches [info]: installing patches...' infoPrintCR.
174 b0336b8ba704 * empty log message * Claus Gittinger <cg@exept.de> parents: 173 diff changeset	21	!
125 82e8b356f5c3 * empty log message * Claus Gittinger <cg@exept.de> parents: 117 diff changeset	22
672 43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	23	"/ read patches from two patch-directories, called 'stxPatches' and 'userPatches'.
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	24	"/ (in the future, patch-sets will be delivered for that directory in the future)
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	25	"/ This is not yet done, but we are prepared here for this ...
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	26	"/
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	27	"/ Patches from that directory are read in alphabetic order;
358 14a45495e3d8 autoloaded classes must be read after the host.rc file; Claus Gittinger <cg@exept.de> parents: 323 diff changeset	28	"/ patches will be named them p_nnnn.st, where nnnn is a sequence-nr.
291 b6ece4a96c36 preps to read patchFiles from stxPatches directory Claus Gittinger <cg@exept.de> parents: 284 diff changeset	29
672 43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	30	#(
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	31	'stxPatches'
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	32	'userPatches'
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	33	) do:[:patchDirName \|
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	34	\|patchDirOrNil patchDir\|
291 b6ece4a96c36 preps to read patchFiles from stxPatches directory Claus Gittinger <cg@exept.de> parents: 284 diff changeset	35
672 43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	36	patchDirOrNil := Smalltalk getSystemFileName:patchDirName.
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	37	patchDirOrNil notNil ifTrue:[
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	38	patchDir := patchDirOrNil asFilename.
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	39	(patchDir exists and:[patchDir isDirectory and:[patchDir isReadable]]) ifTrue:[
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	40	patchDir directoryContents sort do:[:f \|
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	41	\|fn\|
291 b6ece4a96c36 preps to read patchFiles from stxPatches directory Claus Gittinger <cg@exept.de> parents: 284 diff changeset	42
672 43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	43	fn := (patchDir construct:f) name.
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	44	('patches [info]: reading patchFile ''' , fn , '''...') infoPrintCR.
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	45	Smalltalk fileIn:fn.
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	46	]
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	47	]
43a67655f4f2 * empty log message * Claus Gittinger <cg@exept.de> parents: 656 diff changeset	48	].
291 b6ece4a96c36 preps to read patchFiles from stxPatches directory Claus Gittinger <cg@exept.de> parents: 284 diff changeset	49	].
b6ece4a96c36 preps to read patchFiles from stxPatches directory Claus Gittinger <cg@exept.de> parents: 284 diff changeset	50	!
b6ece4a96c36 preps to read patchFiles from stxPatches directory Claus Gittinger <cg@exept.de> parents: 284 diff changeset	51
16 db5d473df9f0 * empty log message * claus parents: 15 diff changeset	52	"/
12 d8d2f32ca7a2 * empty log message * claus parents: 11 diff changeset	53	"/ the following patches where added by the changesBrowsers 'make change a patch'
d8d2f32ca7a2 * empty log message * claus parents: 11 diff changeset	54	"/ function ...
d8d2f32ca7a2 * empty log message * claus parents: 11 diff changeset	55	"/
210 4951ef3afb16 * empty log message * Claus Gittinger <cg@exept.de> parents: 196 diff changeset	56	!

author	Claus Gittinger <cg@exept.de>
	Mon, 19 Dec 2005 19:04:13 +0100
changeset 672	43a67655f4f2
parent 656	33c547d1a706
child 702	b13ba5eb7981
permissions	-rw-r--r--