"{ Package: 'cvut:stx/goodies/libsvn' }"

!

!ApplicationDefinition class methodsFor:'file templates'!

make_dot_proto

^ 

'# $','Header','$

#

# -------------- no need to change anything below ----------

#

# This makefile generates some standalone demo applications

#

#    make

#       generates %(APPLICATION)

#

TOP=%(TOP)

INCLUDE_TOP=$(TOP)/..

PACKAGE=%(APPLICATION_PACKAGE)

SUBDIRS=

SUPPRESS_LOCAL_ABBREVS="yes"

NOAUTOLOAD=1

NOSUBAUTOLOAD=1

LOCALINCLUDES=-I$(INCLUDE_TOP)/stx/libbasic %(LOCAL_INCLUDES)

LOCALDEFINES=%(LOCAL_DEFINES)

GLOBALDEFINES=%(GLOBAL_DEFINES)

MAIN_DEFINES=%(MAIN_DEFINES)

RCSSOURCES=Make.proto *.st

LINKSOURCES=Make.proto *.st

DELIVERBINARIES=

target: %(BUILD_TARGET) 

all::   prereq exe

exe:    %(APPLICATION) $(REQUIRED_SUPPORT_DIRS)

LIBNAME=%(LIBRARY_NAME)

STCLOCALOPT=''-package=$(PACKAGE)'' -I. -H. $(LOCALINCLUDES) $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) %(HEADEROUTPUTARG) %(COMMONSYMFLAG) -varPrefix=$(LIBNAME)

# ********** OPTIONAL: MODIFY the next line ***

# additional C-libraries that should be pre-linked with the class-objects

LD_OBJ_LIBS=%(ADDITIONAL_LINK_LIBRARIES)

LOCAL_SHARED_LIBS=%(ADDITIONAL_SHARED_LINK_LIBRARIES)

# ********** OPTIONAL: MODIFY the next line ***

# additional C targets or libraries should be added below

LOCAL_EXTRA_TARGETS=

OBJS= $(COMMON_OBJS) $(UNIX_OBJS)

%(ADDITIONAL_DEFINITIONS)

%(ADDITIONAL_DEFINITIONS_SVN)

LIBLIST = $(REQUIRED_LIBS)

# required libs:

#

REQUIRED_LIBS=%(REQUIRED_LIBS)

REQUIRED_LIBOBJS=%(REQUIRED_LIBOBJS)

REQUIRED_LINK_LIBOBJS=%(REQUIRED_LINK_LIBOBJS)

REQUIRED_SUPPORT_DIRS=%(REQUIRED_SUPPORT_DIRS)

%(APPLICATION):   %(STARTUP_CLASSFILENAME).$(O) $(APP_DIRS_TO_MAKE) $(APP_LIBOBJS) $(OBJS)

        $(MAKE) %(APPLICATION_TYPE) \

                    TARGET=%(APPLICATION) \

                    APPLICATION_CLASSES="%(STARTUP_CLASSFILENAME)" \

                    APPLICATION_OBJS="$(OBJS)" \

                    APPLICATION_LIBLIST="$(REQUIRED_LIBS)" \

                    APPLICATION_LIBOBJS="$(REQUIRED_LIBOBJS)" \

                    APPLICATION_LINK_LIBOBJS="$(REQUIRED_LINK_LIBOBJS)" \

                    STARTUP_CLASS="%(STARTUP_CLASS)" \

                    STARTUP_SELECTOR="%(STARTUP_SELECTOR)" \

                    MAIN_DEFINES="%(MAIN_DEFINES)"

# build all prerequisite packages for this package

prereq:

%(MAKE_PREREQUISITES)

SOURCEFILES: %(APPLICATION)_SOURCES \

        stx_SOURCES

%(SOURCE_RULES)

%(STX_SOURCE_RULES)

RESOURCEFILES: %(APPLICATION)_RESOURCES %(APPLICATION)_BITMAPS %(ADDITIONAL_RESOURCE_TARGETS) \

        stx_RESOURCES stx_STYLES stx_BITMAPS

%(RESOURCE_RULES)

%(STX_RESOURCE_RULES)

%(PREREQUISITES_LIBS)      

%(SUBPROJECTS_LIBS)

%(ADDITIONAL_RULES)

%(ADDITIONAL_RULES_SVN)

clean::

        -rm -f *.so %(APPLICATION).$(O)

clobber:: clean

        -rm -f %(APPLICATION) *.img *.sav

# BEGINMAKEDEPEND --- do not remove this line; make depend needs it

%(DEPENDENCIES)

# ENDMAKEDEPEND --- do not remove this line

'

    "Modified: / 09-08-2006 / 16:50:23 / fm"

    "Created: / 29-09-2006 / 23:47:07 / cg"

    "Modified: / 24-06-2009 / 21:40:26 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!Change methodsFor:'queries'!

isForGeneratedSubject

    "

    Answers true iff subject of this method is somewhat

    auto-generated by some tool - just like version methods

    are.

    "

    ^ false

    "Created: / 08-04-2009 / 09:45:26 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 17-08-2009 / 18:55:20 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!Change methodsFor:'queries'!

isMethodPackageChange

    ^ false

    "Created: / 08-04-2009 / 09:00:21 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!ChangeSet methodsFor:'queries'!

changesForPackage:aPackageSymbol

    "

        ChangeSet current changesForPackage:#'stx:goodies/libsvn'.

    "

    ^(self select:[:aChange | 

        |removeThis mClass mthd|

        removeThis := false.

        (aChange isMethodChange or:[aChange isMethodRemoveChange]) ifTrue:[

            mClass := aChange changeClass.

            mClass notNil ifTrue:[

                mthd := mClass compiledMethodAt:(aChange selector).

                mthd isNil ifTrue:[

                    aChange isMethodRemoveChange ifTrue:[

                        removeThis := (mClass package = aPackageSymbol)

                    ].

                ] ifFalse:[

                    removeThis := (mthd package = aPackageSymbol)

                ]

            ].

        ] ifFalse:[

            (aChange isClassChange) ifTrue:[

                (aChange changeClass notNil) ifTrue:[

                    removeThis := (aChange changeClass package = aPackageSymbol)     

                ].

            ].

        ].

        removeThis

    ])

    "Created: / 05-11-2001 / 14:21:17 / cg"

    "Modified: / 12-10-2006 / 16:51:27 / cg"

    "Modified: / 22-10-2008 / 13:25:02 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!ChangeSet methodsFor:'utilities'!

condenseChanges

    | changesToRemove changesToKeep |

    changesToKeep := self class new.

    changesToRemove := self class new.

    self reverseDo:

        [:change|

        (changesToKeep anySatisfy:[:each|each isForSameAs: change])

            ifTrue:[changesToRemove add: change]

            ifFalse:[changesToKeep add: change]

        ].

    self condenseChanges: changesToRemove.

    "Created: / 22-10-2008 / 13:05:13 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!ChangeSet methodsFor:'utilities'!

condenseChangesForPackage2:aPackageSymbol

    "remove more changes for aPackageSymbol

     This is invoked when a project is checked into the repository."

    |changesToRemove|

    changesToRemove := self select:[:aChange | 

        |removeThis mClass mthd|

        removeThis := false.

        (aChange isMethodChange or:[aChange isMethodRemoveChange]) ifTrue:[

            mClass := aChange changeClass.

            mClass notNil ifTrue:[

                mthd := mClass compiledMethodAt:(aChange selector).

                mthd isNil ifTrue:[

                    removeThis := (mClass package = aPackageSymbol)

                ] ifFalse:[

                    removeThis := (mthd package = aPackageSymbol)

                ]

            ].

        ] ifFalse:[

            (aChange isClassChange) ifTrue:[

                (aChange changeClass notNil) ifTrue:[

                    removeThis := (aChange changeClass package = aPackageSymbol)     

                ].

            ].

        ].

        removeThis

    ].

    self condenseChanges:changesToRemove

    "Modified: / 12-10-2006 / 16:51:27 / cg"

    "Created: / 09-08-2009 / 14:29:17 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!ChangeSet methodsFor:'utilities'!

diffSetsAgainstImage

    |imageChangeSet|

    imageChangeSet := self class new.

    self changedClasses do:

        [:class|

        (class isMetaclass or:[class isPrivate]) ifFalse:

            [imageChangeSet addAll:

                (self class fromStream: class source asString readStream)]].

    ^self diffSetsAgainst: imageChangeSet

    "Created: / 04-12-2007 / 16:03:28 / janfrog"

! !

!ChangeSet class methodsFor:'instance creation'!

forPackage: package

    ^self forPackage: package ignoreAutoloaded: false.

    "Created: / 20-05-2008 / 17:56:18 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 12-08-2009 / 14:23:15 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!ChangeSet class methodsFor:'instance creation'!

forPackage: package ignoreAutoloaded: ignoreAutoloaded

    "build a changeSet for a given package"

    |changeSet packageClasses packageExtensions|

    packageClasses := ProjectDefinition searchForClassesWithProject: package.

    packageExtensions := ProjectDefinition searchForExtensionsWithProject: package.

    changeSet := self forExistingMethods: packageExtensions.

    packageClasses do:

        [:cls|

        (ignoreAutoloaded not and:[cls isLoaded not])

            ifTrue:[cls autoload].

        cls isLoaded 

            ifTrue:

                [changeSet addAll:

                    (self 

                        forExistingClass:cls 

                        withExtensions:false 

                        extensionsOnly:false)]].

    ^changeSet

    "Created: / 12-08-2009 / 14:22:44 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!Class methodsFor:'accessing'!

classFilename

    "return the name of the file from which the class was compiled.

     If the class was loaded via an explicit load (i.e. from the fileBrowser),

     this will be an absolute path. Oherwise, it will be a basename only.

     See classBaseFilename for a method which always returns the basename."

    |owner info fn|

    (SVN::CompatModeQuery notNil and:[SVN::CompatModeQuery query not])

        ifTrue:[^SVN::Repository containerNameForClass: self].

    (owner := self owningClass) notNil ifTrue:[^ owner classFilename].

    classFilename notNil 

        ifTrue:[ ^ classFilename ].

    (info := self revisionInfo) notNil ifTrue:[

        fn := info fileName.

        fn notNil ifTrue:[

            ^ fn

        ].

    ].

    ^ (Smalltalk fileNameForClass:self), '.st'

    "

     SVN::Repository classFilename

    "

    "Modified: / 22-10-2008 / 20:58:21 / cg"

    "Modified: / 13-08-2009 / 16:07:07 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!Class methodsFor:'fileOut'!

fileOutAsMethodIn: class selector: selector

    ^self fileOutAsMethodIn: class selector: selector category: 'sources'

    "Created: / 08-04-2009 / 20:58:06 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!Class methodsFor:'accessing'!

svnRepository

    ^SVN::RepositoryManager repositoryForPackage: self package

    "Created: / 19-04-2008 / 18:24:54 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!ClassChange methodsFor:'queries'!

isForMeta

    ^ (self className endsWith:' class')

! !

!ClassChange methodsFor:'accessing'!

nonMetaClassName

    ^ self isForMeta 

        ifTrue:[ self className copyTo:(self className size - 6) ]

        ifFalse:[ self className ]

    "Created: / 06-11-2008 / 17:26:03 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!Filename methodsFor:'reading-directories'!

directoryContentsAsFilenamesMatching: patternOrCollectionOfThose

    "

        Same as directoryContentsAsFilenames, but returns only files

        that matches given patterns. This uses String>>matches:

        for pattern matching    

    "

    |names|

    names := self directoryContentsMatching: patternOrCollectionOfThose .

    names isNil ifTrue:[^ nil].

    ^ names asOrderedCollection collect:[:entry | self construct:entry].

    "

    '/etc' asFilename 

        directoryContentsAsFilenamesMatching: 'pass*'

    '/etc' asFilename 

            directoryContentsAsFilenamesMatching: #('pass*' 'nsswitch.conf')

    "

    "Created: / 03-06-2009 / 09:57:45 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!Filename methodsFor:'reading-directories'!

directoryContentsMatching: patternOrCollectionOfThose

    "

        Same as directoryContants, but returns only files

        that matches given patterns. This uses String>>matches:

        for pattern matching

    "

    | names patterns |

    patterns := patternOrCollectionOfThose isString

                    ifTrue: [Array with: patternOrCollectionOfThose]

                    ifFalse:[patternOrCollectionOfThose].

    names := self directoryContents.

    names ifNil:[^nil].

    ^names select:

        [:e|patterns anySatisfy:[:pattern|e matches: pattern]]

    "

     '/etc' asFilename 

        directoryContentsMatching: 'pass*'

    '/etc' asFilename 

        directoryContentsMatching: #('pass*' 'nsswitch.conf')

    '/etc' asFilename 

        directoryContentsMatching: #('does-not-exists.txt')

    "

    "Created: / 03-06-2009 / 09:52:52 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!LibraryDefinition class methodsFor:'file templates'!

make_dot_proto

^ 

'# $','Header','$

#

# DO NOT EDIT 

# automagically generated from the projectDefinition: ',self name,'.

#

# Warning: once you modify this file, do not rerun

# stmkmp or projectDefinition-build again - otherwise, your changes are lost.

#

# The Makefile as generated by this Make.proto supports the following targets:

#    make         - compile all st-files to a classLib

#    make clean   - clean all temp files

#    make clobber - clean all

#

# This file contains definitions for Unix based platforms.

# It shares common definitions with the win32-make in Make.spec.

#

# position (of this package) in directory hierarchy:

# (must point to ST/X top directory, for tools and includes)

TOP=%(TOP)

INCLUDE_TOP=$(TOP)/..

# subdirectories where targets are to be made:

SUBDIRS=%(SUBDIRECTORIES)

# subdirectories where Makefiles are to be made:

# (only define if different from SUBDIRS)

# ALLSUBDIRS=

REQUIRED_SUPPORT_DIRS=%(REQUIRED_SUPPORT_DIRS)

# if your embedded C code requires any system includes, 

# add the path(es) here:, 

# ********** OPTIONAL: MODIFY the next lines ***

# LOCALINCLUDES=-Ifoo -Ibar

LOCALINCLUDES=%(LOCAL_INCLUDES)

# if you need any additional defines for embedded C code, 

# add them here:, 

# ********** OPTIONAL: MODIFY the next lines ***

# LOCALDEFINES=-Dfoo -Dbar -DDEBUG

LOCALDEFINES=%(LOCAL_DEFINES)

LIBNAME=%(LIBRARY_NAME)

STCLOCALOPT=''-package=$(PACKAGE)'' -I. $(LOCALINCLUDES) $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) %(HEADEROUTPUTARG) %(COMMONSYMFLAG) -varPrefix=$(LIBNAME)

# ********** OPTIONAL: MODIFY the next line ***

# additional C-libraries that should be pre-linked with the class-objects

LD_OBJ_LIBS=%(ADDITIONAL_LINK_LIBRARIES)

LOCAL_SHARED_LIBS=%(ADDITIONAL_SHARED_LINK_LIBRARIES)

# ********** OPTIONAL: MODIFY the next line ***

# additional C targets or libraries should be added below

LOCAL_EXTRA_TARGETS=

OBJS= $(COMMON_OBJS) $(UNIX_OBJS)

%(ADDITIONAL_DEFINITIONS)