equal
deleted
inserted
replaced
3530 lineStream skip:kwLen; skipSeparators. |
3530 lineStream skip:kwLen; skipSeparators. |
3531 |
3531 |
3532 (skipBrace not or:[lineStream peek = ${ ]) ifTrue:[ |
3532 (skipBrace not or:[lineStream peek = ${ ]) ifTrue:[ |
3533 skipBrace ifTrue:[lineStream skip:1; skipSeparators]. |
3533 skipBrace ifTrue:[lineStream skip:1; skipSeparators]. |
3534 nm := lineStream upToElementForWhich:[:ch | (ch isLetterOrDigit or:['_' includes:ch]) not]. |
3534 nm := lineStream upToElementForWhich:[:ch | (ch isLetterOrDigit or:['_' includes:ch]) not]. |
3535 (nm notEmpty and:[nm first isLetter or:[nm first = $_]]) ifTrue:[ |
3535 (nm notEmpty and:[nm first isLetterOrUnderline]) ifTrue:[ |
3536 ^ type |
3536 ^ type |
3537 label:nm |
3537 label:nm |
3538 pattern:nil |
3538 pattern:nil |
3539 type:nil |
3539 type:nil |
3540 lineNumber:lineNr. |
3540 lineNumber:lineNr. |
3993 ! ! |
3993 ! ! |
3994 |
3994 |
3995 !TagList class methodsFor:'documentation'! |
3995 !TagList class methodsFor:'documentation'! |
3996 |
3996 |
3997 version |
3997 version |
3998 ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.67 2015-02-02 11:20:53 cg Exp $' |
3998 ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.68 2015-02-07 15:41:46 cg Exp $' |
3999 ! |
3999 ! |
4000 |
4000 |
4001 version_CVS |
4001 version_CVS |
4002 ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.67 2015-02-02 11:20:53 cg Exp $' |
4002 ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.68 2015-02-07 15:41:46 cg Exp $' |
4003 ! |
4003 ! |
4004 |
4004 |
4005 version_SVN |
4005 version_SVN |
4006 ^ '$Id: Tools__TagList.st,v 1.67 2015-02-02 11:20:53 cg Exp $' |
4006 ^ '$Id: Tools__TagList.st,v 1.68 2015-02-07 15:41:46 cg Exp $' |
4007 ! ! |
4007 ! ! |
4008 |
4008 |