equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2002 by eXept Software AG |
2 COPYRIGHT (c) 2002 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
83 TagsSuffixes at:#'text/lisp' put:#( 'lisp' 'el' 'lsp' 'cl'). |
81 TagsSuffixes at:#'text/lisp' put:#( 'lisp' 'el' 'lsp' 'cl'). |
84 TagsSuffixes at:#'text/lisp-arc' put:#( 'arc' ). |
82 TagsSuffixes at:#'text/lisp-arc' put:#( 'arc' ). |
85 TagsSuffixes at:#'text/scheme' put:#( 'scm' 'ss' 'brg'). |
83 TagsSuffixes at:#'text/scheme' put:#( 'scm' 'ss' 'brg'). |
86 TagsSuffixes at:#'text/oz' put:#( 'oz'). |
84 TagsSuffixes at:#'text/oz' put:#( 'oz'). |
87 TagsSuffixes at:#'text/lua' put:#( 'lua'). |
85 TagsSuffixes at:#'text/lua' put:#( 'lua'). |
88 TagsSuffixes at:#'text/smalltalk' put:#( 'st' ). |
86 TagsSuffixes at:#'text/smalltalk' put:#( 'st' 'ST' 'St' 'Prj'). |
89 TagsSuffixes at:#'text/tcl' put:#( 'tcl' ). |
87 TagsSuffixes at:#'text/tcl' put:#( 'tcl' ). |
90 TagsSuffixes at:#'text/ruby' put:#( 'rb' ). |
88 TagsSuffixes at:#'text/ruby' put:#( 'rb' ). |
91 TagsSuffixes at:#'text/yacc' put:#( 'y' ). |
89 TagsSuffixes at:#'text/yacc' put:#( 'y' ). |
92 TagsSuffixes at:#'text/batch' put:#( 'bat' ). |
90 TagsSuffixes at:#'text/batch' put:#( 'bat' ). |
93 TagsSuffixes at:#'text/xml-xsd' put:#( 'xsd' ). |
91 TagsSuffixes at:#'text/xml-xsd' put:#( 'xsd' ). |
2226 |
2224 |
2227 rawList := nil. |
2225 rawList := nil. |
2228 tagsValidForFile := nil. |
2226 tagsValidForFile := nil. |
2229 |
2227 |
2230 forceSimpleTagList := false. |
2228 forceSimpleTagList := false. |
|
2229 (self class isSmalltalkSuffix:aFile suffix) ifTrue:[ |
|
2230 forceSimpleTagList := true. |
|
2231 ]. |
|
2232 |
2231 "/ the simple builtin tagList generator is actually better than the ctags output for makefiles |
2233 "/ the simple builtin tagList generator is actually better than the ctags output for makefiles |
2232 (self class makeFilePatterns contains:[:aPattern | (aPattern match:aFile baseName asLowercase)]) ifTrue:[forceSimpleTagList := true]. |
2234 (self class makeFilePatterns contains:[:aPattern | (aPattern match:aFile baseName asLowercase)]) ifTrue:[forceSimpleTagList := true]. |
2233 |
2235 |
2234 forceSimpleTagList ifFalse:[ |
2236 forceSimpleTagList ifFalse:[ |
2235 shellCmd := (self shellCommandFor:aFile pathName). |
2237 shellCmd := (self shellCommandFor:aFile pathName). |