1 21 22 package org.armedbear.j; 23 24 import gnu.regexp.RE; 25 import gnu.regexp.REMatch; 26 import gnu.regexp.UncheckedRE; 27 import java.util.ArrayList ; 28 29 public final class TclTagger extends Tagger 30 { 31 private static final RE procRE = new UncheckedRE("^proc\\s+(\\S+)"); 32 33 public TclTagger(SystemBuffer buffer) 34 { 35 super(buffer); 36 } 37 38 public void run() 39 { 40 ArrayList tags = new ArrayList (); 41 Line line = buffer.getFirstLine(); 42 while (line != null) { 43 String s = line.trim(); 44 if (s != null) { 45 REMatch match; 46 if (s.startsWith("proc")) 47 match = procRE.getMatch(s); 48 else 49 match = null; 50 if (match != null) { 51 String name = s.substring(match.getSubStartIndex(1), 52 match.getSubEndIndex(1)); 53 tags.add(new LocalTag(name, line)); 54 } 55 } 56 line = line.next(); 57 } 58 buffer.setTags(tags); 59 } 60 } 61 | Popular Tags |