stx/stx_goodies_metacello_stx.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 05 Sep 2012 16:35:54 +0000
changeset 7 759ff40b4754
parent 5 eebd7f36c3cc
child 9 d126d2954bf9
permissions -rw-r--r--
- stx_goodies_metacello_stx added: #extensionMethodNames changed: #classNamesAndAttributes #preRequisites
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
5
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/metacello/stx' }"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
LibraryDefinition subclass:#stx_goodies_metacello_stx
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
	instanceVariableNames:''
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
	classVariableNames:''
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	poolDictionaries:''
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	category:'* Projects & Packages *'
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
!stx_goodies_metacello_stx class methodsFor:'description'!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
excludedFromPreRequisites
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
    "list all packages which should be ignored in the automatic
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
     preRequisites scan. See #preRequisites for more."
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
    ^ #(
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
    )
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
preRequisites
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
    "list all required packages.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
     This list can be maintained manually or (better) generated and
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
     updated by scanning the superclass hierarchies and looking for
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
     global variable accesses. (the browser has a menu function for that)
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
     Howevery, often too much is found, and you may want to explicitely
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
     exclude individual packages in the #excludedFromPrerequisites method."
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
    ^ #(
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
        #'stx:goodies/metacello'    "MetacelloPlatform - superclass of MetacelloStXPlatform "
7
759ff40b4754 - stx_goodies_metacello_stx
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    31
        #'stx:libbasic'    "ProjectDefinition - superclass of stx_goodies_metacello_stx "
5
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
    )
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
! !
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
!stx_goodies_metacello_stx class methodsFor:'description - contents'!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
classNamesAndAttributes
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
    "lists the classes which are to be included in the project.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
     Each entry in the list may be: a single class-name (symbol),
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
     or an array-literal consisting of class name and attributes.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
     Attributes are: #autoload or #<os> where os is one of win32, unix,..."
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
    ^ #(
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
        "<className> or (<className> attributes...) in load order"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
        MetacelloStXPlatform
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
        MetacelloStXProject
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
        #'stx_goodies_metacello_stx'
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
    )
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    50
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
extensionMethodNames
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
    "lists the extension methods which are to be included in the project.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
     Entries are 2-element array literals, consisting of class-name and selector."
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    54
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
    ^ #(
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
    )
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    57
! !
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    58
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
!stx_goodies_metacello_stx class methodsFor:'description - project information'!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
applicationIconFileName
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
    "Return the name (without suffix) of an icon-file (the app's icon); will be included in the rc-resource file"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
    ^ nil
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
    "/ ^ self applicationName
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
companyName
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    69
    "Return a companyname which will appear in <lib>.rc"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    70
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
    ^ 'eXept Software AG'
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    72
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    73
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    74
description
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    75
    "Return a description string which will appear in vc.def / bc.def"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    76
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    77
    ^ 'Smalltalk/X Class library'
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    78
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
legalCopyright
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
    "Return a copyright string which will appear in <lib>.rc"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    82
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    83
    ^ 'Copyright Claus Gittinger 1988-2012\nCopyright eXept Software AG 1998-2012'
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    84
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    85
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    86
productInstallDirBaseName
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    87
    "Returns a default installDir which will appear in <app>.nsi.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    88
     This is usually not the one you want to keep"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    89
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    90
    ^ (self package asCollectionOfSubstringsSeparatedByAny:':/') last
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    91
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    92
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    93
productName
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    94
    "Return a product name which will appear in <lib>.rc"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    95
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    96
    ^ 'Smalltalk/X'
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    97
! !
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    98
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    99
!stx_goodies_metacello_stx class methodsFor:'description - svn'!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   100
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   101
svnRepositoryUrlString
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   102
    "Return a SVN repository URL of myself.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   103
     (Generated since 2011-04-08)
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   104
     Do not make the string shorter!!!!!! We have to use fixed-length keyword!!!!!!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   105
    "        
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   106
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   107
    ^ '$URL::                                                                                                                        $'
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   108
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   109
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   110
svnRevisionNr
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   111
    "Return a SVN revision number of myself.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   112
     This number is updated after a commit"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   113
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   114
    ^ "$SVN-Revision:"'nil             '"$"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   115
! !
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   116
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   117
!stx_goodies_metacello_stx class methodsFor:'documentation'!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   118
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   119
version_SVN
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   120
    ^ '$Id::                                                                                                                        $'
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   121
! !