"/

"/ $Header$

"/

"/ This file is processed very early at initial startup (before any rc script)

"/ - not when resuming an image.

"/

"/

"/ set the package for changes done below

"/

Project notNil ifTrue:[

    |p|

    p := Project new.

    p package:#'patches'.

    Project current:p.

].

!

"/ read patches from two patch-directories, called 'stxPatches' and 'userPatches'.

"/ (in the future, patch-sets will be delivered for that directory in the future)

"/ This is not yet done, but we are prepared here for this ...

"/

"/ Patches from that directory are read in alphabetic order;

"/ patches will be named them p_nnnn.st, where nnnn is a sequence-nr.

"/ Smalltalk splashInfo:'patches [info]: installing patches...'.

#(

    'stxPatches'

    'userPatches'

) do:[:patchDirName |

    |patchDirOrNil patchDir|

    patchDirOrNil := Smalltalk getSystemFileName:patchDirName.

    patchDirOrNil notNil ifTrue:[

	patchDir := patchDirOrNil asFilename.

	(patchDir exists and:[patchDir isDirectory and:[patchDir isReadable]]) ifTrue:[

	    patchDir directoryContents sort do:[:f |

		|file fn|

		fn := (file := patchDir construct:f) name.

		"JV@2012-08-15: File in only if file is not a directory. Otherwise system

		 crashes during startup, if one of the patch directories contains another directory

		 (such as CVS)"

		(file isDirectory not and:[file isReadable]) ifTrue:[

		    ( #('xxx' 'bak' 'sav') includes:file suffix asLowercase) ifTrue:[

			Smalltalk splashInfo:('patches [info]: skipping file "',fn,'" (wrong suffix)').

		    ] ifFalse:[

			Smalltalk splashInfo:('patches [info]: reading patch "',fn,'"...').

			AbortOperationRequest handle:[:ex |

			    Smalltalk splashInfo:('patches [info]: aborted patch "',f,'" (',ex description,')').

			] do:[

			    Smalltalk fileIn:fn.

			].

		    ].

		]

	    ]

	]

    ].

].

!

"/

"/ the following patches where added by the changesBrowsers 'make change a patch'

"/ function ...

"/

!