2233 |
2233 |
2234 forceSimpleTagList ifFalse:[ |
2234 forceSimpleTagList ifFalse:[ |
2235 shellCmd := (self shellCommandFor:aFile pathName). |
2235 shellCmd := (self shellCommandFor:aFile pathName). |
2236 shellCmd notNil ifTrue:[ |
2236 shellCmd notNil ifTrue:[ |
2237 tagTypesPresent := false. "/ will be set again, when ctags command provides types |
2237 tagTypesPresent := false. "/ will be set again, when ctags command provides types |
2238 list := (self getTagListFromFile:aFile usingCommand:shellCmd mode:nil in:aTempDirectory) asOrderedCollection. |
2238 list := ((self getTagListFromFile:aFile usingCommand:shellCmd mode:nil in:aTempDirectory) ? #()) asOrderedCollection. |
2239 list addAll:(self getAdditionalCTagsInFile:aFile withList:list) |
2239 list addAll:(self getAdditionalCTagsInFile:aFile withList:list) |
2240 ]. |
2240 ]. |
2241 ]. |
2241 ]. |
2242 |
2242 |
2243 "/ in case ctags could not find anything, try our own, naive fallback (not too bad either) |
2243 "/ in case ctags could not find anything, try our own, naive fallback (not too bad either) |
2244 list isEmptyOrNil ifTrue:[ |
2244 list isEmptyOrNil ifTrue:[ |
2245 list := (self getSimpleTagListFromFile:aFile in:aTempDirectory) asOrderedCollection. |
2245 list := ((self getSimpleTagListFromFile:aFile in:aTempDirectory) ? #()) asOrderedCollection. |
2246 ]. |
2246 ]. |
2247 tagTypesPresent := true. |
2247 tagTypesPresent := true. |
2248 |
2248 |
2249 numTags := list size. |
2249 numTags := list size. |
2250 fileContents := aFile contents. |
2250 fileContents := aFile contents. |