CmdLineOption.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 14 Jun 2016 07:04:34 +0100
branchjv
changeset 19988 148721e96482
parent 18011 deb0c3355881
child 20076 ff2f4d06a2fa
permissions -rw-r--r--
Added convenience methods to build CmdLineOptions.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
13402
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
     1
"
13938
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
     2
 COPYRIGHT (c) 2006 by eXept Software AG
13402
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
     3
              All Rights Reserved
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
     4
13938
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
     5
 This software is furnished under a license and may be used
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
     6
 only in accordance with the terms of that license and with the
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
     8
 be provided or otherwise made available to, or used by, any
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
     9
 other person.  No title to or ownership of the software is
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    10
 hereby transferred.
13402
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    11
"
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    12
"{ Package: 'stx:libbasic' }"
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    13
19988
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
    14
"{ NameSpace: Smalltalk }"
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
    15
13402
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    16
Object subclass:#CmdLineOption
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    17
	instanceVariableNames:'action description short long'
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    18
	classVariableNames:''
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    19
	poolDictionaries:''
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    20
	category:'System-Support-Command line'
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    21
!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    22
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    23
!CmdLineOption class methodsFor:'documentation'!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    24
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    25
copyright
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    26
"
13938
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    27
 COPYRIGHT (c) 2006 by eXept Software AG
13402
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    28
              All Rights Reserved
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    29
13938
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    30
 This software is furnished under a license and may be used
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    31
 only in accordance with the terms of that license and with the
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    33
 be provided or otherwise made available to, or used by, any
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    34
 other person.  No title to or ownership of the software is
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    35
 hereby transferred.
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    36
"
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    37
!
13482
769530195abb copyright
Claus Gittinger <cg@exept.de>
parents: 13402
diff changeset
    38
13938
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    39
optionsFor: anObject
13482
769530195abb copyright
Claus Gittinger <cg@exept.de>
parents: 13402
diff changeset
    40
13938
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    41
    "Returns a collection of command line options for
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    42
     given object."
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    43
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    44
    ^anObject class allSelectors  
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    45
                select:[:sel|sel startsWith: 'cmdlineOption']
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
    46
                thenCollect:[:sel|anObject perform: sel].
13402
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    47
! !
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    48
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    49
!CmdLineOption methodsFor:'accessing'!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    50
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    51
action
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    52
    ^ action
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    53
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    54
    "Created: / 28-01-2009 / 11:49:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    55
!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    56
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    57
action:aBlockOrMessageSend
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    58
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    59
    aBlockOrMessageSend numArgs > 1 ifTrue:
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    60
        [CmdLineOptionError raiseErrorString: 'Action must be zero-or-one arg block/message send'].    
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    61
    action := aBlockOrMessageSend.
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    62
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    63
    "Created: / 28-01-2009 / 11:49:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    64
    "Modified: / 16-06-2009 / 15:46:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    65
!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    66
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    67
description
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    68
    ^ description
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    69
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    70
    "Created: / 28-01-2009 / 11:49:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    71
!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    72
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    73
description:aString
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    74
    description := aString.
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    75
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    76
    "Created: / 28-01-2009 / 11:49:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    77
!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    78
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    79
long
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    80
    ^ long
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    81
!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    82
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    83
long:aString
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    84
    long := aString.
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    85
!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    86
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    87
short
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    88
    ^ short
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    89
!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    90
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    91
short:aCharacterOrString
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    92
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    93
    (aCharacterOrString isCharacter 
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    94
        and:[aCharacterOrString isAlphaNumeric])
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    95
            ifTrue:[short := aCharacterOrString]
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    96
            ifFalse:[self error: 'short option name should be alphanumeric character']
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    97
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
    98
    "Modified: / 29-05-2009 / 16:05:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
19988
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
    99
!
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   100
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   101
spec: spec
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   102
    "Build an option from option specification"
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   103
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   104
    long := short := nil.
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   105
    (spec isCollection and:[ spec isString not ]) ifTrue:[ 
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   106
        spec do:[:each | self spec0: each ]
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   107
    ] ifFalse:[ 
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   108
        self spec0: spec.
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   109
    ].
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   110
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   111
    "Created: / 14-06-2016 / 06:46:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13402
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   112
! !
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   113
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   114
!CmdLineOption methodsFor:'printing & storing'!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   115
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   116
printOn: stream
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   117
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   118
    super printOn: stream.
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   119
    stream nextPut:$(.
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   120
    short ifNotNil:[stream nextPut: $-; nextPut: short].
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   121
    (short notNil and: [long notNil]) ifTrue:[stream nextPut:$|].
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   122
    long ifNotNil:[stream nextPut: $-;  nextPut: $-; nextPutAll: long].
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   123
    stream nextPut:$)
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   124
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   125
    "Created: / 08-06-2009 / 14:48:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   126
! !
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   127
19988
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   128
!CmdLineOption methodsFor:'private'!
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   129
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   130
spec0:aStringOrCharacter
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   131
    aStringOrCharacter isCharacter ifTrue:[ 
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   132
        short notNil ifTrue:[ self error: 'Short option already specified: ', short asString ].
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   133
        short := aStringOrCharacter.
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   134
        ^ self.
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   135
    ].
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   136
    aStringOrCharacter isString ifTrue:[ 
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   137
        | l |
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   138
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   139
        l := aStringOrCharacter.
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   140
        l first == $- ifTrue:[ 
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   141
            l second == $- ifTrue:[ 
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   142
                l := l copyFrom: 3.
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   143
            ] ifFalse:[ 
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   144
                (l size == 2 and:[ l second isAlphaNumeric ]) ifTrue:[ 
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   145
                    short notNil ifTrue:[ self error: 'Short option already specified: ', short asString ].
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   146
                    short := l second.
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   147
                    ^ self.
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   148
                ].
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   149
            ].
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   150
        ].
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   151
        long notNil ifTrue: [ self error: 'Long (GNU-style) option already specified: ', short asString ].
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   152
        (l allSatisfy: [:c | c isAlphaNumeric ]) ifTrue:[ 
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   153
            long := l.
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   154
            ^ self.
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   155
        ].
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   156
    ].
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   157
    self error: 'Invalid option specification: ' , aStringOrCharacter asString.
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   158
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   159
    "Created: / 14-06-2016 / 06:46:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   160
! !
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   161
13402
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   162
!CmdLineOption methodsFor:'processing'!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   163
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   164
process
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   165
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   166
    action value
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   167
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   168
    "Created: / 08-06-2009 / 14:35:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   169
!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   170
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   171
process: value
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   172
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   173
    action value: value
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   174
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   175
    "Created: / 08-06-2009 / 14:35:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   176
! !
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   177
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   178
!CmdLineOption methodsFor:'queries'!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   179
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   180
hasParam
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   181
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   182
    ^action numArgs = 1
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   183
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   184
    "Created: / 08-06-2009 / 13:45:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   185
! !
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   186
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   187
!CmdLineOption class methodsFor:'documentation'!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   188
13938
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
   189
version
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
   190
    ^'$Header: /cvs/stx/stx/libbasic/CmdLineOption.st,v 1.3 2012-01-13 10:58:29 vrany Exp $'
13402
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   191
!
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   192
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   193
version_SVN
13938
c7c6a5463841 Updated from SVN
vrany
parents: 13482
diff changeset
   194
    ^ '§Id: CmdLineOption.st 10737 2011-11-06 21:23:48Z vranyj1 §'
13402
2d18a79f3fcc Added command line parsing stuff
vrany
parents:
diff changeset
   195
! !
19988
148721e96482 Added convenience methods to build CmdLineOptions.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 18011
diff changeset
   196