hg/stx-libtool: Tools__Tag.st@b3afe831ff0a (annotated)

9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2	COPYRIGHT (c) 2002 by eXept Software AG
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	All Rights Reserved
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	"{ Package: 'stx:libtool' }"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	"{ NameSpace: Tools }"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	Object subclass:#Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	instanceVariableNames:'width label pattern lineNumber fileName className'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	category:'Interface-Tools-File-Tags'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	23	Tag subclass:#TElement
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	24	instanceVariableNames:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	25	classVariableNames:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	26	poolDictionaries:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	27	privateIn:Tag
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	28	!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	29
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	Tag subclass:#TClass
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36
9923 55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	37	Tag subclass:#TDocumentation
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	38	instanceVariableNames:''
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	39	classVariableNames:''
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	40	poolDictionaries:''
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	41	privateIn:Tag
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	42	!
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	43
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	44	Tag::TElement subclass:#TAnchorElement
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	Tag subclass:#TEnum
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	Tag subclass:#TEnumMember
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	Tag subclass:#TField
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	72	Tag::TElement subclass:#TFormElement
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	73	instanceVariableNames:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	74	classVariableNames:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	75	poolDictionaries:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	76	privateIn:Tag
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	77	!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	78
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	Tag subclass:#TFunction
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	86	Tag::TElement subclass:#THeaderElement
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	87	instanceVariableNames:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	88	classVariableNames:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	89	poolDictionaries:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	90	privateIn:Tag
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	91	!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	92
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	Tag subclass:#TInterface
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	Tag subclass:#TLabel
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107	Tag subclass:#TLispConstant
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114	Tag subclass:#TLispEval
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	120
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121	Tag subclass:#TLispMacro
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	Tag subclass:#TMacro
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	Tag subclass:#TMakeRule
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142	Tag subclass:#TMakeTarget
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149	Tag subclass:#TMember
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	151	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	152	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	153	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	154	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	155
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156	Tag subclass:#TMethod
13449 9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	157	instanceVariableNames:'isMeta'
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	158	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	159	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	160	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	161	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	162
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	163	Tag subclass:#TPackage
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	164	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	170	Tag subclass:#TPrologClause
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	171	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	172	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	173	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	174	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	175	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	176
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177	Tag subclass:#TStruct
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	178	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	179	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	180	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	181	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	182	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	183
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	184	Tag subclass:#TTypedef
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191	Tag subclass:#TUnion
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	Tag subclass:#TVariable
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	201	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205	!Tag class methodsFor:'documentation'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207	copyright
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	208	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	COPYRIGHT (c) 2002 by eXept Software AG
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210	All Rights Reserved
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	This software is furnished under a license and may be used
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	only in accordance with the terms of that license and with the
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	inclusion of the above copyright notice. This software may not
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	be provided or otherwise made available to, or used by, any
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	other person. No title to or ownership of the software is
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217	hereby transferred.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220	"
10052 96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	221	!
96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	222
96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	223	documentation
96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	224	"
10053 bede91ba8a7d changed: #documentation Claus Gittinger <cg@exept.de> parents: 10052 diff changeset	225	keeps the info for a single tag (for the fileBrowser, for example);
10052 96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	226	either read from an external tool (ctags) or generated internally
96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	227	"
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230	!Tag class methodsFor:'instance creation'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232	label:aLabel pattern:aPattern
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233	^ self label:aLabel pattern:aPattern type:nil lineNumber:nil className:nil
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	235	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237	label:aLabel pattern:aPattern type:tagTypeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239	^ self label:aLabel pattern:aPattern type:tagTypeString lineNumber:nil className:nil
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242	label:aLabel pattern:aPattern type:tagTypeString lineNumber:aLineNumer
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244	^ self label:aLabel pattern:aPattern type:tagTypeString lineNumber:aLineNumer className:nil
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	245	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	246
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	247	label:aLabel pattern:aPattern type:tagTypeString lineNumber:aLineNumer className:cName
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	248	\|tid cls tag\|
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	249
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	250	((self == Tag) and:[tagTypeString size == 1]) ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	251	tid := tagTypeString asString.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	252	cls := self subclasses detect:[:aClass\| aClass typeIdentifier = tid ]
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	253	ifNone:self.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	254	] ifFalse:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	255	cls := self
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	256	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	257	tag := cls new.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	258	tag label:aLabel pattern:aPattern lineNumber:aLineNumer className:cName.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	259	^ tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	260
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	261	"Modified: / 05-05-2011 / 15:42:45 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	262	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	263
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	264	!Tag class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	265
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	266	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	267	^ nil
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	268
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	269
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	270	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	271
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272	!Tag methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	273
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	274	fileName
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	275	"returns the fileName (project tags only)
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	276	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	277	^ fileName
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	278
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	279
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	280	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	281
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	282	fileName:aFilename
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	283	"set the fileName (project tags only)
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	284	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	285	fileName := aFilename
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	286
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	289	label
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	290	^ label
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	291
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	292	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	293
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	294	lineNumber
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	295	"returns the lineNumber computed at beginning
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	296	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297	^ lineNumber ? 0
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	298
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	299	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	300
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	301	lineNumber:aNumber
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	302	"set the lineNumber computed at beginning
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	303	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	304	lineNumber := aNumber.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	305
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	306	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	307
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	308	pattern
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	309	"returns the pattern string, used to detect the line into a
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	310	contents
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	311	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	312	^ pattern
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	313
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	314	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	315
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	316	typeIdentifierInList
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	317	^ self class typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	318	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	319
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	320	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	321	^ '???'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	322	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	323
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	324	!Tag methodsFor:'instance creation'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	325
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	326	label:aLabel pattern:aPattern lineNumber:aLineNumer className:cName
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	327
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	328	label := aLabel.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	329	pattern := aPattern.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	330	lineNumber := aLineNumer.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	331
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	332	cName size > 1 ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	333	cName first isLetter ifFalse:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	334	className := cName copyFrom:2
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	335	] ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	336	className := cName
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	337	]
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	338	]
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	339
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	340	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	341
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	342	!Tag methodsFor:'list interface'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	343
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	344	explainString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	345	\|s t\|
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	346
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	347	s := label , ' is a ' , self typeString.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	348	fileName notNil ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	349	s := s , ' in ', fileName pathName.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	350	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	351	^ s
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	352
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	353
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	354	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	355
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	356	printString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	357	"returns the label used in a list
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	358	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359	\|l type\|
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	360
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	361	l := label.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	362	className notNil ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	363	l := className , '::' , l
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	364	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	365	"/
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	366	"/ type := self class typeIdentifier.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	367	"/
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	368	"/ type notNil ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	369	"/ ^ type, ' ' , l
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	370	"/ ].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	371	^ l
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	372	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	373
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	374	printStringWithoutClass
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	375	"returns a short label (used in a list when all labels are for the same class)
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	376	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	377	\|l type\|
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	378
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	379	l := label.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	380	className notNil ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	381	l := '::' , l
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	382	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	383	"/
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	384	"/ type := self class typeIdentifier.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	385	"/
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	386	"/ type notNil ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	387	"/ ^ type, ' ' , l
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	388	"/ ].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	389	^ l
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	390	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	391
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	392	!Tag methodsFor:'queries'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	393
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	394	widthOn:aGC
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	395
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	396	width isNil ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	397	width := self printString widthOn:aGC
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	398	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	399	^ width
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	400	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	401
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	402	!Tag methodsFor:'tag searching'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	403
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	404	lineNumberIn:someText
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	405	\|pat lnr atStart atEnd\|
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	406
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	407	(lineNumber notNil and:[lineNumber ~~ 0]) ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	408	^ lineNumber
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	409	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	410
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	411	(pat := self pattern) isNil ifTrue:[
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	412	lineNumber := 1.
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	413	^ lineNumber
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	414	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	415
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	416	(pat endsWith:';"') ifTrue:[
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	417	lnr := Integer readFrom:pat onError:nil.
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	418	lnr notNil ifTrue:[
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	419	^ lnr
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	420	]
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	421	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	422	lnr := 0.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	423
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	424	"/ (pat endsWith:'/;"') ifTrue:[
13182 bc686a7cc736 Merged b35f00f464c2 and 13cf55425c88 (branch default - CVS HEAD) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12807 diff changeset	425	"/ pat := pat copyButLast:3.
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	426	"/ ].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	427	(pat startsWith:$^) ifTrue:[
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	428	pat := pat copyFrom:2.
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	429	atStart := true.
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	430	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	431	(pat endsWith:$$) ifTrue:[
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	432	pat := pat copyButLast:1.
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	433	atEnd := true.
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	434	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	435	atStart == true ifTrue:[
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	436	atEnd == true ifTrue:[
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	437	lnr := someText findFirst:[:l\| l = pat].
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	438	] ifFalse:[
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	439	lnr := someText findFirst:[:l\| l startsWith:pat].
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	440	]
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	441	] ifFalse:[
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	442	atEnd == true ifTrue:[
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	443	lnr := someText findFirst:[:l\| l endsWith:pat].
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	444	] ifFalse:[
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	445	lnr := someText findFirst:[:l\| l includesString:pat].
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	446	].
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	447	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	448
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	449	lnr == 0 ifTrue:[
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	450	lnr := someText findFirst:[:l\| l includesString:self label].
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	451	lnr == 0 ifTrue:[
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	452	lnr := 1.
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	453	].
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	454	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	455	^ lnr
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	456	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	457
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	458	!Tag methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	459
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	460	isClassTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	461	"return true, if this is a java class tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	462	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	463	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	464
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	465
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	466	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	467
9923 55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	468	isDocumentationTag
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	469	"return true, if this is a doc tag
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	470	"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	471	^ false
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	472
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	473	"Created: / 08-05-2011 / 10:06:11 / cg"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	474	!
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	475
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	476	isEnumMemberTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	477	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	478
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	479	"Created: / 05-05-2011 / 15:38:56 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	480	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	481
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	482	isEnumTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	483	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	484
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	485	"Created: / 05-05-2011 / 15:37:23 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	486	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	487
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	488	isFieldTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	489	"return true, if this is a java field tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	490	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	491	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	492
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	493
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	494	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	495
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	496	isFunctionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	497	"return true, if this is a function tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	498	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	499	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	500
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	501
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	502	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	503
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	504	isInterfaceTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	505	"return true, if this is a java interface tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	506	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	507	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	508
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	509
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	510	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	511
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	512	isLabelTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	513	"return true, if this is a label tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	514	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	515	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	516
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	517
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	518	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	519
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	520	isLispConstantTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	521	"return true, if this is a lisp constant tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	522	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	523	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	524
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	525
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	526	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	527
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	528	isLispEvalTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	529	"return true, if this is a lisp eval tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	530	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	531	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	532	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	533
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	534	isLispMacroTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	535	"return true, if this is a lisp macro tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	536	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	537	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	538	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	539
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	540	isMacroTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	541	"return true, if this is a define macro tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	542	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	543	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	544
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	545
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	546	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	547
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	548	isMakeTargetTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	549	"return true, if this is a make-target tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	550	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	551	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	552
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	553
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	554	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	555
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	556	isMemberTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	557	"return true, if this is a struct/union member tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	558	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	559	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	560
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	561
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	562	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	563
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	564	isMethodTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	565	"return true, if this is a java method tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	566	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	567	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	568
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	569
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	571
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	572	isPackageTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	573	"return true, if this is a java package tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	574	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	575	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	576
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	577
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	578	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	579
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580	isPrologClause
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	581	"return true, if this is a prolog clause tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	582	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	583	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	584	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	585
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	586	isStructOrUnionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	587	"return true, if this is a union tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	588	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	589	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	590
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	591	"Created: / 05-05-2011 / 15:07:33 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	592	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	593
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	594	isStructTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	595	"return true, if this is a struct tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	596	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	597	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	598
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	599
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	600	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	601
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	602	isTypedefTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	603	"return true, if this is a typedef tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	604	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	605	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	606
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	607
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	608	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	609
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	610	isUnionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	611	"return true, if this is a union tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	612	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	613	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	614
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	615	"Created: / 05-05-2011 / 15:07:29 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	616	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	617
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	618	isVariableTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	619	"return true, if this is a variable tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	620	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	621	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	622
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	623
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	624	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	625
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	626	!Tag::TElement class methodsFor:'accessing'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	627
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	628	typeIdentifier
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	629	^ 'e'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	630
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	631	"Created: / 20-04-2011 / 18:52:31 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	632	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	633
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	634	!Tag::TElement class methodsFor:'documentation'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	635
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	636	documentation
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	637	"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	638	an element (as in HTML)
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	639	"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	640	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	641
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	642	!Tag::TElement methodsFor:'accessing'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	643
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	644	typeIdentifierInList
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	645	^ 'e'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	646
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	647	"Created: / 20-04-2011 / 18:53:49 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	648	!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	649
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	650	typeString
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	651	^ 'element'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	652
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	653	"Created: / 20-04-2011 / 18:53:29 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	654	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	655
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	656	!Tag::TElement methodsFor:'testing'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	657
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	658	isElementTag
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	659	"return true, if this is an element tag
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	660	"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	661	^ true
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	662
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	663	"Created: / 20-04-2011 / 18:53:16 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	664	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	665
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	666	!Tag::TClass class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	667
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	668	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	669	^ 'C'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	670
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	671	"Modified: / 05-05-2011 / 15:40:47 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	672	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	673
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	674	!Tag::TClass class methodsFor:'documentation'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	675
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	676	documentation
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	677	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	678	a class-like object
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	679	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	680	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	681
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	682	!Tag::TClass methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	683
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	684	typeIdentifierInList
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	685	^ 'C'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	686
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	687	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	688
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	689	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	690	^ 'class'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	691
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	692	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	693
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	694	!Tag::TClass methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	695
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	696	isClassTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	697	"return true, if this is a class tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	698	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	699	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	700
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	701
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	702	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	703
9923 55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	704	!Tag::TDocumentation class methodsFor:'accessing'!
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	705
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	706	typeIdentifier
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	707	^ 'D'
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	708
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	709	"Modified: / 08-05-2011 / 10:06:26 / cg"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	710	! !
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	711
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	712	!Tag::TDocumentation class methodsFor:'documentation'!
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	713
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	714	documentation
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	715	"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	716	this is a synthetic element, used to mark special
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	717	documentation found in some languages:
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	718	lisp: lines starting with ';;;'
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	719	java (could detect @xxx javadoc or similar in the future)
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	720	"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	721	! !
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	722
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	723	!Tag::TDocumentation methodsFor:'accessing'!
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	724
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	725	typeString
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	726	^ 'documentation'
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	727
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	728	"Modified: / 08-05-2011 / 10:05:52 / cg"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	729	! !
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	730
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	731	!Tag::TDocumentation methodsFor:'testing'!
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	732
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	733	isDocumentationTag
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	734	"return true, if this is a doc tag
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	735	"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	736	^ true
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	737
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	738	"Created: / 08-05-2011 / 10:06:03 / cg"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	739	! !
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	740
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	741	!Tag::TAnchorElement class methodsFor:'accessing'!
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	742
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	743	typeIdentifier
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	744	^ 'a'
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	745
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	746	"Created: / 20-04-2011 / 18:52:31 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	747	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	748
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	749	!Tag::TAnchorElement class methodsFor:'documentation'!
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	750
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	751	documentation
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	752	"
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	753	an anchor element (in HTML)
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	754	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	755	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	756
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	757	!Tag::TAnchorElement methodsFor:'accessing'!
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	758
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	759	typeIdentifierInList
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	760	^ 'a'
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	761
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	762	"Created: / 20-04-2011 / 18:53:49 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	763	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	764
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	765	typeString
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	766	^ 'anchor element'
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	767
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	768	"Created: / 20-04-2011 / 18:53:29 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	769	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	770
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	771	!Tag::TEnum class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	772
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	773	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	774	^ 'E'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	775
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	776	"Modified: / 05-05-2011 / 15:40:54 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	777	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	778
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	779	!Tag::TEnum methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	780
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	781	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	782	^ 'enum'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	783
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	784	"Modified: / 05-05-2011 / 15:37:03 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	785	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	786
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	787	!Tag::TEnum methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	788
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	789	isEnumTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	790	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	791
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	792	"Created: / 05-05-2011 / 15:37:15 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	793	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	794
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	795	!Tag::TEnumMember class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	796
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	797	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	798	^ 'e'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	799
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	800	"Modified: / 05-05-2011 / 15:40:57 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	801	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	802
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	803	!Tag::TEnumMember methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	804
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	805	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	806	^ 'enum member'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	807
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	808	"Modified: / 05-05-2011 / 15:39:05 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	809	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	810
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	811	!Tag::TEnumMember methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	812
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	813	isEnumMemberTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	814	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	815
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	816	"Created: / 05-05-2011 / 15:38:49 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	817	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	818
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	819	!Tag::TField class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	820
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	821	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	822	^ 'f'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	823
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	824
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	825	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	826
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	827	!Tag::TField methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	828
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	829	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	830	^ 'field'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	831
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	832	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	833
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	834	!Tag::TField methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	835
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	836	isFieldTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	837	"return true, if this is a java field tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	838	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	839	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	840
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	841
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	842	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	843
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	844	!Tag::TFormElement class methodsFor:'accessing'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	845
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	846	typeIdentifier
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	847	^ 'f'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	848
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	849	"Created: / 20-04-2011 / 18:52:31 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	850	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	851
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	852	!Tag::TFormElement class methodsFor:'documentation'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	853
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	854	documentation
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	855	"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	856	a form element (in HTML)
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	857	"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	858	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	859
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	860	!Tag::TFormElement methodsFor:'accessing'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	861
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	862	typeIdentifierInList
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	863	^ 'f'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	864
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	865	"Created: / 20-04-2011 / 18:53:49 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	866	!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	867
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	868	typeString
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	869	^ 'form element'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	870
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	871	"Created: / 20-04-2011 / 18:53:29 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	872	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	873
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	874	!Tag::TFunction class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	875
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	876	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	877	^ 'F'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	879	"Modified: / 05-05-2011 / 15:41:04 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	880	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	881
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	882	!Tag::TFunction methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	883
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	884	typeIdentifierInList
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	885	^ 'F'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	886
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	887
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	888	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	889
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	890	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	891	^ 'function'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	892
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	893
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	894	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	895
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	896	!Tag::TFunction methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	897
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	898	isFunctionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	899	"return true, if this is a function tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	900	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	901	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	902
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	903
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	904	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	905
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	906	!Tag::THeaderElement class methodsFor:'accessing'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	907
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	908	typeIdentifier
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	909	^ 'h'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	910
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	911	"Created: / 20-04-2011 / 18:52:31 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	912	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	913
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	914	!Tag::THeaderElement class methodsFor:'documentation'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	915
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	916	documentation
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	917	"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	918	a header element (in HTML)
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	919	"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	920	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	921
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	922	!Tag::THeaderElement methodsFor:'accessing'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	923
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	924	typeIdentifierInList
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	925	^ 'h'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	926
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	927	"Created: / 20-04-2011 / 18:53:49 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	928	!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	929
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	930	typeString
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	931	^ 'header element'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	932
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	933	"Created: / 20-04-2011 / 18:53:29 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	934	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	935
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	936	!Tag::TInterface class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	937
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	938	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	939	^ 'I'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	940
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	941	"Modified: / 05-05-2011 / 15:41:08 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	942	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	943
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	944	!Tag::TInterface methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	945
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	946	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	947	^ 'interface'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	948
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	949
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	950	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	951
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	952	!Tag::TInterface methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	953
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	954	isInterfaceTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	955	"return true, if this is a java interface tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	956	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	957	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	958
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	959
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	960	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	961
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	962	!Tag::TLabel class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	963
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	964	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	965	^ 'l'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	966
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	967
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	968	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	969
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	970	!Tag::TLabel methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	971
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	972	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	973	^ 'label'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	974
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	975
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	976	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	977
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	978	!Tag::TLabel methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	979
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	980	isLabelTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	981	"return true, if this is a label tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	982	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	983	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	984
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	985
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	986	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	987
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	988	!Tag::TLispConstant class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	989
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	990	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	991	^ 'c'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	992
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	993
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	994	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	995
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	996	!Tag::TLispConstant methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	997
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	998	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	999	^ 'const'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1000
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1001
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1002	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1003
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1004	!Tag::TLispConstant methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1005
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1006	isLispConstantTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1007	"return true, if this is a lisp constant tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1008	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1009	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1010
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1011
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1012	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1013
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1014	!Tag::TLispEval class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1015
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1016	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1017	^ 'E'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1018
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1019
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1020	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1021
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1022	!Tag::TLispEval methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1023
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1024	printString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1025	^ "'eval '," super printString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1026	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1027
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1028	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1029	^ 'eval'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1030
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1031
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1032	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1033
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1034	!Tag::TLispEval methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1035
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1036	isLispEvalTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1037	"return true, if this is a lisp eval tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1038	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1039	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1040
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1041
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1042	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1043
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1044	!Tag::TLispMacro class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1045
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1046	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1047	^ 'm'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1048
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1049
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1050	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1051
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1052	!Tag::TLispMacro methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1053
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1054	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1055	^ 'macro'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1056
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1057
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1058	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1059
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1060	!Tag::TLispMacro methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1061
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1062	isLispMacroTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1063	"return true, if this is a define macro tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1064	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1065	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1066
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1067
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1068	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1069
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1070	!Tag::TMacro class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1071
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1072	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1073	^ 'd'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1074
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1075
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1076	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1077
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1078	!Tag::TMacro methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1079
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1080	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1081	^ 'macro'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1082
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1083
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1084	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1085
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1086	!Tag::TMacro methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1087
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1088	isMacroTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1089	"return true, if this is a define macro tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1090	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1091	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1092
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1093
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1094	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1095
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1096	!Tag::TMakeRule class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1097
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1098	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1099	^ 'R'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1100	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1101
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1102	!Tag::TMakeRule methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1103
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1104	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1105	^ 'rule'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1106	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1107
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1108	!Tag::TMakeRule methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1109
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1110	isMakeTargetTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1111	"return true, if this is a make-target tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1112	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1113	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1114
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1115
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1116	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1117
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1118	!Tag::TMakeTarget class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1119
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1120	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1121	^ 'T'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1122
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1123
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1124	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1125
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1126	!Tag::TMakeTarget methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1127
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1128	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1129	^ 'target'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1130
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1131
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1132	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1133
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1134	!Tag::TMakeTarget methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1135
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1136	isMakeTargetTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1137	"return true, if this is a make-target tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1138	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1139	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1140
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1141
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1142	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1143
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1144	!Tag::TMember class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1145
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1146	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1147	^ 'm'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1148
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1149
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1150	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1151
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1152	!Tag::TMember methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1153
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1154	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1155	^ 'struct/union member'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1156
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1157
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1158	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1159
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1160	!Tag::TMember methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1161
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1162	isMemberTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1163	"return true, if this is a struct/union member tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1164	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1165	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1166
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1167
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1168	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1169
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1170	!Tag::TMethod class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1171
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1172	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1173	^ 'M'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1174
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1175	"Modified: / 05-05-2011 / 15:41:29 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1176	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1177
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1178	!Tag::TMethod methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1179
13449 9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1180	isMeta
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1181	^ isMeta
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1182	!
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1183
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1184	isMeta:aBoolean
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1185	isMeta := aBoolean.
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1186	!
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1187
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1188	typeIdentifierInList
13449 9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1189	^ isMeta ifTrue:['M'] ifFalse:['m']
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1190	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1191
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1192	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1193	^ 'method'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1194
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1195	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1196
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1197	!Tag::TMethod methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1198
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1199	isMethodTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1200	"return true, if this is a java method tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1201	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1202	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1203
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1204
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1205	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1206
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1207	!Tag::TPackage class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1208
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1209	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1210	^ 'P'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1211
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1212	"Modified: / 05-05-2011 / 15:41:35 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1213	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1214
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1215	!Tag::TPackage methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1216
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1217	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1218	^ 'package'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1219
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1220
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1221	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1222
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1223	!Tag::TPackage methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1224
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1225	isPackageTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1226	"return true, if this is a java package tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1227	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1228	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1229
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1230
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1231	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1232
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1233	!Tag::TPrologClause class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1234
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1235	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1236	^ 'C'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1237
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1238
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1239	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1240
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1241	!Tag::TPrologClause methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1242
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1243	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1244	^ 'clause'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1245
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1246
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1247	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1248
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1249	!Tag::TPrologClause methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1250
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1251	isPrologClause
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1252	"return true, if this is a prolog clause tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1253	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1254	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1255
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1256
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1257	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1258
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1259	!Tag::TStruct class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1260
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1261	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1262	^ 'S'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1263
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1264	"Modified: / 05-05-2011 / 15:41:42 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1265	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1266
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1267	!Tag::TStruct methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1268
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1269	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1270	^ 'struct'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1271
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1272
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1273	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1274
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1275	!Tag::TStruct methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1276
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1277	isStructOrUnionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1278	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1279
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1280	"Created: / 05-05-2011 / 15:07:51 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1281	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1282
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1283	isStructTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1284	"return true, if this is a struct tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1285	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1286	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1287
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1288
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1289	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1290
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1291	!Tag::TTypedef class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1292
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1293	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1294	^ 'T'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1295
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1296	"Modified: / 05-05-2011 / 15:41:46 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1297	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1298
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1299	!Tag::TTypedef methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1300
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1301	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1302	^ 'typedef'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1303
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1304
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1305	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1306
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1307	!Tag::TTypedef methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1308
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1309	isTypedefTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1310	"return true, if this is a typedef tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1311	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1312	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1313
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1314
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1315	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1316
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1317	!Tag::TUnion class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1318
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1319	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1320	^ 'U'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1321
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1322	"Modified: / 05-05-2011 / 15:41:50 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1323	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1324
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1325	!Tag::TUnion methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1326
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1327	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1328	^ 'union'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1329
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1330	"Modified: / 05-05-2011 / 15:07:12 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1331	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1332
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1333	!Tag::TUnion methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1334
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1335	isStructOrUnionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1336	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1337
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1338	"Created: / 05-05-2011 / 15:07:41 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1339	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1340
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1341	isUnionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1342	"return true, if this is a union tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1343	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1344	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1345
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1346	"Created: / 05-05-2011 / 15:07:00 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1347	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1348
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1349	!Tag::TVariable class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1350
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1351	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1352	^ 'v'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1353
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1354
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1355	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1356
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1357	!Tag::TVariable methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1358
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1359	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1360	^ 'variable'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1361
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1362
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1363	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1364
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1365	!Tag::TVariable methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1366
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1367	isVariableTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1368	"return true, if this is a variable tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1369	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1370	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1371
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1372
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1373	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1374
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1375	!Tag class methodsFor:'documentation'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1376
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1377	version_CVS
13449 9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1378	^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.8 2013-09-01 07:31:11 cg Exp $'
10052 96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	1379	!
96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	1380
12431 9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12401 diff changeset	1381	version_HG
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12401 diff changeset	1382
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12401 diff changeset	1383	^ '$Changeset: <not expanded> $'
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12401 diff changeset	1384	!
9f0c59c742d5 Added LintRuleSettingsApplication and LintRuleEditDialog to define user-defined rule sets. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12401 diff changeset	1385
10052 96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	1386	version_SVN
13449 9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1387	^ '$Id: Tools__Tag.st,v 1.8 2013-09-01 07:31:11 cg Exp $'
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1388	! !
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	1389

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 04 Sep 2013 11:33:19 +0100
branch	jv
changeset 13491	b3afe831ff0a
parent 13182	bc686a7cc736
parent 13449	9ca3903316f7
child 15566	184cea584be5
permissions	-rw-r--r--