hg/stx-libtool: Tools__Tag.st@e0ae7b7d56e4 (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
13772 c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	30	Tag subclass:#TCaseLabel
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	31	instanceVariableNames:''
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	32	classVariableNames:''
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	33	poolDictionaries:''
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	34	privateIn:Tag
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	35	!
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	36
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	Tag subclass:#TClass
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43
9923 55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	44	Tag subclass:#TDocumentation
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	45	instanceVariableNames:''
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	46	classVariableNames:''
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	47	poolDictionaries:''
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	48	privateIn:Tag
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	49	!
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	50
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	51	Tag::TElement subclass:#TAnchorElement
9890 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:#TEnum
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:#TEnumMember
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	Tag subclass:#TField
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	79	Tag::TElement subclass:#TFormElement
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	80	instanceVariableNames:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	81	classVariableNames:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	82	poolDictionaries:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	83	privateIn:Tag
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	84	!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	85
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	Tag subclass:#TFunction
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	87	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	93	Tag::TElement subclass:#THeaderElement
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	94	instanceVariableNames:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	95	classVariableNames:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	96	poolDictionaries:''
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	97	privateIn:Tag
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	98	!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	99
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	Tag subclass:#TInterface
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:#TLabel
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:#TLispConstant
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:#TLispEval
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:#TLispMacro
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:#TMacro
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:#TMakeRule
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:#TMakeTarget
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:#TMember
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157	instanceVariableNames:''
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:#TMethod
13449 9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	164	instanceVariableNames:'isMeta'
9890 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:#TPackage
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:#TPrologClause
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:#TStruct
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:#TTypedef
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:#TUnion
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 subclass:#TVariable
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206	instanceVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207	classVariableNames:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	208	poolDictionaries:''
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	privateIn:Tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	!Tag class methodsFor:'documentation'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	copyright
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	COPYRIGHT (c) 2002 by eXept Software AG
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217	All Rights Reserved
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219	This software is furnished under a license and may be used
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220	only in accordance with the terms of that license and with the
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	inclusion of the above copyright notice. This software may not
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222	be provided or otherwise made available to, or used by, any
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223	other person. No title to or ownership of the software is
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224	hereby transferred.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	"
10052 96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	228	!
96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	229
96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	230	documentation
96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	231	"
10053 bede91ba8a7d changed: #documentation Claus Gittinger <cg@exept.de> parents: 10052 diff changeset	232	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	233	either read from an external tool (ctags) or generated internally
96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	234	"
9890 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	!Tag class methodsFor:'instance creation'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239	label:aLabel pattern:aPattern
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240	^ self label:aLabel pattern:aPattern type:nil lineNumber:nil className:nil
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244	label:aLabel pattern:aPattern type:tagTypeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	245
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	246	^ self label:aLabel pattern:aPattern type:tagTypeString lineNumber:nil className:nil
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	247	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	248
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	249	label:aLabel pattern:aPattern type:tagTypeString lineNumber:aLineNumer
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	250
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	251	^ self label:aLabel pattern:aPattern type:tagTypeString lineNumber:aLineNumer className:nil
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	252	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	253
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	254	label:aLabel pattern:aPattern type:tagTypeString lineNumber:aLineNumer className:cName
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	255	\|tid cls tag\|
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	256
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	257	((self == Tag) and:[tagTypeString size == 1]) ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	258	tid := tagTypeString asString.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	259	cls := self subclasses detect:[:aClass\| aClass typeIdentifier = tid ]
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	260	ifNone:self.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	261	] ifFalse:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	262	cls := self
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 := cls new.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	265	tag label:aLabel pattern:aPattern lineNumber:aLineNumer className:cName.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	266	^ tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	267
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	268	"Modified: / 05-05-2011 / 15:42:45 / cg"
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	!Tag class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	273	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	274	^ nil
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	275
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	276
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	277	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	278
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	279	!Tag methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	280
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	281	fileName
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	282	"returns the fileName (project tags only)
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	283	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	284	^ fileName
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	285
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	fileName:aFilename
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	290	"set the fileName (project tags only)
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	291	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	292	fileName := aFilename
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	293
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	294	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	295
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	296	label
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297	^ label
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	302	"returns 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 ? 0
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	lineNumber:aNumber
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	309	"set the lineNumber computed at beginning
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	310	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	311	lineNumber := aNumber.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	312
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	pattern
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	316	"returns the pattern string, used to detect the line into a
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	317	contents
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	318	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	319	^ pattern
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	320
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	typeIdentifierInList
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	324	^ self class typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	325	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	326
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	327	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	328	^ '???'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	329	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	330
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	331	!Tag methodsFor:'instance creation'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	332
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	333	label:aLabel pattern:aPattern lineNumber:aLineNumer className:cName
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	334
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	335	label := aLabel.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	336	pattern := aPattern.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	337	lineNumber := aLineNumer.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	338
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	339	cName size > 1 ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	340	cName first isLetter ifFalse:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	341	className := cName copyFrom:2
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	342	] ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	343	className := cName
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	344	]
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	345	]
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	346
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	347	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	348
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	349	!Tag methodsFor:'list interface'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	350
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	351	explainString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	352	\|s t\|
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	353
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	354	s := label , ' is a ' , self typeString.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	355	fileName notNil ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	356	s := s , ' in ', fileName pathName.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	357	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	358	^ s
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	360
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	361	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	362
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	363	printString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	364	"returns the label used in a list
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	365	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	366	\|l type\|
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	367
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	368	l := label.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	369	className notNil ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	370	l := className , '::' , l
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	371	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	372	"/
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	373	"/ type := self class typeIdentifier.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	374	"/
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	375	"/ type notNil ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	376	"/ ^ type, ' ' , l
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	377	"/ ].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	378	^ l
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	379	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	380
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	381	printStringWithoutClass
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	382	"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	383	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	384	\|l type\|
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	385
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	386	l := label.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	387	className notNil ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	388	l := '::' , l
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	389	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	390	"/
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	391	"/ type := self class typeIdentifier.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	392	"/
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	393	"/ type notNil ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	394	"/ ^ type, ' ' , l
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	395	"/ ].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	396	^ l
14440 b0da24d294ff class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14432 diff changeset	397	!
b0da24d294ff class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14432 diff changeset	398
b0da24d294ff class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14432 diff changeset	399	shortInfoString
b0da24d294ff class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14432 diff changeset	400	\|s\|
b0da24d294ff class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14432 diff changeset	401
b0da24d294ff class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14432 diff changeset	402	s := self typeString.
b0da24d294ff class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14432 diff changeset	403	fileName notNil ifTrue:[
14441 197c8235d305 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14440 diff changeset	404	s := s , ' in ', fileName baseName "pathName".
14440 b0da24d294ff class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14432 diff changeset	405	].
b0da24d294ff class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14432 diff changeset	406	^ s
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	407	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	408
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	409	!Tag methodsFor:'queries'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	410
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	411	widthOn:aGC
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	412
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	413	width isNil ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	414	width := self printString widthOn:aGC
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	415	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	416	^ width
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	417	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	418
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	419	!Tag methodsFor:'tag searching'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	420
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	421	lineNumberIn:someText
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	422	\|pat lnr atStart atEnd\|
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	423
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	424	(lineNumber notNil and:[lineNumber ~~ 0]) ifTrue:[
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	425	^ lineNumber
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	426	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	427
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	428	(pat := self pattern) isNil ifTrue:[
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	429	lineNumber := 1.
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	430	^ lineNumber
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	431	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	432
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	433	(pat endsWith:';"') ifTrue:[
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	434	lnr := Integer readFrom:pat onError:nil.
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	435	lnr notNil ifTrue:[
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	436	^ lnr
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	437	]
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	438	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	439	lnr := 0.
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	440
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	441	"/ (pat endsWith:'/;"') ifTrue:[
13804 6f311465b4cf merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13772 diff changeset	442	"/ pat := pat copyButLast:3.
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	443	"/ ].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	444	(pat startsWith:$^) ifTrue:[
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	445	pat := pat copyFrom:2.
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	446	atStart := true.
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	(pat endsWith:$$) ifTrue:[
14581 e0ae7b7d56e4 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14441 diff changeset	449	pat := pat copyButLast.
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	450	atEnd := true.
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	451	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	452	atStart == true ifTrue:[
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	453	atEnd == true ifTrue:[
14581 e0ae7b7d56e4 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14441 diff changeset	454	lnr := someText findFirst:[:line \| line = pat].
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	455	] ifFalse:[
14581 e0ae7b7d56e4 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14441 diff changeset	456	lnr := someText findFirst:[:line \| line startsWith:pat].
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	457	]
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	458	] ifFalse:[
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	459	atEnd == true ifTrue:[
14581 e0ae7b7d56e4 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14441 diff changeset	460	lnr := someText findFirst:[:line \| line endsWith:pat].
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	461	] ifFalse:[
14581 e0ae7b7d56e4 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14441 diff changeset	462	lnr := someText findFirst:[:line \| line includesString:pat].
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	463	].
9890 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	lnr == 0 ifTrue:[
14581 e0ae7b7d56e4 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14441 diff changeset	467	lnr := someText findFirst:[:line \| line includesString:self label].
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	468	lnr == 0 ifTrue:[
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	469	lnr := 1.
b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	470	].
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	471	].
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	472	^ lnr
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	473	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	474
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	475	!Tag methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	476
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	477	isClassTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	478	"return true, if this is a java class tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	479	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	480	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	481
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	482
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	483	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	484
9923 55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	485	isDocumentationTag
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	486	"return true, if this is a doc tag
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	487	"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	488	^ false
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	489
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	490	"Created: / 08-05-2011 / 10:06:11 / cg"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	491	!
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	492
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	493	isEnumMemberTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	494	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	495
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	496	"Created: / 05-05-2011 / 15:38:56 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	497	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	498
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	499	isEnumTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	500	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	501
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	502	"Created: / 05-05-2011 / 15:37:23 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	503	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	504
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	505	isFieldTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	506	"return true, if this is a java field tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	507	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	508	^ false
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
14432 a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	513	isFunctionOrMethodTag
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	514	"return true, if this is a function or a method tag
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	515	"
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	516	^ false
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	517	!
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	518
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	519	isFunctionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	520	"return true, if this is a function tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	521	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	522	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	523
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	isInterfaceTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	528	"return true, if this is a java interface tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	529	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	530	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	531
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	535	isLabelTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	536	"return true, if this is a label tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	537	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	538	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	539
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	540
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	541	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	542
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	543	isLispConstantTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	544	"return true, if this is a lisp constant tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	545	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	546	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	547
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	548
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	549	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	550
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	551	isLispEvalTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	552	"return true, if this is a lisp eval tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	553	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	554	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	555	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	556
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	557	isLispMacroTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	558	"return true, if this is a lisp macro tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	559	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	560	^ false
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	isMacroTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	564	"return true, if this is a define macro tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	565	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	566	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	567
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	isMakeTargetTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	572	"return true, if this is a make-target tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	573	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	574	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	575
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	isMemberTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580	"return true, if this is a struct/union member tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	581	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	582	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	583
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	587	isMethodTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	588	"return true, if this is a java method tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	589	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	590	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	591
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	595	isPackageTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	596	"return true, if this is a java package tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	597	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	598	^ false
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	603	isPrologClause
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	604	"return true, if this is a prolog clause tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	605	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	606	^ false
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	isStructOrUnionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	610	"return true, if this is a union tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	611	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	612	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	613
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	614	"Created: / 05-05-2011 / 15:07:33 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	615	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	616
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	617	isStructTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	618	"return true, if this is a struct tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	619	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	620	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	621
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	isTypedefTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	626	"return true, if this is a typedef tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	627	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	628	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	629
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	630
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	631	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	632
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	633	isUnionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	634	"return true, if this is a union tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	635	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	636	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	637
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	638	"Created: / 05-05-2011 / 15:07:29 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	639	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	640
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	641	isVariableTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	642	"return true, if this is a variable tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	643	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	644	^ false
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	645
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	646
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	647	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	648
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	649	!Tag::TElement class methodsFor:'accessing'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	650
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	651	typeIdentifier
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	652	^ 'e'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	653
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	654	"Created: / 20-04-2011 / 18:52:31 / cg"
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
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	657	!Tag::TElement class methodsFor:'documentation'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	658
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	659	documentation
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	an element (as in HTML)
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	! !
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	!Tag::TElement methodsFor:'accessing'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	666
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	667	typeIdentifierInList
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	668	^ 'e'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	669
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	670	"Created: / 20-04-2011 / 18:53:49 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	671	!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	672
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	673	typeString
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	674	^ 'element'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	675
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	676	"Created: / 20-04-2011 / 18:53:29 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	677	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	678
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	679	!Tag::TElement methodsFor:'testing'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	680
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	681	isElementTag
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	682	"return true, if this is an element tag
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	683	"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	684	^ true
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	685
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	686	"Created: / 20-04-2011 / 18:53:16 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	687	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	688
13772 c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	689	!Tag::TCaseLabel class methodsFor:'accessing'!
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	690
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	691	typeIdentifier
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	692	^ 'L'
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	693	! !
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	694
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	695	!Tag::TCaseLabel methodsFor:'accessing'!
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	696
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	697	typeString
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	698	^ 'case label'
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	699	! !
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	700
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	701	!Tag::TCaseLabel methodsFor:'testing'!
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	702
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	703	isCaseLabelTag
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	704	"return true, if this is a case label tag
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	705	"
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	706	^ true
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	707	!
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	708
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	709	isLabelTag
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	710	"return true, if this is a label tag
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	711	"
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	712	^ true
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	713
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	714
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	715	! !
c33edfc1abcc class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13449 diff changeset	716
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	717	!Tag::TClass class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	718
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	719	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	720	^ 'C'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	721
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	722	"Modified: / 05-05-2011 / 15:40:47 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	723	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	724
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	725	!Tag::TClass class methodsFor:'documentation'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	726
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	727	documentation
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	728	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	729	a class-like object
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	730	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	731	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	732
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	733	!Tag::TClass methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	734
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	735	typeIdentifierInList
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	736	^ 'C'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	737
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	738	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	739
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	740	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	741	^ 'class'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	742
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	743	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	744
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	745	!Tag::TClass methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	746
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	747	isClassTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	748	"return true, if this is a class tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	749	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	750	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	751
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	752
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	753	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	754
9923 55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	755	!Tag::TDocumentation class methodsFor:'accessing'!
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	756
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	757	typeIdentifier
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	758	^ 'D'
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	759
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	760	"Modified: / 08-05-2011 / 10:06:26 / cg"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	761	! !
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	762
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	763	!Tag::TDocumentation class methodsFor:'documentation'!
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	764
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	765	documentation
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	766	"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	767	this is a synthetic element, used to mark special
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	768	documentation found in some languages:
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	769	lisp: lines starting with ';;;'
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	770	java (could detect @xxx javadoc or similar in the future)
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	771	"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	772	! !
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	773
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	774	!Tag::TDocumentation methodsFor:'accessing'!
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	775
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	776	typeString
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	777	^ 'documentation'
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	778
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	779	"Modified: / 08-05-2011 / 10:05:52 / cg"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	780	! !
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	781
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	782	!Tag::TDocumentation methodsFor:'testing'!
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	783
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	784	isDocumentationTag
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	785	"return true, if this is a doc tag
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	786	"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	787	^ true
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	788
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	789	"Created: / 08-05-2011 / 10:06:03 / cg"
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	790	! !
55f3870870cd added: #isDocumentationTag Claus Gittinger <cg@exept.de> parents: 9890 diff changeset	791
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	792	!Tag::TAnchorElement class methodsFor:'accessing'!
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	793
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	794	typeIdentifier
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	795	^ 'a'
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	796
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	797	"Created: / 20-04-2011 / 18:52:31 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	798	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	799
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	800	!Tag::TAnchorElement class methodsFor:'documentation'!
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	801
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	802	documentation
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	803	"
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	804	an anchor element (in HTML)
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	805	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	806	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	807
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	808	!Tag::TAnchorElement methodsFor:'accessing'!
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	809
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	810	typeIdentifierInList
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	811	^ 'a'
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	812
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	813	"Created: / 20-04-2011 / 18:53:49 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	814	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	815
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	816	typeString
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	817	^ 'anchor element'
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	818
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	819	"Created: / 20-04-2011 / 18:53:29 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	820	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	821
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	822	!Tag::TEnum class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	823
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	824	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	825	^ 'E'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	826
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	827	"Modified: / 05-05-2011 / 15:40:54 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	828	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	829
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	830	!Tag::TEnum methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	831
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	832	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	833	^ 'enum'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	834
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	835	"Modified: / 05-05-2011 / 15:37:03 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	836	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	837
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	838	!Tag::TEnum methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	839
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	840	isEnumTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	841	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	842
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	843	"Created: / 05-05-2011 / 15:37:15 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	844	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	845
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	846	!Tag::TEnumMember class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	847
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	848	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	849	^ 'e'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	850
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	851	"Modified: / 05-05-2011 / 15:40:57 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	852	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	853
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	854	!Tag::TEnumMember methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	855
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	856	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	857	^ 'enum member'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	858
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	859	"Modified: / 05-05-2011 / 15:39:05 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	860	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	861
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	862	!Tag::TEnumMember methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	863
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	864	isEnumMemberTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	865	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	866
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	867	"Created: / 05-05-2011 / 15:38:49 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	868	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	869
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	870	!Tag::TField class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	871
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	872	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	873	^ 'f'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	874
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	875
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	876	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	877
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878	!Tag::TField methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	879
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	880	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	881	^ 'field'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	882
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	883	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	884
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	885	!Tag::TField methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	886
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	887	isFieldTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	888	"return true, if this is a java field tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	889	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	890	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	891
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
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	895	!Tag::TFormElement class methodsFor:'accessing'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	896
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	897	typeIdentifier
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	898	^ 'f'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	899
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	900	"Created: / 20-04-2011 / 18:52:31 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	901	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	902
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	903	!Tag::TFormElement class methodsFor:'documentation'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	904
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	905	documentation
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	906	"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	907	a form element (in HTML)
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	908	"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	909	! !
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	!Tag::TFormElement methodsFor:'accessing'!
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	typeIdentifierInList
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	914	^ 'f'
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	"Created: / 20-04-2011 / 18:53:49 / cg"
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
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	919	typeString
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	920	^ 'form element'
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	"Created: / 20-04-2011 / 18:53:29 / cg"
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
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	925	!Tag::TFunction class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	926
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	927	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	928	^ 'F'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	929
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	930	"Modified: / 05-05-2011 / 15:41:04 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	931	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	932
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	933	!Tag::TFunction methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	934
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	935	typeIdentifierInList
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	936	^ 'F'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	937
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	938
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	939	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	940
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	941	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	942	^ 'function'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	943
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	944
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	945	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	946
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	947	!Tag::TFunction methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	948
14432 a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	949	isFunctionOrMethodTag
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	950	"return true, if this is a function or method tag
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	951	"
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	952	^ true
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	953	!
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	954
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	955	isFunctionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	956	"return true, if this is a function tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	957	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	958	^ true
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
11803 3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	963	!Tag::THeaderElement class methodsFor:'accessing'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	964
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	965	typeIdentifier
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	966	^ 'h'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	967
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	968	"Created: / 20-04-2011 / 18:52:31 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	969	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	970
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	971	!Tag::THeaderElement class methodsFor:'documentation'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	972
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	973	documentation
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	974	"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	975	a header element (in HTML)
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	976	"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	977	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	978
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	979	!Tag::THeaderElement methodsFor:'accessing'!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	980
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	981	typeIdentifierInList
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	982	^ 'h'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	983
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	984	"Created: / 20-04-2011 / 18:53:49 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	985	!
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	986
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	987	typeString
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	988	^ 'header element'
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	989
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	990	"Created: / 20-04-2011 / 18:53:29 / cg"
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	991	! !
3025c4948991 better html tags (h-elements) Claus Gittinger <cg@exept.de> parents: 11438 diff changeset	992
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	993	!Tag::TInterface class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	994
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	995	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	996	^ 'I'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	997
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	998	"Modified: / 05-05-2011 / 15:41:08 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	999	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1000
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1001	!Tag::TInterface methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1002
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1003	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1004	^ 'interface'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1005
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1006
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1007	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1008
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1009	!Tag::TInterface methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1010
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1011	isInterfaceTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1012	"return true, if this is a java interface tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1013	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1014	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1015
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1016
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1017	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1018
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1019	!Tag::TLabel class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1020
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1021	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1022	^ 'l'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1023
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1024
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1025	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1026
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1027	!Tag::TLabel methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1028
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1029	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1030	^ 'label'
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1035	!Tag::TLabel methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1036
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1037	isLabelTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1038	"return true, if this is a label tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1039	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1040	^ true
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1045	!Tag::TLispConstant class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1046
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1047	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1048	^ 'c'
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1053	!Tag::TLispConstant methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1054
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1055	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1056	^ 'const'
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1061	!Tag::TLispConstant methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1062
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1063	isLispConstantTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1064	"return true, if this is a lisp constant tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1065	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1066	^ true
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1071	!Tag::TLispEval class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1072
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1073	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1074	^ 'E'
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1079	!Tag::TLispEval methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1080
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1081	printString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1082	^ "'eval '," super printString
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	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1086	^ 'eval'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1087
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1088
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1089	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1090
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1091	!Tag::TLispEval methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1092
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1093	isLispEvalTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1094	"return true, if this is a lisp eval tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1095	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1096	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1097
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1098
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1099	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1100
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1101	!Tag::TLispMacro class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1102
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1103	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1104	^ 'm'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1105
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1109	!Tag::TLispMacro methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1110
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1111	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1112	^ 'macro'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1113
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	!Tag::TLispMacro methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1118
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1119	isLispMacroTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1120	"return true, if this is a define macro tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1121	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1122	^ true
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1127	!Tag::TMacro class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1128
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1129	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1130	^ 'd'
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1135	!Tag::TMacro methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1136
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1137	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1138	^ 'macro'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1139
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	!Tag::TMacro methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1144
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1145	isMacroTag
14432 a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	1146	"return true, if this is a define macro / macro tag
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1147	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1148	^ true
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	!Tag::TMakeRule class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1152
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1153	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1154	^ 'R'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1155	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1156
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1157	!Tag::TMakeRule methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1158
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1159	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1160	^ 'rule'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1161	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1162
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1163	!Tag::TMakeRule methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1164
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1165	isMakeTargetTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1166	"return true, if this is a make-target tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1167	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1168	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1169
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1170
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1171	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1172
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1173	!Tag::TMakeTarget class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1174
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1175	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1176	^ 'T'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1177
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1178
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1179	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1180
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1181	!Tag::TMakeTarget methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1182
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1183	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1184	^ 'target'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1185
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1186
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1187	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1188
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1189	!Tag::TMakeTarget methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1190
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1191	isMakeTargetTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1192	"return true, if this is a make-target tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1193	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1194	^ true
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	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1198
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1199	!Tag::TMember class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1200
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1201	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1202	^ 'm'
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::TMember 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	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1210	^ 'struct/union member'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1211
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1212
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::TMember methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1216
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1217	isMemberTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1218	"return true, if this is a struct/union member tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1219	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1220	^ true
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	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1224
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1225	!Tag::TMethod class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1226
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1227	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1228	^ 'M'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1229
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1230	"Modified: / 05-05-2011 / 15:41:29 / cg"
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::TMethod methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1234
13449 9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1235	isMeta
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1236	^ isMeta
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1237	!
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1238
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1239	isMeta:aBoolean
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1240	isMeta := aBoolean.
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1241	!
9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1242
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1243	typeIdentifierInList
13449 9ca3903316f7 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 12709 diff changeset	1244	^ isMeta ifTrue:['M'] ifFalse:['m']
9890 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	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1248	^ 'method'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1249
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1250	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1251
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1252	!Tag::TMethod methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1253
14432 a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	1254	isFunctionOrMethodTag
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	1255	"return true, if this is a function or method tag
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1256	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1257	^ true
14432 a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	1258	!
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1259
14432 a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	1260	isMethodTag
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	1261	"return true, if this is a method tag
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	1262	"
a0629eb60ebf class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 13804 diff changeset	1263	^ true
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1264	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1265
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1266	!Tag::TPackage class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1267
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1268	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1269	^ 'P'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1270
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1271	"Modified: / 05-05-2011 / 15:41:35 / cg"
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	!Tag::TPackage methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1275
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1276	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1277	^ 'package'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1278
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1279
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1280	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1281
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1282	!Tag::TPackage methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1283
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1284	isPackageTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1285	"return true, if this is a java package tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1286	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1287	^ true
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1292	!Tag::TPrologClause class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1293
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1294	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1295	^ 'C'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1296
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1300	!Tag::TPrologClause methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1301
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1302	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1303	^ 'clause'
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1308	!Tag::TPrologClause methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1309
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1310	isPrologClause
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1311	"return true, if this is a prolog clause tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1312	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1313	^ true
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1318	!Tag::TStruct class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1319
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1320	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1321	^ 'S'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1322
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1323	"Modified: / 05-05-2011 / 15:41:42 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1324	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1325
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1326	!Tag::TStruct methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1327
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1328	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1329	^ 'struct'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1330
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1334	!Tag::TStruct methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1335
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1336	isStructOrUnionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1337	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1338
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1339	"Created: / 05-05-2011 / 15:07:51 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1340	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1341
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1342	isStructTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1343	"return true, if this is a struct tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1344	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1345	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1346
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1350	!Tag::TTypedef class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1351
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1352	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1353	^ 'T'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1354
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1355	"Modified: / 05-05-2011 / 15:41:46 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1356	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1357
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1358	!Tag::TTypedef methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1359
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1360	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1361	^ 'typedef'
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1366	!Tag::TTypedef methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1367
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1368	isTypedefTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1369	"return true, if this is a typedef tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1370	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1371	^ true
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
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1376	!Tag::TUnion class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1377
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1378	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1379	^ 'U'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1380
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1381	"Modified: / 05-05-2011 / 15:41:50 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1382	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1383
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1384	!Tag::TUnion methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1385
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1386	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1387	^ 'union'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1388
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1389	"Modified: / 05-05-2011 / 15:07:12 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1390	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1391
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1392	!Tag::TUnion methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1393
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1394	isStructOrUnionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1395	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1396
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1397	"Created: / 05-05-2011 / 15:07:41 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1398	!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1399
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1400	isUnionTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1401	"return true, if this is a union tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1402	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1403	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1404
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1405	"Created: / 05-05-2011 / 15:07:00 / cg"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1406	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1407
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1408	!Tag::TVariable class methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1409
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1410	typeIdentifier
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1411	^ 'v'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1412
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1413
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1414	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1415
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1416	!Tag::TVariable methodsFor:'accessing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1417
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1418	typeString
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1419	^ 'variable'
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1420
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1421
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1422	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1423
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1424	!Tag::TVariable methodsFor:'testing'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1425
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1426	isVariableTag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1427	"return true, if this is a variable tag
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1428	"
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1429	^ true
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1430
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1431
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1432	! !
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1433
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1434	!Tag class methodsFor:'documentation'!
22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1435
14440 b0da24d294ff class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14432 diff changeset	1436	version
14581 e0ae7b7d56e4 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14441 diff changeset	1437	^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.14 2014-07-04 10:27:24 cg Exp $'
14440 b0da24d294ff class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14432 diff changeset	1438	!
b0da24d294ff class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14432 diff changeset	1439
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1440	version_CVS
14581 e0ae7b7d56e4 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14441 diff changeset	1441	^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.14 2014-07-04 10:27:24 cg Exp $'
10052 96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	1442	!
96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	1443
96ce1c919cbe added: #documentation Claus Gittinger <cg@exept.de> parents: 9923 diff changeset	1444	version_SVN
14581 e0ae7b7d56e4 class: Tools::Tag Claus Gittinger <cg@exept.de> parents: 14441 diff changeset	1445	^ '$Id: Tools__Tag.st,v 1.14 2014-07-04 10:27:24 cg Exp $'
9890 22597697b8e6 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1446	! !
12709 b6a7b058e665 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 11803 diff changeset	1447

author	Claus Gittinger <cg@exept.de>
	Fri, 04 Jul 2014 12:27:24 +0200
changeset 14581	e0ae7b7d56e4
parent 14441	197c8235d305
child 15566	184cea584be5
child 15770	d45f45c410d1
permissions	-rw-r--r--