Lines Matching refs:Scanner
36 Scanner: TLinkScanner;
61 if not CodeToolBoss.ExploreUnitDirectives(Code,Scanner) then
65 writeln(Scanner.CleanedSrc);
68 for i:=0 to Scanner.DirectiveCount-1 do begin
69 Dir:=Scanner.Directives[i];
70 writeln(i,'/',Scanner.DirectiveCount,
71 ' CleanPos=',Dir^.CleanPos,'=',Scanner.CleanedPosToStr(Dir^.CleanPos),
73 ' "',ExtractCommentContent(Scanner.CleanedSrc,Dir^.CleanPos,Scanner.NestedComments),'"'
78 for i:=0 to Scanner.DirectiveCount-1 do begin
79 Dir:=Scanner.DirectivesSorted[i];
80 write(i,'/',Scanner.DirectiveCount,
81 ' CleanPos=',Dir^.CleanPos,'=',Scanner.CleanedPosToStr(Dir^.CleanPos),
83 ' "',ExtractCommentContent(Scanner.CleanedSrc,Dir^.CleanPos,Scanner.NestedComments),'"'
85 if Scanner.FindDirective(Code,Dir^.SrcPos,FirstSortedIndex,LastSortedIndex)
90 raise Exception.Create('inconsistency: Scanner.FindDirective failed');