hg/stx-libtool: comparison Tools_

equal deleted inserted replaced

-:d550d7de8e2d
+:ba8c5416aa28
 (lineNumber notNil and:[lineNumber ~~ 0]) ifTrue:[
 ^ lineNumber
 ].
 (pat := self pattern) isNil ifTrue:[
-	lineNumber := 1.
+lineNumber := 1.
 ^ lineNumber
 ].
 (pat endsWith:';"') ifTrue:[
-	lnr := Integer readFrom:pat onError:nil.
+lnr := Integer readFrom:pat onError:nil.
-	lnr notNil ifTrue:[
+lnr notNil ifTrue:[
-	    ^ lnr
+^ lnr
-	]
+]
 ].
 lnr := 0.
 "/        (pat endsWith:'/;"') ifTrue:[
 "/            pat := pat copyWithoutLast:3.
 "/        ].
 (pat startsWith:$^) ifTrue:[
-	pat := pat copyFrom:2.
+pat := pat copyFrom:2.
-	atStart := true.
+atStart := true.
 ].
 (pat endsWith:$$) ifTrue:[
-	pat := pat copyWithoutLast:1.
+pat := pat copyButLast:1.
-	atEnd := true.
+atEnd := true.
 ].
 atStart == true ifTrue:[
-	atEnd == true ifTrue:[
+atEnd == true ifTrue:[
-	    lnr := someText findFirst:[:l| l = pat].
+lnr := someText findFirst:[:l| l = pat].
-	] ifFalse:[
+] ifFalse:[
-	    lnr := someText findFirst:[:l| l startsWith:pat].
+lnr := someText findFirst:[:l| l startsWith:pat].
-	]
+]
 ] ifFalse:[
-	atEnd == true ifTrue:[
+atEnd == true ifTrue:[
-	    lnr := someText findFirst:[:l| l endsWith:pat].
+lnr := someText findFirst:[:l| l endsWith:pat].
-	] ifFalse:[
+] ifFalse:[
-	    lnr := someText findFirst:[:l| l includesString:pat].
+lnr := someText findFirst:[:l| l includesString:pat].
-	].
+].
 ].
 lnr == 0 ifTrue:[
-	lnr := someText findFirst:[:l| l includesString:self label].
+lnr := someText findFirst:[:l| l includesString:self label].
-	lnr == 0 ifTrue:[
+lnr == 0 ifTrue:[
-	    lnr := 1.
+lnr := 1.
-	].
+].
 ].
 ^ lnr
 ! !
 !Tag methodsFor:'testing'!
 ! !
 !Tag class methodsFor:'documentation'!
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.6 2012-09-12 20:42:58 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.7 2013-04-25 13:10:58 stefan Exp $'
 !
 version_HG
 ^ '$Changeset: <not expanded> $'

branch	jv
changeset 12807	ba8c5416aa28
parent 12431	9f0c59c742d5
parent 12709	b6a7b058e665
child 13182	bc686a7cc736