hg/stx-libbasic: CmdLineOption.st@8d796ca8bd1d (annotated)

17766 0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	1	"
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	2	COPYRIGHT (c) 2006 by eXept Software AG
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	3	All Rights Reserved
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	4
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	5	This software is furnished under a license and may be used
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	6	only in accordance with the terms of that license and with the
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	7	inclusion of the above copyright notice. This software may not
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	8	be provided or otherwise made available to, or used by, any
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	9	other person. No title to or ownership of the software is
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	10	hereby transferred.
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	11	"
17714 0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	"{ Package: 'stx:libbasic' }"
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	Object subclass:#CmdLineOption
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	instanceVariableNames:'action description short long'
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	classVariableNames:''
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	poolDictionaries:''
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	category:'System-Support-Command line'
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
17766 0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	21	!CmdLineOption class methodsFor:'documentation'!
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	22
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	23	copyright
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	24	"
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	25	COPYRIGHT (c) 2006 by eXept Software AG
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	26	All Rights Reserved
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	27
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	28	This software is furnished under a license and may be used
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	29	only in accordance with the terms of that license and with the
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	30	inclusion of the above copyright notice. This software may not
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	31	be provided or otherwise made available to, or used by, any
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	32	other person. No title to or ownership of the software is
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	33	hereby transferred.
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	34	"
17898 5fc80f9f6c56 Small refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17883 diff changeset	35	!
5fc80f9f6c56 Small refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17883 diff changeset	36
5fc80f9f6c56 Small refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17883 diff changeset	37	optionsFor: anObject
5fc80f9f6c56 Small refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17883 diff changeset	38
5fc80f9f6c56 Small refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17883 diff changeset	39	"Returns a collection of command line options for
5fc80f9f6c56 Small refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17883 diff changeset	40	given object."
5fc80f9f6c56 Small refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17883 diff changeset	41
5fc80f9f6c56 Small refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17883 diff changeset	42	^anObject class allSelectors
5fc80f9f6c56 Small refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17883 diff changeset	43	select:[:sel\|sel startsWith: 'cmdlineOption']
5fc80f9f6c56 Small refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17883 diff changeset	44	thenCollect:[:sel\|anObject perform: sel].
17766 0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	45	! !
17714 0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	!CmdLineOption methodsFor:'accessing'!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	action
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	^ action
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	"Created: / 28-01-2009 / 11:49:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	action:aBlockOrMessageSend
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	aBlockOrMessageSend numArgs > 1 ifTrue:
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	[CmdLineOptionError raiseErrorString: 'Action must be zero-or-one arg block/message send'].
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	action := aBlockOrMessageSend.
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	"Created: / 28-01-2009 / 11:49:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	"Modified: / 16-06-2009 / 15:46:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	description
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	^ description
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	"Created: / 28-01-2009 / 11:49:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	description:aString
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	description := aString.
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	"Created: / 28-01-2009 / 11:49:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	long
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	^ long
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	long:aString
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	long := aString.
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	short
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	^ short
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	short:aCharacterOrString
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	(aCharacterOrString isCharacter
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	and:[aCharacterOrString isAlphaNumeric])
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	ifTrue:[short := aCharacterOrString]
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	ifFalse:[self error: 'short option name should be alphanumeric character']
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	"Modified: / 29-05-2009 / 16:05:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	! !
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	!CmdLineOption methodsFor:'printing & storing'!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	printOn: stream
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	super printOn: stream.
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	stream nextPut:$(.
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	short ifNotNil:[stream nextPut: $-; nextPut: short].
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	(short notNil and: [long notNil]) ifTrue:[stream nextPut:$\|].
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	long ifNotNil:[stream nextPut: $-; nextPut: $-; nextPutAll: long].
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	stream nextPut:$)
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	"Created: / 08-06-2009 / 14:48:59 / Jan Vrany <vranyj1@fel.cvut.cz>"
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	! !
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	!CmdLineOption methodsFor:'processing'!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	process
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	action value
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	"Created: / 08-06-2009 / 14:35:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	process: value
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	action value: value
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	"Created: / 08-06-2009 / 14:35:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	! !
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	!CmdLineOption methodsFor:'queries'!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	hasParam
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	^action numArgs = 1
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	"Created: / 08-06-2009 / 13:45:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	! !
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	!CmdLineOption class methodsFor:'documentation'!
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139
0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	version
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17898 diff changeset	141	^'$Header: /cvs/stx/stx/libbasic/CmdLineOption.st,v 1.3 2012/01/13 10:58:29 vrany Exp $'
17766 0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	142	!
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	143
0acf634e6550 initial implementation of selector namespaces Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17714 diff changeset	144	version_SVN
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17898 diff changeset	145	^ '$Id: CmdLineOption.st 10758 2012-01-19 10:06:02Z vranyj1 $'
17714 0d64723fe7f5 Added classes for command line parsing Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	! !
17910 8d796ca8bd1d Merged with /trunk Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17898 diff changeset	147

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 19 Jan 2012 10:06:02 +0000
branch	jv
changeset 17910	8d796ca8bd1d
parent 17898	5fc80f9f6c56
child 18011	deb0c3355881
permissions	-rw-r--r--