#!/usr/bin/perl

;#  ChkTeX.pl v1.0, converts chktex output into UNIX-error like.
;#  Copyright (C) 1995 Jens T. Berger Thielemann
;#
;#  This program is free software; you can redistribute it and/or modify
;#  it under the terms of the GNU General Public License as published by
;#  the Free Software Foundation; either version 2 of the License, or
;#  (at your option) any later version.
;#
;#  This program is distributed in the hope that it will be useful,
;#  but WITHOUT ANY WARRANTY; without even the implied warranty of
;#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;#  GNU General Public License for more details.
;#
;#  You should have received a copy of the GNU General Public License
;#  along with this program; if not, write to the Free Software
;#  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;#
;#  Contact the author at:
;#		Jens Berger
;#		Spektrumvn. 4
;#		N-0666 Oslo
;#		Norway
;#		E-mail: <jensthi@ifi.uio.no>
;#
;#
;#


$name = "chktex -v0s::: " . join(' ', @ARGV) . "|";

open(FILE, $name) || die "Could not run ChkTeX.";

while(<FILE>) {
    ($file, $line, $col, $num, $msg) = split(/:::/, $_, 5);
    print "\"$file\", line $line: $msg";
}