<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;"># autolatex - DocumentDetector.pm
# Copyright (C) 2013  Stephane Galland &lt;galland@arakhne.org&gt;
#
# 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; see the file COPYING.  If not, write to
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.

=pod

=head1 NAME

DocumentDetector.pm - Detect if a TeX file contains a LaTeX document.

=head1 DESCRIPTION

Tool that is parsing a TeX file and detect if \documentclass is inside.

To use this library, type C&lt;use AutoLaTeX::TeX::DocumentDetector;&gt;.

=head1 FUNCTIONS

The provided functions are:

=over 4

=cut
package AutoLaTeX::TeX::DocumentDetector;

$VERSION = '1.0';
@ISA = ('Exporter');
@EXPORT = qw( &amp;isLaTeXDocument ) ;
@EXPORT_OK = qw();

require 5.014;
use strict;
use utf8;
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
use AutoLaTeX::TeX::TeXParser;

my %MACROS = (
	'documentclass'			=&gt; '![]!{}',
	);

=pod

=item B&lt;isLaTeXDocument($)&gt;

Replies if the given file is a LaTeX document, ie.
a text file that contains \documentclass.

=over 4

=item * C&lt;file&gt; is the name of the file to parse.

=back

I&lt;Returns:&gt; true if the file is a LaTeX document;
false otherwise.

=cut
sub isLaTeXDocument($) {
	my $input = shift;
	
	local *FILE;
	open(*FILE, "&lt; $input") or printErr("$input: $!");
	my $content = '';
	while (my $line = &lt;FILE&gt;) {
		$content .= $line;
	}
	close(*FILE);

	my $listener = AutoLaTeX::TeX::DocumentDetector-&gt;_new();

	my $parser = AutoLaTeX::TeX::TeXParser-&gt;new("$input", $listener);

	while (my ($k,$v) = each(%MACROS)) {
		$parser-&gt;addTextModeMacro($k,$v);
		$parser-&gt;addMathModeMacro($k,$v);
	}

	$parser-&gt;parse( $content );

	return $listener-&gt;{'isLaTeXDocument'};
}

sub _expandMacro($$@) : method {
	my $self = shift;
	my $parser = shift;
	my $macro = shift;
	if ($macro eq '\\documentclass' ) {
		$self-&gt;{'isLaTeXDocument'} = 1;
		$parser-&gt;stop();
	}
	return '';
}

sub _new() : method {
	my $proto = shift;
	my $class = ref($proto) || $proto;
	my $parent = ref($proto) &amp;&amp; $proto ;

	my $self ;
	if ( $parent ) {
		%{$self} = %{$parent} ;
	}
	else {
		$self = {
			'expandMacro' =&gt; \&amp;_expandMacro,
			'isLaTeXDocument' =&gt; 0,
		};
	}
	bless( $self, $class );
	return $self;
}

1;
__END__
=back

=head1 BUG REPORT AND FEEDBACK

To report bugs, provide feedback, suggest new features, etc. visit the AutoLaTeX Project management page at &lt;http://www.arakhne.org/autolatex/&gt; or send email to the author at L&lt;galland@arakhne.org&gt;.

=head1 LICENSE

S&lt;GNU Public License (GPL)&gt;

=head1 COPYRIGHT

S&lt;Copyright (c) 2013 Stéphane Galland E&lt;lt&gt;galland@arakhne.orgE&lt;gt&gt;&gt;

=head1 SEE ALSO

L&lt;autolatex-dev&gt;
</pre></body></html>