%
% view lint results
%
"globals" \_ any)?
{

 " Lint report for "
 _\\ &
&"
errors-------
"
 !report

 "errors" \_
 zeronull execstr
 countup
 {
  pop
%%%%  !errpre !error !predef !reason !address
  ">>" &4) &">>" &4) &" - " &3) &;
  &3) &;
  &2) &;
 
  _report ^ !report
 } for

"function-------
"
  _report ^ !report
 "functions" *lintvtri

"global-------
"
  _report ^ !report

 "globals" \_
  zeronull execstr
 countup
 {
  pop1&3
  &" - " ^
  &;
  _report ^ !report
 } for

"parameter-------
"
  _report ^ !report
 "parameters" *lintvtri

"variable-------
"
  _report ^ !report
 "variables" *lintvtri

"exception-------
"
  _report ^ !report
 "exceptions" *lintvtri

"property-------
"
  _report ^ !report

 "props" \_
 zeronull execstr
 countup
 {
  pop
  &;
  _report ^ !report
 } for

"indexer----(exact)---(partof)---
"
  _report ^ !report
 "indexer" *lintvtri

} if