blob: d832ac7788ecd579d181eb86c134d089bb8dc46c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#!/usr/bin/perl -w
use strict;
use Getopt::Long;
use File::Path;
use Pod::Usage;
use TexId;
my $tex = TexId->new(progress => 1);
$tex->load_file_data('../GenCS/notes.tex');
my ($a, $b) = $tex->environments();
print $b, "\n";
print $tex->snippath(), "\n";
$tex->parse('../GenCS/notes.tex');
#print join(', ', $tex->use_env_list('omtext')), "\n";
#print $tex->edit_dist('anaIU', 'aanUI'), "\n";
$tex->check_uniq;
$tex->check_prefix;
$tex->apply_changes;
|