"

 COPYRIGHT (c) 2002 by eXept Software AG 

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

Object subclass:#Tag

	instanceVariableNames:'width label pattern lineNumber fileName className'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools-File-Tags'

!

Tag subclass:#TClass

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TDocumentation

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TElement

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TEnum

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TEnumMember

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TField

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TFunction

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TInterface

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TLabel

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TLispConstant

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TLispEval

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TLispMacro

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TMacro

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TMakeRule

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TMakeTarget

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TMember

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TMethod

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TPackage

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TPrologClause

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TStruct

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TTypedef

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TUnion

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

Tag subclass:#TVariable

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Tag

!

!Tag class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2002 by eXept Software AG 

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

! !

!Tag class methodsFor:'instance creation'!

label:aLabel pattern:aPattern

    ^ self label:aLabel pattern:aPattern type:nil lineNumber:nil className:nil

!

label:aLabel pattern:aPattern type:tagTypeString

    ^ self label:aLabel pattern:aPattern type:tagTypeString lineNumber:nil className:nil

!

label:aLabel pattern:aPattern type:tagTypeString lineNumber:aLineNumer

    ^ self label:aLabel pattern:aPattern type:tagTypeString lineNumber:aLineNumer className:nil

!

label:aLabel pattern:aPattern type:tagTypeString lineNumber:aLineNumer className:cName

    |tid cls tag|

    ((self == Tag) and:[tagTypeString size == 1]) ifTrue:[

        tid := tagTypeString asString.

        cls := self subclasses detect:[:aClass| aClass typeIdentifier = tid ]

                               ifNone:self.

    ] ifFalse:[

        cls := self

    ].

    tag := cls new.

    tag label:aLabel pattern:aPattern lineNumber:aLineNumer className:cName.

    ^ tag

    "Modified: / 05-05-2011 / 15:42:45 / cg"

! !

!Tag class methodsFor:'accessing'!

typeIdentifier

    ^ nil

! !

!Tag methodsFor:'accessing'!

fileName

    "returns the fileName (project tags only)

    "

    ^ fileName

!

fileName:aFilename

    "set the fileName (project tags only)

    "

    fileName := aFilename

!

label

    ^ label

!

lineNumber

    "returns the lineNumber computed at beginning

    "

    ^ lineNumber ? 0

!

lineNumber:aNumber

    "set the lineNumber computed at beginning

    "

    lineNumber := aNumber.

!

pattern

    "returns the pattern string, used to detect the line into a

     contents

    "

    ^ pattern

!

typeIdentifierInList

    ^ self class typeIdentifier

!

typeString

    ^ '???'

! !

!Tag methodsFor:'instance creation'!

label:aLabel pattern:aPattern lineNumber:aLineNumer className:cName

    label      := aLabel.

    pattern    := aPattern.

    lineNumber := aLineNumer.

    cName size > 1 ifTrue:[

	cName first isLetter ifFalse:[

	    className := cName copyFrom:2

	] ifTrue:[

	    className := cName

	]

    ]

! !

!Tag methodsFor:'list interface'!

explainString

    |s t|

    s := label , ' is a ' , self typeString.

    fileName notNil ifTrue:[

	s := s , ' in ', fileName pathName.

    ].

    ^ s

!

printString

    "returns the label used in a list

    "

    |l type|

    l := label.

    className notNil ifTrue:[

	l := className , '::' , l

    ].

"/

"/    type := self class typeIdentifier.

"/

"/    type notNil ifTrue:[

"/        ^  type, ' ' , l

"/    ].

    ^ l

!

printStringWithoutClass

    "returns a short label (used in a list when all labels are for the same class)

    "

    |l type|

    l := label.

    className notNil ifTrue:[

	l := '::' , l

    ].

"/

"/    type := self class typeIdentifier.

"/

"/    type notNil ifTrue:[

"/        ^  type, ' ' , l

"/    ].

    ^ l

! !

!Tag methodsFor:'queries'!

widthOn:aGC

    width isNil ifTrue:[

	width := self printString widthOn:aGC

    ].

    ^ width

! !

!Tag methodsFor:'tag searching'!

lineNumberIn:someText

    |pat lnr atStart atEnd|

    (lineNumber notNil and:[lineNumber ~~ 0]) ifTrue:[

       ^ lineNumber

    ].

    (pat := self pattern) isNil ifTrue:[

	lineNumber := 1.

      ^ lineNumber

    ].

    (pat endsWith:';"') ifTrue:[

	lnr := Integer readFrom:pat onError:nil.

	lnr notNil ifTrue:[

	    ^ lnr

	]

    ].

    lnr := 0.

"/        (pat endsWith:'/;"') ifTrue:[

"/            pat := pat copyWithoutLast:3.

"/        ].

    (pat startsWith:$^) ifTrue:[

	pat := pat copyFrom:2.

	atStart := true.

    ].

    (pat endsWith:$$) ifTrue:[

	pat := pat copyWithoutLast:1.

	atEnd := true.

    ].

    atStart == true ifTrue:[

	atEnd == true ifTrue:[

	    lnr := someText findFirst:[:l| l = pat].

	] ifFalse:[

	    lnr := someText findFirst:[:l| l startsWith:pat].

	]

    ] ifFalse:[

	atEnd == true ifTrue:[

	    lnr := someText findFirst:[:l| l endsWith:pat].

	] ifFalse:[

	    lnr := someText findFirst:[:l| l includesString:pat].

	].

    ].

    lnr == 0 ifTrue:[

	lnr := someText findFirst:[:l| l includesString:self label].

	lnr == 0 ifTrue:[

	    lnr := 1.

	].

    ].

    ^ lnr

! !

!Tag methodsFor:'testing'!

isClassTag

    "return true, if this is a java class tag 

    "

    ^ false

!

isDocumentationTag

    "return true, if this is a doc tag 

    "

    ^ false

    "Created: / 08-05-2011 / 10:06:11 / cg"

!

isEnumMemberTag

    ^ false

    "Created: / 05-05-2011 / 15:38:56 / cg"

!

isEnumTag

    ^ false

    "Created: / 05-05-2011 / 15:37:23 / cg"

!

isFieldTag

    "return true, if this is a java field tag 

    "

    ^ false

!

isFunctionTag

    "return true, if this is a function tag 

    "

    ^ false

!

isInterfaceTag

    "return true, if this is a java interface tag 

    "

    ^ false

!

isLabelTag

    "return true, if this is a label tag 

    "

    ^ false

!

isLispConstantTag

    "return true, if this is a lisp constant tag 

    "

    ^ false

!

isLispEvalTag

    "return true, if this is a lisp eval tag 

    "

    ^ false

!

isLispMacroTag

    "return true, if this is a lisp macro tag 

    "

    ^ false

!

isMacroTag

    "return true, if this is a define macro tag 

    "

    ^ false

!

isMakeTargetTag

    "return true, if this is a make-target tag 

    "

    ^ false

!