--- a/Tools__TagList.st Wed Aug 22 21:46:20 2012 +0200
+++ b/Tools__TagList.st Wed Aug 22 21:50:36 2012 +0200
@@ -83,6 +83,8 @@
TagsSuffixes at:#'text/javaScript' put:#( 'js' ).
TagsSuffixes at:#'text/javascript' put:#( 'js' ).
TagsSuffixes at:#'application/x-javascript' put:#( 'js' ).
+ TagsSuffixes at:#'text/dart' put:#( 'dart' ).
+ TagsSuffixes at:#'application/x-dart' put:#( 'dart' ).
TagsSuffixes at:#'text/make' put:#( 'makefile' 'make.proto' 'makefile.*' '*.mak' '*.bpr').
TagsSuffixes at:#'text/prolog' put:#( 'pl' ).
TagsSuffixes at:#'text/python' put:#( 'py' ).
@@ -97,7 +99,7 @@
TagsSuffixes at:#'text/yacc' put:#( 'y' ).
^ TagsSuffixes
- "Modified: / 20-04-2011 / 19:27:53 / cg"
+ "Modified: / 22-08-2012 / 21:05:15 / cg"
! !
!TagList class methodsFor:'defaults'!
@@ -132,6 +134,14 @@
^ self tagsSuffixes at:#'text/lisp'
!
+dartSuffixes
+ "returns a list of supported dart-suffixes"
+
+ ^ self tagsSuffixes at:#'text/dart'
+
+ "Created: / 22-08-2012 / 21:01:32 / cg"
+!
+
eiffelSuffixes
"returns a list of supported eiffel-suffixes
"
@@ -275,6 +285,12 @@
^ self isSuffix:suffix in:self commonLispSuffixes
!
+isDartSuffix:suffix
+ ^ self isSuffix:suffix in:self dartSuffixes
+
+ "Created: / 22-08-2012 / 21:01:10 / cg"
+!
+
isEiffelSuffix:suffix
^ self isSuffix:suffix in:self eiffelSuffixes
!
@@ -2483,7 +2499,9 @@
{ 'function ' . #functions . hideFunctions . Tag::TFunction } .
{ 'var ' . #variables . hideVariables . Tag::TVariable } .
{ 'class ' . #classes . hideClasses . Tag::TClass } .
+ { 'abstract class ' . #classes . hideClasses . Tag::TClass } .
{ 'interface ' . #interfaces . hideDartInterfaces . Tag::TInterface } .
+ { 'factory ' . #methods . hideMethods . Tag::TMethod } .
} tuplesDo:[:keywordSpace :showOnlyEnum :hideVariableValue :tagType|
(l startsWith:keywordSpace) ifTrue:[
(showOnly isNil or:[showOnly == showOnlyEnum]) ifTrue:[
@@ -2507,7 +2525,7 @@
^ targets
"Created: / 28-06-2010 / 12:44:25 / cg"
- "Modified: / 08-05-2011 / 10:39:55 / cg"
+ "Modified: / 22-08-2012 / 21:32:33 / cg"
!
getSimpleTagListFromFile:aFileOrString in:aTempDirectory
@@ -2572,6 +2590,10 @@
"/ js tags - simulated
^ self javaScriptTagsInFile:pathName
].
+ (self class isDartSuffix:suffix) ifTrue:[
+ "/ dart tags - simulated
+ ^ self dartTagsInFile:pathName
+ ].
(self class isHTMLSuffix:suffix) ifTrue:[
"/ html tags - simulated
@@ -3482,11 +3504,11 @@
!TagList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.14 2012-08-21 19:04:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.15 2012-08-22 19:50:36 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.14 2012-08-21 19:04:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__TagList.st,v 1.15 2012-08-22 19:50:36 cg Exp $'
!
version_SVN